FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4183 | Hace 2 Días 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 |
|