Android Question ShowTemplate Limit

DonManfred

Expert
Licensed User
Longtime User
Upvote 0

DonManfred

Expert
Licensed User
Longtime User
Thanks, no error, but the list non complete , i have 19000 record ?

I see only few record ...
What EXACTLY is the question? Describe it more clearly; maybe with some code to demonstrate. Best is to uplod a small project which shows the issue.
I do NOT understand anything from your post?
 
Upvote 0

mauriegio

Member
Licensed User
Longtime User
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
 
Upvote 0
Top