6.45.1 VB Example
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