project QadFinancials > class BDebtor > method ValFinanceChargeProfile
validation procedure
Description
Validates Finance Charge Profile
Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.