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

[rci]

Hola, acabo de hacer la misma prueba con AEAT y no ocurre el error de la CuotaRecargoEquivalencia!


No tendrían que ser las mismas validaciones para todas las agencias? sino nos vamos a volver locos T_T


He enviado un mensaje a la agencia foral a ver qué me dicen.
Alguien sabe algo?


Muchas gracias!

Empezado por rci

Hola, estamos haciendo pruebas con la nueva versión 1.1bis que entra en vigor en 2021 y nos encontramos que muchas facturas son aceptadas con errores y el mensaje es:
"El campo CuotaRecargoEquivalencia tiene un valor incorrecto para los campos TipoRecargoEquivalencia y BaseImponible suministrados"


Son facturas que no tienen recargo de equivalencia y nosotros no enviábamos ningún valor para ese campo, pero ahora se queja.
En la documentación hay una fórmula para calcular ese campo pero no habla de si no hay recargo de equivalencia.

Hemos probado de poner un 0 y así ya son aceptadas correctamente, pero no todas.


Nos encontramos algunos casos que al cumplimentar el campo CuotaRecargoEquivalencia se rechazan completamente algunas facturas con el siguiente error

"Si Cuota Recargo Equivalencia está cumplimentada, el NIF de la contraparte debe estar identificado"

Esto nos ocurre en algunas facturas como por ejemplo resumen de simplificadas donde no se envía información de la contraparte, o en facturas interiores a clientes no españoles, donde no rellenamos el NIF de la contraparte sino que enviamos un bloque IdOtro con el país, el IdType 06 y el Identificador del cliente.



¿Como lo hacéis en estos casos?



Por cierto estamos haciendo pruebas con la agencia foral de Guipúzcoa pero imagino que las validaciones son igual para todas las agencias.



Muchas gracias por la ayuda y buen fin de semana.


Saludos

[keys]

La hacienda foral no ha empezado a trabajar en el entorno de prueba con la versión 1.1bis. Aunque en su página pone que si. Yo intente mandar los nuevos registros de bienes en consigna y me daba todo el rato error y me respondieron que no lo tenían operativo.

Un Saludo.

[rci]

Buenos días, gracias por la información. Estoy eperando respuesta de la agencia foral, a ver que dicen.
Saludos

Empezado por keys

La hacienda foral no ha empezado a trabajar en el entorno de prueba con la versión 1.1bis. Aunque en su página pone que si. Yo intente mandar los nuevos registros de bienes en consigna y me daba todo el rato error y me respondieron que no lo tenían operativo.

Un Saludo.

[rci]

Hola, ya he enviado dos correos y no me contestan.

Como habéis conseguido contactar con la agencia foral ?
He escrito a [email protected] y al no recibir respuesta también he escrito a [email protected] pero nada.


Gracias

Empezado por rci

Buenos días, gracias por la información. Estoy eperando respuesta de la agencia foral, a ver que dicen.
Saludos

[rci]

Ya me han contestado, volveré a probar si ya funciona.
Aquí su respuesta:


Buenos días,

Hemos tenido un problema técnico transitorio que ya se ha solventado.

Por favor, ¿podrían realizar de nuevo el envío?

Si siguen recibiendo algún error, por favor notifíquennoslo.

Un saludo y disculpen las molestias,

Empezado por rci

Hola, ya he enviado dos correos y no me contestan.

Como habéis conseguido contactar con la agencia foral ?
He escrito a [email protected] y al no recibir respuesta también he escrito a [email protected] pero nada.


Gracias

[didou]

Buenas tardes, me he actualizado a Delphi Sydney (10.4) y resulta que el evento HTTPRIOBeforePost ha cambiado,
antes los argumentos eran (CONST HTTPReqResp: THTTPReqResp; Data: Pointer) y ahora (const HTTPReqResp: THTTPReqResp; Client: THTTPClient)

la función InternetSetOption que se usa dentro del evento antes se le pasaba como parametros InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, nil, Sizeof(CERT_CONTEXT))
y ahora InternetSetOption(Client, INTERNET_OPTION_CLIENT_CERT_CONTEXT, nil, Sizeof(CERT_CONTEXT))
y devuelve siempre false o sea "Error, Internet SSL certificate"

