Creando el XML

[Ramon88]

Gracias!
Creo que ya lo tengo más o menos!
Me genera el XML pero me pone dos veces

<?xml version="1.0" encoding="utf-8"?>
<RegFactuSistemaFacturacion xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Cabecera xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <ObligadoEmision xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <NombreRazon>OPTIPLUS SOFTWARE S.L.</NombreRazon>
      <NIF>B44724680</NIF>
    </ObligadoEmision>
  </Cabecera>
  <RegistroFactura xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <RegistroAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <IDVersion>1.0</IDVersion>
      <IDFactura>

Este es parte de mi código:

        ' Crear el objeto que contiene la información de la factura (según el WSDL)
        Dim factura As New Verifactu.sf.RegFactuSistemaFacturacion

Luego asigno la cabecera con sus datos:

Dim Cabecera = New Verifactu.sf.CabeceraType

'Creamos la cabecera
        factura.Cabecera = Cabecera

el problema lo tengo al asignar la otra parte:

Dim regAlta = New Verifactu.sf.RegistroFacturacionAltaType

        Dim registro = New sf.RegistroFacturaType
        With registro
            .Item = regAlta
        End With

        Dim lista As New List(Of sf.RegistroFacturaType)
        lista.Add(registro)

        factura.RegistroFactura = lista.ToArray()

Empezado por Jarogo08

yo lo hago así:

CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = New CalificacionOperacionType
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = CalificacionOperacionType.S1

en cuanto al encadenamiento:

CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento = New RegistroFacturacionAltaTypeEncadenamiento

If HuellaVerifactuAnterior = "" Then
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New PrimerRegistroCadenaType
Else
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New EncadenamientoFacturaAnteriorType
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).IDEmisorFactura = RowVerifactu.Item("IdEmisorFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).NumSerieFactura = RowVerifactu.Item("NumSerieFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).FechaExpedicionFactura = Format(CDate(RowVerifactu.Item("FechaExpedicionFacturaAnterior")), "dd-MM-yyyy")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).Huella = RowVerifactu.Item("HuellaVerifactuAnterior")
End If

Espero que te sirva!