SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[antoine0]

Empezado por elguille

... mi cliente tiene windows 7 ...

Buenas:

Con Windows 7 la primera cosa que se tiene que hacer es comprobar si el cliente ha actualizado correctamente su sistema para usar TLS 1.2.
Es un proceso un poco complicado (hay que actualizar a la última; luego registrar la posibilidad de usar TLS 1.2 ya que por defecto este sistema no sabe siquiera que se puede usar. Luego eventualmente actualizar dotNet, y van por separado 3.5 y 4.x. Por supuesto todo esto como Administrador.)

Lo menciono porqué en el aviso de la AEAT que se ha citado, dicen que han invalido TLS 1.0 y 1.1, entonces TLS 1.2 pasa a ser requerido, y es novedad.

[Noe277]

Hola buenas,

Tengo una duda los aranceles como se encuadran en el SII.

[razorxxx]

Buenas a todos.

¿Alguien que tenga Delphi 10.3 en adelante ha conseguido solucionar el problema del método HTTPRIOBeforePost? Desde que se actualizó la función, ahora no puede conectar al WebService, dando el error "Error, Internet SSL certificate".

¿Alguna ayuda? ¿Alguien que le funcione desde la 10.3 en adelante podría publicar por aquí su método HTTPRIOBeforePost?

Gracias de antemano.

[keys]

Empezado por razorxxx

Buenas a todos.

¿Alguien que tenga Delphi 10.3 en adelante ha conseguido solucionar el problema del método HTTPRIOBeforePost? Desde que se actualizó la función, ahora no puede conectar al WebService, dando el error "Error, Internet SSL certificate".

¿Alguna ayuda? ¿Alguien que le funcione desde la 10.3 en adelante podría publicar por aquí su método HTTPRIOBeforePost?

Gracias de antemano.

No se a que te refieres, nosotros utilizamos la 10.2 update 3 (Tokio) y no tenemos ningún problema. Ese error sule dar por el TLS.

[razorxxx]

Empezado por keys

No se a que te refieres, nosotros utilizamos la 10.2 update 3 (Tokio) y no tenemos ningún problema. Ese error sule dar por el TLS.

Me refiero a que con la 10.2 me funcionaba perfectamente, y al compilarlo con la 10.3 el procedimiento HTTPRIOBeforePost cambió, y ahora da error en las peticiones al WebService.

Desconozco como solucionar este problema, y sé que le pasa a más gente. A ver si alguien con la versión Rio, Sydney o Alexandria ha conseguido hacerlo funcionar.

[razorxxx]

Dado que aún no he conseguido hacer funcionar el procedimiento OnBeforePost del HTTPRIO en Delphi Rio, estoy tratando de prescindir de ese método, y asignando (justo antes de la petición al WebService) la llamada al HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum, usando la función

function BUSCAR_CERTIFICADO(Nombre_Certificado: String): string;

que ya han mencionado en un post anterior.

Sin embargo, cuando hago

HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado(Cert.Text)

, me devuelve una cadena vacía. Según me he estado informando, esto solo sirve para cuando el certificado está en el almacén de certificados del equipo, pero no para cuando trabajamos con un fichero PFX/P12.

¿Alguien tiene alguna idea acerca de cargar un .pfx o .p12 en un objeto THTTPRIO, usando HTTPWebNode.ClientCertificate y prescindiendo de la llamada al OnBeforePost?

[nuevo1234]

Hola,

Han publicado esto. Parece que cambian las URLs del entorno de Pruebas. Aunque los servicios web que actualmente están disponibles en www7.aeat.es seguirán estando disponibles hasta el 21 de marzo.

SII: Publicación nueva versión de los ficheros WSDL de los servicios web del SII

El próximo día 21 de marzo dejará de estar disponible el acceso a realizar pruebas de los servicios publicados en los servidores www6.aeat.es y www7.aeat.es. Los actuales servidores de pruebas en Internet serán sustituidos por una nueva configuración de servidores

Por esta razón, se han cambiado los endpoint de los entornos de pruebas en los ficheros WSDL de los servicios web del SII. Los endpoint de los entornos de pruebas www7.aeat.es se cambian a prewww1.aeat.es. Los servicios web que actualmente están disponibles en www7.aeat.es seguirán estando disponibles hasta el 21 de marzo.

