GD STORAGE DATA

CREATE DOMAIN dstorage_data_type AS CHAR(1) NOT NULL
  CHECK(VALUE IN (
    'G',   /* корень глобального хранилища                                      */
    'U',   /* корень пользовательского хранилища, int_data -- ключ пользователя */
    'O',   /* корень хранилища компании, int_data -- ключ компании              */
    'T',   /* корень хранилища р.стола, int_data -- ключ р.стола                */
    'F',   /* папка                                                             */
    'S',   /* строка                                                            */
    'I',   /* целое число                                                       */
    'C',   /* дробное число                                                     */
    'L',   /* булевский тип                                                     */
    'D',   /* дата и время                                                      */
    'B'    /* двоичный объект                                                   */
  ));
 
CREATE TABLE gd_storage_data (
  id             dintkey,
  parent         dparent,
  name           dtext120 NOT NULL,
  data_type      dstorage_data_type,
  str_data       dtext120,
  int_data       dinteger,
  datetime_data  dtimestamp,
  curr_data      dcurrency,
  blob_data      dblob4096,
  editiondate    deditiondate,
  editorkey      dintkey,
 
  CONSTRAINT gd_pk_storage_data_id PRIMARY KEY (id),
  CONSTRAINT gd_fk_storage_data_parent FOREIGN KEY (parent)
    REFERENCES gd_storage_data (id)
    ON UPDATE CASCADE
    ON DELETE CASCADE,
  CHECK ((NOT parent IS NULL) OR (data_type IN ('G', 'U', 'O', 'T')))
);