Selezione ricarico dal listino in modo automatico

Buonasera
abbiamo una richiesta in merito a questo script:

Option Explicit

Dim Riga
Dim Prezzo
dim ricarico
dim diminuzione
dim fornitore

Set Prezzo = Product.SellingPrice(6, True)
ricarico = product.customfield(566)
Riga = Rdy.toDouble(Replace(Prezzo.Price,"'",""))
fornitore = Product.CustomField(41)

if fornitore = "X" then
    diminuzione = 2
else
    if ricarico = "" Then
        diminuzione = 0
    else
        if ricarico > 7 then

Sostanzialmente il problema è che non riusciamo ad automatizzare la procedura poiché ogni volta che viene avviata ci viene chiesto di selezionare il listino.
Supponiamo che venga richiesto poiche "product.customfield(566)" non indica il preciso listino al quale fa riferimento cosa che gia accade con Product.SellingPrice(6, True).

Esiste un modo per dirgli quale listino prendere in considerazione tramite script senza dover obbligatoriamente essere li quando viene richiesto e dunque poter automatizzare la procedura anche durante le ore notturne?

Gia parlato con la vostra assistenza la quale ci consiglia di chiedere direttamente nel forum.
Attendiamo riscontro in merito
Cordiali Saluti