Problemas con la instalación de HASARARGENTINA.OCX

[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

[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

[mattaldi]

Hola softarg.
No te imaginas cuanto te agradezco tu ayuda. Hace del año pasado que estoy con esto y no encontraba solución. Hay otro código que utilizaba el comando enviar en el foro que no me funcionaba.

Y ya que estoy te vuelvo a molestar. También estoy con problemas para reimprimir un ticket, para el caso que haya algún problema de papel u otra dificultad.
Utilizo éste código:

  Hasar1.Modelo:= MODELO_P441;
  Hasar1.Puerto := 3;
  Hasar1.Baudios:= 9600;
  Hasar1.Comenzar;
  Hasar1.TratarDeCancelarTodo();
  Hasar1.ReimprimirComprobante();
  Hasar1.Finalizar;

Peor no me está funcionando. Lo tenes hecho???
Saludos
Daniel