Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice (https://www.clubdelphi.com/foros/showthread.php?t=91252)

Nasca 15-03-2017 20:37:06

Portal de SII:
http://www.agenciatributaria.es/AEAT...VA__SII_.shtml

Información técnica:
http://www.agenciatributaria.es/AEAT.internet/SII.html

Acceso al portal de pruebas del SII, con certificado digital siempre:
https://www7.aeat.es/PRE-Exteriores/...formacion.html

jlegido 15-03-2017 20:55:05

Cita:

Empezado por Nasca (Mensaje 514377)
Portal de SII:
http://www.agenciatributaria.es/AEAT...VA__SII_.shtml

Información técnica:
http://www.agenciatributaria.es/AEAT.internet/SII.html

Acceso al portal de pruebas del SII, con certificado digital siempre:
https://www7.aeat.es/PRE-Exteriores/...formacion.html

Hola Nasca,
OK la direccion de Acceso al portal de pruebas del SII, pero efectivamente si la pones en el navegador te manda a la pagina
https://***.agenciatributaria.gob.es.../erro4033.html donde te explica que no puedes acceder si no es con certificado.

Yo tengo el certificado, mi pregunta es ¿ Si se accede via navegador como se pone el certificado (es un archivo pfx, p.e. Certificado.pfx y como se pone la clave) y si no es via navegador, tienes alguna indicacion para hacerlo por codigo.

Gracias mil por tu info

-Los *** son porque no puedo poner enlaces

Nasca 15-03-2017 21:03:14

Cita:

Empezado por jlegido (Mensaje 514378)
Hola Nasca,
Yo tengo el certificado, mi pregunta es ¿ Si se accede via navegador como se pone el certificado (es un archivo pfx, p.e. Certificado.pfx y como se pone la clave) y si no es via navegador, tienes alguna indicacion para hacerlo por codigo.

En este caso es todo en un navegador estándar. Son formularios web.
Si tienes instalado el certificado en el navegador cuando vayas a esa URL te pedirá el mismo. Si no es así instala el *.pfx en el mismo.

jlegido 15-03-2017 21:19:08

Cita:

Empezado por Nasca (Mensaje 514379)
En este caso es todo en un navegador estándar. Son formularios web.
Si tienes instalado el certificado en el navegador cuando vayas a esa URL te pedirá el mismo. Si no es así instala el *.pfx en el mismo.


Joer, en estos momentos estoy un poco espeso y no se me habia ocurrido, pues el uso que hago del certificado siempre es por codigo, pero efectivamente, una vez instaldo, va perfecto.

Gracias mil

olinet 16-03-2017 08:16:14

Cita:

Empezado por jlegido (Mensaje 514375)
Hola Keys,

Puedes poner la direccion del enlace donde se puede consultar las facturas presentadas, porque no acabo de encontrarlo en la web de AEAT.
O es que se ha de hacer por codigo. Si asi fuera y tienes una pequeña muestra seria genial

Muchas gracias

Hola, te respondo yo si no te importa que ayer mismo estuve probando esto, creo que te refieres al portal de pruebas:
https://www7.aeat.es/PRE-Exteriores/...formacion.html

Tienes que entrar con el certificado que usaste para subirlas, una vez allí puedes consultar o hacer subidas de XMLs también. Esperamos que en Abril publiquen el formulario para subir facturas a mano de una en una.

¿Es eso lo que buscabas?.

Saludos.
Juan María.

mpino 16-03-2017 08:30:48

Cita:

Empezado por batuzail (Mensaje 514089)
Gracias Keys.
Alguno que lo este haciendo en C#, lo tengo hecho en VB y me funciona, lo quiero pasar a C# y tengo un problema al redimensionar los arrays, en VB con Redim no tenia problemas pero en C# no me es posible redimensionar.



Alguien puede decirme como lo ha hecho?

Saludos

Mira a ver si te funciona esto:

//from Applied Microsoft.NET framework Programming - Jeffrey Richter
public static Array RedimPreserve(Array origArray, Int32 desiredSize)
{
System.Type t = origArray.GetType().GetElementType();
Array newArray = Array.CreateInstance(t, desiredSize);
Array.Copy(origArray, 0, newArray, 0, Math.Min(origArray.Length, desiredSize));
return newArray;
}
Source: https://social.msdn.microsoft.com/Fo...csharplanguage

jonortsal 16-03-2017 08:31:56

Por favor, si alguien tiene implementado cómo consumir el webservice en VB.NET o PHP, por favor que comparta el proyecto. Sobre todo lo que me interesa la parte de conexión del certificado que me genera errores en ambos lenguajes.
Gracias por adelantado.

jonortsal 16-03-2017 08:38:37

Por favor, podrías mandar un zip el proyecto? Es que soy más de PHP que de VB.NET y no sé que clases importar y demás para el certificado. Gracias.

keys 16-03-2017 09:15:38

El enlace es la siguiente.

http://www.agenciatributaria.es/AEAT.internet/SII.html

Tienes que ir a Acceso al portal de pruebas del SII. Tienes que tener el certificado de la empresa a presentar.

Un Saludo.

Francisco1973 16-03-2017 12:51:53

Hola, ¿ alquien ha podido enviar al SuministroOpTrascendTribuPruebas ?.
Obtengo el error: "Unable to retrieve the URL endpoint for Service/Port 'siiService' 'SuministroOpTrascendTribuPruebas' from WSDL"
Saludos

jonortsal 16-03-2017 13:37:53

He utilizado el código VB.NET que comentaba el compañero poniendo el fichero xml en la carpeta y ya no me genera ningún error, pero no recibo respuesta. ¿Existe alguna forma de ver el mensaje SOAP de respuesta?


Dim store As Security.Cryptography.X509Certificates.X509Store = New Security.Cryptography.X509Certificates.X509Store(StoreName.My, StoreLocation.CurrentUser)
store.Open(Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)

Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2

' search store
' Dim col As New X509Certificate2Collection

'col = store.Certificates.Find(X509FindType.FindByIssuerName, "FNMT", True)




Dim ListCert As String = ""


For Each x In store.Certificates
MsgBox(x.Subject)

Next
Respuesta2RichTextBox.Text = ListCert

CertificadoCorrecto = store.Certificates(0) '(5)

' Objeto que almacenara la respuesta de la funcion del Web Service
Dim resp As New ServiceReference1.RespuestaLRFEmitidasType

' Ws
Dim Ws As New ServiceReference1.siiSOAPClient

Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
Ws.ClientCredentials.UseIdentityConfiguration = True

' Asignamos el certificado:
Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
' ----------------------------------------------------------------------------------------


' ----------------------------------------------------------------------------------------
Dim _SuministroLRFacturasEmitidas As New SuministroLRFacturasEmitidas
'--------------------------------------------------------------------------

Try

Dim x As New XmlSerializer(_SuministroLRFacturasEmitidas.GetType, "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd")

' A FileStream is needed to read the XML document.
Dim filename As String = "facturaEmitidaMODEL.XML"


Using reader As New FileStream(filename, FileMode.Open)
_SuministroLRFacturasEmitidas = CType(x.Deserialize(reader), SuministroLRFacturasEmitidas)
End Using

' SI QUEREMOS SOBREESCRIBIR EL XML ANTES DE ENVIAR:
' SOBREESCRIBIMOS DATS FORM ANTES SEND:
_SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = Trim(TextBoxRazonSocialEmisor.Text)
_SuministroLRFacturasEmitidas.Cabecera.Titular.NIF = Trim(TextBoxNIFEmisor.Text)

'(...)

'// se hace la llamada a la funcion suministrada por el WS
resp = Ws.SuministroLRFacturasEmitidas(_SuministroLRFacturasEmitidas)



Catch ex As Exception
MsgBox(ex.Message)
' Respuesta2RichTextBox = ex.Message
Finally
'Me.Cursor = Cursors.Default
'Threading.Thread.Sleep(5000)
'ProgressBar1.Style = ProgressBarStyle.Continuous
''ProgressBar1.Value = ProgressBar1.Maximum
End Try

mpino 16-03-2017 15:16:12

Cita:

Empezado por jonortsal (Mensaje 514397)
He utilizado el código VB.NET que comentaba el compañero poniendo el fichero xml en la carpeta y ya no me genera ningún error, pero no recibo respuesta. ¿Existe alguna forma de ver el mensaje SOAP de respuesta?


Dim store As Security.Cryptography.X509Certificates.X509Store = New Security.Cryptography.X509Certificates.X509Store(StoreName.My, StoreLocation.CurrentUser)
store.Open(Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)

Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2

' search store
' Dim col As New X509Certificate2Collection

'col = store.Certificates.Find(X509FindType.FindByIssuerName, "FNMT", True)




Dim ListCert As String = ""


For Each x In store.Certificates
MsgBox(x.Subject)

Next
Respuesta2RichTextBox.Text = ListCert

CertificadoCorrecto = store.Certificates(0) '(5)

' Objeto que almacenara la respuesta de la funcion del Web Service
Dim resp As New ServiceReference1.RespuestaLRFEmitidasType

' Ws
Dim Ws As New ServiceReference1.siiSOAPClient

Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
Ws.ClientCredentials.UseIdentityConfiguration = True

' Asignamos el certificado:
Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
' ----------------------------------------------------------------------------------------


' ----------------------------------------------------------------------------------------
Dim _SuministroLRFacturasEmitidas As New SuministroLRFacturasEmitidas
'--------------------------------------------------------------------------

Try

Dim x As New XmlSerializer(_SuministroLRFacturasEmitidas.GetType, "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd")

' A FileStream is needed to read the XML document.
Dim filename As String = "facturaEmitidaMODEL.XML"


Using reader As New FileStream(filename, FileMode.Open)
_SuministroLRFacturasEmitidas = CType(x.Deserialize(reader), SuministroLRFacturasEmitidas)
End Using

' SI QUEREMOS SOBREESCRIBIR EL XML ANTES DE ENVIAR:
' SOBREESCRIBIMOS DATS FORM ANTES SEND:
_SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = Trim(TextBoxRazonSocialEmisor.Text)
_SuministroLRFacturasEmitidas.Cabecera.Titular.NIF = Trim(TextBoxNIFEmisor.Text)

'(...)

'// se hace la llamada a la funcion suministrada por el WS
resp = Ws.SuministroLRFacturasEmitidas(_SuministroLRFacturasEmitidas)



Catch ex As Exception
MsgBox(ex.Message)
' Respuesta2RichTextBox = ex.Message
Finally
'Me.Cursor = Cursors.Default
'Threading.Thread.Sleep(5000)
'ProgressBar1.Style = ProgressBarStyle.Continuous
''ProgressBar1.Value = ProgressBar1.Maximum
End Try

Con este mismo código yo sí recibo respuesta, pero siempre me dice "AEAT_errores_tecnicos". ¿Alguna pista?

Muchas gracias
mpino

jonortsal 16-03-2017 15:33:54

A mi sí me añade la factura emitida, porque luego lo veo con el soapUI, pero me gustaría capturar la respuesta del WebService y no sé como hacerlo.
Gracias.

Carlos Garcia C 16-03-2017 16:52:10

No consigo que mis XML pasen correctamente
 
Buenos días:
Llevo dos semanas con este tema y no consigo nada.. como dije yo soy contable y de INFORMATICO desafortunadamente nada, pero tengo mucha voluntad de saber, por ejemplo, así he revisado las 17 paginas del foro por ejemplo no sé ni siquiera qué significa deserializando. Perdonad mi ignorancia.
¿Alguno de vosotros me puede echar una mano o mandarme un fichero a modo de prueba que haya pasado y no me de este tipo de mensajes u otros que no me dejen avanzar para hacer consultas posteriores, etc, también en modo de prueba?.
Yo hago lo siguiente:
Paso 1- Genero un .DOC y lo Guardo como WEB para XML, en total como 3 hojas y media (que adjunto)
Paso 2- Entro en AEAT, clicleo EXAMINAR. y a continuación incluye como Peticion a la izquierda de la pantalla un fichero donde ya aparecen como 10 hojas más y en las primeras líneas aparece <meta http-equiv=Content-Type ... que tu me dices debería ser así <meta http-equiv="Content-Type".
Yo no puedo corregir eso, no me deja, ni tampoco se como cambiar o que cambiar en el DOC del Paso 1, porque he copiado literalmente un ejemplo que incluye en la documentación la propia AEAT, con un copy/pega.
Pasos 5 y 4-Como consecuencia de ello, al cliclear ENVIAR, la AEAT me rellena la parte derecha de la pantalla, y me da los consabidos mensajes, de lo de las comas.

No puedo dejar este tema sin resolverlo, PERO LO QUE NO ENTIENDO ES EL PORQUE DE UN XML DE 3,5 HOJAS (El DOC que convierto en XML), LA AEAT LO CONVIERTE EN ALGO MUY DISTINTO y las 3,5 hojas las convierte en más de 10 hojas, cuando la da como recibida la AEAT.. Y POR ESO PENSE QUE ERA EL CONVERSOR QUE UTILIZA MI PC DEL WORD--> GUARDAR COMO WEB.
Probablemente esto es muy básico para un INFORMATICO, pero para mi nada de nada.

Muchas GRACIAS por todo..

Carlos Garcia C 16-03-2017 17:54:23

No consigo que mis XML pasen correctamente (continua los Anexos)
 
.... corrijo... he contado las páginas, que van de 3,5 a 57,
.... no se porque no se han adjuntado los anexos con mi texto anterior..puede ser por el tamaño ... u otro tema ???

Gracias anticipadas colaboración.

Nasca 16-03-2017 18:06:09

Cita:

Empezado por Carlos Garcia C (Mensaje 514402)
No puedo dejar este tema sin resolverlo, PERO LO QUE NO ENTIENDO ES EL PORQUE DE UN XML DE 3,5 HOJAS (El DOC que convierto en XML), LA AEAT LO CONVIERTE EN ALGO MUY DISTINTO y las 3,5 hojas las convierte en más de 10 hojas, cuando la da como recibida la AEAT.. Y POR ESO PENSE QUE ERA EL CONVERSOR QUE UTILIZA MI PC DEL WORD--> GUARDAR COMO WEB.
Probablemente esto es muy básico para un INFORMATICO, pero para mi nada de nada.

Me temo que no van por ahí los tiros.
Es algo mas complejo de hacer. Y si quieres hacerlo a mano olvídate de word y usa notepad u otro editor de texto sencillo.

jlegido 16-03-2017 19:25:46

1 Archivos Adjunto(s)
Hola,

En primir lugar agradecer a toda la gente del foro su ayuda e ideas. El foro es de Delphi, pero nos hemos metido los de .NET, por que no hay nada igual en este tema.

No he podido antes, pero si quiero sobre todo quiero agradecer la ayuda especial de CMB, bartag, batuzail, angelhorse y vicdeju por ideas o aportes que me han ayudado a saltar unas cuantas vallas/tapias informaticas que de otra forma no habria podido.

Esto ya funciona en lo esencial. Ahora estoy con el tema de las facturas Recibidas (el punto 6.2.2.1. Alta/Modificacion de facturas del SII_Descripcion_ServicioWeb_v0.5.pdf), para el cual no hay ningun ejemplo en xml.

Ya he construido uno, que subo, pero me da error, del cual pongo la parte principal

Código:

env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
<env:Body>
<env:Fault>
<faultcode>env:Client</faultcode>
<faultstring>
Codigo[4124].Error La direccion no se corresponde con el fichero de entrada.
</faultstring>
<detail>
<callstack>
Error La direccion no se corresponde con el fichero de entrada. WSExcepcion [faultcode=null, detailMap=null, version=0, faultstring=null, faultactor=null, faultSubCode=null, reasonText=null, detail=null, nameSpaceUriDetail=null] at

Subo el xml contruido y el del error.

A alguien le ha aparecido un error similar y sabe a que puede deberse o en su defecto tiene un ejemplo de xml para facturas recibidas valido

Gracias !!!! :):):D

