I see only 100 record on showtremplate ?
Thanks for help
Private Sub ButSwClienti_Click
ButSwClienti.Enabled = False
If CntCli = 0 Then
CntCli = 1
Wait For (CaricaClienti) Complete (Result As Int)
' CaricaClienti
Sleep(2000)
End If
Wait For (Dialog.ShowTemplate(ClientiTemplate, "", "", "Annulla")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
TxtCliente.Text = ClientiTemplate.SelectedItem.Trim
End If
ButSwClienti.Enabled = True
End Sub
rivate Sub CaricaClienti As ResumableSub
Dim j As HttpJob
Dim parser As JSONParser
Dim CodiceCliente As String
Dim DescrizioneCliente As String
Dim Items As List
ClientiTemplate.Initialize
Items.Initialize
j.Initialize("Clienti", Me)
' Send a Get
j.Download(Starter.Ip & "leggilistacli.php")
wait for (j) jobdone (j As HttpJob)
If j.Success Then
Log(j.GetString)
parser.Initialize(j.GetString)
Dim Radice As Map = parser.NextObject
Dim records As List = Radice.Get("records")
For Each colrecords As Map In records
CodiceCliente = colrecords.Get("COD")
CodiceCliente = CodiceCliente.Trim & " "
CodiceCliente = CodiceCliente.SubString2(0,6)
DescrizioneCliente = colrecords.Get("DES")
DescrizioneCliente = DescrizioneCliente.Trim & " "
DescrizioneCliente = DescrizioneCliente.SubString2(0,15)
Items.Add(CodiceCliente & " " & DescrizioneCliente)
Next
' Log(Items.Size)
Else
Log("Errore Clienti " & j.ErrorMessage)
Return 0
End If
j.Release
ClientiTemplate.SetItems(Items)
Return 0
End Sub