method GetExpenseEntityByDInvoiceID

Parameters

iiDInvoiceID	input	integer
ocExpenseCompanyCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bdinvoice.p)

assign oiReturnStatus = -98.

/* Get company code by the given DInvoice_ID. This method using by the deduction review program. */
assign ocExpenseCompanyCode = '':U.

if iiDInvoiceId = ? or iiDInvoiceId <= 0
then do:
    assign oiReturnStatus = 0.
    return.
end.

<Q-69 run GetCompanyCodeByDInvoiceId (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiDInvoiceID, (DInvoiceId)
    output dataset tqGetCompanyCodeByDInvoiceId) in BDInvoice>

find first tqGetCompanyCodeByDInvoiceId no-error.
if available tqGetCompanyCodeByDInvoiceId
then do:
    assign ocExpenseCompanyCode = tqGetCompanyCodeByDInvoiceId.tcCompanyCode.
end.                                                               

assign oiReturnStatus = 0.