Parents
  • Hi manolo
    z.b.:
    ------------------------
    !CE = !!CE.NAME
    VAR !EQUI COLLECT ALL EQUI  FOR $!CE
    !NUMEQUI=!EQUI.Size()
    !Output = object FILE('c:\temp\EQUI.TXT')
    !ResultArray = ARRAY()
    DO !Line FROM 1 TO $!NUMEQUI
    $!EQUI[$!Line]
    VAR !POS  POS WRT /*
    VAR !NAME NAME
    VAR !ORI  ORI
    !Total = |$!NAME | + | $!POS | + | $!ORI |
    !ResultArray.Append( !Total.String() )
    ENDDO
    !Output.WRITEFile('OVERWRITE', !ResultArray)
    $!CE
    ----------------------------------
Reply
  • Hi manolo
    z.b.:
    ------------------------
    !CE = !!CE.NAME
    VAR !EQUI COLLECT ALL EQUI  FOR $!CE
    !NUMEQUI=!EQUI.Size()
    !Output = object FILE('c:\temp\EQUI.TXT')
    !ResultArray = ARRAY()
    DO !Line FROM 1 TO $!NUMEQUI
    $!EQUI[$!Line]
    VAR !POS  POS WRT /*
    VAR !NAME NAME
    VAR !ORI  ORI
    !Total = |$!NAME | + | $!POS | + | $!ORI |
    !ResultArray.Append( !Total.String() )
    ENDDO
    !Output.WRITEFile('OVERWRITE', !ResultArray)
    $!CE
    ----------------------------------
Children
No Data