project QadFinancials > class BDInvoice > method ValidateComponentDInvoiceDIText
validation procedure
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.