Problem with FW_ArrayAsList - Resolved -

[Silvio.Falconi]

Happen I have -CA-FI-----RM---NZ

I explain you

I have a array where I save if is true or false

Code: Select all | Expand

 
ba:=IIF(oBrw:aArrayData[ 1 ][1]=.t.,"S","N")
                ca:=IIF(oBrw:aArrayData[ 2 ][1]=.t.,"S","N")
                fi:=IIF(oBrw:aArrayData[ 3 ][1]=.t.,"S","N")
                ge:=IIF(oBrw:aArrayData[ 4 ][1]=.t.,"S","N")
                mi:=IIF(oBrw:aArrayData[ 5 ][1]=.t.,"S","N")
                na:=IIF(oBrw:aArrayData[ 6 ][1]=.t.,"S","N")
                pa:=IIF(oBrw:aArrayData[ 7 ][1]=.t.,"S","N")
                rm:=IIF(oBrw:aArrayData[ 8 ][1]=.t.,"S","N")
                to:=IIF(oBrw:aArrayData[ 9 ][1]=.t.,"S","N")
                ve:=IIF(oBrw:aArrayData[ 10 ][1]=.t.,"S","N")
                nz:=IIF(oBrw:aArrayData[ 11 ][1]=.t.,"S","N")

aReturn:= {ba,ca,fi,ge,mi,na,pa,rm,to,ve,nz}

 

on my func I must make a string with the name of wheel selected

Code: Select all | Expand

 Function InsertString(aLista)
      local ba,ca,fi,ge,mi,na,pa,rm,to,ve,nz
      local aNew:={}
      local  cstring

      ba:=IIF(aLista[1]="S","BA","")
      ca:=IIF(aLista[2]="S","CA","")
      fi:=IIF(aLista[3]="S","FI","")
      ge:=IIF(aLista[4]="S","GE","")
      mi:=IIF(aLista[5]="S","MI","")
      na:=IIF(aLista[6]="S","NA","")
      pa:=IIF(aLista[7]="S","PA","")
      rm:=IIF(aLista[8]="S","RM","")
      to:=IIF(aLista[9]="S","TO","")
      ve:=IIF(aLista[10]="S","VE","")
      nz:=IIF(aLista[11]="S","NZ","")
      aNew:= {ba,ca,fi,ge,mi,na,pa,rm,to,ve,nz}
      cstring := FW_ArrayAsList( aNew, "-" )
    return cstring

if I use cstring := FW_ArrayAsList( aNew, "-" ) how do I remove the "-" when I don't have the wheel selected?

[nageswaragunupudi]

Code: Select all | Expand

cNew := CharRem( "-", cString )

also

Code: Select all | Expand

cStr := FW_ArrayAsList( aList, "" )

[Silvio.Falconi]

Code: Select all | Expand

cNew := CharRem( "-", cString )

also

Code: Select all | Expand

cStr := FW_ArrayAsList( aList, "" )

If I made cstring := FW_ArrayAsList( aNew, "" ) I have CAFIRMNZ

I wish the same "-" but only the record true

on original I have oBrw:aArrayData where I use chackbox



then I create the array {ba,ca,fi,ge,mi,na,pa,rm,to,ve,nz}

[Silvio.Falconi]

Code: Select all | Expand

cNew := CharRem( "-", cString )

also

Code: Select all | Expand

cStr := FW_ArrayAsList( aList, "" )

can I make a condition sample alist[n]=="S" ?

[Silvio.Falconi]

Now I corrected with

Code: Select all | Expand

 aNew:= {ba,ca,fi,ge,mi,na,pa,rm,to,ve,nz}
cstring:=""
      for n= 1 to len(aNew)
         IF  empty(aNew[n])
            else
               cstring+= aNew[n]
               cstring+="-"
          endif
       next
      cString := RemRight( cString, "-" )