project QadFinancials > class BDCollection > method ValGLId

validation procedure


Parameters


icTargetFieldinputcharacterValue of the business field to validate.
icTargetFieldNameinputcharacterName of the business field to validate.
icRowidinputcharacterContents of field tc_Rowid, if the target field is a field of a component temp-table.
icGLTypeCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
validation on relation GLINDCOLLECTION


program code (program4/bdcollection.p)

if icGLTypeCode <> {&GLTYPECODE-BANK}
then do:
    <M-1 run SetMessage
          (input  trim(#T-2'You can only select bank account codes.':250(1636)t-2#) (icMessage), 
           input  '':U (icArguments), 
           input  icTargetFieldName (icFieldName), 
           input  icTargetField (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  icRowid (icRowid), 
           input  'QADFIN-2946':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BDCollection>

    assign oiReturnStatus = -1.
end.