project QadFinancials > class BSharedSetMerge > method MergeValidateCompareInit

Description

MergeValidate - step 3: Start real compare of the shared sets


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergetValidateCompareInit                                                             */
/*               STEP 4                                                                                */
/* Desc        : This method starts validation of the shared sets                                      */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Compare validation rules with content of read data and complete validation rules about missing      */
/* fields -> these fields are assumed as non-mandatory                                                 */
/* =================================================================================================== */
<M-60 run MergeValidateRuleValidateAndUpdate
   (output viFcReturnSuper (oiReturnStatus)) in BSharedSetMerge>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.

/* =================================================================================================== */
/* Initial values                                                                                      */
/* =================================================================================================== */
assign viValidateResultDetailCount = 0.

/* =================================================================================================== */
/* Create main records in resulting temporary table                                                    */
/* =================================================================================================== */
create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType        = {&SHAREDSETMERGE-INFOTYPE-TOTAL}
       tSharedSetMergeValRes.tcInfoDescription = #T-24'Number of elements to merge':255(63759)T-24#
       tSharedSetMergeValRes.tiInfoValue       = 0
       tSharedSetMergeValRes.tc_Rowid          = '1':U.

create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType        = {&SHAREDSETMERGE-INFOTYPE-MISS}
       tSharedSetMergeValRes.tcInfoDescription = #T-42'Number of missing elements':255(63760)T-42#
       tSharedSetMergeValRes.tiInfoValue       = 0
       tSharedSetMergeValRes.tc_Rowid          = '2':U.

create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType        = {&SHAREDSETMERGE-INFOTYPE-ERROR}
       tSharedSetMergeValRes.tcInfoDescription = #T-71'Number of errors':255(63761)T-71#
       tSharedSetMergeValRes.tiInfoValue       = 0
       tSharedSetMergeValRes.tc_Rowid          = '3':U.

create tSharedSetMergeValRes.
assign tSharedSetMergeValRes.tcInfoType        = {&SHAREDSETMERGE-INFOTYPE-WARN}
       tSharedSetMergeValRes.tcInfoDescription = #T-94'Number of warnings':255(64261)T-94#
       tSharedSetMergeValRes.tiInfoValue       = 0
       tSharedSetMergeValRes.tc_Rowid          = '4':U.

/* =================================================================================================== */
/* Construct query to go through all tables to be validated                                            */
/* =================================================================================================== */
/* create queries to browse through all tables which should be merged/validated */
assign vcQuery = "for each tMergeValidateTable":U.
create query vhMergeValidateTableQuery in widget-pool "non-persistent".
vhMergeValidateTableQuery:add-buffer( temp-table tMergeValidateTable:handle:default-buffer-handle). 
vhMergeValidateTableQuery:query-prepare(vcQuery).
vhMergeValidateTableQuery:query-open().
vhMergeValidateTableQuery:get-first().

/* =================================================================================================== */
/* Return                                                                                              */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.