Impresora Fiscal

[ptt]

Lo primero que te recomiendo es que revises el manual que viene con el OCX de Hasar, si no lo tenes bajalo de la página

Es importante leer también el manual del protocolo, te va a aclarar que hace cada comando y que condiciones se tienen que cumplir para que no se produzca un error, ademá de darte información sobre la forma de trabajo del controlador fiscal .

Empezado por fabianbbg

Estimado BRANDOLIN:

No funcionó! .. lo que hice fue copiar tu codigo tal cual en un form con un botón, pero me tira un error que dice :
"error no espedificado" en un dialogo..

Ejecutar el programa paso a paso, viendo los mensajes podes saber en que momento da el error. No es lo mismo un error de configuración que uno de apertura de comprobante.

Empezado por fabianbbg

Estimado BRANDOLIN:
Esto me esta preocupando.. si vos decis que tiene que andar y no anda.. no será que la impresora tiene algun problema?
tal vez deberia llevarla a donde la compraron para que la revisen ..

Sin conocer el error no es posible saberlo.

Empezado por fabianbbg

Estimado BRANDOLIN:
PD: otra cosa que me parece raro: en los tickets B no salen los datos del comprador... solo consumidor final.. ¿alguna sugerencia?

esto es parte de lo que tenes que aprender leyendo el manual del protocolo: si el tipo de comprobante es Ticket se supone que es a Consumidor Final y no lleva mas datos que los que imprime. Distinto es el caso de los Tique Factura A o B

PD.:
Revisa si funciona hacer un Cierre Z , si lo hace la impresora esta en buen estado.
Si lo que no sale es el Tique Factura A y el resto si, revisa si tiene puesta la dirección del vendedor en el encabezado.

Empezado por fabianbbg

Estimado BRANDOLIN:
hola.. me "engancho" en este hilo para preguntar:

PD2.: cuando tengas una pregunta creá un hilo nuevo, no continúes uno existente porque no aparece como nuevo al entrar al foro y es mas dificil que alguien vea tu pregunta, solo nos llega el aviso a los que contestamos alguna vez en este hilo.

[fabianbbg]

Estimado Brandolin:
He podido solucionar mi problema y aqui te pego el codigo

Código Delphi [-]
function Imprimir_fiscal(sender:Tfmenu):Boolean;
var
     nom,dni,cuit,fs,comando:WideString;
     tipodoc,tipoiva:TOleEnum;
     Descuento,TOTAL:currency;
begin
     WITH SENDER do
     begin

          HASAR1.TratarDeCancelarTodo;
          fs:=#28;
          nom:=uppercase(trim(SP_VentaConsulcliente.AsString));
          nom:=ansireplacestr(nom,'Ñ','N');
          dni:=trim(SP_VentaConsuldni.AsString);
          cuit:=AnsiReplaceStr(TRIM(SP_VentaConsulcuit.AsString),'-','');

          if (lowercase(trim(SP_VentaConsulTipoForma.AsString))='a') then
          begin
               tipoiva:=RESPONSABLE_INSCRIPTO;
               if (lowercase(trim(SP_VentaConsulsit_impositiva.AsString))='inscripto') then
                    tipoiva:=RESPONSABLE_INSCRIPTO
               else
               if (lowercase(trim(SP_VentaConsulsit_impositiva.AsString))='exento') then
                    tipoiva:=RESPONSABLE_EXENTO;

               comando := #98 + FS + 'Cliente: '+ nom + FS + cuit + FS + 'I' + FS + 'C' + FS + 'Domicilio...';
               HASAR1.Enviar(comando);
               HASAR1.AbrirComprobanteFiscal(TICKET_FACTURA_A);
               hasar1.PrecioBase:=TRUE;
          end

          SP_DetalleVtas_Consul.First;
          TOTAL:=0;
          while not SP_DetalleVtas_Consul.Eof do
          begin
               hasar1.ImprimirItem(SP_DetalleVtas_Consulconcepto.AsString,
               SP_DetalleVtas_Consulpre_unitario.AsFloat,
               SP_DetalleVtas_Consulcant.AsFloat,
               SP_DetalleVtas_Consulporciva.AsFloat,0);
               TOTAL:=total+SP_DetalleVtas_Consulmonto.AsCurrency ;
               SP_DetalleVtas_Consul.Next;
          end;

          descuento:=0;
          if SP_VentaConsuldescuento.AsCurrency>0 then
          begin
               descuento:=(SP_VentaConsuldescuento.AsCurrency*total)/100;
               descuento:=roundto(descuento,-2);
               HASAR1.DescuentoGeneral( 'DESCUENTO',descuento,TRUE); /// TERCER PARAMETRO IDENTIFICA SI ES DESCUENTO O RECARGO TRUEESCUENTO FALSE:RECARGO;
          end;

          if SP_VentaConsulmontocontado.AsCurrency>0 then
               HASAR1.ImprimirPago('EFECTIVO',strtocurr(formatfloat('#.00',SP_VentaConsulmontocontado.AsCurrency)))  ;

          hasar1.CerrarComprobanteFiscal;
          result:=hasar1.HuboErrorFiscal; 

     end;

