Creando el XML

[Jarogo08]

Empezado por Ramon88

Hola, me he decidido a probar a meter el WSDL y crear el XML como dios manda, pero no me aclaro... Por cierto, trabajo con visual studio
Lo primero es que hay veces que no encuentro la clase para crear el nodo.

Por ejemplo, estoy en la parte Detalles tengo la clase DetalleType, peero esta clase no tiene CalificacionOperacion.
En Encadenamiento, no encuentro nada que haga referencia a PrimerRegistro

Ahí ando atascado!
Alguien me puede orientar?


Gracias!

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!

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

[Ramon88]

Este es el XML que se me queda, cuando lo mando, la respuesta me devuelve un wsdl, no entiendo por que...

<?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>SOFTWARE SL</NombreRazon>
      <NIF>B22222222</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>
        <IDEmisorFactura>B000000</IDEmisorFactura>
        <NumSerieFactura>12346579</NumSerieFactura>
        <FechaExpedicionFactura>01-01-2005</FechaExpedicionFactura>
      </IDFactura>
      <NombreRazonEmisor>Nombre Razón Emisor</NombreRazonEmisor>
      <TipoFactura>F2</TipoFactura>
      <DescripcionOperacion>Factura Simplificada Paciente</DescripcionOperacion>
      <Desglose>
        <DetalleDesglose>
          <CalificacionOperacion>S1</CalificacionOperacion>
          <TipoImpositivo>21</TipoImpositivo>
          <BaseImponibleOimporteNoSujeto>100</BaseImponibleOimporteNoSujeto>
          <CuotaRepercutida>21</CuotaRepercutida>
        </DetalleDesglose>
      </Desglose>
      <CuotaTotal>21</CuotaTotal>
      <ImporteTotal>100</ImporteTotal>
      <Encadenamiento>
        <PrimerRegistro>S</PrimerRegistro>
      </Encadenamiento>
      <SistemaInformatico>
        <NombreRazon>SOFTWARE S.L.</NombreRazon>
        <NombreSistemaInformatico>XXXX</NombreSistemaInformatico>
        <IdSistemaInformatico>01</IdSistemaInformatico>
        <Version>1.0</Version>
        <NumeroInstalacion>001</NumeroInstalacion>
        <TipoUsoPosibleSoloVerifactu>N</TipoUsoPosibleSoloVerifactu>
        <TipoUsoPosibleMultiOT>S</TipoUsoPosibleMultiOT>
        <IndicadorMultiplesOT>S</IndicadorMultiplesOT>
      </SistemaInformatico>
      <FechaHoraHusoGenRegistro>2025-02-12T13:29:10+01:00</FechaHoraHusoGenRegistro>
      <TipoHuella>01</TipoHuella>
      <Huella>0AA53561F084A6EE52576624ACCF006D1BFA14F502F2A2D77CF8D031D9A88D46</Huella>
    </RegistroAlta>
  </RegistroFactura>
</RegFactuSistemaFacturacion>

[rdea]

Hola, si no me equivoco te falta el Soap envelope