Page History
...
Public Type FIELD_DETAIL
...
fieldLen As Long
flags As Long
End Type
Sub SetEmployeesList()
Dim i As Integer
Dim fldData(2) As FIELD_DETAIL
'
...
clear list
lstOrders.Clear
...
If cmbSection.ListIndex = -1 Then
Exit Sub ' no department do nothing
End If
' Select data
iRet = LceSetSelectOptions(iSession, "*RECEIVEIMMED")
'
...
Request data
If iRet = LceFalse then exit sub ' Failed
iRet = LceLocalDateTimeToServer(iSession, "ORDRTIME",
...
sOrderStartDate)
iRet=
...
LceRequestSelectWhere(iSession,
...
_
"ORDERNUM,
...
ORDRTIME",
...
"ORDERS",
...
"",
...
"ORDRTIME > " + sOrderStartDate, FALSE)
...
If iRet = LceTrue Then
sBuff = String(40,
...
Chr(0))
...
i = 0
' Read all records
While (LceReceiveNextX(iSession,
...
sBuff,
...
FIELD_DATA_
...
SIZE *
...
2,
...
fldData(0),
...
2)
...
=
...
LceTrue)
...
lstOrders.
...
AddItem (sTrim(Mid(sBuff,
...
1,
...
fldData(0).fieldLen))
...
_
&
...
"
...
"
...
&
...
sTrim(Mid(sBuff,
...
fldData(0).
...
fieldLen +
...
1,
...
fldData(1).fieldLen)))
...
i = i + 1
Wend
' Select first on list
If lstEmployees.ListCount > 0 Then lstEmployees.ListIndex = 0
else
' failed
…
End If
End Sub