Sub fillPCLV()
Try
Dim isAlter As Boolean = True
PCLV.Initialize(Me, "PCLV", lstCustInventurList)
Do While PCLV.IsInitialized = False
Loop
PCLV.NumberOfSteps = 20
For Each InventurPosi As InventurPosStruct In InventurPosList
If SelectedInvPosItem.Id = InventurPosi.Id Then currInventurPosIndex = lstCustInventurList.Size
If isAlter = True Then
If InventurPosi.workedon = True Then
PCLV.AddItem(160dip, Colors.ARGB(255,235,255,255), InventurPosi)
isAlter = False
Else
PCLV.AddItem(160dip, Colors.ARGB(245,255,255,255), InventurPosi)
isAlter = False
End If
Else
If InventurPosi.workedon = True Then
PCLV.AddItem(160dip, Colors.ARGB(255,235,255,255), InventurPosi)
isAlter = True
Else
PCLV.AddItem(160dip, Colors.ARGB(255,255,255,255), InventurPosi)
isAlter = True
End If
End If
Next
PCLV.Commit
PCLV.B4XSeekBar1.Initialize(Me,"B4XSeekBar1")
ProgressDialogHide
Catch
Log(LastException.Message)
ProgressDialogHide
End Try
End Sub