Description
Retrieve the invoice number based on the invoice ID
Parameters
| iiCInvoiceId | input | integer | |
| oiCInvoiceVoucher | output | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bcinvoice.p)
assign oiReturnStatus = -98
viLocalReturnStatus = 0
oiCInvoiceVoucher = 0.
if iiCInvoiceId <> ? and iiCInvoiceId <> 0
then do:
find tCInvoice where
tCInvoice.CInvoice_ID = iiCInvoiceId
no-lock no-error.
if available tCInvoice
then assign oiCInvoiceVoucher = tCInvoice.CInvoiceVoucher.
else do:
<Q-9 run CInvoiceByID (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input iiCInvoiceId, (CInvoiceID)
output dataset tqCInvoiceByID) in BCInvoice >
find tqCInvoiceByID where
tqCInvoiceByID.tiCInvoice_ID = iiCInvoiceId
no-lock no-error.
if available tqCInvoiceByID
then assign oiCInvoiceVoucher = tqCInvoiceByID.tiCInvoiceVoucher.
end. /* else do: */
end. /* if iiCInvoiceId <> ? and iiCInvoiceId <> 0 */
assign oiReturnStatus = viLocalReturnStatus.