[razorxxx]

Empezado por razorxxx

Dado que aún no he conseguido hacer funcionar el procedimiento OnBeforePost del HTTPRIO en Delphi Rio, estoy tratando de prescindir de ese método, y asignando (justo antes de la petición al WebService) la llamada al HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum, usando la función

function BUSCAR_CERTIFICADO(Nombre_Certificado: String): string;

que ya han mencionado en un post anterior.

Sin embargo, cuando hago

HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado(Cert.Text)

, me devuelve una cadena vacía. Según me he estado informando, esto solo sirve para cuando el certificado está en el almacén de certificados del equipo, pero no para cuando trabajamos con un fichero PFX/P12.

¿Alguien tiene alguna idea acerca de cargar un .pfx o .p12 en un objeto THTTPRIO, usando HTTPWebNode.ClientCertificate y prescindiendo de la llamada al OnBeforePost?

Buenas a todos.

Hasta ahora, para cargar un certificado desde archivo antes de realizar una petición con un objeto HTTPRIO utilizaba la librería capicom.dll desde el método OnBeforePost. Pero como comenté en su día, el método había cambiado desde la versión 10.3 de Delphi, ya que el Data: Pointer lo cambiaron a Client: THTTPClient.

Pues bien, después de mucho batallar, he conseguido hacerlo funcionar y además prescindiendo de la antigua librería capicom, simplemente usando métodos nativos de la librería crypt32.dll de Windows.

Primeramente, antes de llamar al bloque "implementation" de nuestro código, poner la siguiente línea:

Código Delphi [-]
function PFXImportCertStore(var pPFX: CRYPT_DATA_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll';

Luego en el método

Código Delphi [-]
HTTPRIOHTTPWebNodeBeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient)

se pone lo siguiente:

Código Delphi [-]
const
     PKCS12_INCLUDE_EXTENDED_PROPERTIES  = $0010;
     CERT_COMPARE_HAS_PRIVATE_KEY        = 21;
     CERT_FIND_HAS_PRIVATE_KEY           = CERT_COMPARE_HAS_PRIVATE_KEY shl CERT_COMPARE_SHIFT;
var
   Almacen: HCERTSTORE;
   Certificado: PCERT_CONTEXT;
   DataBlob: CRYPT_DATA_BLOB;
   PFX: TBytes;
begin
     Almacen := nil;
     Certificado := nil;
     PFX := TFile.ReadAllBytes(Cert.Text);
     Try
        DataBlob.cbData := Length(PFX);
        DataBlob.pbData := @PFX[0];

        // Defino mi almacén con el único certificado seleccionado, en lugar del almacén con todos los certificados de Windows
        Almacen := PFXImportCertStore(DataBlob, PWideChar(Pwd.Text), PKCS12_INCLUDE_EXTENDED_PROPERTIES);
        If not Assigned(Almacen) Then
            Salida.Lines.Add('[ERROR] No se pudo importar el certificado seleccionado.')  //RaiseLastOSError;
        Else
        Begin
             Certificado := CertFindCertificateInStore(Almacen, X509_ASN_ENCODING, 0, CERT_FIND_HAS_PRIVATE_KEY, nil, nil);
             If not Assigned(Certificado) Then
                 Salida.Lines.Add('[ERROR] No se pudo encontrar el certificado digital en el contexto actual, o bien no tiene clave privada.');  //RaiseLastOSError;
        End;
     Finally
            If Assigned(Certificado) Then CertFreeCertificateContext(Certificado);
            If Assigned(Almacen) Then CertCloseStore(Almacen, 0);
     End;
end;

, sabiendo que la ruta completa al certificado .pfx o .p12 está en un campo TEdit llamado 'Cert', y su contraseña en otro TEdit llamado 'Pwd'.

No olviden asignar este método al OnBeforePost del objeto HTTPRIO que realiza la petición al webservice, de lo contrario recibirán el error Received content of invalid Content-Type setting: text/html - SOAP expects "text/xml".

Espero haber ayudado. Saludos.