por que se trunca???
 

hola a todos, ahora estoy intentando imprimir al puerto lpt1 una serie de datos que sin mas ni mas se truncan el codigo que uso es este:
write(f, '412200000550085' + CorridaStr + #13 + #10);
write(f, '412200001000085' + _SACBE + #13 + #10);
write(f, '412300000550105' + OrigenStr + #13 + #10);
write(f, '441100002500105' + DestinoStr + #13 + #10);
write(f, '441100001050130' + NumAsientoStr + #13 + #10);
write(f, '412300001450130' + OcupanteStr + #13 + #10);
write(f, '412300002600130' + TarifaStr + #13 + #10);
write(f, '412300000900155' + FormatDateTime('dd/MM/yyyy', StrToDate(FechaStr)) + #13 + #10);
write(f, '441100003000155' + FormatDateTime('hh:NN' ,StrToDateTime(HoraStr)) + #13 + #10);
write(f, '441100000500180' + ServicioStr + #13 + #10);
write(f, '412300002700180' + NumImpresionStr + #13 + #10);
write(f, '312300004320185' + DestinoStr + #13 + #10);
write(f, '312300004500140' + NumImpresionStr + #13 + #10); ***
write(f, '311100004590165' + CorridaStr + NumAsientoStr + OcupanteStr +
FormatDateTime('dd/MM/yy', StrToDate(FechaStr)) + #13 + #10);
write(f, '311100004650100'+ _SACBE + #13 + #10);
write(f, '341100004820165' + FormatDateTime('hh:NN' ,StrToDateTime(HoraStr))+'.'+ #13 + #10);
write(f, 'Q0001'+ #13 + #10 + 'E'+ #13 + #10);

y me corta la impresion hasta donde puse los ***. Alguien sabe el por que d esto?
se supone que lo estoy mandando directo al puerto pero despues de los *** no llega mas informacion como que se trunca el asunto. Que creen Uds que sea???

PD. Uso delphi 2005 vcl para .net.

Les agradezco muchisisisisimo su ayuda de antemano.

Saludos!

Hola....

si se trunca desde aquí... puede ser que

CorridaStr o NumAsientoStr o OcupanteStr sean variables de tipo numerica y necesites convertila a string...


Prueba eliminando esa linea.. para ver si imprime las demas

Salu2:p:D

ya quedo, me faltaba cerrar el archivo.
coloque el : CloseFile(f);
y jalo perfectamente...

gracias a todos, un saludo