Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Actualizar esta página SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-07-2018
didou didou is offline
Miembro
  
Registrado: may 2017
Posts: 59
Poder: 8
didou Va por buen camino
desglose facturas emitidas exentas
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.
Responder Con Cita
  #2  
Antiguo 03-07-2018
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
  
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.471
Poder: 21
newtron Va camino a la fama
Cita:
Empezado por didou Ver Mensaje
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....
__________________
Be water my friend.
Última edición por newtron fecha: 03-07-2018 a las 10:52:03.
Responder Con Cita
  #3  
Antiguo 03-07-2018
inyu inyu is offline
Miembro
NULL
  
Registrado: mar 2017
Posts: 48
Poder: 0
inyu Va por buen camino
¿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).
Responder Con Cita
  #4  
Antiguo 04-07-2018
nuevo1234 nuevo1234 is offline
Miembro
  
Registrado: abr 2017
Posts: 102
Poder: 8
nuevo1234 Va por buen camino
Cita:
Empezado por inyu Ver Mensaje
¿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
Responder Con Cita
  #5  
Antiguo 03-07-2018
didou didou is offline
Miembro
  
Registrado: may 2017
Posts: 59
Poder: 8
didou Va por buen camino
Cita:
Empezado por newtron Ver Mensaje
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.
Responder Con Cita
  #6  
Antiguo 03-07-2018
Galahad Galahad is offline
Miembro
  
Registrado: abr 2007
Posts: 218
Poder: 18
Galahad Va por buen camino
Cool
Cita:
Empezado por didou Ver Mensaje
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...
Responder Con Cita
  #7  
Antiguo 03-07-2018
Galahad Galahad is offline
Miembro
  
Registrado: abr 2007
Posts: 218
Poder: 18
Galahad Va por buen camino
Cita:
Empezado por Galahad Ver Mensaje
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...
Responder Con Cita
  #8  
Antiguo 03-07-2018
Sumsuna Sumsuna is offline
Registrado
NULL
  
Registrado: jun 2017
Posts: 4
Poder: 0
Sumsuna Va por buen camino
Buenas tardes,

Volviendo con las exentas yo el código que tengo ahora mismo (y que me falla) es esto

Primero defino las variables
vExenB: Exenta; //para operaciones de entrega de bienes
vExenP: Exenta2; //para servicios

Y luego hago

ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose:= TipoDesglose3.Create;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:= TipoConDesgloseType.Create;

if (edtBien_o_Servicio.Text='B') then //bien
begin
setLength(vExenB, 1);
vExenB[0] := DetalleExentaType.Create;
if (edtTipoOperacion.Text='E2') then // exportacion, ceuta y melilla
vExenB[0].CausaExencion := CausaExencionType.E2;
if (edtTipoOperacion.Text='E5') then //intracomunitaria
vExenB[0].CausaExencion := CausaExencionType.E5;
vExenB[0].BaseImponible := edtImporteTotalFactura.Text;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta := vExenB;
end;

if (edtBien_o_Servicio.Text='S') then //servicios
begin
setLength(vExenP, 1);
vExenP[0] := DetalleExentaType.Create;
if (edtTipoOperacion.Text='E2') then // exportacion, ceuta y melilla
vExenP[0].CausaExencion := CausaExencionType.E2;
if (edtTipoOperacion.Text='E5') then //intracomunitaria
vExenP[0].CausaExencion := CausaExencionType.E5;
vExenP[0].BaseImponible := edtImporteTotalFactura.Text;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.Exenta := vExenP;
end;

Y el problema es que me da una excepción a la hora de ejecutar cuando llego a la línea

ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta := vExenB;

¿Sabéis dónde fallo?

Gracias de antemano
Responder Con Cita
  #9  
Antiguo 04-07-2018
pablog2k pablog2k is offline
Miembro
  
Registrado: may 2017
Posts: 86
Poder: 7
pablog2k Va por buen camino
Cita:
Empezado por Sumsuna Ver Mensaje
Buenas tardes,

