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

[Sumsuna]

Buenas a todos,
Con la nueva version 1.1 tengo un problema con la nueva etiqueta PeriodoLiquidacion ya que aunque le programa me compila bien justo cuando llega a esta línea me da una excepción y no continua


ARegistroLRFacturasEmitidas[0].PeriodoLiquidacion.Ejercicio:=edtYear.Text;

Gracias de antemano

[Sumsuna]

Empezado por Sumsuna

Buenas a todos,
Con la nueva version 1.1 tengo un problema con la nueva etiqueta PeriodoLiquidacion ya que aunque le programa me compila bien justo cuando llega a esta línea me da una excepción y no continua


ARegistroLRFacturasEmitidas[0].PeriodoLiquidacion.Ejercicio:=edtYear.Text;

Gracias de antemano

Me respondo a mi misma, tenía que crear primero con esto ya me va bien

ALRFiltroEmitidasType.PeriodoLiquidacion:=PeriodoLiquidacion11.Create;
ARegistroLRFacturasEmitidas[0].PeriodoLiquidacion.Ejercicio:=edtYear.Text;

[didou]

Buenos días, alguién seria tan amable de colgar un ejemplo Delphi de como informar el detalle de facturas emitidas exentas con la versión 1.1, con la 1.0 yo tenia lo siguiente:

// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta := Exenta2.Create;
// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta.CausaExencion := GetCausaExencion;
// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta.BaseImponible := ReplaceStr(FloatToStr(vImpBase), ',', '.');

no consigo hacerlo con la 1.1, muchas gracias.

[[newtron]]

Empezado por didou

Buenos días, alguién seria tan amable de colgar un ejemplo Delphi de como informar el detalle de facturas emitidas exentas con la versión 1.1, con la 1.0 yo tenia lo siguiente:

// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta := Exenta2.Create;
// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta.CausaExencion := GetCausaExencion;
// vLREmitidas[vIdx].FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta.BaseImponible := ReplaceStr(FloatToStr(vImpBase), ',', '.');

no consigo hacerlo con la 1.1, muchas gracias.

Yo lo hago de esta manera, a ver si esto te sirve...

Código Delphi [-]
              setLength(IVAS,1);                       // numeros de iVAs en factura
              IVAS[0]:=DetalleIVAEmitidaType.create;             // CREAR primer IVA
              IVAS[0].BaseImponible:='0';
              IVAS[0].TipoImpositivo:='0';
              IVAS[0].CuotaRepercutida:='0';
              IVAS[0].TipoRecargoEquivalencia:='';    // REQ %
              IVAS[0].CuotaRecargoEquivalencia:='';   // IMPORTE RECARGO
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:=TipoConDesgloseType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega:=TipoSinDesgloseType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta:=SujetaType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta:=NoExenta2.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.TipoNoExenta:=TipoOperac  ionSujetaNoExentaType(1);
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.DesgloseIVA := IVAS;

La variable IVAS es un array del tipo DesgloseIva3


Saludos

Edito: Ahora la verdad es que estoy mirando y no me cuadra mucho que siendo exenta "cuele" con un tipo Sujeta.Noexenta....

[inyu]

¿A alguien más le está dando este mensaje ?

There was no endpoint listening at https://www1.aeat.es/wlpl/SSII-FACT/...iiFactFRV1SOAP that could accept the message.

Sólo me funcionan las de pre-produccion (www7).

[nuevo1234]

Empezado por inyu

¿A alguien más le está dando este mensaje ?

There was no endpoint listening at https://www1.aeat.es/wlpl/SSII-FACT/...iiFactFRV1SOAP that could accept the message.

Sólo me funcionan las de pre-produccion (www7).

El dominio de produccion no es el correcto. Fijate en los ws de que está el endpoint

[didou]

Empezado por newtron

Yo lo hago de esta manera, a ver si esto te sirve...

Código Delphi [-]
              setLength(IVAS,1);                       // numeros de iVAs en factura
              IVAS[0]:=DetalleIVAEmitidaType.create;             // CREAR primer IVA
              IVAS[0].BaseImponible:='0';
              IVAS[0].TipoImpositivo:='0';
              IVAS[0].CuotaRepercutida:='0';
              IVAS[0].TipoRecargoEquivalencia:='';    // REQ %
              IVAS[0].CuotaRecargoEquivalencia:='';   // IMPORTE RECARGO
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:=TipoConDesgloseType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega:=TipoSinDesgloseType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta:=SujetaType.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta:=NoExenta2.Create;
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.TipoNoExenta:=TipoOperac  ionSujetaNoExentaType(1);
              ARegistroLRFacturasEmitidas[N].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.NoExenta.DesgloseIVA := IVAS;

La variable IVAS es un array del tipo DesgloseIva3


Saludos

Edito: Ahora la verdad es que estoy mirando y no me cuadra mucho que siendo exenta "cuele" con un tipo Sujeta.Noexenta....

Hola Newtron, gracias por intentarlo pero lo que me das es para entregas y yo quiero para facturaexpedida.,tipodesglose.desglosefactura.sujeta.exenta

Hay un tipo detalleExentaType ue yo creo de la siguiente manera
setLength(vEXEN, 1);
vEXEN[0] := DetalleExentaType.Create;
vEXEN[0].CausaExencion := GetCausaExencion;
vEXEN[0].BaseImponible := ReplaceStr(FloatToStr(vImpBase), ',', '.');

pero después no consigo meter el array vEXEN dentro del facturaexpedida.,tipodesglose.desglosefactura.sujeta.exenta

pero gracias de todos modos y a ver si alguien me puede ayudar.

[Galahad]

Empezado por didou

Hola Newtron, gracias por intentarlo pero lo que me das es para entregas y yo quiero para facturaexpedida.,tipodesglose.desglosefactura.sujeta.exenta

Hay un tipo detalleExentaType ue yo creo de la siguiente manera
setLength(vEXEN, 1);
vEXEN[0] := DetalleExentaType.Create;
vEXEN[0].CausaExencion := GetCausaExencion;
vEXEN[0].BaseImponible := ReplaceStr(FloatToStr(vImpBase), ',', '.');

pero después no consigo meter el array vEXEN dentro del facturaexpedida.,tipodesglose.desglosefactura.sujeta.exenta

pero gracias de todos modos y a ver si alguien me puede ayudar.

Hola
¿ has probado esto ?


ARegistroLRFacturasEmitidas[ncontfacturas].FacturaExpedida.TipoDesglose.desglosefactura.sujeta.Exenta:= vexen;


Yo acabo de adaptarlo y por lo menos el compilador no se queja...

[Galahad]

Empezado por Galahad

Hola
¿ has probado esto ?


ARegistroLRFacturasEmitidas[ncontfacturas].FacturaExpedida.TipoDesglose.desglosefactura.sujeta.Exenta:= vexen;


Yo acabo de adaptarlo y por lo menos el compilador no se queja...

Perdón, rectifico, no daba error de compilación pero si un bonito access violation..
Esta es la línea correcta:


ARegistroLRFacturasEmitidas[ncontfacturas].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.sujeta.Exenta := Exentas;


Saludos...