Visualizzazione del prezzo di acquisto fornitore primario se il prezzo medio a magazzino non e' presente

Questo script visualizza il prezzo medio a magazzino di un articolo, e se questo non e' presente visualizza il prezzo di acquisto fornitore primario inserito nell'anagrafica dell'articolo corrispondente

' prezzo medio a magazzino (FIFO

Importo = Rdy.toDouble(RowItem.customfield(400))
 
If Importo<=0 Then
 IdArticolo = Rdy.toLong(RowItem.CustomField(10))
 If IdArticolo>0 Then
   ' prezzo acquisto fornitore primario
   Importo = Rdy.toDouble(Rdy.Product(IdArticolo).CustomField(60))
 End If
End If
Response.Write(Rdy.FormatCurrency(Importo))