Ola, estou criando uma parte de um aplicativo, que consiste em pegar alguns dados de um determinado *.dbf e inseri-los em uma ordem determinada em um arquivo txt. O meu problema é o seguinte, entre um dado e outro está ficando espaços. Por exemplo, se no dbf, o campo da referencia é disponivel para 10 caracteres, mas uso apenas 4 ou 5, no txt, fica a referencia e depoix os espaços até fechar 10. Esta ficando assim:
1100 #ANTILOPE#BRANCO #34##1100 #1#A08-1
e deveria ficar assim:
1100#ANTILOPE#BRANCO#34##1100#1#A08-1
se perceber, onde está o material(no caso ANTILOPE), ele está restirando os espaços em branco restantes, não sei porque está acontecendo nos outros, abaixo irei colar o pedaço do programa onde é gerado o arquivo:
proc imp_eti
SELE ORD
@ li,00 say "Ref#Material#Cor#Numeracao#CodBarra#Figura#Quat#Obs"
SEEK XLOTE+STR(XNUMPED,6)
IF XNUMPED=0 .OR. EMPTY(XNUMPED)
SEEK XLOTE+STR(TLINI,3)
ENDIF
do while .t.
xgrade = ord->grade
xcodmat = codmat
sele mat
seek xcodmat
xdescmat=descmat
if !empty(gra->t01) .AND. ORD->T01>=1
for i = 1 to ord->t01
li=li+1
@ li,00 say ord->codref+"#"+alltrim(subs(xdescmat,1,15))+"#"+ord->cor+"#"+gra->t01+"##"+ord->codref+"#"+"1"+"#"+ALLTRIM(SUBS(ord->lote,1,3))+"-"+alltrim(str(ORD->numord,3))
next
ELSE
endif
Se alguem poder me ajudar fico muito agradecido, estou precisando muito desse programa... Valeu
Espaços no TXT
Moderador: Moderadores
