Ver Mensaje Individual
  #193  
Antiguo 23-02-2017
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.027
Reputación: 22
keys Va por buen camino
Hola. Al llamar a la funcion GetssiSoap este devuelve una respuesta según el tipo de envío que se este realizando. Por ejemplo lo siguiente es un envio de facturas Emitidas. El orden de las respuestas es la misma que las que se envían.

Código Delphi [-]
      var 
      resultado : RespuestaLRFacturasEmitidas;

      resultado := GetsiiSOAP(true, '', nil).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);

       //mostrar los resultados devueltos por la llamada
       for i := low(resultado.RespuestaLinea) to High(resultado.RespuestaLinea) do
        begin

          with resultado.RespuestaLinea[i] do
            begin                           
                    case EstadoRegistro of
                      EstadoRegistroType.Correcto : begin //LA FACTURA ES CORRECTA                                                                  
                                                                     REsultado.CSV;
                                                                    
                                                              end;
                      EstadoRegistroType.AceptadoConErrores : begin                                                                
                                                                                   REsultado.CSV;
                                                                                   DescripcionErrorRegistro; //Descripcion del resultado devuelto
                                                              end;
                      EstadoRegistroType.Incorrecto : begin
                                                       
                                                       CodigoErrorRegistro;
                                                        DescripcionErrorRegistro; //Descripcion del resultado devuelto
                                                      end;
                    end; //cASE
                    
                
         end; //fOR

Busca en los mensajes anteriores que hay un ejemplo entero de envío y se trata esto.

Un Saludo.
Responder Con Cita