Ver Mensaje Individual
  #427  
Antiguo 03-02-2021
espinete espinete is offline
Miembro
 
Registrado: mar 2009
Posts: 233
Reputación: 16
espinete Va camino a la fama
Gracias, keys. Iba por buen camino, pero solo estaba añadiendo la T: antes de TicketBAI y no en el "xmlns:T=" de después. Ni lo había visto

Qué curioso que haya que descomprimir el gzip dos veces. Por cierto, para descomprimirlo usando las librerías de Delphi yo uso este código:

Código Delphi [-]
procedure descomprimir(origen,destino:string);
var LInput, LOutput: TFileStream;
    DecompressionStream: TDecompressionStream;
begin
    LInput := TFileStream.Create(origen, fmOpenRead);
    LOutput := TFileStream.Create(destino, fmCreate);

    //Primera descompresión
    DecompressionStream := TDecompressionStream.Create(LInput, 15 + 16);  // 31 bit wide window = gzip only mode
    LOutput.CopyFrom(DecompressionStream, DecompressionStream.size);

    LOutput.Free;
    LInput.Free;
end;

Como hay que descomprimir dos veces, lo hago así:

Código Delphi [-]
        
    descomprimir('respuesta.gz','respuesta2.gz');
    descomprimir('respuesta2.gz','respuesta.xml');

Y ya luego borro los archivos temporales sobrantes.

Estoy intentando cargar la respuesta XML en el "IXMLLROEPJ240FacturasEmitidasConSGAltaRespuesta" importado, para trabajar "mejor" con las respuestas, pero no lo consigo:

Código Delphi [-]
var Alta240Respuesta : IXMLLROEPJ240FacturasEmitidasConSGAltaRespuesta;
    i : integer;
begin
        Alta240Respuesta := LROE_PJ_240_1_1_FacturasEmitidas_ConSG_AltaRespuesta_V1_0_1.LoadLROEPJ240FacturasEmitidasConSGAltaRe  spuesta('respuesta.xml');
        for i:=0 to Alta240Respuesta.Registros.Count-1 do
        begin
            with Alta240Respuesta.Registros.Registro[i] do
            begin
                memo2.Lines.Append(SituacionRegistro.EstadoRegistro);
                memo2.Lines.Append(SituacionRegistro.CodigoErrorRegistro);
                memo2.Lines.Append(SituacionRegistro.DescripcionErrorRegistro);
                memo2.Lines.Append('');
            end;
        end;
end;

El XML se carga en Alta240Respuesta, porque Alta240Respuesta.XML devuelve el contenido del XML, pero luego no puedo acceder a los valores. No encuentra nada.

No me preocupa mucho porque puedo simplemente cargar el XML en un XMLDocument y trabajar con eso, pero creo que sería más cómodo aprovechar el XML Data Binding, no?

Un saludo y gracias nuevamente. Ahora ya puedo obtener los errores detallados en las respuestas, así que a partir de ahora todo debería ser más sencillo.
Responder Con Cita