project QadFinancials > class BDInvoice > method ValidateComponentDInvoiceDIText

validation procedure


Parameters


oiReturnStatusoutputintegerReturn 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.