'Option Explicit

Dim riga
Dim Tipo6
Dim Disp
Dim CodAltCategoria
Dim Fornitore
Dim AcqRic
Dim Ricarico
Dim RicPrivat
DIm Risultato
Dim PreRic
Dim AcqRic2
Dim Ricarico2
Dim RicPrivat2
DIm Risultato2
Dim PreRic2
Dim AcqRic3
Dim Ricarico3
Dim RicPrivat3
DIm Risultato3
Dim PreRic3


PreRic = RowItem.CustomField(500)
PreRic = Replace(PreRic,"'","")

PreRic2 = RowItem.CustomField(500)
PreRic2 = Replace(PreRic,"'","")

PreRic3 = RowItem.CustomField(500)
PreRic3 = Replace(PreRic,"'","")

If PreRic > 0 Then
    AcqRic = PreRic
End If

If PreRic2 > 0 Then
    AcqRic2 = PreRic2
End If

If PreRic3 > 0 Then
    AcqRic3 = PreRic3
End If

RicPrivat = 0
Risultato = 0
RicPrivat2 = 0
Risultato2 = 0
RicPrivat3 = 0
Risultato3 = 0


If AcqRic < 2.51 Then
 RicPrivat = 101
ElseIf AcqRic < 7.51 Then
  RicPrivat = 61
ElseIf AcqRic < 15.01 Then
  RicPrivat = 41
ElseIf AcqRic < 25.01 Then
  RicPrivat = 23
ElseIf AcqRic < 35.01 Then
  RicPrivat = 19
ElseIf AcqRic < 50.01 Then
  RicPrivat= 17
ElseIf AcqRic < 2000.01 Then
  RicPrivat = 16
End If

If AcqRic2 < 2.51 Then
 RicPrivat2 = 40.5
ElseIf AcqRic2 < 7.51 Then
  RicPrivat2 = 30.5
ElseIf AcqRic2 < 15.01 Then
  RicPrivat2 = 25.5
ElseIf AcqRic2 < 25.01 Then
  RicPrivat2 = 16.5
ElseIf AcqRic2 < 35.01 Then
  RicPrivat2 = 13.5
ElseIf AcqRic2 < 50.01 Then
  RicPrivat2 = 12.5
ElseIf AcqRic2 < 2000.01 Then
  RicPrivat2 = 11.5
End If

If AcqRic3 < 2000.01 Then
  RicPrivat3 = 12.5
End If

If AcqRic = 0 Then
'non faccio nulla
Else
 Risultato = AcqRic + (AcqRic * RicPrivat / 100)
 Risultato = Risultato + (Risultato * 22 /100)
End If

If AcqRic2 = 0 Then
'non faccio nulla
Else
 Risultato2 = AcqRic2 + (AcqRic2 * RicPrivat2 / 100)
 Risultato2 = Risultato2 + (Risultato2 * 22 /100)
End If

If AcqRic3 = 0 Then
'non faccio nulla
Else
 Risultato3 = AcqRic3 + (AcqRic3 * RicPrivat3 / 100)
End If

Risultato = Risultato / 10
Risultato = Rdy.FormatCurrency(Risultato)
Risultato = Replace(Risultato,"'","")

Risultato2 = Risultato2 / 10
Risultato2 = Rdy.FormatCurrency(Risultato2)
Risultato2 = Replace(Risultato2,"'","")

Risultato3 = Risultato3 / 10
Risultato3 = Rdy.FormatCurrency(Risultato3)
Risultato3 = Replace(Risultato3,"'","")


CodAltCategoria = RowItem.CustomField(112)
Tipo6 = RowItem.CustomField(185) 'Verifico se è da escludere dalla generazione del listino
Disp = Rdy.toDouble(Product.QtyAvailable)
Fornitore = RowItem.CustomField(40)
riga = ""

If Fornitore = "6523" Then
If Tipo6 = "N" And Disp >= 0 And (left(CodAltCategoria,3) <> "000") Then 

 riga = riga & "" & Product.Code & "" 'codice articolo
  riga = riga & ";"
  riga = riga & "" & Product.Name & "" 'descrizione articolo
  riga = riga & ";"
  riga = riga & "" & Disp & "" 'quantità disponibile
  riga = riga & ";"
  riga = riga & "" & Risultato*10 & "" 'Ricarico
  riga = riga & ";"
  riga = riga & "" & Risultato2*10 & "" 'Ricarico
  riga = riga & ";"
  riga = riga & "" & Risultato3*10 & "" 'Ricarico
  riga = riga & ";"
  
 
riga = riga & VbCrLf
  
  Rdy.ResponseWrite(riga)
End If
End If
'End If