method ReminderCountReset

Parameters

iiDebtor_ID	input	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program7/bdebtor.p)

<Q-2 run DinvoiceByDebtor (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiDebtor_ID, (DebtorID)
    input ?, (InvoicStartDate)
    input ?, (InvoiceEndDate)
    input yes, (DInvoiceIsOpenEQUALS)
    input ?, (OIAdjustLnInvType)
    input ?, (DInvoiceIsOpenDIFFERSFROM)
    output dataset tqDInvoiceByDebtor) in BDInvoice>

for each tqDInvoiceByDebtor:
    assign vcDInvoiceIDList = vcDInvoiceIDList + string(tqDInvoiceByDebtor.tiDInvoice_ID) + chr(4).
end. /* for each tqDInvoiceByDebtor */
assign vcDInvoiceIDList = trim(vcDInvoiceIDList, chr(4)).

assign vhFcComponent = ?.
<M-1 run UpdateDInvoiceReminderCount
   (input  vcDInvoiceIDList (icPKeys), 
    input  ? (itReminderDate), 
    input  0 (iiReminderCount), 
    input  no (ilIncrease), 
    output viFcReturnSuper (oiReturnStatus)) in BDInvoice>

if viFcReturnSuper <> 0 
then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then Return.