Description
Main entry of the TConCheck
Parameters
| icFile | input | character | |
| ocConCheckLineDetResult | output | character | |
| otConCheckLineDetStartDate | output | date | |
| oiConCheckLineDetStartTime | output | integer | |
| oiConCheckLineDetDuration | output | integer | |
| iiCompanyID | input | integer | |
| iiPeriodID | input | integer | |
| iiSessionID | input | integer | |
| icCheckType | input | character | |
| oiErrorNumbers | output | integer | |
| ocConCheckLineDetVersion | output | character | |
| icAppVersion | input | character | |
| icSumFile | input | character | |
| ihTranslationHandle | input | handle | Translation Handle. |
| icNumericFormat | input | character | numeric format from FIN session |
| oiReturnStatus | output | integer | |
Internal usage
QadFinancials
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.