Таблицы модуля 'Управление персоналом' Назад В начало Вперед

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

//******************************************************************************
//													(c) корпорация Галактика
// Демопроект 1.0
// Таблицы компоненты "Управление персоналом"
// Коды таблиц: 3500-3599, последний использованный 3502
//******************************************************************************


create table D_STAFF.KatDeps "Каталог подразделений"
  using "KatDeps.dat" 
  component C_STAFF
  with table_Code = 3502
  with replace
(
  NRec  : tNRec	 "Номер записи",
  Name  : string[20]  "Название подразделения"
)
with index
(
  KatDeps0   =  NRec(unique, surrogate, journal),
  KatDeps01  =  Name
);

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

create table D_STAFF.KatPersons "Картотека сотрудников"
  using "KatPersn.dat"
  component C_STAFF
  with table_Code = 3500
  with replace
(
  NRec		 : tNRec				 "Номер записи",
  FirstName	: string[20]			"Имя",
  LastName	 : string[30]			"Фамилия",
  MiddleName   : string[20]			"Отчество",
  TaxRate	: tSumma				"Оклад",
  Raise		: tSumma				"Доплаты",
  cDepartment  : ref(KatDeps)  restrict  "Подразделение",
  cPost		: ref(KatPosts) restrict  "Должность"
)
with index
(
  KatPersons0   =  NRec(unique, surrogate, journal),
  KatPersons01  =  LastName + FirstName,
  KatPersons02  =  cDepartment, 	// Для недекларативной
  KatPersons03  =  cPost				 // ссылочной целостности
);

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

create table D_STAFF.KatPosts "Каталог должностей"
  using "KatPosts.dat" 
  component C_STAFF
  with table_Code = 3501
  with replace
(
  NRec  : tNRec	 "Номер записи",
  Name  : string[20]  "Название должности"
)
with index
(
  KatPosts0   =  NRec(unique, surrogate, journal),
  KatPosts01  =  Name
);

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

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