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!
|