method ValGLID

validation procedure

Parameters

icTargetField	input	character	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.
ilGLIsActive	input	logical
icGLTypeCode	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

validation on relation GLINPAYSEL

program code (program4/bpaymentselection.p)

if ilGLIsActive <> true
then do:
    <M-1 run SetMessage (input  trim(#T-1'You can only specify active GL accounts.':250(16065)t-1#) (icMessage), 
                     input  '':U (icArguments), 
                     input  icTargetFieldName (icFieldName), 
                     input  icTargetField (icFieldValue), 
                     input  'E':U (icType), 
                     input  3 (iiSeverity), 
                     input  icRowid (icRowid), 
                     input  'QADFIN-3858':U (icFcMsgNumber), 
                     input  '':U (icFcExplanation), 
                     input  '':U (icFcIdentification), 
                     input  '':U (icFcContext), 
                     output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection>

    assign oiReturnStatus = -1.
end.

if icGLTypeCode <> {&GLTYPECODE-BANK}
then do:
    <M-2 run SetMessage
          (input  trim(#T-2'You can only specify GL accounts of type '$1'.':250(16066)t-2#) (icMessage), 
           input  {&GLTYPECODE-BANK-TR} (icArguments), 
           input  icTargetFieldName (icFieldName), 
           input  icTargetField (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  icRowid (icRowid), 
           input  'QADFIN-3859':U (icFcMsgNumber), 
           input  '':U (icFcExplanation), 
           input  '':U (icFcIdentification), 
           input  '':U (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection>

    assign oiReturnStatus = -1.
end.