[dimony]

Empezado por glopez

Hola, yo tengo el mismo problema. No consigo poner los ficheros WSDL en local. ¿Podéis explicarme como hacerlo? ¿Hay que hacer algún cambio en los ficheros?

No se como tienes montado el programa pero de lo que se trata es de hacer mención a los ficheros wsdl que tendrás descargado en local

Código Delphi [-]
function GetsiiSOAP(UseWSDL: Boolean; Addr: string; p_wsdl_localitation: string ;p_wsdl_port: string; p_wsdl_service: string; HTTPRIO: THTTPRIO): siiSOAP;
//function GetsiiSOAP(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): siiSOAP;
const
  //defWSDL = 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii_1_1_bis/fact/ws/SuministroFactRecibidas.wsdl';  
defWSDL = 'c:\tmp\SuministroFactRecibidas.wsdl'; // Esto es lo que tienes que controlar
  defURL  = 'https://www1.agenciatributaria.gob.es/wlpl/SSII-FACT/ws/fr/SiiFactFRV1SOAP';
  defSvc  = 'siiService';
  defPrt  = 'SuministroFactRecibidas';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
    begin
    if UseWSDL then
      begin
      if p_wsdl_localitation = '' then
        begin
        Addr := defWSDL;
        end
      else
        begin

        Addr := p_wsdl_localitation;
        end;
      end
    else
      begin
      Addr := defURL;
      end;
    end;

  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as siiSOAP);
    if UseWSDL then
      begin
      RIO.WSDLLocation := Addr;
      if p_wsdl_service = '' then
        begin
        RIO.Service := defSvc;
        end
      else
        begin
        RIO.Service := p_wsdl_service;
        end;
      if p_wsdl_service = '' then
        begin
        RIO.Port := defPrt;
        end
      else
        begin
        RIO.Port := p_wsdl_port;
        end;
      end
    else
      begin
      RIO.URL := Addr;
      end;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;