Problemas con la instalación de HASARARGENTINA.OCX

[softarg]

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); //Separador de campos


form1.HASAR1.Puerto:= 1; //Puerto COM 

form1.Hasar1.Modelo := 32; //9 = 715 ***  32 = 441F

form1.Hasar1.Comenzar ;

form1.Hasar1.TratarDeCancelarTodo;


//Para estos modelos de impresora, los comandos del OCX no funcionan en muchos casos hay que mandar el comando crudo.
//Uno de los problemas es que no acepta los datos del cliente y se mandan antes de abrir el DNFH
//En el ejemplo faltan algunas variables que tendras que completar con los datos correspondientes.


Cadena := 'b' +FS+ nom_cliente +FS+ cuit_cliente +FS+ 'I' +FS+ 'C' +FS+ Domicilio;


form1.Hasar1.Enviar(Cadena);


referencia:= '1234';// Numero de la factura que origina la nota;

Texto_descriptivo:= 'ERROR de FACTURACION';

Total:= 100; //Importe de la nota de credito

IVA:= 21; // El IVA que corresponda

form1.Hasar1.documentoDeReferencia[1]:= referencia;

form1.Hasar1.AbrirDNFH(52); //53 = (Ticket Nota_credito_BC).52 = (Ticket Nota_credito_A)

form1.HASAR1.ImprimirItem(Texto_descriptivo,1,Total,IVA,0);

form1.Hasar1.CerrarDNFH ;

Saludos