end;

Lo que dice SP es un Store procedure , por los nombres de los campos, esta bastante claro..

Aqui te pegue el codigo para los ticket factura A, usando la ocx provista por hasar.

Muchas gracias por ayudarme, espero alguna vez devolverte el favor..
Saludos..

Fabián

[Carlos Lesca]

Empezado por ptt

Lo primero que te recomiendo es que revises el manual que viene con el OCX de Hasar, si no lo tenes bajalo de la página

Es importante leer también el manual del protocolo, te va a aclarar que hace cada comando y que condiciones se tienen que cumplir para que no se produzca un error, ademá de darte información sobre la forma de trabajo del controlador fiscal .




Ejecutar el programa paso a paso, viendo los mensajes podes saber en que momento da el error. No es lo mismo un error de configuración que uno de apertura de comprobante.




Sin conocer el error no es posible saberlo.




esto es parte de lo que tenes que aprender leyendo el manual del protocolo: si el tipo de comprobante es Ticket se supone que es a Consumidor Final y no lleva mas datos que los que imprime. Distinto es el caso de los Tique Factura A o B

PD.:
Revisa si funciona hacer un Cierre Z , si lo hace la impresora esta en buen estado.
Si lo que no sale es el Tique Factura A y el resto si, revisa si tiene puesta la dirección del vendedor en el encabezado.



PD2.: cuando tengas una pregunta creá un hilo nuevo, no continúes uno existente porque no aparece como nuevo al entrar al foro y es mas dificil que alguien vea tu pregunta, solo nos llega el aviso a los que contestamos alguna vez en este hilo.

Disculpame, algo para la Epson no tenes??? porque me estoy volviendo loco con la funcion OpenInvoice que me devuleve un error.

Saludos y gracias.

[fabianbbg]

Hola Carlos:

Empezado por Carlos Lesca

Disculpame, algo para la Epson no tenes??? porque me estoy volviendo loco con la funcion OpenInvoice que me devuleve un error.

Por ahi Seria mejor que inicies un hilo nuevo, porque veniamos con las Hasar y ahora se plantea el tema Epson. (Ademas no queremos que nadie se enoje)

Pero como la idea es ver si nos ayudamos te pregunto:
*¿Que modelo de Epson es?
Porque yo habia hecho algo para las Epson Lx 300 F . Las cuales tienen un OCX y creo que podria ayudarte.

*La funcion OpenInvoice tiene muchos parametros, vos decis que te da un error. ¿Que error te da?

Te dejo un saludo fiscal sin iva

hasta la proxima

[Carlos Lesca]

Empezado por fabianbbg

Hola Carlos:



Por ahi Seria mejor que inicies un hilo nuevo, porque veniamos con las Hasar y ahora se plantea el tema Epson. (Ademas no queremos que nadie se enoje)

Pero como la idea es ver si nos ayudamos te pregunto:
*¿Que modelo de Epson es?
Porque yo habia hecho algo para las Epson Lx 300 F . Las cuales tienen un OCX y creo que podria ayudarte.

*La funcion OpenInvoice tiene muchos parametros, vos decis que te da un error. ¿Que error te da?

Te dejo un saludo fiscal sin iva

hasta la proxima

Ok Armo un nuevo hilo.

[ledesmarc]

Fabian he visto tu ejemplo para la impresora fiscal, yo estoy programando para una Hasar 715f tambien, baje el ocx de la pagina de HASAR pero al pegar el objeto 'DRIVERFISCAL1' no tengo las mismas funciones que vos usas sino que las mismas estan todas en ingles por eso queria por favor si me podes pasar la OCX que estas usando...

Muchas Gracias!!!

Marcos

[fabianbbg]

si .. no problem.. a que correo?
Saludos

[ledesmarc]

este es mi correo ledesmarc@gmail.com
desde ya muchas gracias...

[ledesmarc]

Fabian, te comento que ya consegui la ocx de hasar,sin embargo no puedo probar el codigo porque no tengo la impresora fiscal, busque un emulador fiscal y no funciona osea cuando ejecuto la accion me dice 'Controlador no Detectado', no se si sera que este emulador no funciona o si no se usarlo..
alguna sugerencia??

[ledesmarc]

Listo encontre, el error, desabilite el puerto com1, y lo active en el emulador..