project QadFinancials > class BPaymentSelection > method IsValidPaySelIDInGroup

Description

Check if PaySelLine belongs to current batch group.


Parameters


iiCurrentPaySelLineIDinputinteger
olIsValidPaySelLineoutputlogical
ilChangeStatusinputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BPaymentSelection.AdditionalUpdatesRegister
method BPaymentSelection.AdditionalUpdatesUnconfirm
method BPaymentSelection.GetInvWithCommonPayAttributes


program code (program1/bpaymentselection.p)

olIsValidPaySelLine = false.


for first tSupplierInvoiceGroups where tSupplierInvoiceGroups.tiGroupNumber = viLastInvGroupNbr 
    and tSupplierInvoiceGroups.tiPaymentSelectionLineID = iiCurrentPaySelLineID
    and tSupplierInvoiceGroups.tcPaySelLIneStatus = '':U :

    olIsValidPaySelLine = true.
    if ilChangeStatus then
    do:
        tcPaySelLineStatus = 'C':U.
    end.

end.