Problema con impresora fiscar Hasar 1100 Segunda Generación

[mattaldi]

Hola gente:
Estoy programando la impresión de tickets en una impresora Hasar de segunda genereración. Trabajo con Delphi 5.

En Hasar hay ejemplos en VB y he visto los pasos de conversión que puso el usuario DeG en otro hilo

Ya instalé el OCX que me mandaron de Hasar y cree el objeto mediante:

HASARNG := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561;

Puedo acceder a algunos métodos de la clase. He logrado avanzar papel y hacer cierre Z por ejemplo.
Pero no puedo imprimir un TicketFacturaB completo, imprime los datos del cliente, el item y me tira un error, solamente puedo seguir haciendo pruebas cancelando el ticket con el método correspondiente. La impresora está en modo entrenamiento.

Luego de imprimir el item me da el error:
"Proyecy Proyect1.exe raised exception class EOleException whit message 'Type mismatch'. Procces stopped. Use step o run to continued."

Parece ser algún error de tipo, pero he revisado mil veces los pdf de Hasar y los tipos de los parámetros del método ImprimirItem, pero no encuentro el error.

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 destino: widestring;
 puerto: integer;
 tiempo: OleVariant;
 HASARNG: Variant;
begin
   try
   HASARNG := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561;
   destino := '192.168.1.5';  puerto := 0; tiempo := 5000;
   HASARNG.Conectar(destino,puerto,tiempo,tiempo);
   Showmessage('CONECTADO');  //OKKKKKKKKKKKK
   HASARNG.CargarDatosCliente('Razón Social Cliente...', '99999999995', Monotributo, TipoCUIT, 'Domicilio Cliente...', '',  '', '');
   Showmessage('DATOS CLIENTES CARGADOS');  //OKKKKKKKKKKKK
   HASARNG.AbrirDocumento(TiqueFacturaB);
   Showmessage('DOCUMENTO ABIERTO');  //OKKKKKKKKKKKK
   HASARNG.ImprimirItem ('Producto 2', 2, 50, Gravado, 21.00,
                        ModoSumaMonto, IIVariablePorcentual, 0, DisplayNo,
                        ModoPrecioTotal, 1, '7790001001054', '2000', Unidad);
  Showmessage('ITEM IMPRESO');  //NO LLEGA ACAAAAAAAAAAA
  HASARNG.ImprimirDescuentoItem('Oferta', 10, DisplayNo, ModoPrecioTotal);
  HASARNG.ImprimirPago('Efectivo...', 90, Pagar, DisplayNo, '', Efectivo, 0, '');
  HASARNG.CerrarDocumento(0, 'hasarventas@hasar.com');
 except
     on E: Exception do

      Showmessage('ERROR: '+ (E.Message));
 end;

end;

¿Alguno programó éstas impresoras?¿me pueden dar una mano? Hace 1 mes que estoy trabado.

[nmsitemas]

Hola mattaldi. Yo me tengo que sentar a trabajar con este tipo de impresoras. Por el error que te tira, deberias de probar de registras la ocx de hasar en system32 o syswow64 en caso que sea windows 64 bits. No se si ya has resuelto el problema. Saludos

[mattaldi]

Gracias por contestar nmsitemas:
Varios problemas se solucionaron luego de que hasar me pasara una nueva versión del ocx. Con la última no tuve inconvenientes.

[rrdb]

Hola mattaldi, cual seria la ultima version del ocx, yo descargue hace poco de la pagina, logre conectarme, impirmir un ticket , pero al pedir un subtotal da error "type mismatch", igual realiza bien el comando e imprime pero arroja ese error, te ocurrio algo similar?.. Saludos.

[mattaldi]

El comando ImprimirItem me daba ese error. Cuando cambié el OCX se solucionó.

Respuesta de Hasar
*****************************************************************
Estimado Daniel,
Es muy probable un problema de incompatibilidad entre el OCX y la impresora fiscal 2G.
Utilizar el que se incluye en el último ZIP publicado en la web.
http://grupohasar.com/wp-content/upl...ion-161215.zip
*****************************************************************
Saludos

[rrdb]

Si, por lo que veo es la misma versión del ocx, que estoy utilizando pues lo baje hace 5 dias de la web y estoy empezando migrar un código que ya tenia, envie la pregunta a hasar a ver que responden, si podrías probar el comando subtotal asi vemos si da ese error te agradeceria.. saludos.!
el comando es simple y no veo que pueda fallar ahi :
hasar2.ConsultarSubtotal(HasarArgentina.ImpresionSubtotal(NoImprimeSubtotal), HasarArgentina.ModosDeDisplay(DisplayNo))
con el resto de los comando hasta ahora no tengo otros problemas.

[rjn]

Buenos días, estoy trabajando con estas impresoras hasar 2g, funciona todo bien de acuerdo a las configuraciones que uds recomendaron, el tema es que en algunos casos se queda procesando algo que no consigo atrapar, en hasar me dijeron que atrape los estos eventos:
Respuesta de hasar:
"A nivel eventos, el OCX 2G lanza tres:

+ 'ComandoEnProceso()' Se lanza cada vez que el OCX 2G envía un comando a la impresora fiscal 2G.
+ 'ComandoProcesado()' Se lanza cuando el OCX 2G recibe la respuesta al comando enviado.
Tener presente que no se puede envir un nuevo comando hasta haber recibido la respuesta al comando anterior.
+ 'EstadoEspera()' Se lanza cada vez que la impresora fiscal 2G avisa que hay que esperar porque la respuesta está demorada; porque la tapa está mal cerrada, falta pepel, etc."

Alguien uso estos procedimientos?, lo que necesito saber básicamente es si un comando fue procesado o no. en el ejemplo en vb6 estan estos procedimientos pero no consigo implementarlos. Agradeceria alguna info al respecto. Gracias