Código: Selecionar todos
LOCAL cLine := ""
LOCAL aStruc:= DBSTRUCT()
//
WHILE nCont <= LEN(aGetProd)
IF VALTYPE(aGetProd[nCont]) = "N"
cLine += STR(aGetProd[nCont],aStruc[nCont,3],aStruc[nCont,4])
ELSEIF VALTYPE(aGetProd[nCont]) = "D"
cLine += STRTRAN(DTOC(aGetProd[nCont]),"/","")
ELSE
cLine += LEFT(aGetProd[nCont],aStruc[nCont,3])
ENDIF
nCont++
ENDDOCódigo: Selecionar todos
001219336PK1795 02102007 15.000 15.000 15.000 0.5500 20.613 45.00
001 6783TK 15103S/24302102007 31.870 31.870 34.142 0.8500 46.918 15.00
001 3873IN CSN2816 02102007 18.430 18.430 19.746 0.8500 27.135 15.00
001149027374GS 02102007 4.460 4.460 4.781 0.9000 6.571 20.00
001 1882333006810 02102007 141.430 141.430 151.502 0.9000 208.193 10.00
00121006C 1423.0 02102007 18.720 19.515 20.465 0.9000 28.123 10.00