Mi fuente con lo anterior a delphi 10.4 comentado:

Código Delphi [-]
procedure TGestionSII_1_1EnviarDatCli.HTTPRIOBeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);//Data: Pointer);
var
  Store : IStore;
  Certs : ICertificates;
  Cert : ICertificate2;
  CertContext : ICertContext;
  PCertContext : PCCERT_CONTEXT;
  vNombreCertificado: OleVariant;
const
  INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
begin
  vNombreCertificado:= HdParam(parSfnCertificadoNombreSII).AsString;
  Store := CoStore.Create;
  Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
  Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, vNombreCertificado, False ); { Buscar certificado por nombre }
  if Certs.Count > 0 then
  begin
    Cert := IInterface(Certs.Item[1]) as ICertificate2;
    CertContext := Cert as ICertContext;
    CertContext.Get_CertContext(Integer(PCertContext));
//    if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) then
    if not InternetSetOption(Client, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) then
      BoxMsg('Error, Internet SSL certificate');
  end else
    BoxMsg('Error, NO HAY CERTIFICADO');
end;

Alguien me puede ayudar por favor, gracias.

[lithium76]

Buenos días!

Me da un error intentando importar el WDSL de facturas recibidas de la versión 1.1 bis que entrará en funcionamiento el 1 de enero. Lo he intentado de mil manera pero no lo consigo. Alguien sería tan amable de pasarme el fichero pas que se genera si lo ha logrado?
Ya que estamos, para el resto de libros sería necesario? No veo ningún cambio en ellos así que imagino que funcionará con los que ya tengo, no?

Gracias por adelantado!

[razorxxx]

Empezado por didou

Buenas tardes, me he actualizado a Delphi Sydney (10.4) y resulta que el evento HTTPRIOBeforePost ha cambiado,
antes los argumentos eran (CONST HTTPReqResp: THTTPReqResp; Data: Pointer) y ahora (const HTTPReqResp: THTTPReqResp; Client: THTTPClient)

la función InternetSetOption que se usa dentro del evento antes se le pasaba como parametros InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, nil, Sizeof(CERT_CONTEXT))
y ahora InternetSetOption(Client, INTERNET_OPTION_CLIENT_CERT_CONTEXT, nil, Sizeof(CERT_CONTEXT))
y devuelve siempre false o sea "Error, Internet SSL certificate"

Mi fuente con lo anterior a delphi 10.4 comentado:

Código Delphi [-]
procedure TGestionSII_1_1EnviarDatCli.HTTPRIOBeforePost(const HTTPReqResp: THTTPReqResp; Client: THTTPClient);//Data: Pointer);
var
  Store : IStore;
  Certs : ICertificates;
  Cert : ICertificate2;
  CertContext : ICertContext;
  PCertContext : PCCERT_CONTEXT;
  vNombreCertificado: OleVariant;
const
  INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
begin
  vNombreCertificado:= HdParam(parSfnCertificadoNombreSII).AsString;
  Store := CoStore.Create;
  Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
  Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, vNombreCertificado, False ); { Buscar certificado por nombre }
  if Certs.Count > 0 then
  begin
    Cert := IInterface(Certs.Item[1]) as ICertificate2;
    CertContext := Cert as ICertContext;
    CertContext.Get_CertContext(Integer(PCertContext));
//    if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) then
    if not InternetSetOption(Client, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) then
      BoxMsg('Error, Internet SSL certificate');
  end else
    BoxMsg('Error, NO HAY CERTIFICADO');
end;

Alguien me puede ayudar por favor, gracias.

Buenas a todos! Me pasa lo mismo que a este señor. Al parecer, el problema viene desde Delphi Rio (10.3), con la 10.2 funcionaba. Efectivamente, el procedimiento ha cambiado y si no añades la unit System.Net.HttpClient ni siquiera te va a compilar (unit que debería añadirse sola cuando añades un objeto HTTPRio en vista diseño).

En otros foros algunos comentan la posibilidad de sustituir la WinInet por WinHTTP, y la función InternetSetOption por WinHttpSetOption:

If WinHttpSetOption(Client, WINHTTP_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) = False Then ...

Sin embargo, el problema persiste.

¿Alguien lo ha conseguido solucionar?

Gracias de antemano.