project QadFinancials > class BFRWColumnGroup > method CalculateColDetResequence

Description

Pre validation method.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwcolumngroup.p)

/* ======================================================================================= */
/* Reseqeunce column sequence from 1 (UI usability)                                        */
/* ======================================================================================= */
for each tFRWCol where
         tFRWCol.tc_Status = '':U:
             
    assign viSequence = 1.
        
    /* Change sequences of the columns */
    assign vcColumnSequenceChangeList = "":U.
    repeat preselect 
       each tFRWColDet where
            tFRWColDet.tc_ParentRowid = tFRWCol.tc_Rowid and
            tFRWColDet.tc_Status     <> "D":U
         by tFRWColDet.tc_ParentRowid
         by tFRWColDet.FRWColDetSeq:

        find next tFRWColDet.
        assign vcColumnSequenceChangeList = vcColumnSequenceChangeList + substitute("&1&2&3&4", tFRWColDet.FRWColDetSeq, chr(2), viSequence, chr(4))
               tFRWColDet.FRWColDetSeq    = viSequence
               viSequence                 = viSequence + 1.
    end. /* do preselect */
    
    /* Update also calculation formulas to reflect resequencing */
    for each tFRWColDet where
             tFRWColDet.tc_ParentRowid        = tFRWCol.tc_Rowid and
             tFRWColDet.FRWColDetCalcFormula <> "":
         
         <M-38 run UpdateCalculationFormulaWithNewReference
            (input-output tFRWColDet.FRWColDetCalcFormula (bcColumnCalculationFormula), 
             input  vcColumnSequenceChangeList (icColumnSequenceChangeList), 
             output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
        if viFcReturnSuper < 0 or viFcReturnSuper > 0 and oiReturnStatus = 0 then assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 then return.
    end. /* for each tFRWColDet where */
end. /* for each tFRWCol where */