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; 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'