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

[angelhorse]

Buenas a todos.
Yo ando liado también con este tema. Es la primera vez que toco los Web Services y puedo estar equivocado en lo que diré a continuación:

El proyecto lo estoy realizando en C#, que por lo que he leído hay gente que también lo está haciendo con este lenguaje.
Pues bien, yo estoy utilizando HttpWebRequest para lanzar una petición al servidor.
De momento he conseguido, con el certificado que me aparezca el mensaje de "Esta URL corresponde a un Web Service".
El problema aparece cuando intento enviar el XML con la información y me sale: Error 1304: "No se permite contenido en el prólogo" -> XML no válido o mal formado

[Francisco1973]

Hola, os pongo el ejemplo que estoy enviando:

Los cifs los he cambiado, han de ser reales. El certificado que uso es PFX.

procedure TForm1.CrearSumLRFacturasEmitidasTest(Var ASumLRFacturasEmitidas:SuministroLRFacturasEmitidas);
Var
ARegLRFacturasEmitidas:Array_Of_LRfacturasEmitidasType;
AFacturasAgrupadas:FacturasAgrupadas; { Array array of IDFacturaAgrupada; }
AFacturasRectificadas:FacturasRectificadas; { Array array of IDFacturaRectificada; }
ADatosInmuebleatosInmueble; {Array array of DetalleInmueble; }
ADesgloseIvaDF,ADesgloseIvaDOPS,ADesgloseIvaDOENesgloseIVA; {Array array of DetalleIVA2; }
I:Integer;
Begin

{$REGION 'CABECERA'}
ASumLRFacturasEmitidas.Cabecera := CabeceraSii.Create;
ASumLRFacturasEmitidas.Cabecera.IDVersionSii:=VersionSiiType(0);
ASumLRFacturasEmitidas.Cabecera.Titular:=PersonaFisicaJuridicaESType.Create;
ASumLRFacturasEmitidas.Cabecera.Titular.NombreRazon:=xxxxxxxx, S.L';
//ASumLRFacturasEmitidas.Cabecera.Titular.NIFRepresentante:=''; { OPCIONAL }
ASumLRFacturasEmitidas.Cabecera.Titular.NIF:='B04xxxxxxx';
ASumLRFacturasEmitidas.Cabecera.TipoComunicacion:=ClaveTipoComunicacionType(0);
{$ENDREGION}




{ BUCLE FACTURAS }
SetLength(ARegLRFacturasEmitidas, 101);
for I := 0 to 100 do
Begin
ARegLRFacturasEmitidas[i]:=LRFacturasEmitidasType.Create;

{$REGION 'PERIODOIMPOSITIVO'}
ARegLRFacturasEmitidas[i].PeriodoImpositivo:=PeriodoImpositivo.Create;
ARegLRFacturasEmitidas[i].PeriodoImpositivo.Ejercicio:='2016';
ARegLRFacturasEmitidas[i].PeriodoImpositivo.Periodo:=TipoPeriodoType(11);
{$ENDREGION}

{$REGION 'IDFACTURA'}
ARegLRFacturasEmitidas[i].IDFactura:=IDFacturaExpedidaType.Create;
With ARegLRFacturasEmitidas[i].IDFactura do
begin
IDEmisorFactura:=IDEmisorFactura3.Create;
IDEmisorFactura.NIF:='B04xxxxxxx';
NumSerieFacturaEmisor:='16-'+IntToStr(0+I); { Número de la factura del emisor. En caso de asientos resúmenes número inicial de factura }
//NumSerieFacturaEmisorResumenFin:='16-1251'; { OPCIONAL. Campo específico para asientos resumen. Se corresponde con el número y serie de la última factura }
FechaExpedicionFacturaEmisor:='10-12-2016';
end;
{$ENDREGION}

{$REGION 'FACTURAEXPEDIDA'}
ARegLRFacturasEmitidas[i].FacturaExpedida:=FacturaExpedidaType.Create;
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoFactura:=ClaveTipoFacturaType(0); { Clave del tipo de factura }

// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoRectificativa:=ClaveTipoRectificativaType(0); { OPCIONAL. Clave del tipo de factura }

{$REGION 'FACTURASAGRUPADAS OPCIONAL'}
// SetLength(AFacturasAgrupadas, 1);
// AFacturasAgrupadas[i]:=IDFacturaARType.Create;
// AFacturasAgrupadas[i].NumSerieFacturaEmisor:='FV-500';
// AFacturasAgrupadas[i].FechaExpedicionFacturaEmisor:='15-12-2016';
//
// ARegLRFacturasEmitidas[i].FacturaExpedida.FacturasAgrupadas:=AFacturasAgrupadas;
{$ENDREGION}

