FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#11
|
|||
|
|||
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 |
|
|
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 |
|