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.
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