9 respuestas en este tema

[santiago14]

Buenas, cumpliendo con lo que había dicho anteriormente pego el código que permite hacer las facturas A y B con una Hasar.
Recuerdo que esto usa el componente OCX de Hasar, de ahí que aparece en el código "hasar1", hay algunas consultas a la BD (Firebird 2.1), acceso a un archivo .ini para traer datos de la fiscal y alguna que otra cartelería.

Espero les sirva a todos.

delphi

//Factura A
procedure TFrmPpal.IBAlertadorEventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
var
  puerto:string;
  ini:TIniFile;
  factura:TEnc_egreso;
begin
  with DataModule2, IBConsulta, factura do
  try
    terminarTransaccion;
    IBTransaccion.StartTransaction;
    buscar_cliente_factura(ibconsulta, 'FACTURA_A');
  //Cargamos el registro con los datos del documento
    //cod_egreso:=Fields[0].asInteger;
    cod_egreso:=FieldByName('cod_egreso').AsInteger;
    nombre_cliente:=FieldByName('nombre_cliente').AsString;
    domicilio:=FieldByName('domicilio_cliente').AsString;
    responsabilidad_iva:=FieldByName('responsabilidad_iva_cliente').AsString;
    tipo_documento:=FieldByName('tipo_documento').AsString;
    numero_documento:=FieldByName('numero_documento').AsString; //Sería el cuit
    pto_vta_egreso:=FieldByName('pto_vta_egreso').AsInteger; //el pto de venta
  //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);
    //Hasar1.DescripcionesLargas:=false; //trunca las descripciones largas
    Hasar1.AbrirComprobanteFiscal(FACTURA_A);
    Buscar_detalle_factura_A(ibconsulta, cod_egreso);
    with ibconsulta do
    begin
      first;
      while not eof do
      begin                //DESCR CANT MONTO IVA IMPUESTOS INTERNOS
        hasar1.ImprimirItem(FieldByName('nombre_existencia').AsString, FieldByName('cantidad_egreso').AsFloat,
          FieldByName('precio_final').AsFloat, FieldByName('porcentaje_alicuota').AsFloat, 0);
        next;
      end;
    end;
    hasar1.Subtotal(true);
  //Imprimimos las formas de pago del cliente
    Buscar_formas_pago_cliente(IBConsulta, cod_egreso);
    with IBConsulta do
    begin
      First;
      while not Eof do
      begin
        hasar1.ImprimirPago(FieldByName('tipo_forma_cobro').AsString,
          FieldByName('monto_forma_cobro').AsFloat);
        Next;
      end;
    end;
    Hasar1.CerrarComprobanteFiscal;
  //Me devuelve el nro de comprobante
    nro_egreso:=StrToInt(Hasar1.Respuesta[3]);
    registrar_numero_comprobante_egreso(nro_egreso, cod_egreso, IBConsulta);
    Hasar1.Finalizar;
    IBTransaccion.Commit;
    CoolTrayIcon1.ShowBalloonHint('Impresora fiscal', 'Factura A, Nº '
      + LPad(pto_vta_egreso, 4, '0') + ' - ' + LPad(nro_egreso, 8, '0') + ' en la Impresora fiscal...',
      bitInfo, 10);
  except
    on E:Exception do
    begin
      terminarTransaccion;
      merrores(e, 'Error en la impresión de datos.', 'Impresión Factura A');
    end;
  end;
end;
 
//Factura B
procedure TFrmPpal.evFacturaBEventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
var
  puerto:string;
  ini:TIniFile;
  factura:TEnc_egreso;
begin
  with DataModule2, IBConsulta, factura do
  try
    terminarTransaccion;
    IBTransaccion.StartTransaction;
    buscar_cliente_factura(ibconsulta, 'FACTURA_B');
  //Recuperamos los datos de la factura
    //cod_egreso:=Fields[0].asInteger;
    cod_egreso:=FieldByName('cod_egreso').AsInteger;
    nombre_cliente:=FieldByName('nombre_cliente').AsString;
    domicilio:=Trim(FieldByName('domicilio_cliente').AsString);
    responsabilidad_iva:=FieldByName('responsabilidad_iva_cliente').AsString;
    tipo_documento:=FieldByName('tipo_documento').AsString;
    numero_documento:=FieldByName('numero_documento').AsString; //Sería el cuit
    pto_vta_egreso:=FieldByName('pto_vta_egreso').AsInteger; //
  //Abrimos la fiscal
    abrir_fiscal(archivoINI);
    Hasar1.PrecioBase:=False; //TRUE: CON BASE IMPONIBLE; FALSE: CON PRECIO FINAL, IMPUESTOS INCLUIDOS
    Hasar1.Comenzar;
    Hasar1.TratarDeCancelarTodo;
    if domicilio <> EmptyStr then
    begin
      Hasar1.DatosCliente(nombre_cliente, numero_documento, obtener_tipo_documento(tipo_documento),
        obtener_responsabilidad_iva(responsabilidad_iva), domicilio);
    end
    else
    begin
    //No acepta una variable con un espacio, así que le mandamos el espacio directamente.
      Hasar1.DatosCliente(nombre_cliente, numero_documento, obtener_tipo_documento(tipo_documento),
        obtener_responsabilidad_iva(responsabilidad_iva), ' ');
    end;
    //Hasar1.DescripcionesLargas:=false; //trunca las descripciones largas
    Hasar1.AbrirComprobanteFiscal(FACTURA_B);
    Buscar_detalle_factura_A(IBConsulta, cod_egreso);
    with IBConsulta do
    begin
      first;
      while not eof do
      begin                //DESCR CANT MONTO IVA IMPUESTOS INTERNOS
        hasar1.ImprimirItem(FieldByName('nombre_existencia').AsString, FieldByName('cantidad_egreso').AsFloat,
          FieldByName('precio_final').AsFloat, FieldByName('porcentaje_alicuota').AsFloat, 0);
        next;
      end;
    end;
    hasar1.Subtotal(true);
  //Imprimimos las formas de pago del cliente
    Buscar_formas_pago_cliente(IBConsulta, cod_egreso);
    with IBConsulta do
    begin
      First;
      while not Eof do
      begin
        hasar1.ImprimirPago(FieldByName('tipo_forma_cobro').AsString,
          FieldByName('monto_forma_cobro').AsFloat);
        Next;
      end;
    end;
    Hasar1.CerrarComprobanteFiscal;
  //Me devuelve el nro de comprobante
    nro_egreso:=StrToInt(Hasar1.Respuesta[3]);
    registrar_numero_comprobante_egreso(nro_egreso, cod_egreso, IBConsulta);
    Hasar1.Finalizar;
    IBTransaccion.Commit;
    CoolTrayIcon1.ShowBalloonHint('Impresora fiscal', 'Factura B, Nº '
      + LPad(pto_vta_egreso, 4, '0') + ' - ' + LPad(nro_egreso, 8, '0') + ' en la Impresora fiscal...',
      bitInfo, 10);
  except
    on E:Exception do
    begin
      terminarTransaccion;
      merrores(e, 'Error en la impresión de datos.', 'Impresión Factura B.');
    end;
  end;
