Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-04-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Recibo X con impresora Hasar SMH/P-330

Que tal, he estado ocupado haciendo un Recibo X. En este caso es una impresora fiscal Hasar.
Me costó bastante que imprimiera así que lo comparto con uds.

En el caso de un recibo, la impresora no genera el nro automáticamente, sino que acepta el que nosotros le digamos, aquí eso se indica en Hasar1.AbrirDNFH(RECIBO_X, nro_recibo).
Tampoco imprime original y duplicado por defecto, sino solamente original, salvo que le indiquemos lo contrario, esto se hace con Hasar1.CerrarDNFH(2); . Si no indicamos nada, es solo original; si ponemos el 2, es original y duplicado; si ponemos 3 es original, duplicado y triplicado.
Espero que sea de ayuda para los que andan en la pelea contra las fiscales.
Aquí el código está puesto dentro de un evento de un IBEventAlert, pero eso no importa, pueda estar en cualquier lado y va bien.

Código Delphi [-]

procedure TFrmPpal.evRecibosEventAlert(Sender: TObject; EventName: String;

  EventCount: Integer; var CancelAlerts: Boolean);

var

  puerto:string;

  ini:TIniFile;

  recibo:TEnc_cobro;

begin

  with DataModule2, IBConsulta, recibo do

  try

    terminarTransaccion;

    IBTransaccion.StartTransaction;

    Buscar_cliente_reciboX(IBConsulta);

  //Cargamos el registro con los datos del documento

    cod_recibo:=FieldByName('cod_recibo').AsInteger;

    nombre_cliente:=FieldByName('nombre_cliente').AsString;

    numero_documento:=FieldByName('cuit_cliente').AsString; //Sería el cuit

    tipo_documento:=FieldByName('tipo_documento_cliente').AsString;

    responsabilidad_iva:=FieldByName('responsabilidad_iva_cliente').AsString;

    domicilio_cliente:=FieldByName('domicilio_cliente').AsString;

    pto_vta_recibo:=FieldByName('pto_vta_recibo').AsInteger; //el pto de venta

    nro_recibo:=FieldByName('nro_recibo').AsInteger; //el nro de recibo

    conceptos_pagados:=FieldByName('conceptos_pagados').AsString; //el concepto que se paga

  //Abrimos la fiscal

    abrir_fiscal(archivoINI);

    Hasar1.PrecioBase:=False; //TRUE: CON BASE IMPONIBLE; FALSE: CON PRECIO FINAL, IMPUESTOS INCLUIDOS

    Hasar1.Comenzar;

    Hasar1.TratarDeCancelarTodo;

    Hasar1.DatosCliente(nombre_cliente, numero_documento, obtener_tipo_documento(tipo_documento),

      obtener_responsabilidad_iva(responsabilidad_iva), domicilio_cliente);

    //Hasar1.DescripcionesLargas:=false; //trunca las descripciones largas

    Hasar1.AbrirDNFH(RECIBO_X, nro_recibo);

    Buscar_detalle_recibo_X(ibconsulta, cod_recibo);

    with ibconsulta do

    begin

      first;

      while not eof do

      begin                //DESCR CANT MONTO IVA IMPUESTOS INTERNOS

        hasar1.ImprimirItem(FieldByName('valores').AsString, 1, FieldByName('importe_cobro').AsFloat,

          0, 0);

        next;

      end;

    end;

    hasar1.Subtotal(true);

    Hasar1.DetalleRecibo(conceptos_pagados);

    Hasar1.CerrarDNFH(2);

    Hasar1.Finalizar;

    CoolTrayIcon1.ShowBalloonHint('Impresora fiscal', 'Recibo, Nº '

      + LPad(pto_vta_recibo, 4, '0') + ' - ' + LPad(nro_recibo, 8, '0') + ' en la Impresora fiscal...',

      bitInfo, 10);

    IBTransaccion.Commit;

  except

    on E:Exception do

    begin

      terminarTransaccion;

      merrores(e, 'Error en la impresión de datos.', 'Impresión Recibo');

    end;

  end;

