Aquí van los cierres X y Z.
Perdón por la demora y gracias por la paciencia
Código Delphi
[-]
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;
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.