project QadFinancials > class BDDocument > method AdditionalUpdatesGetStatusInfo

Parameters

Internal usage

program code (program5/bddocument.p)

find tDDocumentStatusInfo where
     tDDocumentStatusInfo.tcDDocumentType   = icDDocumentType and
     tDDocumentStatusInfo.tcDDocumentStatus = icDDocumentStatus         
     no-error.

if not available tDDocumentStatusInfo
then do:
    create tDDocumentStatusInfo.

    assign tDDocumentStatusInfo.tcDDocumentStatusTrans = <M-1 GetDDocumentStatusTranslation (input  icDDocumentStatus (icStatus)) in BDDocument>
           tDDocumentStatusInfo.tcDDocumentTypeTrans   = <M-2 GetDDocumentTypeTranslation (input  icDDocumentType (icType)) in BDDocument>
           tDDocumentStatusInfo.tcDDocumentStatus      = icDDocumentStatus
           tDDocumentStatusInfo.tcDDocumentType        = icDDocumentType.
end.

if not blStart2
then do:
    <Q-6 run DDocumentStatusByTypeStatusGL (Start) in BDDocumentStatus >
    assign blStart2 = true.
end.

<Q-7 run DDocumentStatusByTypeStatusGL (all) (Read) (Cache)
   (input tDDocument.Company_ID, (CompanyId)
    input icDDocumentType, (DDocumentStatusDocumentType)
    input icDDocumentStatus, (DDocumentStatusStatus)
    input ?, (BankGLId)
    input icBankGLCode, (BankGLCode)
    output dataset tqDDocumentStatusByTypeStatusGL) in BDDocumentStatus>

find first tqDDocumentStatusByTypeStatusGL where
           tqDDocumentStatusByTypeStatusGL.tcDDocumentStatusDocType = icDDocumentType and
           tqDDocumentStatusByTypeStatusGL.tcDDocumentStatusStatus       = icDDocumentStatus and
           tqDDocumentStatusByTypeStatusGL.tcBankGLCode                  = icBankGLCode
           no-error.

if not available tqDDocumentStatusByTypeStatusGL
then do:
    <M-5 run SetMessage
          (input  trim(#T-8'No customer payment status is defined for this combination of payment type ($1), status ($2), and bank account code ($3).':250(1650)t-8#) (icMessage), 
           input  tDDocumentStatusInfo.tcDDocumentTypeTrans + chr(2) + tDDocumentStatusInfo.tcDDocumentStatusTrans + chr(2) + icBankGLCode (icArguments), 
           input  '':U (icFieldName), 
           input  '':U (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  tDDocument.tc_Rowid (icRowid), 
           input  'QADFIN-2568':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BDDocument>

    assign oiReturnStatus = -1.
    return.
end.

assign tDDocumentStatusInfo.tcGLCode              = tqDDocumentStatusByTypeStatusGL.tcGLCode
       tDDocumentStatusInfo.tlGLIsDivisionAccount = tqDDocumentStatusByTypeStatusGL.tlGLIsDivisionAccount
       tDDocumentStatusInfo.tcJournalCode         = tqDDocumentStatusByTypeStatusGL.tcJournalCode.