project QadFinancials > class BDDocument > method UpdateInvoiceNumbers

Description

Method: Updates the invoices numbers of class records.

Parameters


tUpdateInvoiceNumbersDDocinputtemp-table
oiReturnStatusoutputintegerReturn status of the method.

Internal usage


QadFinancials
method BDInvoice.PreSave

program code (program5/bddocument.p)

assign oiReturnStatus       = -98
       viLocalReturnStatus  = 0.

for each tUpdateInvoiceNumbersDDoc
no-lock:

    for each tDDocumentInvoiceXref where 
             entry(1,tDDocumentInvoiceXref.tcDInvoiceReference,'/':U) = string(tUpdateInvoiceNumbersDDoc.tiPeriodYear,"999999999":U)  and
             entry(2,tDDocumentInvoiceXref.tcDInvoiceReference,'/':U) = tUpdateInvoiceNumbersDDoc.tcJournalCode                       and
             entry(3,tDDocumentInvoiceXref.tcDInvoiceReference,'/':U) = string(tUpdateInvoiceNumbersDDoc.tiTempVoucher,"999999999":U)         
    exclusive-lock:
        assign entry(3,tDDocumentInvoiceXref.tcDInvoiceReference,'/':U) = string(tUpdateInvoiceNumbersDDoc.tiNewVoucher,"999999999":U).
    end. /* for each tDDocumentInvoiceXref */
end.     /* for each tUpdateInvoiceNumbersDDoc    */

assign oiReturnStatus = viLocalReturnStatus.