FiveTech Support Forums

 
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}

 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

cNew := CharRem( "-", cString )

cStr := FW_ArrayAsList( aList, "" )

 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, "-" )