problema lotti nuovo aggiornamento

Ciao Fabio, ti allego una foto di un documento per farti vedere cosa ci compare.
Questo è dal nuovo aggiornamento di ready pro, prima non capitava.
Quella riga che vedi è uno script che ci stampa la lista lotti caricata con le varie quantità caricate a magazzino. per le birre le mettiamo noi, mentre per spese di trasporto e sconto bonifico (è una riga sconto che abbiamo chiamato bonifico) viene in automatico, mi servirebbe sapere come scaricare quei lotti per non farli più comparire, altrimenti per ogni ordine che stampiamo, perdiamo 16 righe di testo.
Grazie e buon lavoro.
p.s. ti scrivo anche lo script cosi puoi vedere come ci era stato fatto:

Option Explicit

Dim Lotto, elenco

elenco=""
For Each Lotto in Product.AvailableSerialNumbers
    If elenco <> "" Then
        elenco = elenco & " ..." & vbCrLf
    End If
    elenco = elenco & Lotto.ExpDate & " su " & Lotto.Quantity & " Pz"
Next
Rdy.ResponseWrite(elenco)