вторник, 13 марта 2012 г.

Получение ИД организации контрагента по ИД сотрудника

Параметры функции  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 - объект справочник контрагентов 

Комментариев нет:

Отправить комментарий