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

[didou]

Empezado por PepCat

En la pagina 99 tienes la solución post #1976

Muchas gracias PepCat, funciona perfectamente.

[richihu]

Hola a todos,

He revisado todos los posts y he probado a cargar un certificado válido con CAPICOM en el OnBeforePost del HTTPRIO pero me sige dando el error, por favro si alguien se le ocurre algo...Gracias!

procedure TfrmMain.HTTPReqResp1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
FCertificatesList: TInterfaceList;
i, j: Integer;
Store: ICertificates;
Certificate: ICertificate2;

ExtProperty: IExtendedProperty;

PCertContext : PCCERT_CONTEXT;
CertContext : ICertContext;
stAux: String;

CertsUtils: TUtilities;
begin
inherited;


FCertificatesList := TInterfaceList.Create();

//CAPICOM_LOCAL_MACHINE_STORE
Store1.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); //CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY

Store := Store1.Certificates;

try
CertsUtils := TUtilities.Create(Self);

for I := 1 to Store1.Certificates.Count do
begin
Certificate := IInterface(Store.Item[i]) as ICertificate2;

Certificate.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME);
// dtcCerts.Values[i-1, 1] := Certificate.GetInfo(CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME);
// dtcCerts.Values[i-1, 2] := Certificate.ValidToDate;

stAux := '';
for j := 1 to Certificate.ExtendedProperties.Count do
begin
ExtProperty := IInterface(Certificate.ExtendedProperties.Item[j]) as IExtendedProperty;
if ExtProperty.PropID = CAPICOM_PROPID_FRIENDLY_NAME then
begin
stAux := CertsUtils.BinaryStringToByteArray(ExtProperty.Value[CAPICOM_ENCODE_BINARY]);
break;
end;
end;

stAux := Certificate.SerialNumber;

// Cargo certificado válido
if Certificate.SerialNumber = '2C2DBEE53ACFD8965809C4707F55FE28' then
begin
CertContext:= Certificate as ICertContext;
CertContext.Get_CertContext(Integer(PCertContext));

// Por aquí pasa y no devuelve error pero aún así...
if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT))= False then
ShowMessage('Error en InternetSetOption');
end;

FCertificatesList.Add(Certificate);
end;

finally
// dtcCerts.EndUpdate();
CertsUtils.Free();
end;

[PepCat]

Empezado por newtron

A eso pero el código Delphi que lo genera, si es posible.

Gracias

Mira la página 21 post #414

[[newtron]]

Empezado por PepCat

Mira la página 21 post #414

, muchas gracias.

[[newtron]]

Empezado por richihu

Hola a todos,

He revisado todos los posts y he probado a cargar un certificado válido con CAPICOM en el OnBeforePost del HTTPRIO pero me sige dando el error, por favro si alguien se le ocurre algo...Gracias!

procedure TfrmMain.HTTPReqResp1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
FCertificatesList: TInterfaceList;
i, j: Integer;
Store: ICertificates;
Certificate: ICertificate2;

ExtProperty: IExtendedProperty;

PCertContext : PCCERT_CONTEXT;
CertContext : ICertContext;
stAux: String;

CertsUtils: TUtilities;
begin
inherited;


FCertificatesList := TInterfaceList.Create();

//CAPICOM_LOCAL_MACHINE_STORE
Store1.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); //CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY

Store := Store1.Certificates;

try
CertsUtils := TUtilities.Create(Self);

for I := 1 to Store1.Certificates.Count do
begin
Certificate := IInterface(Store.Item[i]) as ICertificate2;

Certificate.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME);
// dtcCerts.Values[i-1, 1] := Certificate.GetInfo(CAPICOM_CERT_INFO_ISSUER_SIMPLE_NAME);
// dtcCerts.Values[i-1, 2] := Certificate.ValidToDate;

stAux := '';
for j := 1 to Certificate.ExtendedProperties.Count do
begin
ExtProperty := IInterface(Certificate.ExtendedProperties.Item[j]) as IExtendedProperty;
if ExtProperty.PropID = CAPICOM_PROPID_FRIENDLY_NAME then
begin
stAux := CertsUtils.BinaryStringToByteArray(ExtProperty.Value[CAPICOM_ENCODE_BINARY]);
break;
end;
end;

stAux := Certificate.SerialNumber;

// Cargo certificado válido
if Certificate.SerialNumber = '2C2DBEE53ACFD8965809C4707F55FE28' then
begin
CertContext:= Certificate as ICertContext;
CertContext.Get_CertContext(Integer(PCertContext));

// Por aquí pasa y no devuelve error pero aún así...
if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT))= False then
ShowMessage('Error en InternetSetOption');
end;

FCertificatesList.Add(Certificate);
end;

finally
// dtcCerts.EndUpdate();
CertsUtils.Free();
end;

Mira en el post que hay justo anterior al tuyo.

[richihu]

Hola, lo primero muchísimas gracias por la respuesta. No obstante, me tiene bastante mosqueado, he probado a cambiar números de serie y el error que devuelve es que hace falta un certificado válido, es decir, el context y el número de serie se informan bien (depurando está todo correctamente informado) pero por lo que sea sigue dando el mismo error, los certificados con los que he probado son de la FNMT y están operativos porque los uso en real, son los que uso para firma de Facturae...Estoy usando XE7 con Windows 8.1 ¿alguna idea?

Gracias de antemano.

[richihu]

Empezado por newtron

