project QadFinancials > class BPaymentSelection > method ValidateComponentPaySelPayCode


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BPaymentSelection.ValidateComponent


program code (program3/bpaymentselection.p)

for each t_sPaySelPayCode where
         t_sPaySelPayCode.tc_status = "N":U or 
         t_sPaySelPayCode.tc_status = "C":U:

    assign vhFcComponent = ?.
    <M-3 run ValidatePayCode
       (input  t_sPaySelPayCode.PayFormatGroup_ID (iiPayFormatGroupId), 
        input  t_sPaySelPayCode.PayFormatCode_ID (iiPayFormatCodeId), 
        input  t_sPaySelPayCode.PaySelPayCodeValue (icPayCodeValue), 
        input  true (ilCheckMandatory), 
        input  0 (iiYear), 
        input  ? (icDaybook), 
        input  ? (iiVoucherNumber), 
        output viFcReturnSuper (oiReturnStatus)) in BPaymentFormat>

    if viFcReturnSuper < 0 or oiReturnStatus  = 0
    then assign oiReturnStatus = viFcReturnSuper.
end.