6 45 1 VB Example

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