FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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. |
#2
|
|||
|
|||
¿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). |
#3
|
|||
|
|||
Cita:
|
#4
|
|||
|
|||
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. |
#5
|
|||
|
|||
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... |
#6
|
|||
|
|||
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... |
#7
|
|||
|
|||
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 |
#8
|
|||
|
|||
Cita:
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios := TipoSinDesglosePrestacionType.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta := SujetaPrestacionType.Create; |
#9
|
|||
|
|||
Cita:
A ver si os sirve para avanzar
|
#10
|
|||
|
|||
Cita:
Comparto lo que ya me funciona tanto para entrega de bienes como para servicios --- var vExenB: Exenta; //para operaciones de entrega de bienes vExenP: Exenta2; //para servicios ---- if (edtTipoOperacion.Text='E2') OR (edtTipoOperacion.Text='E5') then //Sujeta Exenta por INTRACOMUNITARIA o Exportacion, canarias, ceuta o melilla begin ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose:= TipoDesglose3.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion:= TipoConDesgloseType.Create; if (edtBien_o_Servicio.Text='B') then //bien begin ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega:=TipoSinDesgloseType.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.Entrega.Sujeta:=SujetaType.Create; 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 ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios:=TipoSinDesglosePrestacionTy pe.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta:=SujetaPrestacionType .Create; 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; end; |
#11
|
|||
|
|||
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. |
#12
|
|||
|
|||
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. |
#13
|
|||
|
|||
Cita:
hola Pablog2k, lo que me estas proponiendo ya lo estoy haciendo pero da un error al compilar "Incompatible types: 'Exenta' and 'Dynamic array'" lo cual es normal ya que ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseFactura.Sujeta.Exenta no es de tipo array, no entiendo como te puede estar funcionando, igual tengo yo mal generado el .pas de facturas emitidas? |
|
|
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 |
|