method GetDInvoiceIDFromInvoiceInfo

Parameters

iiDInvoiceId	input	integer
iiCompanyId	input	integer
iiDInvoiceVoucher	input	integer
icJournalCode	input	character
iiJournalId	input	integer
iiPostingYear	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BDInvoice.LoadCInvoiceForNewBankAPI

program code (program1/bdinvoice.p)

  <Q-55 run DInvoicePrim (all) (Read) (NoCache)
     (input iiCompanyId, (CompanyId)
      input ?, (DInvoiceId)
      input iiPostingYear, (PeriodYear)
      input ?, (JournalId)
      input icJournalCode, (JournalCode)
      input iiDInvoiceVoucher, (DInvoiceVoucher)
      output dataset tqDInvoicePrim) in BDInvoice>
    
find tqDInvoicePrim where
    tqDInvoicePrim.tiPeriodYear      = iiPostingYear        and
    tqDInvoicePrim.tcJournalCode     = icJournalCode and
    tqDInvoicePrim.tiDInvoiceVoucher = iiDInvoiceVoucher no-lock no-error.
 
if available tqDInvoicePrim    
then do:
    assign oiReturnStatus = tqDInvoicePrim.tiDInvoice_ID.
end.
else do:
    assign oiReturnStatus = -1.
end.