project QadFinancials > class BFRWAnalysisCode > method ValidateComponentPreFRWAnCodeElem

Parameters

Internal usage

program code (program1/bfrwanalysiscode.p)

/* ======================================================================== *
 * Pre validation of the FRWAnCodeElem record                               *
 * ======================================================================== */
for each t_sFRWAnCodeElem where
         t_sFRWAnCodeElem.tc_ParentRowid = t_sFRWAnCode.tc_Rowid and
         t_sFRWAnCodeElem.tc_Status     <> "D":U:

    /* Because the data created by this maintenance are used by operational programs, we have to *
     * replace unknown values by empty values                                                    */
    if t_sFRWAnCodeElem.FRWAnCodeElemCOAType    = ? then t_sFRWAnCodeElem.FRWAnCodeElemCOAType    = "":U.
    if t_sFRWAnCodeElem.FRWAnCodeElemMask       = ? then t_sFRWAnCodeElem.FRWAnCodeElemMask       = "":U.
    if t_sFRWAnCodeElem.FRWAnCodeElemMaskRange1 = ? then t_sFRWAnCodeElem.FRWAnCodeElemMaskRange1 = "":U.
    if t_sFRWAnCodeElem.FRWAnCodeElemMaskRange2 = ? then t_sFRWAnCodeElem.FRWAnCodeElemMaskRange2 = "":U.
    
    <M-22 run ValidateComponentPreFRWAnCodeElemDet
       (input  iiGLSSCompany_ID (iiGLSSCompany_ID), 
        input  iiDivisionSSCompany_ID (iiDivisionSSCompany_ID), 
        input  iiCostCentreSSCompany_ID (iiCostCentreSSCompany_ID), 
        input  iiProjectSSCompany_ID (iiProjectSSCompany_ID), 
        output viFcReturnSuper (oiReturnStatus)) in BFRWAnalysisCode>
    if viFcReturnSuper < 0 or viFcReturnSuper > 0 and oiReturnStatus = 0 then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 then next.
    
    /* Check, if there is defined any explicit value for analysis code */
    if t_sFRWAnCodeElem.FRWAnCodeElemMask       = "":U and
       t_sFRWAnCodeElem.FRWAnCodeElemMaskRange1 = "":U and
       t_sFRWAnCodeElem.FRWAnCodeElemMaskRange2 = "":U and
       can-find(first t_sFRWAnCodeElemDet where
                      t_sFRWAnCodeElemDet.tc_ParentRowid = t_sFRWAnCodeElem.tc_Rowid and
                      t_sFRWAnCodeElemDet.tc_Status     <> "D":U)
    then assign t_sFRWAnCodeElem.FRWAnCodeElemIsDetRowExpl = true.
    else assign t_sFRWAnCodeElem.FRWAnCodeElemIsDetRowExpl = false.
end.