Buenas, tengo que imprimir comprobantes fiscales por dos impresoras epson, una Tm-U220AF y otro Lx300F. Despues de ver todos los hilos en el foro al respecto estoy tratando de imprimir por las Ocx que provee Epson en su pagina, la que instala un componente TEpsonFPHostControl. Ademas como no tengo la impresora para probar uso el Emulador de Impresoras fiscal de "impresoras-fiscales.com.ar".
Mi problema es que al mandar los comandos, me da error al primero con "formato invalido". He revisado la informacion y el codigo y creo que esta todo bien. Alguien encuentra error en este codigo o el problema es que no funciona bien el emulador de la impresora?
Código Delphi
[-]
If bAnswer Then bAnswer := CF.OpenPort ;
If bAnswer Then bAnswer := CF.AddDataField('@FACTABRE');
If bAnswer Then bAnswer := CF.AddDataField('00005');
If bAnswer Then bAnswer := CF.AddDataField('T');
If bAnswer Then bAnswer := CF.AddDataField('C');
If bAnswer Then bAnswer := CF.AddDataField('B');
If bAnswer Then bAnswer := CF.AddDataField('1');
If bAnswer Then bAnswer := CF.AddDataField('F');
If bAnswer Then bAnswer := CF.AddDataField('10');
If bAnswer Then bAnswer := CF.AddDataField('I');
If bAnswer Then bAnswer := CF.AddDataField('F');
If bAnswer Then bAnswer := CF.AddDataField('CONSUMIDOR FINAL');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.AddDataField('DNI');
If bAnswer Then bAnswer := CF.AddDataField('O');
If bAnswer Then bAnswer := CF.AddDataField('N');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.AddDataField('CONDICION DE VENTA CONTADO');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.AddDataField('C');
If bAnswer Then bAnswer := CF.SendCommand;
iRet:= CF.ReturnCode;
iState:= CF.State;
If bAnswer Then bAnswer := CF.AddDataField('@FACTITEM ');
If bAnswer Then bAnswer := CF.AddDataField('00005');
If bAnswer Then bAnswer := CF.AddDataField('CINTO TRENZA ANGOSTA');
If bAnswer Then bAnswer := CF.AddDataField('00001000');
If bAnswer Then bAnswer := CF.AddDataField('00003800');
If bAnswer Then bAnswer := CF.AddDataField('2100');
If bAnswer Then bAnswer := CF.AddDataField('M');
If bAnswer Then bAnswer := CF.AddDataField('0001');
If bAnswer Then bAnswer := CF.AddDataField('00000000');
If bAnswer Then bAnswer := CF.AddDataField('');
If bAnswer Then bAnswer := CF.AddDataField('');
If bAnswer Then bAnswer := CF.AddDataField('');
If bAnswer Then bAnswer := CF.AddDataField('0000');
If bAnswer Then bAnswer := CF.AddDataField('00000000');
If bAnswer Then bAnswer := CF.SendCommand;
If bAnswer Then bAnswer := CF.AddDataField('@FACTSUBTOTAL');
If bAnswer Then bAnswer := CF.AddDataField('00005');
If bAnswer Then bAnswer := CF.AddDataField('F');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.SendCommand;
If bAnswer Then bAnswer := CF.AddDataField('@FACTPAGO');
If bAnswer Then bAnswer := CF.AddDataField('00005');
If bAnswer Then bAnswer := CF.AddDataField('Pago');
If bAnswer Then bAnswer := CF.AddDataField('000000000');
If bAnswer Then bAnswer := CF.AddDataField('T');
If bAnswer Then bAnswer := CF.SendCommand;
If bAnswer Then bAnswer := CF.AddDataField('@FACTCIERRA');
If bAnswer Then bAnswer := CF.AddDataField('00005');
If bAnswer Then bAnswer := CF.AddDataField('T');
If bAnswer Then bAnswer := CF.AddDataField('B');
If bAnswer Then bAnswer := CF.AddDataField(' ');
If bAnswer Then bAnswer := CF.SendCommand;
If bAnswer Then bAnswer := CF.AddDataField('@CIERREZ');
If bAnswer Then bAnswer := CF.SendCommand;
If bAnswer Then bAnswer := CF.ClosePort;
Me da error en el primer comando
El emulador me muestra..
imagengratis.org /images/emukwhe2l.jpg
Sec commando descripcion Dato
CC TIQUEABRE Abrir comprobante Fiscal @FACTABRE.....
Desde Ya Muchas gracias