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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-04-2017
mattaldi mattaldi is offline
Miembro
 
Registrado: may 2007
Posts: 16
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
 


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 15 Hace 4 Semanas 15:59:58
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 07:41:36.


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