Visualizzazione del nome fornitore con prezzo di acquisto piu' economico per gli articoli contenuti nei documenti

Creato il: 22.05.2015
L'esempio seguente e' utilizzabile su una lista documenti (ddt, fatture, ordini) e visualizza la ragione sociale del fornitore piu' economico tra quelli presenti nel tab FORNITORI del primo articolo inserito nel documento in analisi.
Option Explicit
 
Dim PrimoArticolo
Dim RigaOrdine
Dim NomeFornitore
Dim PrezzoMinimo
Dim Prezzo
Dim DettagliFornitore
 
' Cerca il primo articolo dell'ordine
Set PrimoArticolo=Nothing
For Each RigaOrdine In Doc.DocRows
   If RigaOrdine.Product.Id>0 Then
         Set PrimoArticolo=RigaOrdine.Product
         Exit For 
   End If
Next
 
' Analizza i fornitori
NomeFornitore=""
PrezzoMinimo=99999999
If not(PrimoArticolo Is Nothing) Then
    For Each DettagliFornitore In PrimoArticolo.ProductSuppliers
          Prezzo=Rdy.toDouble(DettagliFornitore.CustomField(100))
          If Prezzo<PrezzoMinimo Then
              PrezzoMinimo=Prezzo
              NomeFornitore=DettagliFornitore.Supplier.Name
          End If
    Next
End If
Response.Write(NomeFornitore)

Login