#DEFINE QT_USER 9 mApp="Application Descriptor" mServ=ALLTRIM(THISFORM.txtServ.VALUE) mUser=ALLTRIM(THISFORM.txtUser.VALUE) mPass=ALLTRIM(THISFORM.txtPass.VALUE) mMach=ALLTRIM(THISFORM.txtMach.VALUE) oConnection=CREATEOBJECT("ClientCOM2.EICServer2") oQueue=CREATEOBJECT("ClientCOM2.EICQueue2") oCall= CREATEOBJECT("ClientCOM2.EICCallObject2") IF !oConnection.ConnectionValid then oConnection.CONNECT(mApp,mServ,mUser,mPass,mMach,.T.) ENDIF oQueue.CONNECT(QT_USER,mUser) aQueue=TRANSFORM(oQueue.OBJECTS) LastCall=2 QueuePopulated=.F. IF ALEN(aQueue)>0 then nCall=aQueue(LastCall) QueuePopulated=.T. ENDIF IF QueuePopulated then oCall.ID=nCall sCallInfo= "Number:" + oCall.RemoteLocation +"; Name:" + oCall.RemoteName ELSE sCallInfo="No Call in Queue." ENDIF IF .T. WITH THISFORM.list1 .ADDITEM(sCallInfo,1,2) .LISTITEM(.LISTCOUNT,1)=TIME() ENDWITH ENDIF oCall=NULL oQueue=NULL oConnection=NULL