Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-12-2020
jose.ignacio.ve jose.ignacio.ve is offline
Miembro
 
Registrado: sep 2012
Posts: 79
Poder: 12
jose.ignacio.ve Va por buen camino
Impresora hasar f250 2ge

Hola colegas.
Desarrolle un sistema de facturación fiscal con impresora hasar f250 de segunda generación. El sistema esta funcionando bien siempre y cuando la impresora este conectada.. Me gustaría saber si alguien pudo hacer un servicio que ponga los ticket en cola de impresión hasta que la impresora vuelva a conectarse o algo similar.. o sea realizar la venta si la impresora no esta en servicio que ponga el ticket en una cola de impresión hasta que vuelva la conexion.
o alguna idea de como puedo solucionar ese tema?
adjunto el codigo del boton de imprimir

Código Delphi [-]
 try
        impresora.Conectar('192.168.0.120',80,2000,2000);
        respabrir:=impresora.AbrirDocumento(Tique);
        //impresora.ImprimirItem('Item a la venta...', 1, 100, Gravado, 21, ModoSumaMonto,
        // IIVariablePorcentual, 0, DisplayNo, ModoPrecioTotal, 1, '779123456789', '10',Unidad);
         fmodulo.ZQgetDetail.First;
         while(not fmodulo.ZQgetDetail.Eof) do
         begin
          descripcion:=fmodulo.ZQgetDetail['description'];
          cantidad:=fmodulo.ZQgetDetail['quantity'];
          precio:=fmodulo.ZQgetDetail['price'];
          codigo:=fmodulo.ZQgetDetail['barcode'];
          codigointerno:=fmodulo.ZQgetDetail['id']  ;
          descuento:=fmodulo.ZQgetDetail['discount'];
          impresora.ImprimirItem(descripcion,cantidad, precio, Gravado, 21, ModoSumaMonto,
           IIVariablePorcentual, 0, DisplayNo, ModoPrecioTotal, 1, codigo, codigointerno,Unidad);
           if(descuento>0)then
              begin
                impresora.ImprimirDescuentoItem('DESC. MAYOR',descuento,DisplayNo,ModoPrecioTotal);
              end;
          fmodulo.ZQgetDetail.Next;
         end;
        respcierre:=impresora.CerrarDocumento(0,'');
        fmodulo.Tsales.Active:=true;
        fmodulo.Tsales.Locate('id',fmodulo.ZQgetSaleActive['id'],[]);
        fmodulo.Tsales.Edit;
        fmodulo.Tsales['status']:='FINALIZADA';
        fmodulo.Tsales['updated_at']:=now();
        fmodulo.Tsales.Post;
        fmodulo.Tsales.Refresh;
        fmodulo.Tsales.Close;
        self.Close;
    except on E: Exception do
      begin
       ShowMessage('Impresora Sin conexión');
        ShowMessage('Error de Fiscal: ' + e.Message);
        ShowMessage('Error de Fiscal (ClassName): ' + e.ClassName);
      end;

Última edición por dec fecha: 16-12-2020 a las 13:19:24.
Responder Con Cita
  #2  
Antiguo 15-12-2020
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
Cita:
Empezado por jose.ignacio.ve Ver Mensaje
Hola colegas.
Desarrolle un sistema de facturación fiscal con impresora hasar f250 de segunda generación. El sistema esta funcionando bien siempre y cuando la impresora este conectada.. Me gustaría saber si alguien pudo hacer un servicio que ponga los ticket en cola de impresión hasta que la impresora vuelva a conectarse o algo similar.. o sea realizar la venta si la impresora no esta en servicio que ponga el ticket en una cola de impresión hasta que vuelva la conexion.
o alguna idea de como puedo solucionar ese tema?
adjunto el codigo del boton de imprimir

Código Delphi [-]
 try
        impresora.Conectar('192.168.0.120',80,2000,2000);
        respabrir:=impresora.AbrirDocumento(Tique);
        //impresora.ImprimirItem('Item a la venta...', 1, 100, Gravado, 21, ModoSumaMonto,
        // IIVariablePorcentual, 0, DisplayNo, ModoPrecioTotal, 1, '779123456789', '10',Unidad);
         fmodulo.ZQgetDetail.First;
         while(not fmodulo.ZQgetDetail.Eof) do
         begin
          descripcion:=fmodulo.ZQgetDetail['description'];
          cantidad:=fmodulo.ZQgetDetail['quantity'];
          precio:=fmodulo.ZQgetDetail['price'];
          codigo:=fmodulo.ZQgetDetail['barcode'];
          codigointerno:=fmodulo.ZQgetDetail['id']  ;
          descuento:=fmodulo.ZQgetDetail['discount'];
          impresora.ImprimirItem(descripcion,cantidad, precio, Gravado, 21, ModoSumaMonto,IIVariablePorcentual, 0, 
           DisplayNo, ModoPrecioTotal, 1, codigo, codigointerno,Unidad);
           if(descuento>0)then
              begin
                impresora.ImprimirDescuentoItem('DESC. MAYOR',descuento,DisplayNo,ModoPrecioTotal);
              end;
          fmodulo.ZQgetDetail.Next;
         end;
        respcierre:=impresora.CerrarDocumento(0,'');
        fmodulo.Tsales.Active:=true;
        fmodulo.Tsales.Locate('id',fmodulo.ZQgetSaleActive['id'],[]);
        fmodulo.Tsales.Edit;
        fmodulo.Tsales['status']:='FINALIZADA';
        fmodulo.Tsales['updated_at']:=now();
        fmodulo.Tsales.Post;
        fmodulo.Tsales.Refresh;
        fmodulo.Tsales.Close;
        self.Close;
    except on E: Exception do
      begin
       ShowMessage('Impresora Sin conexión');
        ShowMessage('Error de Fiscal: ' + e.Message);
        ShowMessage('Error de Fiscal (ClassName): ' + e.ClassName);
      end;
Veo q conectas la impresora por medio de un IP, tengo duda si los documentos enviados, estando apagada la impresora, los deje en la cola...no recuerdo bien si esto es posible. Me ha pasado con impresoras de matriz (conectadas localmente a la PC), que están imprimiendo y por alguna razón -papel atorado por ejemplo- tengo que apagarla y al encenderla sigue imprimiendo...desde el principio o donde se quedó, ya no recuerdo....pero asi como dices tu, creo q no.

Porque motivo la impresora no estaría en servicio?
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!

Última edición por dec fecha: 16-12-2020 a las 13:18:55.
Responder Con Cita
  #3  
Antiguo 16-12-2020
jose.ignacio.ve jose.ignacio.ve is offline
Miembro
 
Registrado: sep 2012
Posts: 79
Poder: 12
jose.ignacio.ve Va por buen camino
Hola.. Es justo lo que quiero hacer, dejar archivos en cola.. osea hacer un servicio o algo similar para que cuando la impresora se conecte de nuevo empiece a imprimir.. pero no tengo ni idea como hacer aun..
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Impresora Hasar 2G Comando ConsultarEstado b_ernesto Impresión 2 08-12-2019 14:54:36
Facturas A y B en impresora fiscal Hasar SMH/P330 santiago14 Varios 1 30-04-2013 14:14:02
Recibo X con impresora Hasar SMH/P-330 santiago14 Varios 6 23-04-2013 19:15:44
Problema Impresora Hasar USB Inge022 Impresión 6 13-05-2011 19:20:21
Impresión de recibos en impresora de tickets fiscales Hasar Mauro® Impresión 1 27-10-2008 03:04:51


La franja horaria es GMT +2. Ahora son las 11:39:56.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi