Параметры функции GetOrgIDByEmplID:
EmplID - ID сотрудника организации
RefContrAgent - объект справочник контрагентов
UserSession - Объект сессия пользователя
Function GetOrgIDByEmplID(UserSession, EmplID, RefContrAgent)
GetOrgIDByEmplID=null
If RefContrAgent Is Nothing Then
Exit Function
End If
Set SectionEmployees=RefContrAgent.Sections(RefContrAgent.Type.AllSections.GetByAlias("Employees").ID)
If SectionEmployees.RowExists(EmplID)=False Then
Exit Function
End If
Set RowEmployee = SectionEmployees.GetRow(EmplID)
If RowEmployee Is Nothing Then
Exit Function
End If
GetOrgIDByEmplID=RowEmployee.Value("ParentRowID")
End Function
EmplID - ID сотрудника организации
RefContrAgent - объект справочник контрагентов
EmplID - ID сотрудника организации
RefContrAgent - объект справочник контрагентов
UserSession - Объект сессия пользователя
Function GetOrgIDByEmplID(UserSession, EmplID, RefContrAgent)
GetOrgIDByEmplID=null
If RefContrAgent Is Nothing Then
Exit Function
End If
Set SectionEmployees=RefContrAgent.Sections(RefContrAgent.Type.AllSections.GetByAlias("Employees").ID)
If SectionEmployees.RowExists(EmplID)=False Then
Exit Function
End If
Set RowEmployee = SectionEmployees.GetRow(EmplID)
If RowEmployee Is Nothing Then
Exit Function
End If
GetOrgIDByEmplID=RowEmployee.Value("ParentRowID")
End Function
EmplID - ID сотрудника организации
RefContrAgent - объект справочник контрагентов
Комментариев нет:
Отправить комментарий