FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Suministro Cobros Emitidas
Hasta ahora no había tenido que desarrollar la parte de cobros / pagos de facturas suministradas previamente. Tengo un cliente el cual a su vez un proveedor que le emite facturas acogidas al criterio de caja y me ha reclamado esta opción. Parar ello me he dispuesto a hacer tal como hice con el resto de wsdl, importar a través "Component - Import WSDL".
En el asistente le dejo los parámetros por defecto y selecciono el WDSL(el último) que tengo almacenado en el ordenador. Cual es mi sorpresa que no lo importa correctamente, no se que parámetros tengo que seleccionar o seguramente lo que realmente pasa es que no tengo ni puta idea. Código:
unit SuministroCobrosEmitidas; interface uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.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 Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:ConsultaCobros - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/ConsultaLR.xsd"[Lit][] // !:RespuestaConsultaCobros - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"[Lit][] // !:SuministroLRCobrosEmitidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd"[Lit][] // !:RespuestaLRCobrosEmitidas - "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaSuministro.xsd"[Lit][] // ************************************************************************ // // Namespace : https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroCobrosEmitidas.wsdl // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : siiBinding // service : siiService // port : SuministroCobrosEmitidas // URL : https://www1.agenciatributaria.gob.es/wlpl/SSII-FACT/ws/fe/SiiFactCOBV1SOAP // ************************************************************************ // siiSOAP = interface(IInvokable) ['{9EF60891-5E4C-9812-57C2-1284CE15ECC8}'] // Cannot unwrap: // - Input part does not refer to an element // - Output part does not refer to an element function SuministroLRCobrosEmitidas(const SuministroLRCobrosEmitidas: SuministroLRCobrosEmitidas): RespuestaLRCobrosEmitidas; stdcall; // Cannot unwrap: // - Input part does not refer to an element // - Output part does not refer to an element function ConsultaLRCobrosEmitidas(const ConsultaCobrosEmitidas: ConsultaCobros): RespuestaConsultaCobros; stdcall; end; function GetsiiSOAP(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): siiSOAP; implementation uses System.SysUtils; function GetsiiSOAP(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): siiSOAP; const defWSDL = 'O:\contadoc\herramientas_externas\d4sii\Win32\Debug\SuministroCobrosEmitidas.wsdl'; defURL = 'https://www1.agenciatributaria.gob.es/wlpl/SSII-FACT/ws/fe/SiiFactCOBV1SOAP'; defSvc = 'siiService'; defPrt = 'SuministroCobrosEmitidas'; 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 { siiSOAP } InvRegistry.RegisterInterface(TypeInfo(siiSOAP), 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroCobrosEmitidas.wsdl', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(siiSOAP), ''); InvRegistry.RegisterInvokeOptions(TypeInfo(siiSOAP), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(siiSOAP), ioLiteral); end. Código:
[dcc32 Error] SuministroCobrosEmitidas.pas(48): E2003 Undeclared identifier: 'SuministroLRCobrosEmitidas' [dcc32 Error] SuministroCobrosEmitidas.pas(48): E2003 Undeclared identifier: 'RespuestaLRCobrosEmitidas' [dcc32 Error] SuministroCobrosEmitidas.pas(53): E2003 Undeclared identifier: 'ConsultaCobros' [dcc32 Error] SuministroCobrosEmitidas.pas(53): E2003 Undeclared identifier: 'RespuestaConsultaCobros' [dcc32 Fatal Error] D4SII.dpr(18): F2063 Could not compile used unit 'SuministroCobrosEmitidas.pas' Failed |
#2
|
||||
|
||||
Yo creo que no te has descargado todos los xsd necesarios.
No solo vale con el wsdl, tienes que descargarte todos los xsd y que estén en la misma carpeta. Si no puedes dime y te pongo toda la unit. |
#3
|
||||
|
||||
Cita:
Lo he intentado, ha hecho mas cosas pero sigue indicando Undeclare indentifier 'SuministroLRCobrosEmitidas. Si me haces el favor pasame el unit please. |
#4
|
||||
|
||||
¿Qué versión estás utilizando? Yo he importado desde la 11.3 este WSDL: https://www2.agenciatributaria.gob.e...sEmitidas.wsdl Y sin tener nada más descargado me genera un archivo más completo. Te lo adjunto por si te sirve (la importación es con los parámetros por defecto).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
||||
|
||||
Gracias Neftali, me ha ido de lujo, compila correctamente.
Me podrías pasar pagos también, por favor. Utilizo XE6 y nada de nada lo importo con todos los WSDL, XSD, XML que da la AEAT y nada de nada. Me estoy volviendo loco. Si me hacéis el favor de pasarme el .pas Última edición por dimony fecha: 23-06-2023 a las 07:21:15. |
#6
|
||||
|
||||
Cita:
Si me pasas la URL del WSDL, como la de arriba te lo importo sin problemas.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
||||
|
||||
Cita:
Aquí va: Código:
https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroPagosRecibidas.wsdl Muchas gracias. |
#8
|
||||
|
||||
Ahí va de vuelta...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#9
|
||||
|
||||
Muchas gracias chato, que dios te lo pague . Me has salvado la vida. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4170 | Hace 2 Semanas 17:29:05 |
AEAT envio de datos vía Webservice problemas con WSDL | CelsoO | Internet | 11 | 09-10-2019 20:03:41 |
webService Soap de la Administración Digital Española notific@ | apicito | Internet | 3 | 31-01-2017 11:25:28 |
Error en Webservice funcion envio de sms | webmasterplc | Delphi para la web | 5 | 25-07-2013 20:10:29 |
Problemas con envío de XML a un WebService | davidvamo | Internet | 1 | 13-02-2007 15:49:20 |
|