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.

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?

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.

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.