validation procedure
Description
Validate Payment Status
Parameters
| iiDDocumentId | input | integer | |
| icDDocumentStatus | input | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bddocument.p)
/* =================================================================================================== */
/* Method : ValDocumentStatus */
/* Desc : This method validate customer document status */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (I DDocumentId The document of which status to be changed */
/* (I) DocumentStatus Status to be validate */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Change status of records in temp-table */
/* =================================================================================================== */
find first tDDocument where tDDocument.DDocument_ID = iiDDocumentId no-error.
if available tDDocument
then do:
<Q-86 assign vlFcQueryRecordsAvailable = DDocumentStatusPrim (NoCache)
(input ?, (DDocumentStatusID)
input icDDocumentStatus, (DDocumentStatusStatus)
input tDDocument.DDocumentType, (DDocumentStatusDocumentType)
input tDDocument.tcGLCode, (BankGLCode)
input tDDocument.Company_ID, (CompanyId)) in BDDocumentStatus >
if not vlFcQueryRecordsAvailable
then do:
assign vcDDocumentStatus = <M-54 GetDDocumentStatusTranslation (input icDDocumentStatus (icStatus)) in BDDocument>
vcDDocumentType = <M-29 GetDDocumentTypeTranslation (input tDDocument.DDocumentType (icType)) in BDDocument>.
<M-51 run SetMessage
(input trim(#T-32'The $1 status has not been defined for payment type $2 and bank account code $3.':250(897)T-32#) (icMessage),
input vcDDocumentStatus + chr(2) + vcDDocumentType + chr(2) + tDDocument.tcGLCode (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input tDDocument.tc_Rowid (icRowid),
input 'qadfin-136519':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDDocument>
assign oiReturnStatus = -1.
end.
end. /* if else available tDDocument */
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.