end;

[Delphius]

Hola,
Gracias santiago14 por tu colaboración.
Si no es mucha molestia, ¿podrías indicarnos el sitio del cual adquirir dicho OCX? Es posible que sea de utilidad a otros conocer más sobre dicho OCX ya que en otras ocasiones han venido usuarios con dudas respecto a las impresoras fiscales Hasar.

Saludos,

[santiago14]

Hola,
Gracias santiago14 por tu colaboración.
Si no es mucha molestia, ¿podrías indicarnos el sitio del cual adquirir dicho OCX? Es posible que sea de utilidad a otros conocer más sobre dicho OCX ya que en otras ocasiones han venido usuarios con dudas respecto a las impresoras fiscales Hasar.

Saludos,

El OCX lo encontré en la página de Hasar, tuve que andar un rato largo por cierto...

Les mando el OCX para que lo tengan.
Va OCX.

[santiago14]

Va manual del OCX.
Espero que entre, sino lo coprimo.

[santiago14]

Este manual es de comandos, muy necesario cuando los objetos del OCX no hacen lo que tienen que hacer.

[Delphius]

Hola,
Muchas gracias Santiago.

Yo estaba en la duda de si era el que se distribuía en su propio sitio o uno de terceros como el componente PZCFFiscal de Pablo Zagni. Según la página veo que se puede acceder de forma libre con sólo llenar un formulario.

Imagino que es como en verdad dicen allí que el OCX reconoce todos los modelos porque no veo que sea específico a algún modelo. Al parecer lo que hace puntual a cada equipo es el driver.

Al leer el código que expones me llamó mucho la atención los nombres de los métodos como Comenzar, TratarDeCancelarTodo, ImprimirPago. ¿Esos son los nombres de los métodos que ofrece la clase ActiveX generada por el OCX? ¿O es que tu le añadiste esos?

Saludos,

[santiago14]

El OCX es libre, por eso lo publico aquí sin cargo de conciencia. En cuanto al componente de Pablo Zagni, le envié un mail pidiéndoselo, como indica en su página, pero me respondió que lo había discontinuado porque muchos de los colegas (nosotros), no habíamos cumplido con las condiciones de la licencia.
El OCX reconoce muchos modelos de Hasar, la lista está en el manual, que también lo he subido.

Los nombres de los métodos son gratamente en castellano, y vienen de origen. En el manual "publfact.pdf" están los comandos que hacen la tarea y esos sí están en inglés.

Saludos.

[Delphius]

Hola,

Gracias por las aclaraciones. Justamente quería sacar las dudas.
Ya antes había visto a gente por el foro preguntar tanto por las Hasar y sus OCX/Drivers como por el componente de Pablo y no se ha podido avanzar demasiado en esto para ir en ayuda.

Es una lástima que el proyecto se haya discontinuado. De lo poco que me estaba informando parecía ser una muy buena opción. Ojalá en algún momento le diera un nuevo empujón... quizá si revisara las condiciones de su licencia pudiera atraer a más gente con ganas de colaborar. Justamente en un de los hilos sobre el tema había comentado ciertas dudas que me habían quedado al leer la página de Pablo.

Saludos,

[santiago14]

Sí, es una lástima. Ojalá que en algún momento decida arrancar de nuevo.

Yo estoy trabajando para un cliente que necesita poner en funcionamiento su Hasar ya que la AFIP (agencia impositiva de Argentina) lo a multado y en bastante dinero. Todos mis "descubrimientos" respecto del tema, los voy a publicar aquí.

Saludos.

[Nikolas]

Hola Santiago, te hago unas consultas:

¿Cuando creas el objeto, cdo entras al form o cdo inicia el programa?
Haces este proceso abrir_fiscal(archivoINI), cada vez que facturas, ¿no seria más practico hacerlo cdo abris el Formulario, una sola vez?
Hay algunos metodos que no funcionan como vos lo utilizas, por ejemplo:     
Hasar1.CerrarComprobanteFiscal();
lo tuve que llamar asi: Hasar1.CerrarComprobanteFiscal(ole,ole);
¿Lo sobreescribiste?

Muchas gracias.