Generate of txt or csv or xls file with variable name

[QUOTE=h3nrik;109309]do !branchMember values !branchMembers
   if !branchMember.type.eq('TUBI') then
       !col[1] = !branchMember.itle
   else
       !col[1] = !branchMember.brwei
   endif
   .
   .
   .
   .
enddo

Hello h3nrik,


problem is I'm using something different, and my question was wrong, I was asking about the IF statement in !headings[].

----------------Initialise -------
define method .refresh()


-- HEADINGS DEFINITION -----------


!headings    = ARRAY()
  !headings[1] = 'NAMN'
  !headings[2] = 'TYPE'
  !headings[3] = ':PFCUTLENGTH'
  !headings[4] = 'SPREF'
  !headings[5] = ':material_id of prtref of spref'
  !headings = 'NWEI'
  !headings[7] = 'PCRFA'
 
  !AttColumns    = ARRAY()
  !AttColumns[1] = 'Name'
  !AttColumns[2] = 'Type'
  !AttColumns[3] = 'Length'
  !AttColumns[4] = 'Spref'
  !AttColumns[5] = 'Ident'
  !AttColumns = 'Weight'
  !AttColumns[7] = 'Pspool'
-- Create model items for population of grid
!PspoolList = object ARRAY()
!PspoolElements = object ARRAY()
!sve = object ARRAY()
!ASMBLY = ce
IF (!ASMBLY.type neq |ASMBLY|) then
!!Alert.Message('CE not ASSY, You need to be on Assembly to use the form')
!this.grid.clearGrid()
else
---COLLECTING ALL PSPOOL FROM DESIGN THREE------------------
var !PspoolCollect collect all (PSPOOL) for CE
do !Pspool values !PspoolCollect
IF (!pspool.dbref().type eq 'PSPOOL') THEN
!PspoolList.Append(!Pspool.DBREF().name)
ELSE
ENDIF
enddo
---COLLECTING IN ARRAY ALL THE MEMBERS FROM PSPOOL----------
do !i values !PspoolList
!PspoolElements.Append(!i.DBREF().MELRFA)
enddo
DO !J INDICES !pspoolelements
do !k values !pspoolelements[$!j]
 !sve.Append(!k.name)
enddo
enddo
ENDIF
  -- Bind data to grid
  using namespace  'Aveva.Pdms.Presentation'
  !nds = object NetDataSource('Grid Control Example', !headings, !attColumns, !sve)
  !this.grid.BindToDataSource(!nds)


  -- Set grid parameters
endmethod

[QUOTE=h3nrik;109309]do !branchMember values !branchMembers
   if !branchMember.type.eq('TUBI') then
       !col[1] = !branchMember.itle
   else
       !col[1] = !branchMember.brwei
   endif
   .
   .
   .
   .
enddo

Hello h3nrik,


problem is I'm using something different, and my question was wrong, I was asking about the IF statement in !headings[].

----------------Initialise -------
define method .refresh()


-- HEADINGS DEFINITION -----------


!headings    = ARRAY()
  !headings[1] = 'NAMN'
  !headings[2] = 'TYPE'
  !headings[3] = ':PFCUTLENGTH'
  !headings[4] = 'SPREF'
  !headings[5] = ':material_id of prtref of spref'
  !headings = 'NWEI'
  !headings[7] = 'PCRFA'
 
  !AttColumns    = ARRAY()
  !AttColumns[1] = 'Name'
  !AttColumns[2] = 'Type'
  !AttColumns[3] = 'Length'
  !AttColumns[4] = 'Spref'
  !AttColumns[5] = 'Ident'
  !AttColumns = 'Weight'
  !AttColumns[7] = 'Pspool'
-- Create model items for population of grid
!PspoolList = object ARRAY()
!PspoolElements = object ARRAY()
!sve = object ARRAY()
!ASMBLY = ce
IF (!ASMBLY.type neq |ASMBLY|) then
!!Alert.Message('CE not ASSY, You need to be on Assembly to use the form')
!this.grid.clearGrid()
else
---COLLECTING ALL PSPOOL FROM DESIGN THREE------------------
var !PspoolCollect collect all (PSPOOL) for CE
do !Pspool values !PspoolCollect
IF (!pspool.dbref().type eq 'PSPOOL') THEN
!PspoolList.Append(!Pspool.DBREF().name)
ELSE
ENDIF
enddo
---COLLECTING IN ARRAY ALL THE MEMBERS FROM PSPOOL----------
do !i values !PspoolList
!PspoolElements.Append(!i.DBREF().MELRFA)
enddo
DO !J INDICES !pspoolelements
do !k values !pspoolelements[$!j]
 !sve.Append(!k.name)
enddo
enddo
ENDIF
  -- Bind data to grid
  using namespace  'Aveva.Pdms.Presentation'
  !nds = object NetDataSource('Grid Control Example', !headings, !attColumns, !sve)
  !this.grid.BindToDataSource(!nds)


  -- Set grid parameters
endmethod