project QadFinancials > class BExpenseNote > method ValCInvoiceId

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.
ilCInvoiceIsInitialStatusinputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
validation on relation CINVOICEINEXPNOTECINVOICE


program code (program4/bexpensenote.p)

if ilCInvoiceIsInitialStatus = true
    then do:                    
         <M-1 run SetMessage
            (input   #T-3'You cannot specify an initial invoices for use in expenses.':50(69055)t-3# (icMessage), 
             input  ' ':U (icArguments), 
             input  icTargetFieldName (icFieldName), 
             input  icTargetField (icFieldValue), 
             input  'E':U (icType), 
             input  3 (iiSeverity), 
             input  icRowid (icRowid), 
             input  'QadFin-7854':U (icFcMsgNumber), 
             input  ' ':U (icFcExplanation), 
             input  ' ':U (icFcIdentification), 
             input  ' ':U (icFcContext), 
             output viFcReturnSuper (oiReturnStatus)) in BExpenseNote>             
       assign oiReturnStatus = -1.
end.