* Function....: Assign_Queues *) Description: This function is used to assign queues to employees from the "holding tank" *) Each user is supposed to get queues according to his/her profile (Employee_Queue_Profiles) *) * Scope: Public * Parameters: tcQueue_Name_From, tcQueue_Name_To, tcDepartment_Code, tcUserID, tnNumberOfDays *$ Usage: MESSAGEBOX(assign_queues("UNASSIGNED","DAILY","O","NNOSO001",2)) *$ * Returns: Error if occurred *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 02/18/2005 - NN * MODIFIED 01/10/2006 - NN *---------------------------------------------------------------- function Assign_Queues lparameters tcQueue_Name_From, tcQueue_Name_To, ; tcDepartment_Code, tcUserID, tnNumberOfDays local loProcess, lcError, llReleaseProcedure, lcPath llReleaseProcedure = .f. lcPath = addbs(justpath(sys(16,1))) if lower(right(m.lcPath,7)) <> "\progs\" lcPath = m.lcPath + "Progs\" endif if not "businessprocessclass" $ lower(set('procedure')) set procedure to (m.lcPath + "BusinessProcessClass.prg") additive llReleaseProcedure = .t. endif loProcess = newobject('AssignQueues', m.lcPath + 'AssignQueuesClass.prg') m.loProcess.RunProcess(m.tcQueue_Name_From, m.tcQueue_Name_To, ; m.tcDepartment_Code, m.tcUserID, m.tnNumberOfDays) && "UNASSIGNED","DAILY","O","NNOSO001",14) lcError = m.loProcess.cError if m.llReleaseProcedure release procedure BusinessProcessClass endif return m.lcErrorThe problem we're getting is that it's trying to search for BusinessProcessClass.fxp in the root directory.