Mira en el post que hay justo anterior al tuyo.

Hola, lo primero muchísimas gracias por la respuesta. No obstante, me tiene bastante mosqueado, he probado a cambiar números de serie y el error que devuelve es que hace falta un certificado válido, es decir, el context y el número de serie se informan bien (depurando está todo correctamente informado) pero por lo que sea sigue dando el mismo error, los certificados con los que he probado son de la FNMT y están operativos porque los uso en real, son los que uso para firma de Facturae...Estoy usando XE7 con Windows 8.1 ¿alguna idea?

Gracias de antemano.

[richihu]

Empezado por seccion_31

Me han contestado de la aeat, diciéndome que "se esta tramitando..."

Pero el encabezado de respuesta era sospechosamente este:

"Re: [Posible SPAM] Error al enviar 13 o mas facturas"

uuummm....

lo han dividido para dividir por usos... igual piensan que es mejor por si alguien no usa recibidas, y si emitidas....

Si usas la llamada:

result := GetsiiSOAP(true,'',HTTPRIO1).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);

necesitas indicar en el httipro el WSDLLOCATION

Si usas:

result := GetsiiSOAP.SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);

Te sirve sin ningún httipro, es mas: ! lo puedes quitar del form !

Pero cuidado, con el nuevo interface 0.5 el puerto que tienen puesto es el real, fijaros en la función GetsiiSOAP

Saludos !

Hola a todos,

He leído y releído los posts, uso un HTTPRIO con el certificado precargado, estoy haciendo pruebas, me da siempre el mismo error, "Error en el soporte del canal seguro" ¿alguna idea? ¿puede ser un problema de los servidores de la AEAT?

Gracias

[CMB]

El portal interactivo de producción ya está abierto en

https://www.agenciatributaria.gob.es...ini/G417.shtml

Saludos,

[[newtron]]

Empezado por CMB

El portal interactivo de producción ya está abierto en

https://www.agenciatributaria.gob.es...ini/G417.shtml

Saludos,

Gracias.

Llegó el día. A ver si salimos por la puerta grande o por el chiquero.

[RubenMon]

Empezado por richihu

Hola a todos,

He leído y releído los posts, uso un HTTPRIO con el certificado precargado, estoy haciendo pruebas, me da siempre el mismo error, "Error en el soporte del canal seguro" ¿alguna idea? ¿puede ser un problema de los servidores de la AEAT?

Gracias

Hola.

Mira en la pagina 56 la entrada 1115. Yo tuve el mismo problema y era culpa de la configuración del IE. En otros equipos el programa funciona correctamente.

Un saludo.
Rubén.

[manelb]

Alguien ha visto esto???

https://www2.agenciatributaria.gob.e...dos%20al%20SII

A mi no me funciona.
He probado con diferentes navegadores i sistemas operativos i el botón "Iniciar Asistente" no hace nada.

[xamminf]

Empezado por newtron

Gracias.

Llegó el día. A ver si salimos por la puerta grande o por el chiquero.

Me conformo con aplausos y vuelta al ruedo.
Para los hispanimalistas, por supuesto, Newtron and me estamos hablando de carreras de motos.

[[newtron]]

Empezado por xamminf

Me conformo con aplausos y vuelta al ruedo.
Para los hispanimalistas, por supuesto, Newtron and me estamos hablando de carreras de motos.

Bien visto compañero.

[PASPAS]

https://www2.agenciatributaria.gob.e...lazos?OpenPage

Nueva opcion para aplicar al software implementado

Saludos

[[newtron]]

Pues empezamos bien.... a mi no me funciona el entorno de pruebas ni para enviar ni para consultar, ¿alguien ha probado hoy?

Saludos

[mrobles]

Empezado por newtron

Pues empezamos bien.... a mi no me funciona el entorno de pruebas ni para enviar ni para consultar, ¿alguien ha probado hoy?

Saludos

Yo llame y me dijeron que tienen errores en produccion, que si sigue asi que en lugar de llamar que mande una solicitud por el formulario

[jodaws]

A mi tampoco me funciona, me da error: Bad Gateway (502) - 'https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP'

[pesadillator]

Hola a todos, tengo un grave problema, desarrolle la aplicación en embarcadero XE2 en un ordenador con windows 7 32 bits, y funciona perfectamente, pero al instalarlo en el ordenador del cliente que tiene windows 10 64 bits, cuando voy a conectar me da el siguiente error:

ClassFactory no puede suministrar a la clase solicitada, ClassId:
{78E61E52-0E57-4456-A2F2-517492BCBF8F}

Necesito ayuda urgente, gracias de antemano.

[joefrommalaka]

Empezado por pesadillator

Hola a todos, tengo un grave problema, desarrolle la aplicación en embarcadero XE2 en un ordenador con windows 7 32 bits, y funciona perfectamente, pero al instalarlo en el ordenador del cliente que tiene windows 10 64 bits, cuando voy a conectar me da el siguiente error:

ClassFactory no puede suministrar a la clase solicitada, ClassId:
{78E61E52-0E57-4456-A2F2-517492BCBF8F}

Necesito ayuda urgente, gracias de antemano.

Ese error te indica que la clase capicom.dll no la tienes registrada correctamente en el ordenador del cliente. Debes copiar capicom.dll en carpeta de sistema de 32 bits de windows (system32 para 32 bits y syswow64 para 64 bits) y ejecutar el comando "regsvr32 capicom.dll" como administrador desde linea de comandos.