dmg 16-03-2017 19:39:13

Muy buenas, yo también lo estoy haciendo en c#, estoy siguiendo las clases de BATUZAIL.
Tengo un problema en el XML generado, me agrega el xmlns en muchas etiquetas y no se como quitarlo.

<PeriodoImpositivo xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">

El fichero lo genero:

//GENERAR FICHERO XML
string fichero = path + "\\" + nuevoNombre;
XmlSerializer serializer = new XmlSerializer(typeof(SuministroLRFacturasEmitidas));
FileStream fs = new FileStream(fichero, FileMode.Create);
try
{
serializer.Serialize(fs, SII_Emitidas);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
throw;
}
fs.Close();

Donde SII_Emitidas es:

SuministroLRFacturasEmitidas SII_Emitidas = new SuministroLRFacturasEmitidas();

Gracias.

CMB 16-03-2017 20:37:38

Cita:

Empezado por jlegido (Mensaje 514408)
Hola,
En primir lugar agradecer a toda la gente del foro su ayuda e ideas. El foro es de Delphi, pero nos hemos metido los de .NET, por que no hay nada igual en este tema.
No he podido antes, pero si quiero sobre todo quiero agradecer la ayuda especial de CMB, bartag, batuzail, angelhorse y vicdeju por ideas o aportes que me han ayudado a saltar unas cuantas vallas/tapias informaticas que de otra forma no habria podido.
Esto ya funciona en lo esencial. Ahora estoy con el tema de las facturas Recibidas (el punto 6.2.2.1. Alta/Modificacion de facturas del SII_Descripcion_ServicioWeb_v0.5.pdf), para el cual no hay ningun ejemplo en xml.
Ya he construido uno, que subo, pero me da error, del cual pongo la parte principal

