GdcConst.TgdcConst

Версия 15:59, 27 августа 2014

Delphi:

 TgdcConst = class(TgdcBase)

Описание

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

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

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

Список констант и их значений хранится в таблице GD_CONST и GD_CONSTVALUE, соответственно.

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

  ...
  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))

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