Cita:
Empezado por mike_GK
Hola a todos, soy nuevo por aqui y me ha tocado meterme tarde en esto
Resulta que estoy intentando hacer los WSDL Importer y estoy teniendo problemas.
Primero tenia problemas de que no me los generaba completos y faltaba mucha informacion.
Ahora consigo que me los cree pero al copilar me indica que algunos identificadores ya estan declarados.
Por ejemplo aqui:
FacturaARType = (S, N);
Los indica que S y N ya estan declarados
Lo estoy haciendo mal cuando los creo o algo?
|
Buenos días,
Utilizo delphi 7 y al utilizar el WSDL Importer, creo que me lo genera incompleto ya que al compilar me da el error '[Error] SuministroFactRecibidas.pas(44): Undeclared identifier: 'SuministroLRFacturasRecibidas'.
¿¿Cómo solucionaste este problema??
Gracias
Código:
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactRecibidas.wsdl
// Encoding : UTF-8
// Version : 1.0
// (26/05/2017 13:27:00 - 1.33.2.5)
// ************************************************************************ //
unit SuministroFactRecibidas;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:SuministroLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"
// !:RespuestaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaSuministro.xsd"
// !:BajaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"
// !:RespuestaLRBajaFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaSuministro.xsd"
// !:ConsultaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/ConsultaLR.xsd"
// !:RespuestaConsultaLRFacturasRecibidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"
// ************************************************************************ //
// Namespace : https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactRecibidas.wsdl
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : siiBinding
// service : siiService
// port : SuministroFactRecibidasPruebas
// URL : https://www7.aeat.es/wlpl/SSII-FACT/ws/fr/SiiFactFRV1SOAP
// ************************************************************************ //
siiSOAP = interface(IInvokable)
['{39AA0DD7-27CF-DCD9-058B-219CBD81656D}']
function SuministroLRFacturasRecibidas(const SuministroLRFacturasRecibidas: SuministroLRFacturasRecibidas): RespuestaLRFacturasRecibidas; stdcall;
function AnulacionLRFacturasRecibidas(const AnulacionLRFacturasRecibidas: BajaLRFacturasRecibidas): RespuestaLRBajaFacturasRecibidas; stdcall;
function ConsultaLRFacturasRecibidas(const ConsultaLRFacturasRecibidas: ConsultaLRFacturasRecibidas): RespuestaConsultaLRFacturasRecibidas; stdcall;
end;
function GetsiiSOAP(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): siiSOAP;
implementation
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/fact/ws/SuministroFactRecibidas.wsdl';
defURL = 'https://www7.aeat.es/wlpl/SSII-FACT/ws/fr/SiiFactFRV1SOAP';
defSvc = 'siiService';
defPrt = 'SuministroFactRecibidasPruebas';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as siiSOAP);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(siiSOAP), 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactRecibidas.wsdl', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(siiSOAP), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(siiSOAP), ioDocument);
InvRegistry.RegisterInvokeOptions(TypeInfo(siiSOAP), ioLiteral);
end.