Cita:
Empezado por mattaldi
Gracias por tu respuesta softarg. Ya lo pude implementar.
Por casualidad tenes experiencia con alguna Hasar 441??? Lo tengo funcionando, pero no logro que funcionen las Notas de Crédito.
Saludos
|
Hola Mattaldi.
Si sabes como capturar el estado de la impresora, antes de mandarle los comandos te agradeceria. Basicamente para evitar errores del cajero.
respondiendo a tu consulta, te paso el codigo que uso para las 441 / 715F
Código Delphi
[-]Var
FS :Char;
Cadena, referencia, Texto_descriptivo: string;
Total, IVA: real;
begin
FS:=chr(28);
form1.HASAR1.Puerto:= 1;
form1.Hasar1.Modelo := 32;
form1.Hasar1.Comenzar ;
form1.Hasar1.TratarDeCancelarTodo;
Cadena := 'b' +FS+ nom_cliente +FS+ cuit_cliente +FS+ 'I' +FS+ 'C' +FS+ Domicilio;
form1.Hasar1.Enviar(Cadena);
referencia:= '1234';
Texto_descriptivo:= 'ERROR de FACTURACION';
Total:= 100;
IVA:= 21;
form1.Hasar1.documentoDeReferencia[1]:= referencia;
form1.Hasar1.AbrirDNFH(52);
form1.HASAR1.ImprimirItem(Texto_descriptivo,1,Total,IVA,0);
form1.Hasar1.CerrarDNFH ;
Saludos