Moving Parentless N Level Element
Posted: Mon Oct 22, 2012 10:39 pm
After I delete all the element relationship, what level is a consolidation element ? What i am trying to do is to delete consolidation element and move N level element to "DO NOT USE". On the first code, the output on text file is as expected which the consolidation element appear to be at Level 1. On the second code, after putting in DimensionElementComponentAdd and DimensionElementDelete, the consolidation element appear to be Level 0. Would like to find out why the level would change for two similar codes.
Code: Select all
vDim = 'CustomerHierarchy';
i = DIMSIZ(vDim) ;
WHILE( i > 0) ;
vElem = DIMNM(vDim, i) ;
IF (Ellev(vDim,vElem) = 0 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
ASCIIOUTPUT('d:\move2.txt', vElem);
ENDIF;
IF (Ellev(vDim,vElem) = 1 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
ASCIIOUTPUT('d:\delete2.txt', vElem);
ENDIF;
i = i -1 ;
END;
Code: Select all
vDim = 'CustomerHierarchy';
i = DIMSIZ(vDim) ;
WHILE( i > 0) ;
vElem = DIMNM(vDim, i) ;
IF (Ellev(vDim,vElem) = 0 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
DimensionElementComponentAdd(vDim, 'DO NOT USE', vElem, 0);
ASCIIOUTPUT('d:\move2.txt', vElem);
ENDIF;
IF (Ellev(vDim,vElem) = 1 & ELPARN(vDim, vElem) = 0 & vElem @<> 'DO NOT USE');
DimensionElementDelete( vDim, vElem );
ASCIIOUTPUT('d:\delete2.txt', vElem);
ENDIF;
i = i -1 ;
END;