'dim mapaEscalonado as map
mapaEscalonado.Initialize
For i=0 To CustomListViewPRODUTOSESCALONADOS.Size -1
Dim pnl As B4XView = CustomListViewPRODUTOSESCALONADOS.GetPanel(i)
Dim nomeprodutoEscalonado As B4XView = pnl.GetView(0).GetView(3)
Dim edtText As B4XView = pnl.GetView(0).GetView(2)
Dim listProdutoEscalonado As List
If edtText.Text > 0 Then
Log( "Produto: " & nomeprodutoEscalonado.Text)
ItemEscalonado = nomeprodutoEscalonado.Text
Log( "QTDE: " & edtText.Text)
QTDitemEscalonado = edtText.Text
mapaEscalonado.Put(ItemEscalonado,QTDitemEscalonado)
End If
Next
For i = 0 To mapaEscalonado.Size - 1
Log("Key: " & mapaEscalonado.GetKeyAt(i))
Log("Value: " & mapaEscalonado.GetValueAt(i))
Next