*---------------------- Location Section ------------------------ * Library: Aformsqueuemgmt.vcx * Class: Frmsupervisorqueuemgt * Method: Initializecombos() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 06/23/2005 - NN * MODIFIED *---------------------------------------------------------------- lparameters tcDeptAlias, tcTeamAlias, tcEmployeeAlias local lnLeft, lnTop, lnWidth with thisform if .cboDepartments.lReadonly lnLeft = .cboDepartments.left lnTop = .cboDepartments.top lnWidth = .cboDepartments.width .cboDepartments.release() .newobject('txtDepartment', 'cTextbox') .txtDepartment.readonly = .t. .txtDepartment.lReadonly = .t. .txtDepartment.value = .cDepartmentName .txtDepartment.left = m.lnLeft .txtDepartment.top = m.lnTop .txtDepartment.width = m.lnWidth .txtDepartment.visible = .t. else .cboDepartments.rowsourcetype = 3 .cboDepartments.rowsource = ; "SELECT distinct cDepartment_name, cDepartments_pk " + ; "FROM " + m.tcDeptAlias + ; " INTO CURSOR c_AllDepartments " + ; "ORDER BY 1" if not inlist(.oBizObj.cDepartments_pk,space(16),"%") .cboDepartments.value = .oBizObj.cDepartments_pk endif .cboDepartments.controlsource = .oBizObj.cDepartments_pk endif if .cboTeams.lReadonly lnLeft = .cboTeams.left lnTop = .cboTeams.top lnWidth = .cboTeams.width .cboTeams.release() .newobject('txtTeam', 'cTextbox') .txtTeam.readonly = .t. .txtTeam.lReadonly = .t. .txtTeam.value = .cTeamName .txtTeam.left = m.lnLeft .txtTeam.top = m.lnTop .txtTeam.width = m.lnWidth .txtTeam.visible = .t. else .cboTeams.rowsourcetype = 3 .cboTeams.rowsource = ; "SELECT distinct cTeam_name, cEmployee_teams_pk " + ; "FROM "+ m.tcTeamAlias + ; " INTO CURSOR c_AllTeams " + ; "ORDER BY 1" if not inlist(.oBizObj.cEmployee_teams_pk,space(16),"%") .cboTeams.value = .oBizObj.cEmployee_teams_pk endif .cboTeams.controlsource = .oBizObj.cEmployee_teams_pk endif if .cboEmployees.lReadonly lnLeft = .cboEmployees.left lnTop = .cboEmployees.top lnWidth = .cboEmployees.width .cboEmployees.release() .newobject('txtEmployee', 'cTextbox') .txtEmployee.readonly = .t. .txtEmployee.lReadonly = .t. .txtEmployee.value = .cEmployeeName .txtEmployee.left = m.lnLeft .txtEmployee.top = m.lnTop .txtEmployee.width = m.lnWidth .txtEmployee.visible = .t. else .cboEmployees.rowsourcetype = 3 .cboEmployees.rowsource = ; "SELECT distinct cEmpName, cUserID " + ; "FROM " + m.tcEmployeeAlias + ; " INTO CURSOR c_AllEmployees " + ; "ORDER BY 1" if not empty(.oBizObj.cEmployeeID) .cboEmployees.value = .oBizObj.cEmployeeID else .cboEmployees.value = "does not exist" && we want to start with no selection endif .cboEmployees.controlsource = .oBizObj.cUserID endif endwith>Hi Nadya.