OCX Hasar 2da generacion archivos F8010 F8011 F8012

[tulio]

Buen día

tengo un Hasar 2da generación y anda todo (Imprimo tickets, Cierre X Cierre Z ), lo que no se hacer son los archivos F8010 F8011 y F8012
quisiera saber si alguien me puede decir cual es el metodo , función que hay que usar y que parametros pasarle para poder crearlos.

Muchas Gracias!!!!!!!!!!!!

[tulio]

Hola Compañeros, a ver si alguno que renego con los impresores Hasar 2da generacion me puede decir como llamo a estas funciones, porque me dan error

Graciasss!!!!

Código Delphi [-]
Procedure TFormu_Factura.BitBtn1Click(Sender: TObject);
 var
  imprime:boolean;
  Jhasar: variant;///ImpresoraFiscalRG3561;
  Puerto:Integer;
  Destino:WideString;
  respabrir: RespuestaAbrirDocumento;
  estilo:AtributosDeTexto;
  respcierre:RespuestaCerrarDocumento;
  tiempo: OleVariant;
  bloque:RespuestaObtenerPrimerBloqueReporteElectronico;

 begin
  If MEssageDLg('CONFIRMA  GENERAR ARCHIVO ? ',mtconfirmation, [Mbno,Mbok],0)=mrok then
    Begin
      Jhasar := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561;
      Puerto:=5000;
      Destino:='127.0.0.1';
      tiempo := 15000;
      Jhasar.Conectar(destino,puerto,tiempo,tiempo);
 32 bloque := Jhasar.ObtenerPrimerBloqueReporteElectronico('01/05/2024','07/05/2024',TiposReporteAFIP.ReporteAFIPCompleto);
 33 GrabarEnArchivo('Archivo.txt', bloque.Informacion);
 34 while (bloque.Registro <> IdentificadorBloque.BloqueFinal) do
       begin
 36     bloque := Jhasar.ObtenerSiguienteBloqueReporteElectronico();
          GrabarEnArchivo('Archivo.txt', bloque.Informacion);
      end;
 39    ConvertirABinario('Archivo.txt');
    End;
End;
te paso las lineas que me da error
[Error] FACTURA.pas(32): Object or class type required
[Error] FACTURA.pas(32): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'

[Error] FACTURA.pas(33): Undeclared identifier: 'GrabarEnArchivo'
[Error] FACTURA.pas(34): Object or class type required
[Warning] FACTURA.pas(2334): Comparing signed and unsigned types - widened both operands
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(39): Undeclared identifier: 'ConvertirABinario'

[tulio]

Hola

Estoy tratando de generar los informes con un impresor fiscal hasar 2da G. y me da errores cuando compilo, ahi les paso el codigo y si alguien los uso , me podrian decir que estoy haciendo mal
Graciasss

Código Delphi [-]
Procedure TFormu_Factura.BitBtn1Click(Sender: TObject);
 var
  imprime:boolean;
  Jhasar: variant;///ImpresoraFiscalRG3561;
  Puerto:Integer;
  Destino:WideString;
  respabrir: RespuestaAbrirDocumento;
  estilo:AtributosDeTexto;
  respcierre:RespuestaCerrarDocumento;
  tiempo: OleVariant;
  bloque:RespuestaObtenerPrimerBloqueReporteElectronico;

 begin
  If MEssageDLg('CONFIRMA  GENERAR ARCHIVO ? ',mtconfirmation, [Mbno,Mbok],0)=mrok then
    Begin
      Jhasar := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561;
      Puerto:=5000;
      Destino:='127.0.0.1';
      tiempo := 15000;
      Jhasar.Conectar(destino,puerto,tiempo,tiempo);
 32 bloque := Jhasar.ObtenerPrimerBloqueReporteElectronico('01/05/2024','07/05/2024',TiposReporteAFIP.ReporteAFIPCompleto);
 33 GrabarEnArchivo('Archivo.txt', bloque.Informacion);
 34 while (bloque.Registro <> IdentificadorBloque.BloqueFinal) do
       begin
 36     bloque := Jhasar.ObtenerSiguienteBloqueReporteElectronico();
          GrabarEnArchivo('Archivo.txt', bloque.Informacion);
      end;
 39    ConvertirABinario('Archivo.txt');
    End;
End;
te paso las lineas que me da error
[Error] FACTURA.pas(32): Object or class type required
[Error] FACTURA.pas(32): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'

[Error] FACTURA.pas(33): Undeclared identifier: 'GrabarEnArchivo'
[Error] FACTURA.pas(34): Object or class type required
[Warning] FACTURA.pas(2334): Comparing signed and unsigned types - widened both operands
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(39): Undeclared identifier: 'ConvertirABinario'

[Casimiro Notevi]

No crees un nuevo tema para seguir con lo mismo, vuelve a preguntar en el mismo hilo.
Si no te han contestado es porque hay algo que no se entiende.
¿Has hecho una búsqueda por "hasar"? se ha hablado varias veces sobre esas impresoras.


He unido ambos temas.