FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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... |
#2
|
|||
|
|||
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... |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Cita:
ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios := TipoSinDesglosePrestacionType.Create; ARegistroLRFacturasEmitidas[0].FacturaExpedida.TipoDesglose.DesgloseTipoOperacion.PrestacionServicios.Sujeta := SujetaPrestacionType.Create; |
#5
|
|||
|
|||
Cita:
A ver si os sirve para avanzar
|
#6
|
|||
|
|||
Cita:
|
#7
|
|||
|
|||
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; |
#8
|
|||
|
|||
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. |
#9
|
|||
|
|||
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. |
#10
|
|||
|
|||
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? |
#11
|
|||
|
|||
Cita:
Exenta = array of DetalleExentaType; Última edición por pablog2k fecha: 05-07-2018 a las 09:00:41. |
#12
|
|||
|
|||
Estoy haciendo pruebas para la version 1.1 del SII e importado el nuevo WSDL adaptando el codigo para que no genere errores y aparentemente manda las facturas al servidor de pruebas del SII (SuministroFactEmitidasPruebas) pero cuando entro en el no se muestra nada en el periodo y ejercicio que le e mandado, no se si ahi algo que este viendo mal, el portal de pruebas entro por:
https://www7.aeat.es/PRE-Exteriores/...formacion.html y el xml que manda el web service (e cambiado los nif y nombres originales pero el resto del xml es el original): Código:
<?xml version="1.0" encoding="ISO-8859-1"?> <env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"> <env:Header/> <env:Body Id="Body"> <siiLRRC:RespuestaConsultaLRFacturasEmitidas xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd" xmlns:siiLRRC="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/RespuestaConsultaLR.xsd"> <sii:Cabecera> <sii:IDVersionSii>1.1</sii:IDVersionSii> <sii:Titular> <sii:NombreRazon>TABLAS S.A.</sii:NombreRazon> <sii:NIF>A11111111</sii:NIF> </sii:Titular> </sii:Cabecera> <siiLRRC:PeriodoLiquidacion> <siiLRRC:Ejercicio>2018</siiLRRC:Ejercicio> <siiLRRC:Periodo>07</siiLRRC:Periodo> </siiLRRC:PeriodoLiquidacion> <siiLRRC:IndicadorPaginacion>N</siiLRRC:IndicadorPaginacion> <siiLRRC:ResultadoConsulta>ConDatos</siiLRRC:ResultadoConsulta> <siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> <siiLRRC:IDFactura> <sii:IDEmisorFactura> <sii:NIF>A11111111</sii:NIF> </sii:IDEmisorFactura> <sii:NumSerieFacturaEmisor>0/00002</sii:NumSerieFacturaEmisor> <sii:FechaExpedicionFacturaEmisor>02-07-2018</sii:FechaExpedicionFacturaEmisor> </siiLRRC:IDFactura> <siiLRRC:DatosFacturaEmitida> <siiLRRC:TipoFactura>F1</siiLRRC:TipoFactura> <siiLRRC:ClaveRegimenEspecialOTrascendencia>01</siiLRRC:ClaveRegimenEspecialOTrascendencia> <siiLRRC:ImporteTotal>1210</siiLRRC:ImporteTotal> <siiLRRC:DescripcionOperacion>Nuestra Factura</siiLRRC:DescripcionOperacion> <siiLRRC:EmitidaPorTercerosODestinatario>N</siiLRRC:EmitidaPorTercerosODestinatario> <siiLRRC:VariosDestinatarios>N</siiLRRC:VariosDestinatarios> <siiLRRC:Contraparte> <sii:NombreRazon>MADERAS, S.L.</sii:NombreRazon> <sii:NIF>B22222222</sii:NIF> </siiLRRC:Contraparte> <siiLRRC:TipoDesglose> <siiLRRC:DesgloseFactura> <sii:Sujeta> <sii:NoExenta> <sii:TipoNoExenta>S1</sii:TipoNoExenta> <sii:DesgloseIVA> <sii:DetalleIVA> <sii:TipoImpositivo>21</sii:TipoImpositivo> <sii:BaseImponible>1000.00</sii:BaseImponible> <sii:CuotaRepercutida>210.00</sii:CuotaRepercutida> </sii:DetalleIVA> </sii:DesgloseIVA> </sii:NoExenta> </sii:Sujeta> </siiLRRC:DesgloseFactura> </siiLRRC:TipoDesglose> <siiLRRC:Cobros>N</siiLRRC:Cobros> </siiLRRC:DatosFacturaEmitida> <siiLRRC:DatosPresentacion> <sii:NIFPresentador>A11111111</sii:NIFPresentador> <sii:TimestampPresentacion>05-07-2018 14:43:54</sii:TimestampPresentacion> <sii:CSV>RD9NKR6MFJW2HP2J</sii:CSV> </siiLRRC:DatosPresentacion> <siiLRRC:EstadoFactura> <siiLRRC:EstadoCuadre>1</siiLRRC:EstadoCuadre> <siiLRRC:TimestampEstadoCuadre>05-07-2018 14:43:55</siiLRRC:TimestampEstadoCuadre> <siiLRRC:TimestampUltimaModificacion>05-07-2018 14:43:54</siiLRRC:TimestampUltimaModificacion> <siiLRRC:EstadoRegistro>Correcta</siiLRRC:EstadoRegistro> </siiLRRC:EstadoFactura> </siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> <siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> <siiLRRC:IDFactura> <sii:IDEmisorFactura> <sii:NIF>A11111111</sii:NIF> </sii:IDEmisorFactura> <sii:NumSerieFacturaEmisor>0/00001</sii:NumSerieFacturaEmisor> <sii:FechaExpedicionFacturaEmisor>02-07-2018</sii:FechaExpedicionFacturaEmisor> </siiLRRC:IDFactura> <siiLRRC:DatosFacturaEmitida> <siiLRRC:TipoFactura>F1</siiLRRC:TipoFactura> <siiLRRC:ClaveRegimenEspecialOTrascendencia>01</siiLRRC:ClaveRegimenEspecialOTrascendencia> <siiLRRC:ImporteTotal>1210</siiLRRC:ImporteTotal> <siiLRRC:DescripcionOperacion>Nuestra Factura</siiLRRC:DescripcionOperacion> <siiLRRC:EmitidaPorTercerosODestinatario>N</siiLRRC:EmitidaPorTercerosODestinatario> <siiLRRC:VariosDestinatarios>N</siiLRRC:VariosDestinatarios> <siiLRRC:Contraparte> <sii:NombreRazon>MADERAS, S.L.</sii:NombreRazon> <sii:NIF>B22222222</sii:NIF> </siiLRRC:Contraparte> <siiLRRC:TipoDesglose> <siiLRRC:DesgloseFactura> <sii:Sujeta> <sii:NoExenta> <sii:TipoNoExenta>S1</sii:TipoNoExenta> <sii:DesgloseIVA> <sii:DetalleIVA> <sii:TipoImpositivo>21</sii:TipoImpositivo> <sii:BaseImponible>1000.00</sii:BaseImponible> <sii:CuotaRepercutida>210.00</sii:CuotaRepercutida> </sii:DetalleIVA> </sii:DesgloseIVA> </sii:NoExenta> </sii:Sujeta> </siiLRRC:DesgloseFactura> </siiLRRC:TipoDesglose> <siiLRRC:Cobros>N</siiLRRC:Cobros> </siiLRRC:DatosFacturaEmitida> <siiLRRC:DatosPresentacion> <sii:NIFPresentador>A11111111</sii:NIFPresentador> <sii:TimestampPresentacion>05-07-2018 11:27:30</sii:TimestampPresentacion> <sii:CSV>9UM9MPASP3UALUMZ</sii:CSV> </siiLRRC:DatosPresentacion> <siiLRRC:EstadoFactura> <siiLRRC:EstadoCuadre>1</siiLRRC:EstadoCuadre> <siiLRRC:TimestampEstadoCuadre>05-07-2018 14:43:47</siiLRRC:TimestampEstadoCuadre> <siiLRRC:TimestampUltimaModificacion>05-07-2018 14:43:47</siiLRRC:TimestampUltimaModificacion> <siiLRRC:EstadoRegistro>Correcta</siiLRRC:EstadoRegistro> </siiLRRC:EstadoFactura> </siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> <siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> <siiLRRC:IDFactura> <sii:IDEmisorFactura> <sii:NIF>A11111111</sii:NIF> </sii:IDEmisorFactura> <sii:NumSerieFacturaEmisor>0/00001</sii:NumSerieFacturaEmisor> <sii:FechaExpedicionFacturaEmisor>01-07-2018</sii:FechaExpedicionFacturaEmisor> </siiLRRC:IDFactura> <siiLRRC:DatosFacturaEmitida> <siiLRRC:TipoFactura>F1</siiLRRC:TipoFactura> <siiLRRC:ClaveRegimenEspecialOTrascendencia>01</siiLRRC:ClaveRegimenEspecialOTrascendencia> <siiLRRC:ImporteTotal>1210</siiLRRC:ImporteTotal> <siiLRRC:DescripcionOperacion>Nuestra Factura</siiLRRC:DescripcionOperacion> <siiLRRC:EmitidaPorTercerosODestinatario>N</siiLRRC:EmitidaPorTercerosODestinatario> <siiLRRC:VariosDestinatarios>N</siiLRRC:VariosDestinatarios> <siiLRRC:Contraparte> <sii:NombreRazon>MADERAS, S.L.</sii:NombreRazon> <sii:NIF>B33386053</sii:NIF> </siiLRRC:Contraparte> <siiLRRC:TipoDesglose> <siiLRRC:DesgloseFactura> <sii:Sujeta> <sii:NoExenta> <sii:TipoNoExenta>S1</sii:TipoNoExenta> <sii:DesgloseIVA> <sii:DetalleIVA> <sii:TipoImpositivo>21</sii:TipoImpositivo> <sii:BaseImponible>1000.00</sii:BaseImponible> <sii:CuotaRepercutida>210.00</sii:CuotaRepercutida> </sii:DetalleIVA> </sii:DesgloseIVA> </sii:NoExenta> </sii:Sujeta> </siiLRRC:DesgloseFactura> </siiLRRC:TipoDesglose> <siiLRRC:Cobros>N</siiLRRC:Cobros> </siiLRRC:DatosFacturaEmitida> <siiLRRC:DatosPresentacion> <sii:NIFPresentador>A11111111</sii:NIFPresentador> <sii:TimestampPresentacion>05-07-2018 11:18:20</sii:TimestampPresentacion> <sii:CSV>ZQB27WWYYB8BW9QW</sii:CSV> </siiLRRC:DatosPresentacion> <siiLRRC:EstadoFactura> <siiLRRC:EstadoCuadre>1</siiLRRC:EstadoCuadre> <siiLRRC:TimestampEstadoCuadre>05-07-2018 11:18:26</siiLRRC:TimestampEstadoCuadre> <siiLRRC:TimestampUltimaModificacion>05-07-2018 11:18:20</siiLRRC:TimestampUltimaModificacion> <siiLRRC:EstadoRegistro>Correcta</siiLRRC:EstadoRegistro> </siiLRRC:EstadoFactura> </siiLRRC:RegistroRespuestaConsultaLRFacturasEmitidas> </siiLRRC:RespuestaConsultaLRFacturasEmitidas> </env:Body> </env:Envelope> |
|
|
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 |
|