project QadFinancials > class BFRWAnalysisCode > method ValidateComponentImportExcel

validation procedure


Parameters


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


Internal usage


unused


program code (program1/bfrwanalysiscode.p)

assign oiReturnStatus = -98.

if icReportChartCode = "" or 
   icReportChartCode = ? then
do:
    assign oiReturnStatus = -1.
    <M-84 run SetMessage
       (input  #T-38'Report Chart Code must be entered.':255(672527208)T-38# (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  ? (iiSeverity), 
        input  '':U (icRowid), 
        input  'qadfin-581290':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BFRWAnalysisCode>
    return.
end.

<Q-64 run FRWChartByCode (all) (Read) (NoCache)
   (input icReportChartCode, (FRWChartCode)
    output dataset tqFRWChartByCode) in BFRWChart>
find first tqFRWChartByCode where tqFRWChartByCode.tcFRWChartCode = icReportChartCode no-error.
if not available tqFRWChartByCode then
do:
    assign oiReturnStatus = -1.
    <M-7 run SetMessage
       (input  #T-23'Report Chart code does not exist. Please re-enter.':255(545671204)T-23# (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  icReportChartCode (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'qadfin-874466':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BFRWAnalysisCode>
    return.
end.

if oiReturnStatus = -98
then assign oiReturnStatus = 0.