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

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

[lithium76]

Empezado por keys

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

Un Saludo.

Buenos días!

Lo sé. Y me funciona. Solo que quería preparar mi aplicación para poder añadir los campos nuevos de cara al futuro. Sé que son opcionales y creo que, por el momento, no los voy a tener que usar pero nunca se sabe cuándo surgirá la necesidad y quería tenerlo listo ya. Y era, por si alguien ya había conseguido generar el pas con la clase con los campos nuevos para poder trabajar con ellos porque el importador me da problemas hago como lo haga.

Gracias por tu respuesta, en todo caso.

[pablog2k]

Empezado por lithium76

Buenos días!

Lo sé. Y me funciona. Solo que quería preparar mi aplicación para poder añadir los campos nuevos de cara al futuro. Sé que son opcionales y creo que, por el momento, no los voy a tener que usar pero nunca se sabe cuándo surgirá la necesidad y quería tenerlo listo ya. Y era, por si alguien ya había conseguido generar el pas con la clase con los campos nuevos para poder trabajar con ellos porque el importador me da problemas hago como lo haga.

Gracias por tu respuesta, en todo caso.

Buenos días, yo lo que hice fue descargarme el .pas de la versión 1.1 bis,y compararla (con un comparador de archivos, en mi caso el Araxis Merge). Una vez detectados los cambios (son pocos, unos pocos campos extra), puse los cambios de la versión nueva en la anterior. Con eso me compiló sin problemas y pude hacer las pruebas rellenando esos campos.
Igual con esto se te resuelve

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

[lithium76]

Buenos días!

Es exactamente eso! Muy agradecido y siento haberme expresado tan torpemente

Saludos y felices fiestas!

Empezado por keys

Hola ¿es esto lo que quieres?.

[didou]

Buenas tardes, estoy intentando enviar una factura con export. y parte no sujeta y me sale el error indicado en el título, el xml que genero es el que adjunto y creo que si esta informado el TipoDesglose.

Código PHP:

<TipoDesglose xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
  <DesgloseFactura>
    <NoSujeta>
           <ImportePorArticulos7_14_Otros>16.49</ImportePorArticulos7_14_Otros>
        </NoSujeta>
    </DesgloseFactura>
    <DesgloseTipoOperacion>
        <Entrega>
          <Sujeta>
            <Exenta>
              <DetalleExenta>
                <CausaExencion>E2</CausaExencion>
                <BaseImponible>571.64</BaseImponible>
              </DetalleExenta>
            </Exenta>
          </Sujeta>
        </Entrega>
    </DesgloseTipoOperacion>
</TipoDesglose> 


Alguien le ha ocurrido esto y me puede ayudar? muchas gracias de antemano.

[nincillo]

Buenos días.
¿Alguien sería tan amable de poner un xml de ejemplo de este tipo de facturas?

No se me había dado el caso hasta ahora de necesitar generarlas.

Gracias.

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

[lithium76]

Buenos días!

El wsdl era este

https://www.agenciatributaria.es/sta...Recibidas.wsdl

Keys ya me lo ha enviado. Creo que puede ser algún un problema de conexión bloqueada por el firewall. ¿Podría ser?

El mensaje de error es este:

Error sending data: (12029) A connection with the server could not be established

Y no llega a importar nada.

Por el momento, tengo el problema resuelto.

Gracias por el interés y enhorabuena por tu excelente blog

Saludos y felices fiestas

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

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

[pablog2k]

Hola a todos. Sabéis si el nuevo libro de registro (bienes de consigna), tiene algún tipo de límite a la hora de presentar los registros? Me refiero a los famosos 4 días para que no te multen...
he llamado a hacienda y cada uno me dice una cosa, uno me ha dicho que si, otro que no,y otro que no me contesta por teléfono , que lo mire en el asistente virtual... en fin un cachondeo.
Según veo en la calculadora de plazos, solo afectaría a facturas emitidas y recibidas ( ni bien de inversión, ni det. oper. intracom, ni bienes consigna... vamos ningún otro libro).
Gracias

[[newtron]]

Hola a tod@s.


Aunque se ha dicho por aquí en varias ocasiones que los mismos ficheros que se envían ahora servirán a partir del día 1 prefiero hacer los cambios para que en el futuro no se me amontone la cosa. He empezado con las facturas emitidas y ahora me da error al informar del recargo de equivalencia de las facturas:

Código Delphi [-]
IVAS[z]:=DetalleIVAEmitidaPrestacionType.create;
IVAS[z].TipoRecargoEquivalencia:=....

el 'TipoRecargoEquivalencia' ya no existe. ¿Alguien me puede decir qué tengo que cambiar en este caso?


Gracias y un saludo

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