FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
Cita:
Yo lo hago de esta manera, a ver si esto te sirve...
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. |
#3
|
|||
|
|||
¿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). |
#4
|
|||
|
|||
Cita:
|
#5
|
|||
|
|||
Cita:
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. |
#6
|
|||
|
|||
Cita:
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... |
#7
|
|||
|
|||
Cita:
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... |
#8
|
|||
|
|||
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 |
#9
|
|||
|
|||
Cita:
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios := TipoSinDesglosePrestacionType.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta := SujetaPrestacionType.Create; |
#10
|
|||
|
|||
Cita:
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. Última edición por didou fecha: 04-07-2018 a las 12:53:47. |
#11
|
|||
|
|||
Cita:
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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4183 | Hace 1 Semana 15:10:42 |
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 |
|