problemas con OpenInvoice lx-300 controlador fiscal
hola les escribo porque estoy trabajando con un controlador epson lx-300+ y no puedo lograr hacer una factura.
Sist operativo Windows 2000 y Delphi 7
Ya registre el ocx y realice una prueba con el pruf de epson y funciona correctamente pero por codigo no puedo lograrlo
Hice un cierre z y pude imprimir haciendo una prueba no fiscal
A continuacion les paso el codigo que tengo de factura A a ver si alguno puede ayudarme u orientarme un poco.
pruebaControlador := CreateComObject( CLASS_PrinterFiscal ) as _PrinterFiscalDisp;
pruebaControlador.PortNumber := 1;
pruebaControlador.BaudRate := '9600';
///Factura A///
pruebaControlador.OpenInvoice('F', 'C', 'A', 1, P, 12, I, I, 'NomComprador',
'-', 'CUIT', '33708106829', 'N', 'Domicilio', '-', '-', '001', '001', 'C')
//PrecioU := '79'; es el precio unitario
//TasaIVA := '.21' es Tasa de IVA;
PruebaControlador.SendInvoiceItem('prueba', '1', '79', '.21', '0',
'0', '0', '', '', '', '0', '0')
PruebaControlador.SendInvoicePayment('Recargo', '79', 'R')
PruebaControlador.CloseInvoice(TipDoc, LetraDoc, ' ')
Este codigo no me da errores pero el controlador no imprime.
No se que puede ser y el manual que tengo no me da las restricciones de los campos si alguno sabe donde puedo bajarlo les estare agradecido.
Saludos!
|