Espero sirvan para toda la comunidad.
//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.