method ValidateComponentDInvoiceDIText

validation procedure

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDInvoice.ValidateComponent

program code (program1/bdinvoice.p)

/* Update DInvoiceDIText to "YYYY/Daybook/Voucher" */
for each tDInvoice where tDInvoice.tc_Status <> "D":U:
    <Q-96 run JournalByJournalCode (all) (Read) (NoCache)
       (input ?, (CompanyId)
        input tDInvoice.tcJournalCode, (JournalCode)
        output dataset tqJournalByJournalCode) in BJournal>
    find first tqJournalByJournalCode no-error.
    if available tqJournalByJournalCode then
    do:
        /* If Journal Control Type is not Operational */
        if tqJournalByJournalCode.tcJournalControl <> {&JOURNALCONTROL-LOGISTIC}
        then assign tDInvoice.DInvoiceDIText = string(tDInvoice.DInvoicePostingYear) + "/" +
                                       tDInvoice.tcJournalCode + "/" +
                                       string(tDInvoice.DInvoiceVoucher, "999999999").

        for each t_sDInvoice where t_sDInvoice.DInvoice_ID = tDInvoice.DInvoice_ID:
            assign t_sDInvoice.DInvoiceDIText = tDInvoice.DInvoiceDIText.
        end.
    end.
end.

assign oiReturnStatus = 0.