Calcolo del margine partendo dal prezzo medio a magazzino

Questo script visualizza il Margine calcolato partendo dal prezzo medio a magazzino.

Se non esiste un prezzo di carico considera il prezzo inserito nel tab Fornitori dell'anagrafica articolo.

Option Explicit
 
Dim ImportoTotaleVendita
Dim IdArticolo
Dim PrezzoMedio
Dim Margine
Dim PrezzoAcquistoFornitore
ImportoTotaleVendita = Rdy.toDouble(RowItem.CustomField(49))
 
If ImportoTotaleVendita=0 Then
 ' se riga senza importo niente margine
 Response.Write("")
Else
 IdArticolo = RowItem.Product.Id
 If IdArticolo>0 Then
   PrezzoMedio = Rdy.toDouble(RowItem.Product.CustomField(570))
   If PrezzoMedio>0 Then
     ' se esiste un prezzo medio per l'articolo uso il margine
     margine = Rdy.toDouble(RowItem.CustomField(421))
   Else
     PrezzoAcquistoFornitore = Rdy.toDouble(RowItem.Product.CustomField(60))
     margine=(ImportoTotaleVendita - PrezzoAcquistoFornitore) * 100 / ImportoTotaleVendita
   End If
 Else
   ' per le linee senza codice articolo il margine e' sempre 100
   margine=100
 End If
 Response.Write(FormatNumber(margine, 1) & "%")
End If