[santiago14]

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.