FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cita:
Código:
var regFactura : FacturasEmitidasType; result : Array_Of_RespuestaExpedidaType; arrayFacturasS : Array_Of_FacturasEmitidasType; begin regFactura := FacturasEmitidasType.Create; regFactura.RegistroFacturacion := RegistroFacturacionType.Create; ... regFactura.RegistroFacturacion.IDFactura := IDFacturaExpedidaType.Create; regFactura.RegistroFacturacion.IDFactura.NumSerieFacturaEmisor := '23/123456'; .... try SetLength(arrayFacturas, 1); arrayFacturas[0] := regFactura; result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(ArrayFacturas); finally regFactura.Destroy; end; |
#2
|
|||
|
|||
ya lo conseguí.
Código:
<AltaFactuSistemaFacturacion xmlns:soapenv="......./envelope/" xmlns:sum="............/SuministroLR.xsd" xmlns:sum1="...................................../SuministroInformacion.xsd"> <sum1:Cabecera> <sum1:IDVersion>1.0</sum1:IDVersion> <sum1:ObligadoEmision> <sum1:NombreRazon>XXXXX</sum1:NombreRazon> <sum1:NIF>XXXXX</sum1:NIF> </sum1:ObligadoEmision> <sum1:TipoRegistroAEAT>T0</sum1:TipoRegistroAEAT> </sum1:Cabecera> <sum:RegistroAltaFacturas> <sum:RegistroFacturacion> <sum1:IDFactura> <sum1:IDEmisorFactura> <sum1:NIF>XXXXX</sum1:NIF> </sum1:IDEmisorFactura> <sum1:NumSerieFacturaEmisor>12345</sum1:NumSerieFacturaEmisor> <sum1:FechaExpedicionFacturaEmisor>13-11-2023</sum1:FechaExpedicionFacturaEmisor> </sum1:IDFactura> <sum1:NombreRazonEmisor>certificado uno telematicas</sum1:NombreRazonEmisor> <sum1:TipoRegistroSIF>S0</sum1:TipoRegistroSIF> <sum1:TipoFactura>F1</sum1:TipoFactura> <sum1:DescripcionOperacion>Descripc</sum1:DescripcionOperacion> <sum1:HusoHorarioGenRegistro>01</sum1:HusoHorarioGenRegistro> </sum:RegistroFacturacion> <sum:DatosControl> <sum1:Huella>Huella</sum1:Huella> <sum1:TipoHash>01</sum1:TipoHash> </sum:DatosControl> </sum:RegistroAltaFacturas> </AltaFactuSistemaFacturacion> ahora voy a rellenar los demás campos. te lo intento pasar por privado que es un tocho |
#3
|
|||
|
|||
Recibido. Muchísimas gracias.
Estoy comparando y lo que tú me mandas tiene mucho más contenido que el que me ha generado a mi importándolo desde Delphi. No solo no encuentro la cabecera que en el tuyo si: Código:
'''<remarks/> <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _ System.SerializableAttribute(), _ System.Diagnostics.DebuggerStepThroughAttribute(), _ System.ComponentModel.DesignerCategoryAttribute("code"), _ System.Xml.Serialization.XmlTypeAttribute([Namespace]:="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicacion"& _ "es/es/aeat/tike/cont/ws/SuministroInformacion.xsd")> _ Partial Public Class Cabecera Private iDVersionField As VersionType Private obligadoEmisionField As PersonaFisicaJuridicaESType Private tipoRegistroAEATField As TipoRegistroAEATType Private fechaFinVeriFactuField As String '''<remarks/> Public Property IDVersion() As VersionType Get Return Me.iDVersionField End Get Set Me.iDVersionField = value End Set End Property '''<remarks/> Public Property ObligadoEmision() As PersonaFisicaJuridicaESType Get Return Me.obligadoEmisionField End Get Set Me.obligadoEmisionField = value End Set End Property '''<remarks/> Public Property TipoRegistroAEAT() As TipoRegistroAEATType Get Return Me.tipoRegistroAEATField End Get Set Me.tipoRegistroAEATField = value End Set End Property '''<remarks/> Public Property FechaFinVeriFactu() As String Get Return Me.fechaFinVeriFactuField End Get Set Me.fechaFinVeriFactuField = value End Set End Property End Class '''<remarks/> Código:
'''<remarks/> <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _ System.SerializableAttribute(), _ System.Xml.Serialization.XmlTypeAttribute([Namespace]:="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicacion"& _ "es/es/aeat/tike/cont/ws/SuministroInformacion.xsd")> _ Public Enum VersionType '''<remarks/> <System.Xml.Serialization.XmlEnumAttribute("1.0")> _ Item10 End Enum '''<remarks/> ¿Podrías mandar el link del wsdl que estás importando a ver si es que no estoy cogiendo el correcto? ¿Es normal que el mismo wsdl al importarlo desde dos lenguajes diferentes se "coma" cosas? Un poco más abajo están las siguientes definiciones: Código:
'''<remarks/> <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _ System.SerializableAttribute(), _ System.Diagnostics.DebuggerStepThroughAttribute(), _ System.ComponentModel.DesignerCategoryAttribute("code"), _ System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true, [Namespace]:="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicacion"& _ "es/es/aeat/tike/cont/ws/SuministroLR.xsd")> _ Partial Public Class AltaFactuSistemaFacturacion Inherits SistemaFacturacionAltaFact Private registroAltaFacturasField() As FacturasEmitidasType '''<remarks/> <System.Xml.Serialization.XmlElementAttribute("RegistroAltaFacturas")> _ Public Property RegistroAltaFacturas() As FacturasEmitidasType() Get Return Me.registroAltaFacturasField End Get Set Me.registroAltaFacturasField = value End Set End Property End Class '''<remarks/> <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _ System.SerializableAttribute(), _ System.Diagnostics.DebuggerStepThroughAttribute(), _ System.ComponentModel.DesignerCategoryAttribute("code"), _ System.Xml.Serialization.XmlTypeAttribute([Namespace]:="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicacion"& _ "es/es/aeat/tike/cont/ws/SuministroInformacion.xsd")> _ Partial Public Class SistemaFacturacionAltaFact Private cabeceraField As Cabecera '''<remarks/> Public Property Cabecera() As Cabecera Get Return Me.cabeceraField End Get Set Me.cabeceraField = value End Set End Property End Class '''<remarks/> |
#4
|
|||
|
|||
Cita:
Última edición por Neftali [Germán.Estévez] fecha: 08-01-2024 a las 13:54:19. Razón: Añadir URL |
#5
|
|||
|
|||
Cita:
No entiendo nada. ¿Será por culpa de la ñapa esa que hacemos para que no de el error de las cadenas más largas de 255 caracteres? |
#6
|
||||
|
||||
Cita:
No creo que sea por eso. Ese error es de Delphi una vez importado, simplemente por cómo se ha formado el fichero (que está bien formado). Salvo que delphi no acepta esas cadenas largas.
__________________
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. |
#7
|
|||
|
|||
Cita:
Acabo de volver a hacer las siguientes pruebas de importación del wsdl:
Con las dos primeras opciones aparentemente me genera lo mismo, mientras que sin lo importo con la última opción, entonces si que me genera un wsdl con la famosa CABECERA, VersionType, etc. ¿Puede ser posible que sólo por eso ya cambie tanto la importación del fichero WSDL?. Ahora la llamada al SOAP la tengo que hacer así para que me compile: Código:
var AltaFactuSistFact : AltaFactuSistemaFacturacion; result : RespuestaAltaFactuSistemaFacturacionType; begin result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(AltaFactuSistFact); end |
|
|
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 |
|