ProductSuppliers (collection)

Creato il: 14.11.2022
Collection di oggetti ProductSupplier contenente l'elenco dei fornitori associati all'articolo con i relativi prezzi di acquisto, codici di riferimento, ecc.

Per ogni articolo possono essere presenti piu' elementi ProductSupplier relativi anche allo stesso fornitore esattamente come avviene all'interno del tab FORNITORI dell'anagrafica articolo (se ad esempio vengono specificate condizioni diversificate per quantita')

Sintassi
Set elencoFornitori = myProduct.ProductSuppliers( )

Tipo dati restituito
Collection di oggetti ProductSupplier

Esempio 1 - Recuperare il codice articolo di un fornitore specifico

CodArticoloFornitore = ""
IdFornitore = 12345
For Each DettaglioFornitore In Product.ProductSuppliers
  If DettaglioFornitore.Supplier.Id = IdFornitore Then
     CodArticoloFornitore = DettaglioFornitore.ProductCode
     Exit For
  End If
Next
Response.Write(CodArticoloFornitore)

Esempio 2 - Visualizzare il prezzo di acquisto da un fornitore specifico

IdFornitore = 12345
For Each DettaglioFornitore In Product.ProductSuppliers
  If DettaglioFornitore.Supplier.Id = IdFornitore Then
     Response.Write(DettaglioFornitore.CustomField(100))
     Exit For
  End If
Next

Esempio 3 - Visualizzazione della ragione sociale di tutti i fornitori collegati ad un articolo

Option Explicit
Dim DettaglioFornitore
Dim result
result=""
For Each DettaglioFornitore In Product.ProductSuppliers
  If result<>"" Then
     result = result & ", "
  End If
  result = result & DettaglioFornitore.Anag.Name
Next
Response.Write(result)

Login