method ValCInvoiceRateScale

validation procedure

Description

rate scale cannot be zero

Parameters

idTargetField	input	decimal	Value of the business field to validate.
icTargetFieldName	input	character	Name of the business field to validate.
icRowid	input	character	Contents of field tc_Rowid, if the target field is a field of a component temp-table.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

validation on tCInvoice.CInvoiceRateScale

program code (program5/bcinvoice.p)

if idTargetField <= 0 or
   idTargetField  = ?
then do:
    <M-1 run SetMessage
       (input  trim(#T-2'The scale factor must be greater than zero.':150(1086)T-2#) (icMessage), 
        input  '':U (icArguments), 
        input  icTargetFieldName (icFieldName), 
        input  string(idTargetField) (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  icRowid (icRowid), 
        input  'QADFIN-3013':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BCInvoice>

    assign oiReturnStatus = -1.
end.