{$REGION 'FACTURASRECTIFICADAS OPCIONAL'}
// SetLength(AFacturasRectificadas, 1);
// AFacturasRectificadas[i]:=IDFacturaARType.Create;
// AFacturasRectificadas[i].NumSerieFacturaEmisor:='FV-500';
// AFacturasRectificadas[i].FechaExpedicionFacturaEmisor:='15-12-2016';
//
// ARegLRFacturasEmitidas[i].FacturaExpedida.FacturasRectificadas:=AFacturasRectificadas;
{$ENDREGION}

{$REGION 'IMPORTERECTIFICACION OPCIONAL'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteRectificacion:=DesgloseRectificacionType.Create;
// ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteRectificacion.BaseRectificada:='100.10'; {Base imponible de las facturas/factura sustituida }
// ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteRectificacion.CuotaRectificada:='10.10'; { Cuota repercutida o soportada de las facturas/factura sustituida }
// ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteRectificacion.CuotaRecargoRectificado:='2.00'; { OPCIONAL.Cuota recargo de equivalencia de las facturas/factura sustituida }
{$ENDREGION}

{$REGION 'FECHAOPERACION OPCIONAL'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.FechaOperacion:='05-12-2016'; { OPCIONAL. Fecha en la que se ha realizado la operación siempre que sea diferente a la fecha de expedición }
{$ENDREGION}

{$REGION 'CLAVE REGIMEN ESPECIAL O TRANSCENDENCIA'}
ARegLRFacturasEmitidas[i].FacturaExpedida.ClaveRegimenEspecialOTrascendencia:=IdOperacionesTrascendenciaTributariaType(0); { Clave que identificará el tipo de operación o el régimen especial con transcendencia tributaria }
{$ENDREGION}

{$REGION 'IMPORTETOTAL'}
ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteTotal:='2420.00'; { OPCIONAL ??. Importe total de la factura }
{$ENDREGION}

{$REGION 'BASE IMPONIBLE A COSTE OPCIONAL'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.BaseImponibleACoste:='1210.00'; { OPCIONAL. Para grupos de iva }
{$ENDREGION}

{$REGION 'DESCRIPCION OPERACION'}
ARegLRFacturasEmitidas[i].FacturaExpedida.DescripcionOperacion:='TRANSPORTE'; { Descripción del objeto de la factura }
{$ENDREGION}

{$REGION 'DATOS INMUEBLE OPCIONAL'}
// SetLength(ADatosInmueble, 1);
// ADatosInmueble[i]:=DatosInmuebleType.Create;
// ADatosInmueble[i].SituacionInmueble:=SituacionInmuebleType(0); { Identificador que especifica la situación del inmueble }
// ADatosInmueble[i].ReferenciaCatastral:='XXX123'; { Referencia catastral del inmueble }
//
// ARegLRFacturasEmitidas[i].FacturaExpedida.DatosInmueble:=ADatosInmueble;
{$ENDREGION}

{$REGION 'IMPORTE TRANSMISION SUJETO A IVA OPCIONAL'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.ImporteTransmisionSujetoAIva:='200.10'; { OPCIONAL. Importe }
{$ENDREGION}

{$REGION 'EMITIDA POR TERCEROS OPCIONAL'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.EmitidaPorTerceros:=EmitidaPorTercerosType(0); { OPCIONAL. Identificador que si aparece con la etiqueta S indica que la factura ha sido emitida por un tercero. }
{$ENDREGION}

{$REGION 'CONTRAPARTE'}
ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte:=PersonaFisicaJuridicaType.Create; { OPCIONAL ?? }
ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.NombreRazon:='cliente, S.L'; { Nombre-razón social de la contraparte de la operación(cliente) de facturas expedidas }
// ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.NIFRepresentante:='1111'; { OPCIONAL. NIF del representante de la contraparte de la operación }
ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.NIF:='B04xxxxx'; { Identificador del NIF contraparte de la operación (cliente) de facturas expedidas }
// ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.IDOtro:=IDOtroType.Create;
// ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.IDOtro.CodigoPais:=CountryType2(0); { OPCIONAL. Código del país asociado contraparte de la operación (cliente) de facturas expedidas }
// ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.IDOtro.IDType:=PersonaFisicaJuridicaIDTypeType(0); { Clave para establecer el tipo de identificación en el pais de residencia }
// ARegLRFacturasEmitidas[i].FacturaExpedida.Contraparte.IDOtro.ID:='B04285870'; { Número de identificación en el país de residencia }
{$ENDREGION}

{$REGION 'TIPO DESGLOSE'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose:=TipoDesglose.Create;

{$REGION 'DESGLOSE FACTURA'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura:=TipoSinDesgloseType.Create;

{$REGION 'SUJETA'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta:=SujetaType.Create;
{$REGION 'EXENTA'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.Exenta:=Exenta.Create;
{$REGION 'CAUSAEXENCION'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.Exenta.CausaExencion:=CausaExencionType(0);{ OPCIONAL. Campo que especifica la causa de la exención en los supuestos que aplique }
{$ENDREGION}
{$REGION 'BASE IMPONIBLE'}
ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.Exenta.BaseImponible:='2420.00'; { Importe en euros correspondiente a la parte Sujeta / Exenta }
{$ENDREGION}
{$ENDREGION}
{$REGION 'NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.NoExenta:=NoExenta.Create;
// {$REGION 'TIPO NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.NoExenta.TipoNoExenta:=TipoOperacionSujetaNoExe ntaType(0); { Tipo de operación sujeta y no exenta para la diferenciación de inversión de sujeto pasivo }
// {$ENDREGION}
// {$REGION 'DESGLOSE IVA'}
// SetLength(ADesgloseIvaDF, 1);
// ADesgloseIvaDF[i]:=DetalleIVA2.Create;
// ADesgloseIvaDF[i].TipoImpositivo:='21.0'; { Porcentaje aplicado sobre la Base Imponible para calcular la cuota }
// ADesgloseIvaDF[i].BaseImponible:='1000.0'; { Magnitud dineraria sobre la cual se aplica un detertminado tipo impositivo}
// ADesgloseIvaDF[i].CuotaRepercutida:='210.0'; { Cuota resultante de aplicar a la base imponible un determinado tipo impositivo}
// ADesgloseIvaDF[i].TipoRecargoEquivalencia:='0.0'; { OPCIONAL. Porcentaje asociado en función del tipo de IVA}
// ADesgloseIvaDF[i].CuotaRecargoEquivalencia:='0.0'; { OPCIONAL. Cuota resultante de aplicar a la base imponible el tipo de recargo de equivalencia}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.NoExenta.DesgloseIva:=ADesgloseIvaDF;
{$ENDREGION}
{$ENDREGION}
{$ENDREGION}

{$REGION 'NO SUJETA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.NoSujeta:=NoSujetaType.Create;
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.NoSujeta.ImportePorArticulos7_14_Otros:='100'; { Importe en euros si la sujeción es por el art. 7.14, otros }
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseFactura.NoSujeta.ImporteTAIReglasLocalizacion:='100'; { Importe en euros si la sujeción es por operaciones no sujetas en el TAI por reglas de localización }
{$ENDREGION}

{$ENDREGION}

{$REGION 'DESGLOSE TIPO OPERACION'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:=TipoConDesgloseType.Create;
//
// {$REGION 'PRESTACION SERVICIOS'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios:=TipoSinDesglosePrestacionTy pe.Create;
//
// {$REGION 'SUJETA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta:=SujetaType.Create;
// {$REGION 'EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.Exenta:=Exenta.Create ;
// {$REGION 'CAUSAEXENCION'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.Exenta.CausaExencion: =CausaExencionType(0);{ OPCIONAL. Campo que especifica la causa de la exención en los supuestos que aplique }
// {$ENDREGION}
// {$REGION 'BASE IMPONIBLE'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.Exenta.BaseImponible: ='300.50'; { Importe en euros correspondiente a la parte Sujeta / Exenta }
// {$ENDREGION}
// {$ENDREGION}
// {$REGION 'NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.NoExenta:=NoExenta.Cr eate;
// {$REGION 'TIPO NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.NoExenta.TipoNoExenta :=TipoOperacionSujetaNoExentaType(0); { Tipo de operación sujeta y no exenta para la diferenciación de inversión de sujeto pasivo }
// {$ENDREGION}
// {$REGION 'DESGLOSE IVA'}
// SetLength(ADesgloseIvaDOPS, 1);
// ADesgloseIvaDOPS[i]:=DetalleIVA2.Create;
// ADesgloseIvaDOPS[i].TipoImpositivo:='21.0'; { Porcentaje aplicado sobre la Base Imponible para calcular la cuota }
// ADesgloseIvaDOPS[i].BaseImponible:='1000.0'; { Magnitud dineraria sobre la cual se aplica un detertminado tipo impositivo}
// ADesgloseIvaDOPS[i].CuotaRepercutida:='210.0'; { Cuota resultante de aplicar a la base imponible un determinado tipo impositivo}
// ADesgloseIvaDOPS[i].TipoRecargoEquivalencia:='0.0'; { OPCIONAL. Porcentaje asociado en función del tipo de IVA}
// ADesgloseIvaDOPS[i].CuotaRecargoEquivalencia:='0.0'; { OPCIONAL. Cuota resultante de aplicar a la base imponible el tipo de recargo de equivalencia}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.NoExenta.DesgloseIva: =ADesgloseIvaDOPS;
// {$ENDREGION}
// {$ENDREGION}
// {$ENDREGION}
//
// {$REGION 'NO SUJETA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.NoSujeta:=NoSujetaType.Creat e;
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.NoSujeta.ImportePorArticulos 7_14_Otros:='100'; { Importe en euros si la sujeción es por el art. 7.14, otros }
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.NoSujeta.ImporteTAIReglasLoc alizacion:='100'; { Importe en euros si la sujeción es por operaciones no sujetas en el TAI por reglas de localización }
// {$ENDREGION}
// {$ENDREGION}
//
// {$REGION 'ENTREGA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega:=TipoSinDesgloseType.Create;
//
// {$REGION 'SUJETA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta:=SujetaType.Create;
// {$REGION 'EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta:=Exenta.Create;
// {$REGION 'CAUSAEXENCION'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta.CausaExencion:=CausaExenci onType(0);{ OPCIONAL. Campo que especifica la causa de la exención en los supuestos que aplique }
// {$ENDREGION}
// {$REGION 'BASE IMPONIBLE'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta.BaseImponible:='300.50'; { Importe en euros correspondiente a la parte Sujeta / Exenta }
// {$ENDREGION}
// {$ENDREGION}
// {$REGION 'NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta:=NoExenta.Create;
// {$REGION 'TIPO NO EXENTA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.TipoNoExenta:=TipoOperac ionSujetaNoExentaType(0); { Tipo de operación sujeta y no exenta para la diferenciación de inversión de sujeto pasivo }
// {$ENDREGION}
// {$REGION 'DESGLOSE IVA'}
// SetLength(ADesgloseIvaDOEN, 1);
// ADesgloseIvaDOEN[i]:=DetalleIVA2.Create;
// ADesgloseIvaDOEN[i].TipoImpositivo:='21.0'; { Porcentaje aplicado sobre la Base Imponible para calcular la cuota }
// ADesgloseIvaDOEN[i].BaseImponible:='1000.0'; { Magnitud dineraria sobre la cual se aplica un detertminado tipo impositivo}
// ADesgloseIvaDOEN[i].CuotaRepercutida:='210.0'; { Cuota resultante de aplicar a la base imponible un determinado tipo impositivo}
// ADesgloseIvaDOEN[i].TipoRecargoEquivalencia:='0.0'; { OPCIONAL. Porcentaje asociado en función del tipo de IVA}
// ADesgloseIvaDOEN[i].CuotaRecargoEquivalencia:='0.0'; { OPCIONAL. Cuota resultante de aplicar a la base imponible el tipo de recargo de equivalencia}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.DesgloseIva:=ADesgloseIv aDOEN;
// {$ENDREGION}
// {$ENDREGION}
// {$ENDREGION}
//
// {$REGION 'NO SUJETA'}
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.NoSujeta:=NoSujetaType.Create;
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.NoSujeta.ImportePorArticulos7_14_Otros:= '100'; { Importe en euros si la sujeción es por el art. 7.14, otros }
// ARegLRFacturasEmitidas[i].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.NoSujeta.ImporteTAIReglasLocalizacion:=' 100'; { Importe en euros si la sujeción es por operaciones no sujetas en el TAI por reglas de localización }
// {$ENDREGION}
//
//
// {$ENDREGION}
//
// {$ENDREGION}
//
//
//
//
{$ENDREGION}








ASumLRFacturasEmitidas.RegistroLRFacturasEmitidas:=ARegLRFacturasEmitidas;
{$ENDREGION}

End;
End;

[CMB]

Empezado por angelhorse

Buenas a todos.
Yo ando liado también con este tema. Es la primera vez que toco los Web Services y puedo estar equivocado en lo que diré a continuación:
El proyecto lo estoy realizando en C#, que por lo que he leído hay gente que también lo está haciendo con este lenguaje.
Pues bien, yo estoy utilizando HttpWebRequest para lanzar una petición al servidor.
De momento he conseguido, con el certificado que me aparezca el mensaje de "Esta URL corresponde a un Web Service".
El problema aparece cuando intento enviar el XML con la información y me sale: Error 1304: "No se permite contenido en el prólogo" -> XML no válido o mal formado

Repasa cuidadosamente la estructura de tu XML, especialmente las primeras líneas. Algo está mal. Ese mensaje sale cuando envías un fichero con defectos de formato. En casos extremos, si mandas un XML con un contenido absurdo, por ejemplo, "dummy" y nada más, es justamente esa la respuesta que te dan.

[keys]

Francisco1973 lo primero gracias. Justo lo que necesitamos es la forma de enviar no la de construir el xml.

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

[seccion_31]

gracias Francisco1973

ese código funciona perfecto.

saludos !

[keys]

Podeis subir un ejemplo completo en un proyecto delphi.

Gracias.

[seccion_31]

keys ...

simplemente añade este evento en tu objeto(S) thttprio, y en V:= coloca el nombre de tu certificado.
descarga y mira el adjunto que coloco y listo.

No tienes si quiera que quitar el código anterior para gestionar el certificado.

Saludos !

y por fa, siento ser pesado si alguien tiene algún ejemplo de facturas recibidas y emitidas de sujeto pasivo que lo postee. (lo que yo llamo la factura recibida, y su autofactura).

procedure TfEmitidas.emitidasHTTPWebNode1BeforePost(
  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:='  ***  EL NOMBRE DE TU CERTIFICADO ***';

     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;

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

[angelhorse]

Empezado por CMB

Repasa cuidadosamente la estructura de tu XML, especialmente las primeras líneas. Algo está mal. Ese mensaje sale cuando envías un fichero con defectos de formato. En casos extremos, si mandas un XML con un contenido absurdo, por ejemplo, "dummy" y nada más, es justamente esa la respuesta que te dan.

Sí, de hecho he mandado el mensaje al foro y me he puesto a repasarlo y era eso. Estaba cogiendo datos que no debía y de ahí el error. Ahora ya solamente salen errores típicos que anuncia Hacienda.

Gracias!

[jlegido]

Hola angelhorse,

Yo tambien estoy haciendo este tema en VB.net (muy similar a c#), pero no consigo crear bien el archivo XML
Parto de la base de que el archivo XML a generar debe seguir el modelo cuyo ejemplo hay en SII_Descripcion_ServicioWeb_v0.5_es_es.pdf en apartado 8.1.1.1.Ejemplo mensaje de XML de alta.
Yo siguiendo las directrices de los compañeros de Delphi he adaptado su codigo (usando el ejemplo de seccion_31 que colgo WebServices AEAT Berlin_3.rar.
Lo hago usando este codigo (solo pongo parte)
Dim i As Long
Dim ASuministroLRFacturasEmitidas As SuministroLRFacturasEmitidas
Dim ARegistroLRFacturasEmitidas() As LRfacturasEmitidasType
'===========================================================================
'generacion info factura/s emitidas----------------------------------------------------------------
ASuministroLRFacturasEmitidas = New SuministroLRFacturasEmitidas()
ASuministroLRFacturasEmitidas.Cabecera = New CabeceraSii()

'DATOS Cabecera--------------------------------------------------------------------------
ASuministroLRFacturasEmitidas.Cabecera.IDVersionSii = ClienteSII1.VersionSiiType.Item05 '0.5 version actual del SII
ASuministroLRFacturasEmitidas.Cabecera.Titular = New PersonaFisicaJuridicaESType()
'Nombre del presentador
ASuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = "Empresa XXX"
'el NIF del presentador (DEBE COINCIDIR CON EL CERTIFICADO SELECCIONADO)
ASuministroLRFacturasEmitidas.Cabecera.Titular.NIF = "A84532501"
'Tipo de comunicacion: ' A0 - ALTA ' A1- MODIFICACION ' A4- MODIFICACION REGIMEN VIAJEROS
ASuministroLRFacturasEmitidas.Cabecera.TipoComunicacion = ClaveTipoComunicacionType.A0
Etc. etc.
El problema es que no encuentro la forma de agregar la cabecera:
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope .....> <soapenv:Header/>
Ademas en las etiquetas no hay forma de ponerle el namespace sii o siiLR
Que es imprescindible.

La pregunta es por tanto ¿Estoy usando el metodo adecuado y hay pasos que desconozco ¿ o deberia generear el XML manualmente a base de ir concatenado trozos de cadena y despues guardarlo como archivo?

¿Cómo lo has hecho tu?
Gracias de antemano por cualquier info que pueda dar luz al tema

[batuzail]

Hola,
Me estreno en el foro, yo estoy desarrollando con VB/C#

Os pego como lo hago yo para subir facturas emitidas, esta todo de prueba:
Tengo un bucle For para simular la generación varias facturas, me conecto sin problema y recibo resultado de cada uno de los registros.


Dim MensajeError As String = ""
Dim MensajeAcierto As String = ""
Dim sFactura As String = ""
Dim sRutaCert As String = ""
' Dim Mails As New LNclsMail
Dim decodedBytes As Byte()
decodedBytes = Convert.FromBase64String(My.Settings.ClaveCertificado)

Dim sClaveCert As String
sClaveCert = Encoding.UTF8.GetString(decodedBytes)

'Obtener certificado desde fichero p12
sRutaCert = System.AppDomain.CurrentDomain.BaseDirectory() & My.Settings.NombreCertificado
cert = New System.Security.Cryptography.X509Certificates.X509Certificate2(sRutaCert, sClaveCert)

'Se llama a la clase siiService, creada a partir del WS y cambiando el inherits por : Microsoft.Web.Services3.WebServicesClientProtocol
Dim webserviceProxy As New siiFacturasEmitidas
webserviceProxy.ClientCertificates.Add(cert)
Dim signatureToken As X509SecurityToken = GetSecurityToken()
Dim requestContext As SoapContext = webserviceProxy.RequestSoapContext

requestContext.Security.Tokens.Add(signatureToken)
Dim sig As New MessageSignature(signatureToken)
requestContext.Security.Timestamp.TtlInSeconds = 60
requestContext.Security.Elements.Add(sig)
Dim testC As New SuministroLRFacturasEmitidas
Dim cab As New CabeceraSii
Dim fac As New LRfacturasEmitidasType
Dim resul As RespuestaLRFEmitidasType
Dim perso As New PersonaFisicaJuridicaESType


perso.NIF = "XXXXXXXXX"
perso.NombreRazon = "Empresa de pruebas"
cab.Titular = perso

cab.TipoComunicacion = "0"

testC.Cabecera = cab

For i = 20 To 30
Dim fras As New LRfacturasEmitidasType
Dim perio As New RegistroSiiPeriodoImpositivo
perio.Ejercicio = 2015
perio.Periodo = "01"
fras.PeriodoImpositivo = perio

Dim idfra As New IDFacturaExpedidaType
Dim empresa As New IDFacturaExpedidaTypeIDEmisorFactura

Dim cver As New VersionSiiType

cab.IDVersionSii = cver.Item05

empresa.NIF = "XXXXXXXXXXX"
idfra.IDEmisorFactura = empresa
idfra.NumSerieFacturaEmisor = i + 10
idfra.FechaExpedicionFacturaEmisor = "15-01-2015"
fras.IDFactura = idfra


Dim fraexp As New FacturaExpedidaType

fraexp.TipoFactura = "1"
fraexp.ClaveRegimenEspecialOTrascendencia = "01"
fraexp.ImporteTotal = "26.70"
fraexp.DescripcionOperacion = "Compra xxxxxxxxx"

fras.FacturaExpedida = fraexp
Dim persona As New PersonaFisicaJuridicaType

persona.NombreRazon = "Empresa yyyyyyy"
persona.NIFRepresentante = "94235500B"

Dim contrap As New PersonaFisicaJuridicaType
contrap = persona


Dim sujeta As New SujetaType
Dim sujetanoexenta As New SujetaTypeNoExenta
Dim detalleiva As New DetalleIVAEmitidaType
Dim tpdesglose As New TipoSinDesgloseType
Dim desglose As New FacturaExpedidaTypeTipoDesglose

sujetanoexenta.TipoNoExenta = sujetanoexenta.TipoNoExenta.S1

ReDim sujetanoexenta.DesgloseIVA(0)
detalleiva.TipoImpositivo = "21"
detalleiva.BaseImponible = "22.07"
detalleiva.CuotaRepercutida = "4.63"
detalleiva.TipoRecargoEquivalencia = 0
detalleiva.CuotaRecargoEquivalencia = 0

sujetanoexenta.DesgloseIVA(0) = detalleiva
sujeta.NoExenta = sujetanoexenta
tpdesglose.Sujeta = sujeta

desglose.Item = tpdesglose

fraexp.TipoDesglose = desglose

Dim cfra As New LRConsultaEmitidasType
Dim cfil As New LRFiltroEmitidasType
Dim ccla As New IDFacturaExpedidaBCType
Dim cempr As New IDFacturaExpedidaBCTypeIDEmisorFactura
Dim ccab As New CabeceraConsultaSii
Dim cper As New PersonaFisicaJuridicaUnicaESType
Dim cperio As New RegistroSiiPeriodoImpositivo
Dim cperio2 As New RegistroSiiPeriodoImpositivo

ccla.FechaExpedicionFacturaEmisor = "15-01-2015"
cempr.NIF = "XXXXXXXXX"

ccla.IDEmisorFactura = cempr

ccla.NumSerieFacturaEmisor = "1"
cfil.ClavePaginacion = ccla
cperio.Ejercicio = 2015
cperio2.Ejercicio = 2015
cperio2.Periodo = "01"
cfil.PeriodoImpositivo = cperio2
cfra.FiltroConsulta = cfil
cfra.FiltroConsulta.ClavePaginacion = ccla


ReDim Preserve testC.RegistroLRFacturasEmitidas(i)
testC.RegistroLRFacturasEmitidas(i) = fras
Next i

resul = webserviceProxy.SuministroLRFacturasEmitidas(testC)

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración


Recuerda poner los tags al código fuente, ejemplo:



Gracias

[jlegido]

Empezado por batuzail

Hola,
Me estreno en el foro, yo estoy desarrollando con VB/C#

Os pego como lo hago yo para subir facturas emitidas, esta todo de prueba:
Tengo un bucle For para simular la generación varias facturas, me conecto sin problema y recibo resultado de cada uno de los registros.


Dim MensajeError As String = ""
Dim MensajeAcierto As String = ""
Dim sFactura As String = ""
Dim sRutaCert As String = ""
' Dim Mails As New LNclsMail
Dim decodedBytes As Byte()
decodedBytes = Convert.FromBase64String(My.Settings.ClaveCertificado)

Dim sClaveCert As String
sClaveCert = Encoding.UTF8.GetString(decodedBytes)

'Obtener certificado desde fichero p12
sRutaCert = System.AppDomain.CurrentDomain.BaseDirectory() & My.Settings.NombreCertificado
cert = New System.Security.Cryptography.X509Certificates.X509Certificate2(sRutaCert, sClaveCert)

'Se llama a la clase siiService, creada a partir del WS y cambiando el inherits por : Microsoft.Web.Services3.WebServicesClientProtocol
Dim webserviceProxy As New siiFacturasEmitidas
webserviceProxy.ClientCertificates.Add(cert)
Dim signatureToken As X509SecurityToken = GetSecurityToken()
Dim requestContext As SoapContext = webserviceProxy.RequestSoapContext

requestContext.Security.Tokens.Add(signatureToken)
Dim sig As New MessageSignature(signatureToken)
requestContext.Security.Timestamp.TtlInSeconds = 60
requestContext.Security.Elements.Add(sig)
Dim testC As New SuministroLRFacturasEmitidas
Dim cab As New CabeceraSii
Dim fac As New LRfacturasEmitidasType
Dim resul As RespuestaLRFEmitidasType
Dim perso As New PersonaFisicaJuridicaESType


perso.NIF = "XXXXXXXXX"
perso.NombreRazon = "Empresa de pruebas"
cab.Titular = perso

cab.TipoComunicacion = "0"

testC.Cabecera = cab

For i = 20 To 30
Dim fras As New LRfacturasEmitidasType
Dim perio As New RegistroSiiPeriodoImpositivo
perio.Ejercicio = 2015
perio.Periodo = "01"
fras.PeriodoImpositivo = perio

Dim idfra As New IDFacturaExpedidaType
Dim empresa As New IDFacturaExpedidaTypeIDEmisorFactura

Dim cver As New VersionSiiType

cab.IDVersionSii = cver.Item05

empresa.NIF = "XXXXXXXXXXX"
idfra.IDEmisorFactura = empresa
idfra.NumSerieFacturaEmisor = i + 10
idfra.FechaExpedicionFacturaEmisor = "15-01-2015"
fras.IDFactura = idfra


Dim fraexp As New FacturaExpedidaType

fraexp.TipoFactura = "1"
fraexp.ClaveRegimenEspecialOTrascendencia = "01"
fraexp.ImporteTotal = "26.70"
fraexp.DescripcionOperacion = "Compra xxxxxxxxx"

fras.FacturaExpedida = fraexp
Dim persona As New PersonaFisicaJuridicaType

persona.NombreRazon = "Empresa yyyyyyy"
persona.NIFRepresentante = "94235500B"

Dim contrap As New PersonaFisicaJuridicaType
contrap = persona


Dim sujeta As New SujetaType
Dim sujetanoexenta As New SujetaTypeNoExenta
Dim detalleiva As New DetalleIVAEmitidaType
Dim tpdesglose As New TipoSinDesgloseType
Dim desglose As New FacturaExpedidaTypeTipoDesglose

sujetanoexenta.TipoNoExenta = sujetanoexenta.TipoNoExenta.S1

ReDim sujetanoexenta.DesgloseIVA(0)
detalleiva.TipoImpositivo = "21"
detalleiva.BaseImponible = "22.07"
detalleiva.CuotaRepercutida = "4.63"
detalleiva.TipoRecargoEquivalencia = 0
detalleiva.CuotaRecargoEquivalencia = 0

sujetanoexenta.DesgloseIVA(0) = detalleiva
sujeta.NoExenta = sujetanoexenta
tpdesglose.Sujeta = sujeta

desglose.Item = tpdesglose

fraexp.TipoDesglose = desglose

Dim cfra As New LRConsultaEmitidasType
Dim cfil As New LRFiltroEmitidasType
Dim ccla As New IDFacturaExpedidaBCType
Dim cempr As New IDFacturaExpedidaBCTypeIDEmisorFactura
Dim ccab As New CabeceraConsultaSii
Dim cper As New PersonaFisicaJuridicaUnicaESType
Dim cperio As New RegistroSiiPeriodoImpositivo
Dim cperio2 As New RegistroSiiPeriodoImpositivo

ccla.FechaExpedicionFacturaEmisor = "15-01-2015"
cempr.NIF = "XXXXXXXXX"

ccla.IDEmisorFactura = cempr

ccla.NumSerieFacturaEmisor = "1"
cfil.ClavePaginacion = ccla
cperio.Ejercicio = 2015
cperio2.Ejercicio = 2015
cperio2.Periodo = "01"
cfil.PeriodoImpositivo = cperio2
cfra.FiltroConsulta = cfil
cfra.FiltroConsulta.ClavePaginacion = ccla


ReDim Preserve testC.RegistroLRFacturasEmitidas(i)
testC.RegistroLRFacturasEmitidas(i) = fras
Next i

resul = webserviceProxy.SuministroLRFacturasEmitidas(testC)

Hola batuzail,
Hay 3 formas de crear el xml a enviar a AEAT-SII:
-forma1: mediante cadenas de texto concatenadas
-forma2: usando XmlReader, XmlWriter y otras clases asociadas
-forma3: usando las clases generadas al crear el proxy con wsdl.exe en .NET.

Yo estoy trabajando en la forma 3 y mi codigo es muy parecido al tuyo (el tuyo es mas elegante y compacto), pero en ambos casos tenemos un problema sin resolver, que es poner el elemento raiz, o sea:
<soapenv:Envelope xmlns:soapenv="...//schemas.xmlsoap.org/soap/envelope/" xmlns:siiLR="...://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd" xmlns:sii="...://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">

Y ademas que todas las etiquetas tienen que llevar su espacio de nombres y su nombre, por ejemplo:
<siiLR:SuministroLRFacturasEmitidas>
<sii:Cabecera>
<sii:IDVersionSii>
Etc.
Al menos según los ejemplos que pone Hacienda en el pdf “ SII_Descripcion_ServicioWeb_v0.5_es_es.pdf”, en el apartado 8.1.1.1.Ejemplo mensaje de XML de alta, por lo que entiendo que sera obligatorio

Yo he cogido tu codigo y le he añadido antes de la ultima linea, las siguientes lineas para ver el xml generaro
'ANEXO/INCISO: Serializacion a XML
'forma 1: por Consola en Ventana Resultados

Código Delphi [-]
      Dim ser As System.Xml.Serialization.XmlSerializer
      ser = New System.Xml.Serialization.XmlSerializer(testC.GetType())
      ser.Serialize(Console.Out, testC)
      resul = webserviceProxy.SuministroLRFacturasEmitidas(testC)

el resultado aparece en la ventana Resultados y podras ver que no tiene la cabecera que piden, ni las etiquetas cumplen con el disñeo <espacioNombres:nombreEtiqueta>

No se si lo que digo es correcto o no importa, aunque yo creo que si. Voy a seguir investigando, dentro de la forma 3 a ver si lo consigo. Si descubres algo, ya diras.

Otra duda gorda:
Yo tengo la clase siiService tal que asi

Código Delphi [-]
Partial Public Class siiService
    Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Pero tu dices que hay que cambiarla a esto 
Partial Public Class siiService
    Inherits Microsoft.Web.Services3.WebServicesClientProtocol

¿Por que? ¿cual es la utilidad o ventaja?

Muchas gracias por tu aporte y tu info

[batuzail]

Hola jlegido,
A mi me funciona correctamente y envío los registros y recibo un csv válido y en caso de error recibo el error, también me funciona la consulta en caso de consultar una factura ya emitida. No se a que te refieres con añadir los datos de cabecera, puede que sea algo que al pasarlo a xml no hace.
Sobre mi clase

Partial Public Class siiService     Inherits Microsoft.Web.Services3.WebServicesClientProtocol

La tengo así para que funcione el acceso al WS con el certificado.

Saludos

[jcaceres121]

Hola.
Aunque se que este club es de Delphi, estoy intentando crear una solución en Java para el problema. Tengo alguna experiencia con Java y ninguna con webservices.
He visto tu código .NET, que es quizá lo más parecido a Java que he encontrado por ahí, pero me surgen dudas.
Lamento no haber encontrado ningún foro de Java y por eso me veo obligado a preguntar aquí.
Os comento mi situación.
Tengo ya creado una objeto SuministroLRFacturasEmitidas (supongo que correctamente) que contiene una factura de ejemplo, y también tengo un objeto X509Certificate con un certificado obtenido a partir de un fichero .PFX.
Entiendo que sólo me quedaría invocar a los métodos necesarios para enviar el objeto y recibir la respuesta, pero no se como.
Si alguien pudiera ayudarme, estaría muy agradecido. levo muchas horas con esto y no avanzo.
Gracias

[CMB]

Empezado por jcaceres121

Hola.
Aunque se que este club es de Delphi

Efectivamente, el foro es sólo de Delphi pero en este hilo están participando programadores de otros varios lenguajes. Bienvenidos, creo que nadie estorba. Pero no sólo existe esta división. También está el grupo que prefiere crear primero su propio XML y luego enviarlo por los varios medios que existen, y otro sector, que parece mayoritario, que manda la información creándola sobre la marcha mediante el uso de las funciones de los WSDL. Quizás por este motivo seguir el hilo sea algo complicado y en algunos momentos desorienta.

Pero lo importante es que todos hemos aprendido bastante.

Muchas gracias a los que habeis aportado ideas y código.

Saludos,

[vboloradito]

Hola:
Soy nuevo en el foro.
Tenemos que empezar con sii y todavia no sabemos en que lo vamos a hacer.
no se si llegamos tarde.
La pregunta es.
- ¿La información para el SII la estais encontrando en la que ya teneis para el modulo 340?.
- Habeis pensado en implementar alguna validación contra SII.
ejemplo. cuento cuanta facutaras tengo en mi sistema el dia 1/03/2017 (y me dice 3454 por 1.345 Euros)
lanzar consultar al SII para ver si realmente tengo 345 facturas por un total de 1.345 euros)
O simplemente os vais a fiar de que el SII os ha dicho que la factura esta correctamente enviada.