Código:

env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
<env:Body>
<env:Fault>
<faultcode>env:Client</faultcode>
<faultstring>
Codigo[4124].Error La direccion no se corresponde con el fichero de entrada.
</faultstring>
<detail>
<callstack>
Error La direccion no se corresponde con el fichero de entrada. WSExcepcion [faultcode=null, detailMap=null, version=0, faultstring=null, faultactor=null, faultSubCode=null, reasonText=null, detail=null, nameSpaceUriDetail=null] at

Subo el xml contruido y el del error.
A alguien le ha aparecido un error similar y sabe a que puede deberse o en su defecto tiene un ejemplo de xml para facturas recibidas valido
Gracias !!!! :):):D

Sospecho que has enviado facturas recibidas a la dirección de las emitidas. Piensa que la URL del webservice es distinta.

CMB 16-03-2017 20:40:37

Cita:

Empezado por CMB (Mensaje 514412)
Sospecho que has enviado facturas recibidas a la dirección de las emitidas. Piensa que la URL del webservice es distinta.

Las recibidas han de ir a https://www7.aeat.es/wlpl/SSII-FACT/...iiFactFRV1SOAP, sino te sale el mensaje ese de "La direccion no se corresponde con el fichero de entrada."


La franja horaria es GMT +2. Ahora son las 04:19:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi