Таблицы ядра приложения

Файл: Example\Src\DICOM\C_CORE.gcd

Издание 01.2007. Добавлены директивы документирования.

//******************************************************************************
//													(c) корпорация Галактика
// Демопроект 1.0
// Таблицы компонента "Общий функционал"
// Коды таблиц: 3200-3299, последний использованный 3201
//******************************************************************************

#include IKatMaterials.vih
#include IKatPersons.vih

#doc
 Связь "проекты -> исполнители".</brief>
 Представляет сотрудников как ресурс, необходимый для выполнения некоторой работы,
 проекта и т.п.
#end
create table D_CORE.PrjExecutors "Исполнители (ресурсы)"
  using "PrjExecs.dat"
  component C_CORE
  with table_Code = 3201
  with replace
(
  NRec	 : tNRec				"Номер записи",
  cEmployee  : ref(objref KatPersons) "Сотрудник",
			 // персональные данные из картотеки сотрудников

  cMaster	: tNRec				"Владелец ресурса",
  MasterCode : word				 "Код владельца ресурса",
			 // таблица, на которую ссылается cMaster:
			 //   1-Управление проектами (см. core.inc)

  Status	 : byte				 "Статус записи",
			 // 0-первичные данные, 1-расчетные (см. core.inc)

  QuantP	 : tKol				 "Плановый объем работы в человекоднях",
  QuantF	 : tKol				 "Фактический объем работы в человекоднях",
  SummP	: tSumma				 "Плановая стоимость работы",
  SummF	: tSumma				 "Фактическая стоимость работы"
)
with index
(
  PrjExecutors0   =  NRec(unique, surrogate, journal),
  PrjExecutors01  =  MasterCode + cMaster + Status + cEmployee   // для ссылочной целостности
);

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!

#doc
 Связь "проекты -> материальные ресурсы".</brief>
 Представляет материалы как ресурс, необходимый для выполнения некоторой работы,
 проекта и т.п.
#end
create table D_CORE.PrjMaterials "Материальные ресурсы"
  using "PrjMats.dat"
  component C_CORE
  with table_Code = 3200
  with replace
(
  NRec	 : tNRec					"Номер записи",
  cMaterial  : ref(objref KatMaterials) "Материал",
			 // описание материала в каталоге

  cMaster	: tNRec					"Владелец ресурса",
  MasterCode : word					 "Код владельца ресурса",
			 // таблица, на которую ссылается cMaster:
			 //   1-Управление проектами (см. core.inc)

  Status	 : byte					 "Статус записи",
			 // 0-первичные данные, 1-расчетные (см. core.inc)

  QuantP	 : tKol					 "Запланированное количество",
  QuantF	 : tKol					 "Фактически израсходованное количество",
  SummP	: tSumma				 "Плановая стоимость",
  SummF	: tSumma				 "Фактическая стоимость"
)
with index
(
  PrjMaterials0   =  NRec(unique, surrogate, journal),
  PrjMaterials01  =  MasterCode + cMaster + Status + cMaterial
);

!
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!

//
// Конец файла
//