project QadFinancials > class BConCheckProcessor > method ConCheckExecute

Description

Parameters

Internal usage

program code (program7/bconcheckprocessor.p)

/* =============================================================== */
/* This method is used to execute gl consistency check             */
/* =============================================================== */
for each tConCheckRef:

    /* call ConCheckProcessInit() */
    <M-88 run ConCheckProcessInit
       (output vcFile (ocFile), 
        output vcFileName (ocFileName), 
        output vcSumFile (ocSumFile), 
        output vcSumFileName (ocSumFileName), 
        output viFcReturnSuper (oiReturnStatus)) in BConCheckProcessor>
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 then return.

    /* call ConCheckProcess() */
    <M-73 run ConCheckProcess
       (input  tConCheckRef.Company_ID (iiSelCompanyID), 
        input  tConCheckRef.tiPeriodYear (iiConCheckPeriodYear), 
        input  tConCheckRef.tiPeriodPeriod (iiConCheckPeriodPeriod), 
        input  tConCheckRef.ConCheckType (icConCheckType), 
        output viFcReturnSuper (oiReturnStatus)) in BConCheckProcessor>
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 then return.
    
    <M-18 run ConCheckProcessFinish  (output viFcReturnSuper (oiReturnStatus)) in BConCheckProcessor>
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus >= 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 then return.
end.