method ValFinanceChargeProfile

validation procedure

Description

Validates Finance Charge Profile

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDebtor.PostValidateComponent

program code (program1/bdebtor.p)

if t_sDebtor.DebtorIsFinanceCharge and (t_sDebtor.FinChgGLProfile_ID = 0 or
                                        t_sDebtor.FinChgGLProfile_ID = ? )
then do:
    assign vcMessage      = trim(#T-1'You must specify a finance charge profile when Finance Charge field is selected.':255(69189)t-1#)
           oiReturnStatus = -1.     
         <M-2 run SetMessage
            (input  vcMessage (icMessage), 
             input  '':U (icArguments), 
             input  '':U (icFieldName), 
             input  '':U (icFieldValue), 
             input  'E':U (icType), 
             input  3 (iiSeverity), 
             input  t_sDebtor.tc_Rowid (icRowid), 
             input  'QadFin-7952':U (icFcMsgNumber), 
             input  '':U (icFcExplanation), 
             input  '':U (icFcIdentification), 
             input  '':U (icFcContext), 
             output viFcReturnSuper (oiReturnStatus)) in BDebtor>    
end.