project QadFinancials > class BDInvoice > method GetDInvoiceIDFromInvoiceInfo


Parameters


iiDInvoiceIdinputinteger
iiCompanyIdinputinteger
iiDInvoiceVoucherinputinteger
icJournalCodeinputcharacter
iiJournalIdinputinteger
iiPostingYearinputinteger
oiReturnStatusoutputintegerReturn 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.