Просмотр исходного текста страницы Tbrd Options

Основной класс настроек для подсистемы птицеводства. Используется для кеширования настроек и данных справочников.

<source lang="vbnet">
class Tbrd_Options

' Группы ТМЦ из настроек
  public property get GoodGroupEggKey
  public property get GoodGroupBirdKey
  public property get GoodGroupWasteKey

' ТМЦ из настроек
  public property get GoodEggArray
  public property get GoodBirthWasteArray


' Возвращает массив ключей подразделений для переданного типа
  public function GetDeptArray(ByVal InDeptType)

' Возвращает строку с ключами всех подразделений входящих в переданный тип (в том числе и вложенных)
  public function GetFullDeptList(ByVal InDeptType)

' Возвращает ТМЦ-особь мужского пола по переданному виду животных
  public function GetMaleGoodKey(ByVal InAnimalKindKey)
' Возвращает ТМЦ-особь женского пола по переданному виду животных
  public function GetFemaleGoodKey(ByVal InAnimalKindKey)
' Возвращает ТМЦ-особь детеныш по переданному виду животных
  public function GetChildGoodKey(ByVal InAnimalKindKey)

' Возвращает строку с ключами всех ТМЦ птиц указанных в переданном виде животных
'  При передаче -1, будут возвращены все ТМЦ из всех видов животных
  public function GetBirdGoodList(ByVal InAnimalKindKey)

' Возвращает строку с ключами всех ТМЦ яиц указанных в настройках
  public function GetEggGoodList

' Возвращает строку с ключами всех ТМЦ отходов вывода указанных в настройках
  public function GetWasteGoodList

' Возвращает тип подразделения из справочника USR$BRD_DEPTTYPE, или -1 если тип не найден
  public function GetDeptGroupKey(ByVal InDeptKey)


' Проверка входимости подразделения в определенный тип подразделения
  public function TestDeptInGroup(ByVal InDeptType, ByVal InDeptKey)

' Проверка входимости ТМЦ в определенную группу ТМЦ
  public function TestGoodInGroup(ByVal InGroupKey, ByVal InGoodKey)

' Проверка является ли ТМЦ птицей, выбранной в одном из видов животных
  public function TestGoodIsBird(ByVal InGoodKey)

' Проверка является ли ТМЦ яйцом, выбранным в настройках
  public function TestGoodIsEgg(ByVal InGoodKey)

' Проверка является ли ТМЦ отходом производства, выбранным в настройках
  public function TestGoodIsWaste(ByVal InGoodKey)


' Вызывает форму редактирования настроек
  public function ShowOptions

' Обновление закешированных в памяти данных по типам подразделений
  public sub RefreshDeptInfo

' Обновление закешированных в памяти данных по ТМЦ
  public sub RefreshGoodInfo

end class
</source>

[[Category:VBScript]]