project QadFinancials > class BDDocument > method AdditionalUpdatesGetStatusInfo
Parameters
icDDocumentType | input | character | |
icDDocumentStatus | input | character | |
icBankGLCode | input | character | |
blStart2 | input-output | logical | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.