Cita:
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;
const
defWSDL = 'c:\tmp\SuministroFactRecibidas.wsdl';
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;