srvgudba_0745

[ |../../index.htm#lansa/srvgudba_0745.htm]
You are here:

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
 
[ |../../index.htm#lansa/srvgudba_0745.htm]