Description
Pre validation method.
Parameters
oiReturnStatus | output | integer | Return 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 */