method ValDInvoiceRateScale

validation procedure

Description

Validates if the Rate Scale is not 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

method BDInvoice.DefaultValuesValidate

program code (program5/bdinvoice.p)

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