Volviendo con las exentas yo el código que tengo ahora mismo (y que me falla) es esto

Primero defino las variables
vExenB: Exenta; //para operaciones de entrega de bienes
vExenP: Exenta2; //para servicios

Y luego hago

ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose:= TipoDesglose3.Create;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:= TipoConDesgloseType.Create;

if (edtBien_o_Servicio.Text='B') then //bien
begin
setLength(vExenB, 1);
vExenB[0] := DetalleExentaType.Create;
if (edtTipoOperacion.Text='E2') then // exportacion, ceuta y melilla
vExenB[0].CausaExencion := CausaExencionType.E2;
if (edtTipoOperacion.Text='E5') then //intracomunitaria
vExenB[0].CausaExencion := CausaExencionType.E5;
vExenB[0].BaseImponible := edtImporteTotalFactura.Text;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta := vExenB;
end;

if (edtBien_o_Servicio.Text='S') then //servicios
begin
setLength(vExenP, 1);
vExenP[0] := DetalleExentaType.Create;
if (edtTipoOperacion.Text='E2') then // exportacion, ceuta y melilla
vExenP[0].CausaExencion := CausaExencionType.E2;
if (edtTipoOperacion.Text='E5') then //intracomunitaria
vExenP[0].CausaExencion := CausaExencionType.E5;
vExenP[0].BaseImponible := edtImporteTotalFactura.Text;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta.Exenta := vExenP;
end;

Y el problema es que me da una excepción a la hora de ejecutar cuando llego a la línea

ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta.Exenta := vExenB;

¿Sabéis dónde fallo?

Gracias de antemano
creo que te falta crear el nodo de prestación de servicios y sujeta :
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios := TipoSinDesglosePrestacionType.Create;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta := SujetaPrestacionType.Create;
Responder Con Cita
  #10  
Antiguo 04-07-2018
didou didou is offline
Miembro
  
Registrado: may 2017
Posts: 59
Poder: 8
didou Va por buen camino
Cita:
Empezado por Galahad Ver Mensaje
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...
Hola, gracias por tu aportación pero todo el mundo habla de exentas dentro de FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.sujeta.Exenta
y/o FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.sujeta.Exenta

pero yo quiero si es posible meterlo dentro de FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta tal como indica en la página 9 del documento que adjunto.

Alguien tendrá algún caso de facturas exentas que no sean entregas y/o prestación servicios?

Help, gracias.
Imágenes Adjuntas
Tipo de Archivo: pdf SII_1_1.pdf (584,6 KB, 42 visitas)
Última edición por didou fecha: 04-07-2018 a las 12:53:47.
Responder Con Cita
  #11  
Antiguo 04-07-2018
pablog2k pablog2k is offline
Miembro
  
Registrado: may 2017
Posts: 86
Poder: 7
pablog2k Va por buen camino
Cita:
Empezado por didou Ver Mensaje
Hola, gracias por tu aportación pero todo el mundo habla de exentas dentro de FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.sujeta.Exenta
y/o FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.sujeta.Exenta

pero yo quiero si es posible meterlo dentro de FacturaExpedida.TipoDesglose.desgloseFactura.sujeta.Exenta tal como indica en la página 9 del documento que adjunto.

Alguien tendrá algún caso de facturas exentas que no sean entregas y/o prestación servicios?

Help, gracias.
Tienes el vector de tipo Exenta2 (en mi caso: DETEX: Exenta2)
le das tamaño:
SetLength(DETEX, TamanyoVectorEx)

luego le das valores:
DETEX[cnt] := DetalleExentaType.Create;
DETEX[cnt].CausaExencion := X
DETEX[cnt].BaseImponible := Y

y lo metes al final:
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.Exenta:=DETEX;

entre medias habrás que tenido que crear los nodos de desglose factura, sujeta (como indico en una contestación anterior).
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseFactura:=TipoSinDesgloseType.Create;
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta:=SujetaType.Create;
Probado y funcionando perfecto.
Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4170 Hace 1 Semana 17:29:05
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 21:17:09.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi