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

[nincillo]

Empezado por Francisco1973

Hola, como envio:

defWSDL:='https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactEmitidas.wsdl';
defSvc:='siiService';
defPrt:='SuministroFactEmitidasPruebas';

HTTPRIO1.WSDLLocation:=defWSDL;
HTTPRIO1.Service:=defSvc;
HTTPRIO1.Port:=defPrt;

CrearSumLRFacturasEmitidasTest(Peticion);
Resultado:=GetsiiSOAP(true,'',HTTPRIO1).SuministroLRFacturasEmitidas(Peticion);

Y el certificado: (es necesario tener registrado capicom.dll y la unidad CAPICOM_TLB

procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;Data: Pointer);
var
Store : IStore;
Certs : ICertificates;
Cert : ICertificate2;
CertContext : ICertContext;
PCertContext : PCCERT_CONTEXT;
V : OleVariant;
const
INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
begin

V:=NombreCertificado; { subject del certificado instalado: Nombre de la empresa }

Store := CoStore.Create;
Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY',CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME,V,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 InternetSetOption(Data,INTERNET_OPTION_CLIENT_CERT_CONTEXT,PCertContext,Sizeof(CERT_CONTEXT)) = False then
begin
ShowMessage( 'Internet SSL certificate. Something went wrong' );
end;
end;
end;

Siento revivir este post tan antiguo, pero estoy intentando utilizarlo el D2007 y no consigo compilarlo porque me da error en:

var
PCertContext : PCCERT_CONTEXT;

No reconoce PCCERT_CONTEXT.

Y en:

if InternetSetOption(Data,INTERNET_OPTION_CLIENT_CERT_CONTEXT,PCertContext,Sizeof(CERT_CONTEXT)) = False then
      begin
        ShowMessage( 'Internet SSL certificate. Something went wrong' );
      end;
    end;

No reconoce CERT_CONTEXT.

¿Me faltará poner algún USES o algo?

Gracias y un saludo.

[Javierus]

Yo lo uso en D2007, y tengo en el uses la unidad wcrypt2.pas, que puedes encontrar aquí:
https://github.com/delphiunderground/eid-mw-sdk-delphi

[nincillo]

Empezado por Javierus

Yo lo uso en D2007, y tengo en el uses la unidad wcrypt2.pas, que puedes encontrar aquí:
https://github.com/delphiunderground/eid-mw-sdk-delphi

Muchas gracias por tu ayuda. Ahora parece que ya no merca error en esas dos líneas, pero ahora me lo marca en:

Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME,V,False ); { Buscar certificado por nombre }

Que me dice que no que existe "Find". Solo aparecen .Item y .Count, pero no .Find.

[Javierus]

Te he creado un gist en GitHub con el CAPICOM_TLB.pas que me generó a mí al importar la DLL; ahí sí tiene el Find
Espero que te sirva

https://gist.github.com/JavierusTk/0...1096eb746b07cf

[nincillo]

Empezado por Javierus

Te he creado un gist en GitHub con el CAPICOM_TLB.pas que me generó a mí al importar la DLL; ahí sí tiene el Find
Espero que te sirva

https://gist.github.com/JavierusTk/0...1096eb746b07cf

Muchas gracias compañero!!!. Esta tiene muchas más opciones que la que tenía yo... Find, Select, Add, Remove, Clear y Save en mi CAPICOM_TLB no existían y eso que pnoer que es la versión 2.1 igual que la tuya. En fin, menos mal que me la has pasado. Muchas gracias de nuevo.

El verificar los nif de los clientes ya lo puede hacer todo desde D2007.

Ahora, si no lo he entendido mal, para poder enviar las facturas a FacturaE y en el futuro a Verifactu, solo me falta conseguir firmar las cabeceras de las peticiones SOAP antes de lanzar la petición. ¿Estoy en lo correcto?. ¿Alguien puede confirmarme que sea posible hacerlo desde D2007?

[Noe277]

Buenas,

Tengo una duda la clave de operación: 18 operaciones incluidas en Régimen de Recargo de equivalencia. ¿ Cuando se usa?

¿Si la empresa esta acogida a RE aunque la factura de ventas no este con RE se usa esa clave?

[[newtron]]

Empezado por Noe277

Buenas,

Tengo una duda la clave de operación: 18 operaciones incluidas en Régimen de Recargo de equivalencia. ¿ Cuando se usa?

¿Si la empresa esta acogida a RE aunque la factura de ventas no este con RE se usa esa clave?

Buenos días.

No sé si la empresa a la que te refieres es la que emite la factura o la que la recibe. Si estás preguntando por el SII entiendo que la empresa que está acogida a RE es la que emite la factura y la empresa que está sujeta al SII está recibiendo una factura solo con IVA. Resumiendo, imagino que la factura que hayas recibido será solo con iva por lo que no tendrás que usar esa clave.

Saludos.