FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Buenas a todos de nuevo,
los que hemos tenido "la suerte" de implementar el TBAI, volvemos a las andadas... Estoy empezando a mirar la info que acaba de salir, para ver que podré aprovechar del TBAI y no puedo parsear los xsd del documento principal. el wsdl sin problemas, El primer xsd sí, https://prewww2.aeat.es/static_files...nformacion.xsd pero el resto no... https://prewww2.aeat.es/static_files...ministroLR.xsd ni https://prewww2.aeat.es/static_files...Suministro.xsd ¿Os ha funcionado a los demás? |
#2
|
||||
|
||||
Cita:
Te adjunto los tres ficheros generados por si te sirven.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Mil gracias Germán!
|
#4
|
|||
|
|||
Cita:
¿A qué te refieres de si os está funcionando? Yo estoy intentando utilizarlos desde Delphi 2007 y me salta un mensaje de errro de Empty Documento cuando hago la llamada para dar de alta una factura. Gracias. |
#5
|
|||
|
|||
Cita:
Estoy intentando importar los wsdl desde dos versiones diferentes de Delphi: + Delphi 2007, al intentar importarlos me dice: Error [Empty document]. + Delphi 11, importar me los permite importar, pero luego, al compilar me da error en dos líneas en las que me dice que los literales de tipo string no pueden medir más de 255 caracteres y de ahí no paso. ¿Alguien los ha importado recientemente?. ¿Ha podido sin problema? Gracias y un saludo. Edito: He retocado las líneas que se suponen que miden demasiado (no se que implicaciones traerá luego), pero el caso es que al darle a enviar una petición, me dice "URL Pendiente de definir", con lo cual de momento tampoco podemos probar nada por este "lado". Última edición por nincillo fecha: 15-12-2023 a las 14:01:21. |
#6
|
|||
|
|||
Cita:
Lo que hice en ese momento para continuar con las pruebas fue descomponer la línea en varias cadenas y funcionó. Pude compilar y continuar con mis pruebas. se convirtió en
Si nadie ofrece una solución más elegante, a mí me funcionó. Saludos |
#7
|
|||
|
|||
Cita:
Pero de momento, pocas pruebas de envío se pueden hacer porque no tienen definida la url. ¿Verdad?. |
#8
|
|||
|
|||
Cita:
Me funcionó el "truco" que me sugeriste. Muchas gracias de nuevo. Ahora he atascado en otro punto. A ver si alguien me puede ayudar. Estoy empezando a rellenar los diferentes apartados de la factura antes de enviarla y he atascado al llegar al punto "Desglose", que se supone que es un Array of Detail. Este es el código que llevo desarrollado hasta ahora. Código:
procedure TForm2.BtnEnvioFacturaClick(Sender: TObject); var regFactura : FacturasEmitidasType; result : Array_Of_RespuestaExpedidaType; arrayFacturas : Array_Of_FacturasEmitidasType; arrayDetalles : array of DetalleType; detalle : DetalleType; begin regFactura := FacturasEmitidasType.Create; regFactura.DatosControl := DatosControlType.Create; regFactura.RegistroFacturacion := RegistroFacturacionType.Create; regFactura.RegistroFacturacion.PeriodoLiquidacion := PeriodoLiquidacion.Create; regFactura.RegistroFacturacion.PeriodoLiquidacion.Ejercicio := '23'; regFactura.RegistroFacturacion.PeriodoLiquidacion.Periodo := TipoPeriodoType(1); // Empieza a contar desde 0 regFactura.RegistroFacturacion.IDFactura := IDFacturaExpedidaType.Create; regFactura.RegistroFacturacion.IDFactura.NumSerieFacturaEmisor := '23/123456'; regFactura.RegistroFacturacion.IDFactura.FechaExpedicionFacturaEmisor := '31/12/23'; regFactura.RegistroFacturacion.IDFactura.IDEmisorFactura := IDEmisorFactura2.Create; regFactura.RegistroFacturacion.IDFactura.IDEmisorFactura.NIF := '3333333'; regFactura.RegistroFacturacion.DescripcionOperacion := 'vneta de mercaderías'; regFactura.RegistroFacturacion.Desglose := DesgloseType.Create(); detalle:= DetalleType.Create; detalle.CuotaRepercutida := '100'; detalle.TipoImpositivo := '21'; SetLength(arrayDetalles, 1); arrayDetalles[0] := detalle; regFactura.RegistroFacturacion.Desglose[0] := detalle; try SetLength(arrayFacturas, 1); arrayFacturas[0] := regFactura; result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(arrayFacturas); finally regFactura.Destroy; end; end; |
#9
|
|||
|
|||
y si pruebas con
Código:
setlength(regfactura.RegistroFacturacion.desglose,1); antes de hacer Código:
regFactura.RegistroFacturacion.Desglose[0] := DesgloseType.Create(); |
#10
|
|||
|
|||
Cita:
Código:
// <- Rellenos los datos de las diferentes bases DetalleType detalle1:= DetalleType.Create; detalle1.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._01; detalle1.CalificacionOperacion := CalificacionOperacionType.S1; detalle1.OperacionExenta := OperacionExentaType.E0; detalle1.TipoImpositivo := '21'; detalle1.BaseImponibleOimporteNoSujeto := '123'; detalle1.BaseImponibleACoste := '111'; detalle1.CuotaRepercutida := '100'; detalle1.TipoRecargoEquivalencia := '0'; detalle1.CuotaRecargoEquivalencia := '0'; detalle2:= DetalleType.Create; detalle2.CuotaRepercutida := '200'; detalle2.TipoImpositivo := '10'; // Los añado todos en un array SetLength(arrayDetalles, 2); arrayDetalles[0] := detalle1; arrayDetalles[1] := detalle2; // Cargo el array con todas las posibles bases en el apartado Desglose regFactura.RegistroFacturacion.Desglose := arrayDetalles; // := deta .Create; Por favor, ¿alguien que tenga Delphi 2007 podría intentar cargar a día de hoy los WSDL haber si puede o si le da error de "Document Empty"?. Yo recuerdo haberlos importado hace unos meses sin problema, pero algo han modificado desde entonces que ahora no soy capaz. Gracias. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Hijo de Informáticos | gluglu | Humor | 3 | 13-03-2007 11:05:35 |
Adictos informaticos ... | Trigger | Humor | 2 | 11-10-2004 12:18:32 |
Nosotros los Informáticos | Trigger | Humor | 1 | 10-10-2004 14:58:09 |
Patrón de los Informáticos. | obiwuan | Varios | 20 | 10-09-2003 14:44:54 |
Chistes Informaticos | jhonny | Humor | 2 | 11-08-2003 21:59:09 |
|