Visualizzazione del nome fornitore con prezzo di acquisto piu' economico per gli articoli contenuti nei documenti
Creato il: 22.05.2015L'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)