when I write into my variable "Prezzo" type double .

F.Articoli(Codice).Prezzo1 is Double

B4X:

```
Sub Globals
Dim Prezzo As Double
End Sub
Private Sub aggiornaComanda(Codice As Int, Qta As Int)
Log("aggiornaComanda: Codice=" & Codice & ", Qta=" & Qta)
Try
Dim i As Int, bAggiunto As Boolean=False
Dim newIdComanda As Int = UtilityComanda.getMaxIndexComanda(F.Comanda)+1
If F.UsaListini=0 Then
' Log(GetType(F.ListinoCorrente))
F.ListinoCorrente=1
Else
If F.ListinoCorrente <= 0 Then
F.ListinoCorrente=F.ListinoBase
End If
If F.ListinoCorrente < 1 Or F.ListinoCorrente > 5 Then
F.ListinoCorrente = 1
End If
End If
Select Case F.ListinoCorrente
Case 2
Prezzo = F.Articoli(Codice).Prezzo2
Case 3
Prezzo = F.Articoli(Codice).Prezzo3
Case 4
Prezzo = F.Articoli(Codice).Prezzo4
Case 5
Prezzo = F.Articoli(Codice).Prezzo5
Case Else
Prezzo =F.Articoli(Codice).Prezzo1
End Select
```