Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-04-2017
mattaldi mattaldi is offline
Miembro
 
Registrado: may 2007
Posts: 18
Poder: 0
mattaldi Va por buen camino
Problema con impresora fiscar Hasar 1100 Segunda Generación

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:
Código:
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.

Código:
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.
Responder Con Cita
  #2  
Antiguo 21-06-2017
nmsitemas nmsitemas is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 3
Poder: 0
nmsitemas Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 21-06-2017
mattaldi mattaldi is offline
Miembro
 
Registrado: may 2007
Posts: 18
Poder: 0
mattaldi Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 21-06-2017
rrdb rrdb is offline
Registrado
 
Registrado: abr 2008
Posts: 4
Poder: 0
rrdb Va por buen camino
Problema con impresora fiscar Hasar 1100 Segunda Generación

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.
Responder Con Cita
  #5  
Antiguo 22-06-2017
mattaldi mattaldi is offline
Miembro
 
Registrado: may 2007
Posts: 18
Poder: 0
mattaldi Va por buen camino
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
Responder Con Cita
  #6  
Antiguo 22-06-2017
rrdb rrdb is offline
Registrado
 
Registrado: abr 2008
Posts: 4
Poder: 0
rrdb Va por buen camino
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.
Responder Con Cita
  #7  
Antiguo 05-05-2020
rjn rjn is offline
Registrado
 
Registrado: sep 2018
Posts: 3
Poder: 0
rjn Va por buen camino
Comando en proceso

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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Conectar con ocx Hasar 2da Generacion apuentes Varios 21 29-03-2019 00:37:39
Facturas A y B en impresora fiscal Hasar SMH/P330 santiago14 Varios 1 30-04-2013 15:14:02
Recibo X con impresora Hasar SMH/P-330 santiago14 Varios 6 23-04-2013 20:15:44
Problema Impresora Hasar USB Inge022 Impresión 6 13-05-2011 20:20:21
QuickReport & Impresora Hp Laserjet 1100 keys Impresión 3 26-12-2003 18:14:05


La franja horaria es GMT +2. Ahora son las 10:37:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi