Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-04-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 568
Poder: 16
santiago14 Va por buen camino
Post Cierres X y Z en fiscal Hasar SMH/P330

Aquí van los cierres X y Z.
Perdón por la demora y gracias por la paciencia
Código Delphi [-]
//Cierre X
procedure TFrmPpal.evCierreXEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
var
  comando:widestring;
begin
  try
    abrir_fiscal(archivoINI);
    Hasar1.Comenzar;
    Hasar1.TratarDeCancelarTodo;
    Comando := '9' + #28 + 'X';
    Hasar1.Enviar(comando);
    hasar1.Finalizar;
    CoolTrayIcon1.ShowBalloonHint('Impresora fiscal', 'Cierre X en la Impresora fiscal...',
      bitInfo, 10);
  except
    on e:Exception do
    begin
      terminarTransaccion;
      mErrores(e, 'Error en impresión de Cierre X.', 'Cierre X');
    end;
  end;
end;

//Cierre Z

procedure TFrmPpal.evCierreZEventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
var
  comando:widestring;
begin
  try
    abrir_fiscal(archivoINI);
    Hasar1.Comenzar;
    Hasar1.TratarDeCancelarTodo;
    Comando := '9' + #28 + 'Z';
    Hasar1.Enviar(comando);
    hasar1.Finalizar;
    CoolTrayIcon1.ShowBalloonHint('Impresora fiscal', 'Cierre Z en la Impresora fiscal...',
      bitInfo, 10);
  except
    on e:Exception do
    begin
      terminarTransaccion;
      mErrores(e, 'Error en impresión de Cierre Z.', 'Cierre Z');
    end;
  end;
end;

Saludos.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
  #2  
Antiguo 14-04-2019
jose.ignacio.ve jose.ignacio.ve is offline
Miembro
 
Registrado: sep 2012
Posts: 74
Poder: 7
jose.ignacio.ve Va por buen camino
Hola buenas tardes.
Te hago unas consulta, estoy realizando un sistema que se conecta un impresora fiscal hasar f441. Me gustaría informarme mas sobre los reporte de cierre.. por ejemplo cuando hacer uno u otro cierre.. y también una vez que cierro caja.. puedo hacer otra venta? estoy algo confundido con respecto a los cierres y apretura de caja..
P/D: estuve siguiendo todos tus código.. y que es archivoIni?

Última edición por jose.ignacio.ve fecha: 14-04-2019 a las 02:14:43.
Responder Con Cita
  #3  
Antiguo 14-04-2019
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 568
Poder: 16
santiago14 Va por buen camino
Thumbs up

El informe de cierre "X" es un reporte emitido por la impresora fiscal el cual contempla el total de los comprobantes fiscales registrados a través de dicho equipo durante un día de trabajo. El mismo sirve para realizar un cuadre de caja durante los cambios de turnos

Al utilizar impresora fiscal, está obligado a imprimir un Cierre Z al finalizar la jornada fiscal. ... El formato en que se imprime el cierre Z depende de la marca y modelo de la impresora fiscal. El programa simplemente le manda el pedido de cierre, y la fiscal es la que se encarga de generarlo e imprimirlo.

Puedes hacer todos los Cierres Z y X que quieras, aún después del cierre de caja. Ellos solo informan lo que se registró durante la Jornada laboral.

En cuanto al "archivo .ini", es un pequeño archivo de configuración, donde se ponen algunas cosas. En este puse ahí el puerto en el que está la Fiscal.

Esto es lo que hay en el archivo "ImpresoraFiscal.ini" de un software para Lubricentros.

Código:
[Conexion]
DataBaseName = Lubricentro
IPserver = 127.0.0.1
[fiscal]
puerto = 2
modelofiscal =
A este archivo lo llamo y saco lo que necesito en el momento correspondiente. La función Abrir_Fiscal es:

Código Delphi [-]
procedure TFrmPpal.abrir_fiscal(archivo_ini:string);
var
  ini:TIniFile;
  puerto:string;
begin
  try
  //Recuperamos los datos desde el archivo .ini
    ini:=abrirINI(archivo_ini);
    puerto:=leerINI(INI, 'fiscal', 'puerto');
    //pto_vta:=leerINI(ini, 'punto_vta', 'punto');
    //modelo:=leerINI(ini, 'fiscal', 'modelofiscal');
    cerrarINI(ini);
  //Es la parte de impresión
    Hasar1.Puerto:=StrToInt(puerto);
    //Hasar1.Modelo:=MODELO_P330;
    Hasar1.Modelo:=MODELO_P441_201;
    hasar1.Baudios:=9600;
  except
    raise;
  end;
end;

Espero haber sido claro.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Facturas A y B en impresora fiscal Hasar SMH/P330 santiago14 Varios 1 30-04-2013 14:14:02
Prn Fiscal y Emulador fiscal omarperez.qui Impresión 1 20-09-2010 21:43:56
Imprimir Cola en Fiscal HASAR golf2008 Conexión con bases de datos 18 12-06-2008 15:38:29
Manual ocx hasar pborges36 Impresión 2 06-11-2006 13:48:03
Impresion con Controlador Fiscal Hasar 320 Caco Mana Varios 12 31-07-2006 17:31:35


La franja horaria es GMT +2. Ahora son las 16:30:05.


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