end;
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
  #2  
Antiguo 18-04-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular

...........
Responder Con Cita
  #3  
Antiguo 19-04-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Para completar, aclaro que es "abrir_fiscal", simplemente junté los comandos para abrir la fiscal combinándolo con un archivo .ini donde tengo algunos datos de la impresora.

Código Delphi [-]
procedure TFrmPpal.abrir_fiscal(archivo_ini:string);
var
  ini:TIniFile;
  puerto:string;
begin
  try
  //Recuperamos los datos desde el archivo .ini
    ini:=abrirINI(archivo_ini);
    puerto:=leerINI(INI, 'fiscal', 'puerto');
    cerrarINI(ini);
  //Es la parte de impresión
    Hasar1.Puerto:=StrToInt(puerto);
    Hasar1.Modelo:=MODELO_P330;
    hasar1.Baudios:=9600;
  except
    raise;
  end;
end;
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
  #4  
Antiguo 19-04-2013
mbguantay mbguantay is offline
Miembro
 
Registrado: abr 2006
Posts: 22
Poder: 0
mbguantay Va por buen camino
Hola Santi, muy buen aporte, gracias! justo tengo que hacer ticket factura en una hasar. Muchas gracias!
Responder Con Cita
  #5  
Antiguo 19-04-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Cita:
Empezado por mbguantay Ver Mensaje
Hola Santi, muy buen aporte, gracias! justo tengo que hacer ticket factura en una hasar. Muchas gracias!
Por nada, también tengo funcionando módulos para las facturas, notas de débito, notas de crédito A y B.
En estos días las voy a subir para que queden en el Club.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
  #6  
Antiguo 23-04-2013
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 315
Poder: 19
amadis Va por buen camino
De donde descargaste el paquete de drivers y/o componentes para hasar.

el componente hasar1 al que haces mención, es creado por vos o es algun componente que instala el driver.

Yo he descargado unos de http://www.impresoras-fiscales.com.ar/argentina.html
Es un ocx que lo integra al proyecto. Pero el mismo ocx es un driver aparentemente generico para todos los fiscales y no entiendo bien como va el tema.

Será agradecida toda la info y/o ejemplos que puedas aportar sobre el tema.
Responder Con Cita
  #7  
Antiguo 23-04-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Post

Cita:
Empezado por amadis Ver Mensaje
De donde descargaste el paquete de drivers y/o componentes para hasar.

el componente hasar1 al que haces mención, es creado por vos o es algun componente que instala el driver.

Yo he descargado unos de http://www.impresoras-fiscales.com.ar/argentina.html
Es un ocx que lo integra al proyecto. Pero el mismo ocx es un driver aparentemente generico para todos los fiscales y no entiendo bien como va el tema.

Será agradecida toda la info y/o ejemplos que puedas aportar sobre el tema.
Lo descargué de la página de Hasar, hay que buscar un poco y ahí está. Aquí se los pongo para que lo tengan. Es libre así que no hay drama.

No he visto el OCX de impresoras-fiscales.com.ar pero el que tengo yo es para toda la gama de Hasar hasta el momento de la salida del OCX, la versión es v051122.

Voy a subir otros ejemplos en estos días: Factura A y B, Notas de débito A y B, Cierre Z y X.

Saludos.
Archivos Adjuntos
Tipo de Archivo: rar ocx_v051122_02.rar (240,8 KB, 22 visitas)
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
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
Recibo de Nominas nabucodonosor Impresión 3 09-05-2012 19:44:20
Problema Impresora Hasar USB Inge022 Impresión 6 13-05-2011 20:20:21
Indy - Acuse de recibo AndyLupa Varios 1 08-04-2011 15:54:58
Impresión de recibos en impresora de tickets fiscales Hasar Mauro® Impresión 1 27-10-2008 04:04:51
Acuse de recibo INDY krilea Internet 1 11-01-2006 21:50:44


La franja horaria es GMT +2. Ahora son las 16:24:45.


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