project QadFinancials > class BClosingPostingsReport > method CRDRControlGLBalValidation

Parameters

Internal usage

program code (program7/bclosingpostingsreport.p)

empty temp-table tErrorMessage.
/* Check the Filter values */
if viPeriodPeriodFilter = ? or viPeriodYearFilter = ?
then do:
    assign  vcErrMessage = trim(#T-92'The GL Period filter requires a value.':50(2285)T-92#).
    <M-1 run SetMessage
       (input  vcErrMessage (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-9690':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output oiReturnStatus (oiReturnStatus)) in BClosingPostingsReport>
    assign oiReturnStatus = -1.
    create tErrorMessage.
    assign tErrorMessage.tcErrorMessage = vcErrMessage.
end.

/* Check the Queue of the History Daemon */
<Q-2 assign vlFcQueryRecordsAvailable = CheckQPostingLine (NoCache)  (input viCompanyId, (CompanyId)) in BClosingPostingsReport >
if vlFcQueryRecordsAvailable <> False
then do:
    assign  vcErrMessage = trim(#T-9'History Daemons Queue (QPostingLine) is not empty.':255(733781357)T-9#).       
    <M-3 run SetMessage
       (input  vcErrMessage (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  ? (icRowid), 
        input  'QadFin-9691':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BClosingPostingsReport>
    assign oiReturnStatus = -1.
    create tErrorMessage.
    assign tErrorMessage.tcErrorMessage = vcErrMessage.
end.

/* Check the Queue of the Balance Daemon */
<Q-4 assign vlFcQueryRecordsAvailable = CheckQCinvoiceMovement (NoCache)  (input viCompanyId, (CompanyId)) in BClosingPostingsReport >
if vlFcQueryRecordsAvailable <> False
then do:
    assign  vcErrMessage = trim(#T-51'Balance Daemon Queue (QCinvoiceMovement) is not empty.':255(73501362)T-51#).
    <M-5 run SetMessage
       (input  vcErrMessage (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-9692':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BClosingPostingsReport>
    assign oiReturnStatus = -1.
    create tErrorMessage.
    assign tErrorMessage.tcErrorMessage = vcErrMessage.
end.