project QadFinancials > class TConCheck > method MainEntry

Description

Main entry of the TConCheck


Parameters


icFileinputcharacter
ocConCheckLineDetResultoutputcharacter
otConCheckLineDetStartDateoutputdate
oiConCheckLineDetStartTimeoutputinteger
oiConCheckLineDetDurationoutputinteger
iiCompanyIDinputinteger
iiPeriodIDinputinteger
iiSessionIDinputinteger
icCheckTypeinputcharacter
oiErrorNumbersoutputinteger
ocConCheckLineDetVersionoutputcharacter
icAppVersioninputcharacter
icSumFileinputcharacter
ihTranslationHandleinputhandleTranslation Handle.
icNumericFormatinputcharacternumeric format from FIN session
oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BConCheckProcessor.ConCheckProcessDet


program code (program1/tconcheck.p)

/*********************************************************************/
/* This is the main entry of TConCheck class.      *******************/
/*********************************************************************/

assign vcSessionNumericFormat = icNumericFormat.

case icCheckType: 
    when {&CONCHECKLINEDETTYPE-UTSYSCNP}
    then do:
        <M-48 run TechnicalValidation
           (input  icFile (icFile), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.
    when {&CONCHECKLINEDETTYPE-POSTINGBALANCE}
    then do:
        <M-86 run GLTrialBalanceCheck
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.
    when {&CONCHECKLINEDETTYPE-OPENITEMGL}
    then do:
        <M-61 run GLOpenItemControl
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end. 
    when {&CONCHECKLINEDETTYPE-BANKENTRY}
    then do:
        <M-16 run BankEntry
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
             
    end.
    when {&CONCHECKLINEDETTYPE-CROSSCOMPANY}
    then do:
       <M-35 run CrossCompany
          (input  icFile (icFile), 
           output ocConCheckLineDetResult (ocConCheckLineDetResult), 
           output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
           output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
           output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
           input  iiCompanyID (iiCompanyID), 
           input  iiPeriodID (iiPeriodID), 
           input  iiSessionID (iiSessionID), 
           output oiErrorNumbers (oiErrorNumbers), 
           output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
           input  icAppVersion (icAppVersion), 
           input  icSumFile (icSumFile), 
           input  ihTranslationHandle (ihTranslationHandle), 
           output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.  

    when {&CONCHECKLINEDETTYPE-DAEMONQUEUE}
    then do:
       <M-33 run DaemonQueues
          (input  icFile (icFile), 
           output ocConCheckLineDetResult (ocConCheckLineDetResult), 
           output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
           output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
           output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
           input  iiCompanyID (iiCompanyID), 
           input  iiPeriodID (iiPeriodID), 
           input  iiSessionID (iiSessionID), 
           output oiErrorNumbers (oiErrorNumbers), 
           output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
           input  icAppVersion (icAppVersion), 
           input  icSumFile (icSumFile), 
           input  ihTranslationHandle (ihTranslationHandle), 
           output viFcReturnSuper (oiReturnStatus)) in TConCheck>    
    end. 

    when {&CONCHECKLINEDETTYPE-APSUBGL}
    then do:
        <M-57 run CreditorControlGLBalance
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.
    when {&CONCHECKLINEDETTYPE-ARSUBGL}
    then do:
        <M-20 run DebtorControlGLBalance
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.
    when {&CONCHECKLINEDETTYPE-UNMATCHEDINVOICE}
    then do:
        <M-76 run UnmatchInvoiceCheck
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>
    end.
    when {&CONCHECKLINEDETTYPE-UNPOSTTRANS}
    then do:
        <M-51 run UnpostedTransactionCheck
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>        
    end.
    when {&CONCHECKLINEDETTYPE-REVALUATION}
    then do:
        <M-30 run RevaluationCheck
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>        
    end. 
    when {&CONCHECKLINEDETTYPE-APGL}
    then do:
        <M-40 run CPaymentControlGLBalance
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>        
    end.
    when {&CONCHECKLINEDETTYPE-ARGL}
    then do:
        <M-25 run DPaymentControlGLBalance
           (input  icFile (icFile), 
            output ocConCheckLineDetResult (ocConCheckLineDetResult), 
            output otConCheckLineDetStartDate (otConCheckLineDetStartDate), 
            output oiConCheckLineDetStartTime (oiConCheckLineDetStartTime), 
            output oiConCheckLineDetDuration (oiConCheckLineDetDuration), 
            input  iiCompanyID (iiCompanyID), 
            input  iiPeriodID (iiPeriodID), 
            input  iiSessionID (iiSessionID), 
            output oiErrorNumbers (oiErrorNumbers), 
            output ocConCheckLineDetVersion (ocConCheckLineDetVersion), 
            input  icAppVersion (icAppVersion), 
            input  icSumFile (icSumFile), 
            input  ihTranslationHandle (ihTranslationHandle), 
            output viFcReturnSuper (oiReturnStatus)) in TConCheck>        
    end.
end.