Environment versions
Network:
Windows 2000 Server
Hi Steven,
see down a little way.
>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
< change a line here > should line it up.
tsoVars.getMiscString = padr(ALLTRIM(tsoVars.getMiscString), 25) + PADR(ALLTRIM(getMiscDataQuery.partno),25) + " " + PADR(ALLTRIM(STRTRAN(getMiscDataQuery.seatdesc,","," ")),75) + " " + ALLTRIM(STR(getMiscDataQuery.partqty)) + ","
>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?
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only