Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[nincillo]

Empezado por djatila

Leí en un post anterior que aquí había gente también en visual basic, así que respondo por aquí, así espero que sirva a mas gente. (si molesta, avísenme)

Para importar el wsdl en visual basic studio
-Proyecto -Agregar referencia de servicio - botón avanzadas - botón agregar referencia web
-en direccion = SistemaFacturacion.wsdl
-botón flechita - cambiar el nombre de la clase si queréis yo puse MiSFI -y agregar referencia

También esta la opción con el comando xsd de generar las clases.vb con los ficheros xsd, pero esto no es necesario si se importo el wsdl.

Aqui te pongo como estoy haciendo para generar el xml , este codigo funciona hasta el cierre de la cabecera.

        Dim altaFactuSistemaFacturacion As New AltaFactuSistemaFacturacion
        'Cabecera
        Dim cabecera As New MiSFI.Cabecera
        Dim obligadoEmision As New MiSFI.PersonaFisicaJuridicaESType
        Dim tipoRegistroAEAT As New MiSFI.TipoRegistroAEATType
        '/Cabecera
        Dim registroAltaFacturas As New MiSFI.FacturasEmitidasType
        Dim RegistroFacturacion(2) As MiSFI.RegistroFacturacionType
        Dim datosControl As New MiSFI.DatosControlType
        'idFactura
        Dim idFactura As New MiSFI.IDFacturaExpedidaType 'MiSFI.IDFacturaARType
        Dim idEmisorFactura As New MiSFI.IDFacturaExpedidaTypeIDEmisorFactura
        '/idFactura
        Dim Destinatarios As New MiSFI.PersonaFisicaJuridicaType
        Dim idDestinatario As New MiSFI.PersonaFisicaJuridicaESType
        Dim detalleDesglose As New MiSFI.DetalleType ' DetalleDesglose
        Dim encadenamientoRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorType '.EncadenamientoRegistroAnterior
        Dim idEmisorFacturaRegistroAnterior As New MiSFI.EncadenamientoFacturaAnteriorTypeIDEmisorFacturaRegistroAnterior  '.IDEmisorFacturaRegistroAnterior
        Dim sistemaInformatico As New MiSFI.SistemaInformaticoType
        'Cabecera
        cabecera.IDVersion = MiSFI.VersionType.Item10  '"1.0"
        obligadoEmision.NombreRazon = "XXXXX"
        obligadoEmision.NIF = "XXXXX"
        tipoRegistroAEAT = MiSFI.TipoRegistroAEATType.T0 ' "T0"
        cabecera.ObligadoEmision = obligadoEmision
        cabecera.TipoRegistroAEAT = tipoRegistroAEAT
        '/Cabecera
        'RegistroAltaFacturas
        'RegistroFacturacion
        'IDFactura
        idEmisorFactura.NIF = "XXXXX"
        idFactura.NumSerieFacturaEmisor = "12345"
        idFactura.FechaExpedicionFacturaEmisor = "13-11-2023"
        idFactura.IDEmisorFactura = idEmisorFactura
        '/IDfactura  

        'Estas dan error
        'RegistroFacturacion(0).IDFactura = idFactura
        'RegistroFacturacion(0).NombreRazonEmisor = "certificado uno telematicas"
        'RegistroFacturacion(0).TipoRegistroSIF = MiSFI.TipoRegistroSIFType.S0 ' "S0"
        'RegistroFacturacion(0).TipoFactura = MiSFI.ClaveTipoFacturaType.F1 '"F1"
        'RegistroFacturacion(0).DescripcionOperacion = "Descripc"

        idDestinatario.NombreRazon = "XXXXX"
        idDestinatario.NIF = "XXXXX"

        datosControl.Huella = "Huella"
        datosControl.TipoHash = "01"


        registroAltaFacturas.RegistroFacturacion = RegistroFacturacion(0)
        registroAltaFacturas.DatosControl = datosControl


        altaFactuSistemaFacturacion.Cabecera = cabecera
        'esta da error 
        'altaFactuSistemaFacturacion.RegistroAltaFacturas = registroAltaFacturas

        Dim ns As New XmlSerializerNamespaces()
        ns.Add("soapenv", ".......")
        ns.Add("sum", "........SuministroLR.xsd")
        ns.Add("sum1", ".......SuministroInformacion.xsd")

        'serializamos
        Dim serializer As New XmlSerializer(GetType(MiSFI.AltaFactuSistemaFacturacion))
        Using writer As New StreamWriter("C:\xml\archivo.xml")
            serializer.Serialize(writer, altaFactuSistemaFacturacion, ns)
        End Using

tuve que quitar las url porque no tengo permisos....



Gracias por responder. pero en esas estoy y no lo consigo, algo estoy haciendo mal......

A ver si te sirve de ayuda. Así lo tengo yo en Delphi, pero lo gracioso es que sigo sin tener el elemento Cabecera...:

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;

¿Podrías publicar de alguna manera el fichero que te genera al importar el wsdl a ver si encuentro las diferencias con el que genera en Delphi?.

[djatila]

ya lo conseguí.

<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>

(tuve que quitar las url)

ahora voy a rellenar los demás campos.

Empezado por nincillo

¿Podrías publicar de alguna manera el fichero que te genera al importar el wsdl a ver si encuentro las diferencias con el que genera en Delphi?.

te lo intento pasar por privado que es un tocho

[nincillo]

Empezado por djatila

Te lo intento pasar por privado que es un tocho

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:

'''<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/>

Sino que, algo tan sencillo como la definición de VersionType tampoco está.

    '''<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:

'''<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/>

[djatila]

Empezado por nincillo

¿Podrías mandar el link del wsdl que estás importando a ver si es que no estoy cogiendo el correcto?

https://prewww2.aeat.es/static_files...cturacion.wsdl

[nincillo]

Empezado por djatila

https://prewww2.aeat.es/static_files...cturacion.wsdl

Pues es el mismo que estoy importando yo desde Delphi...
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?

[Neftali [Germán.Estévez]]

Empezado por nincillo

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?

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.

[nincillo]

Empezado por Neftali [Germán.Estévez]

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.

Después de muchas pruebas, creo que al fin he encontrado "algo". Pero no se si es lo correcto. A ver si me lo podéis aclarar.

Acabo de volver a hacer las siguientes pruebas de importación del wsdl:

1. Importación: Automatic SOAP Versioning (Recomended)
2. Importación: Process only WSDL Binding extensions for the SOAP 1.1 Protocol
3. Importación: Process only WSDL Binding extensions for the SOAP 1.2 Protocol

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:

var
  AltaFactuSistFact : AltaFactuSistemaFacturacion;
  result : RespuestaAltaFactuSistemaFacturacionType;

begin

  result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(AltaFactuSistFact);
end

Mientras que antes, haciendo la importación Automática/1.1, los parámetros que se utilizaban en la llamada eran del tipo Array_Of_FacturasEmitidasType