>I am using the following to build a string:
>
>tsoVars.getMiscString = ""
>getMiscDataString = "Select * From webprddt6.tsotagtblm Where cono = '" + tsoVars.conumber + "'"
>
>IF SQLEXEC(tsoVARS.as400con, getMiscDataString, "getMiscDataQuery") <> -1 Then
>IF RECCOUNT("getMiscDataQuery") > 0 Then
>
>SCAN
>tsoVars.getMiscString = ALLTRIM(tsoVars.getMiscString) + PADR(ALLTRIM(getMiscDataQuery.partno),25) + " " + PADR(ALLTRIM(STRTRAN(getMiscDataQuery.seatdesc,","," ")),75) + " " + ALLTRIM(STR(getMiscDataQuery.partqty)) + ","
>
>EndScan
>
>tsoVars.getMiscString = SUBSTR(tsoVars.getMiscString,1,LEN(tsoVars.getMiscString)-1)
>tsoVars.getMiscString = STRTRAN(tsoVars.getMiscString,",",CHR(13)+CHR(10))
>
>ELSE
>*Return "Unknown"
>EndIf
>Else
>If Aerror(odbcerrormsg) > 0 Then
>MessageBox(odbcerrormsg(2))
>ENDIF
>*Return "Unknown"
>ENDIF
>
>It gives me a string:
>
>854121-401 Part1 3
>854121-403S Part2 3
>854121-1 Part3 3
>
>How can I get the parts of the string to line up together?
IF RECCOUNT("getMiscDataQuery") > 0 Then
set textmerge to memvar tsoVars.getMiscString noshow
set textmerge on
SCAN
\<<PADR(getMiscDataQuery.partno,25)>>
\\ <<PADR(STRTRAN(getMiscDataQuery.seatdesc,","," "),75)>>
\\ <<getMiscDataQuery.partqty>>
EndScan
set textmerge to
set textmerge off
ELSE
EndIf
Would be easier. I didn't understand what lineup is (if show columns lined up, then it's a matter of font used).
Cetin