Al consumir WebService me da Accessviolation al acceder al resultado

[ja_73]

Empezado por APO

Hola ja_73,

Me alegro que ya te funcione! Te pongo el email donde hice la consulta a la AEAT por si necesitaras alguna otra información: atenusu(arroba)correo.aeat.es

Yo, sin embargo, sigo teniendo problemas. He modificado el WSDL y todos los xsd relacionados, pero la respuesta me sigue viniendo a nil.
¿Podrías aquí poner el WSDL ya modificado? Y el código cuando consumes el WebService? No sé, algo me debo estar dejando.

Por otra parte, a todo esto le veo un inconveniente. Y es que, si modifican el Webservice, también tendremos que hacer de nuevo estas modificaciones no?

Muchas gracias!

hola apo,
yo solo modifiqué el wsdl, la primera opción
sustituir
esto:

	<wsdl:message name="Salida">
		<wsdl:part name="Ie215V1Sal" type="Ie215V1SalType"/>
	</wsdl:message>

por esto:

<wsdl:message name="Salida"> 
    <wsdl : part name="Ie215V1Sal1" element="Sal201:Ie201" /> 
    <wsdl : part name="Ie215V1Sal2" element="Sal204:Ie204" /> 
</wsdl:message>

importas el wsdl y el resto del código debería funcionarte igual, (por lo menos en .NET, en delphi no se como puede ser)
un truco, copia el wsdl y los archivos modificados en una carpeta nueva, antes de volver a importar, en .net por lo menos a mi, siempre me importaba el mismo y me daba error, hasta que lo copié en una carpeta nueva y me lo importó bien.

[mtxtania]

Buenas tardes, yo de momento quiero probar sin modificar el WDSL aunque me salta el siguiente error y no puedo analizar las respuestas:


Codigo[1207].Se esperaba Atributo 'Id' event: com.ibm.xml.xlxp.api.stax.events.StartElementImpl@84705eb1


Estoy con los albaranes, Ie215V1.wsdl



Os suena a alguno?

[APO]

Empezado por mtxtania

Buenas tardes, yo de momento quiero probar sin modificar el WDSL aunque me salta el siguiente error y no puedo analizar las respuestas:

Codigo[1207].Se esperaba Atributo 'Id' event: com.ibm.xml.xlxp.api.stax.events.StartElementImpl@84705eb1

Estoy con los albaranes, Ie215V1.wsdl

Os suena a alguno?

Hola mtxtania,
Eso también me pasaba a mí. Es porque al importar el WSDL al final de todo añade unos namespace a los atributos Id, NifDeclarante, NombreDeclarante y Test. Se ve que al generar el XML de salida no le gusta con esos namespace.

Yo lo solucioné comentando esas líneas:

Código Delphi [-]
//  RemClassRegistry.RegisterExternalPropName(TypeInfo(Ie201Tipo), 'Test', '[Namespace="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/listas.xsd"]');
//  RemClassRegistry.RegisterExternalPropName(TypeInfo(Ie215Tipo), 'Id', '[Namespace="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/tipos.xsd"]');
//  RemClassRegistry.RegisterExternalPropName(TypeInfo(Ie215Tipo), 'NifDeclarante', '[Namespace="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/tipos.xsd"]');
//  RemClassRegistry.RegisterExternalPropName(TypeInfo(Ie215Tipo), 'NombreDeclarante', '[Namespace="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/tipos.xsd"]');
//  RemClassRegistry.RegisterExternalPropName(TypeInfo(Ie215Tipo), 'Test', '[Namespace="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/listas.xsd"]');

Pruébalo y cuéntanos a ver qué tal

[mtxtania]

Perfecto gracias!!

Ahora me encuentro que las respuestas me vienen a nil como comentabais mas arriba. Tengo que modificar el WSDL? Os ha funcionado a vosotros?

[APO]

¿En qué lenguaje de programación lo estás haciendo? Porque yo utilizando Delphi XE8, y modificando el WSDL me siguen viniendo a nil. En cambio, ja_73 que lo está haciendo en .NET, modificando el WSDL sí que le ha funcionado.

Básicamente del WSDL hay que cambiar esta parte:

Código Delphi [-]
message name="Salida">
art type="Ie215V1SalType" name="Ie215V1Sal"/>
message>

Por esta otra:

Código Delphi [-]
message name="Salida"> 
   art name="Ie215V1Sal1" element="Sal201:Ie201" /> 
   art name="Ie215V1Sal2" element="Sal204:Ie204" /> 
message>

Y luego a la hora de consumir el Webservice debería ser algo así:

Código Delphi [-]
//Aquí declaro las variables para consumir el Webservice
var
   XML: Ie215V11.Ie215;
   XMLRespuestaIe201: Ie215V11.Ie201;
   XMLRespuestaIe204: Ie215V11.Ie204;

begin
   //Rellenemos los datos que voy a enviar
   XML:=Ie215V11.Ie215.Create;
   XML.Id:='201905150001'; //Debe ser un identificar único por mensaje
   XML.NifDeclarante:='XXXXXXXXX';
   XML.NombreDeclarante:='XXXXXXXXXX';

   //… rellenar los demás datos necesarios ...


   //Y aquí consumo el Webservice
   Ie215V11.GetIe215V1(True,'',HTTPRIO1).Ie215V1(XML,XMLRespuestaIe201,XMLRespuestaIe204);

Y en teoría una de las dos respuestas XMLRespuestaIe201 (mensaje aceptado) o XMLRespuestaIe204 (mensaje rechazado) debería tener valor. Pero a mí me vienen las dos a nil.

[mtxtania]

Lo estoy haciendo con Delphi 10.2 y a mi también me vienen a nil. Aún estou probando pero es lo que he visto de momento.

[mtxtania]

Buenos días, he estado hablando con la AEAT pero de momento no saben dar solución a que las respuestas lleguen a nil… He probado a modificar lo que comentáis pero eso es para .NET, al menos es lo que me ha corroborado el de la AEAT.

Alguien ha hablado de leer el XML aunque estamos de acuerdo que no es nada recomendable. Crearíais una clase con la estructura del XML o os lo leerías directamente? Alguien ha avanzado un poco mas?

A parte estoy mirando algunos de los errores que me da. Uno de ellos es Formato de hora no válido, cuando le paso un datetime. En el XML de petición se genera 10:50:00.000Z El problema viene que muestra .000Z Podría probar de modificar el WDSL pero si tenemos que tocar mil cosas vaya gracia

He probado así:

Código Delphi [-]
 HoraPreparacion :=  Ie215V11.HoraTipo.Create;
    HoraPreparacion.AsTime   :=now;

Y así:

Código Delphi [-]
HoraPreparacion :=  Ie215V11.HoraTipo.Create;
     with HoraPreparacion do
     begin
       Hour:=10;
       Minute:=50;
       Millisecond:=00;
     end;

Sabéis como puedo pasarlo correctamente. No quiero tener que quitarlo directamente del XML.

[alejango]

Ya logro el envio , pero a la hora de la respuesta no me da nada. He modificado e importado el wdsl me ha generado muy poco codigo y con errores.


Estoy atrancado con XE5 , por si avanza alguien. Pleaseeee......