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

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