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

[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 siikontsultak@gipuzkoa.eus y al no recibir respuesta también he escrito a gipuzkoa@gipuzkoa.eus 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 siikontsultak@gipuzkoa.eus y al no recibir respuesta también he escrito a gipuzkoa@gipuzkoa.eus 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!

[keys]

Empezado por 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!

¿Pero que problema tienes?. Si intentas presentar el mismo fichero que generabas hasta ahora te tiene que funcionar.

Un Saludo.

[keys]

Empezado por 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!

Hola ¿es esto lo que quieres?.

[Neftali [Germán.Estévez]]

Empezado por lithium76

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.

¿Puedes poner el WSDL que te da error (para que lo intentemos nosotros)?
¿Y poner el error exacto que te da?

[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.