Aggiunta più DatiBeniServizi al file XML della Fattura Elettronica

Buona sera a tutti i componenti di questo Forum.

Avrei un problema con l'aggiunta di più prodotti nella sezione DatiBeniServizi della libreria open source Fatturalettronica.dll di Nicola Iarocci.

Eseguo un ciclo per aggiungere i prodotti filtrati da aggiungere nel file XML, ma viene riportato solamente un solo prodotto e precisamente l'ultimo presente nella lista.

Inserisco il blocco di codice che sto utilizzando, con la speranza che qualcuno mi possa aiutare.

Grazie a tutti in anticipo.

 Dim Body = New FatturaElettronicaBody()
  
 Dim numeroRiga As Integer = 0
 Dim datiBeniServizi As New DatiBeniServizi
 Dim dettaglioLinee As New DettaglioLinee
 Dim dettaglioLineeList As New List(Of DettaglioLinee)
 Dim codiceArticolo As New CodiceArticolo
 Dim scontoMaggiorazione_221 As New FatturaElettronica.Common.ScontoMaggiorazione
 Dim altriDatiGestionali As New AltriDatiGestionali
 dettaglioLinee.ScontoMaggiorazione.Add(scontoMaggiorazione_221)
 dettaglioLinee.AltriDatiGestionali.Add(altriDatiGestionali)
 dettaglioLineeList.Add(dettaglioLinee)
 For Each y1 As DataRow In Me.Shop2010DataSet.Tables("Prodotti").Select("Quantità =0") ' and Status = 'Gestito'")

     'Incremento del numero linea in base al numero di prodotti da aggiungere alla fattura
     numeroRiga += 1

     dettaglioLinee.NumeroLinea = numeroRiga
     dettaglioLinee.TipoCessionePrestazione = ""

     codiceArticolo.CodiceTipo = ""
     codiceArticolo.CodiceValore = ""
     dettaglioLinee.Descrizione = y1("Descrizione")
     dettaglioLinee.Quantita = 40
     dettaglioLinee.UnitaMisura = "CAS"
     dettaglioLinee.DataInizioPeriodo = "2024-05-06"
     dettaglioLinee.DataFinePeriodo = "2024-05-06"
     dettaglioLinee.PrezzoUnitario = y1("PrezzoPubblico")

     scontoMaggiorazione_221.Tipo = ""
     scontoMaggiorazione_221.Percentuale = 0
     scontoMaggiorazione_221.Importo = 0
     dettaglioLinee.PrezzoTotale = dettaglioLinee.PrezzoUnitario * dettaglioLinee.Quantita
     dettaglioLinee.AliquotaIVA = 22
     dettaglioLinee.Ritenuta = ""
     dettaglioLinee.Natura = ""
     dettaglioLinee.RiferimentoAmministrazione = ""

     altriDatiGestionali.TipoDato = "COD_BUS"
     altriDatiGestionali.RiferimentoTesto = "PDT1320"
     altriDatiGestionali.RiferimentoNumero = 0
     altriDatiGestionali.RiferimentoData = "2024-05-06"


     'Verifica dei prodotti trovati
     Console.WriteLine(numeroRiga & " " & y1("Descrizione"))
 Next

 datiBeniServizi.DettaglioLinee = dettaglioLineeList
 Body.DatiBeniServizi.DettaglioLinee = dettaglioLineeList