por que se trunca???

[betto]

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!

[[BlueSteel]]

Hola....

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

Empezado por betto

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);

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

[betto]

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

gracias a todos, un saludo