Просмотр исходного текста страницы GdcConst.TgdcConst

{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgdcConst = class(TgdcBase)}}

== Описание ==

<onlyinclude>Бизнес-класс для работы с константами.</onlyinclude>  

Механизм констант платформы Гедымин предназначен для удобной работы с величинами вроде ставки НДС, размера минимальной заработной платы, базовой величины и т.п. Тип данных константы может быть строкой, датой или числом. Три независимых признака определяют поведение константы:

* '''Периодическая''' -- для каждого значения указывается дата, начиная с которой оно вступает в силу. 
* '''Организация''' -- каждое значение привязывается к своей организации.
* '''Пользователь''' -- каждое значение привязывается к пользователю системы.

Список констант и их значений хранится в таблице [[GD_CONST]] и [[GD_CONSTVALUE]], соответственно. Форма просмотра открывается командой '''Константы''' из раздела '''Сервис''' Исследователя системы.

Пример использования значения константы в макросах:

<syntaxhighlight lang="VB">
  ...
  Dim Creator, gdcConst, SimpleConst, PeriodicalConst
  Set Creator = New TCreator
  Set gdcConst = Creator.GetObject(null, "TgdcConst", "")

  ' RUID константы следует взять из окна Свойста объекта
  SimpleConst = gdcConst.QGetValueByID(gdcBaseManager.GetIDByRUIDString("147901775_143913310"))
  
  ' Получение значения периодической константы на дату 01.01.2000
  PeriodicalConst = gdcConst.QGetValueByIDAndDate(gdcBaseManager.GetIDByRUIDString("147901775_143913310"), DateSerial(2000, 01, 01))
</syntaxhighlight>

Приведенные выше функции '''QGetValueByID''' и '''QGetValueByIDAndDate''' будут использовать ИД текущей рабочей организации (список ИД, в случае холдинга) и текущего пользователя для извлечения значения.