Parameters
iiDebtorId | input | integer | |
icDebtorCode | input | character | |
iiDInvoiceId | input | integer | |
icDInvoiceRowid | input | character | |
idDInvoiceOriginalTC | input | decimal | |
icCurrencyCode | input | character | |
tApiDInvoiceBank | output | temp-table | |
tApiDInvoiceBankPayCode | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bdinvoice.p)
if iiDebtorId = ? or iiDebtorId = 0
then do:
if icDebtorCode = ? or icDebtorCode = "":U
then return.
<Q-6 run DebtorPrim (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input icDebtorCode, (DebtorCode)
input ?, (Debtor_ID)
output dataset tqDebtorPrim) in BDebtor >
find first tqDebtorPrim where
tqDebtorPrim.tcDebtorCode = icDebtorCode no-error.
if available tqDebtorPrim
then assign iiDebtorId = tqDebtorPrim.tiDebtor_ID.
else return.
end.
empty temp-table tApiDInvoiceBank.
empty temp-table tApiDInvoiceBankPayCode.
<M-5 run DefaultValuesBank
(input iiDInvoiceId (iiDInvoiceId),
input icDInvoiceRowid (icRowId),
input idDInvoiceOriginalTC (idDInvoiceOriginalTC),
input iiDebtorId (iiDebtorId),
output tApiDInvoiceBank (tApiDInvoiceBank),
output tApiDInvoiceBankPaycode (tApiDInvoiceBankPayCode),
output viFcReturnSuper (oiReturnStatus)) in BDInvoice>
if viFcReturnSuper < 0 or oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
for each tDInvoiceBank where
tDInvoiceBank.tc_ParentRowid = icDInvoiceRowid:
<M-4 run CreateDIBankPayCode
(input tDInvoiceBank.DInvoiceBank_ID (iiDInvoiceBankId),
input tDInvoiceBank.tc_Rowid (icDInvoiceBankRowid),
input tDInvoiceBank.BankNumber_ID (iiBankNumberId),
output tApiDInvoiceBankPayCode (tApiDInvoiceBankPayCode),
output viFcReturnSuper (oiReturnStatus)) in BDInvoice>
if viFcReturnSuper < 0 or oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
create tApiDInvoiceBank.
buffer-copy tDInvoiceBank to tApiDInvoiceBank.
end.