/*RDBMS: FIREBIRD/INTERBASE*/
SET SQL DIALECT  3 ;
CREATE DATABASE "D:\DATA\IBDATA\TEMP2.GDB" USER "SYSDBA"
PASSWORD "masterkey" PAGE_SIZE  4096 ;

/* Ñïðàâî÷íèê ñ÷åòîâ(ðåãèñòðîâ ó÷åòà)("äðåâåñíûé") */
CREATE TABLE Acc(
 ID      BIGINT DEFAULT  0  NOT NULL, /* ID-ðåãèñòðà(ñ÷åòà) */
 PARENT  BIGINT DEFAULT  0  NOT NULL, /* ID-ðîäèòåëÿ ðåãèñòðà(ñ÷åòà) */
 SIGN    VARCHAR( 16 ),               /* SIGN: Òèïà: '19.ÍÄÑ18%'...'41.ÌËß.ÌËß'*/
 AccYype CHAR( 1 ),                   /* 'À', 'Ï', ... */
 /* ...ìëÿ-ìëÿ-ìëÿ...*/
 NAME    VARCHAR( 128 ),
PRIMARY  KEY(ID),
CONSTRAINT PARENT_Acc FOREIGN KEY(PARENT) REFERENCES Acc(ID)
);

/* Ñïðàâî÷íèê îáúåêòîâ ó÷åòà("äðåâåñíûé") */
CREATE TABLE Object(
 ID     BIGINT DEFAULT  0  NOT NULL,  /* ID-îáúåêòà ó÷åòà */
 PARENT BIGINT DEFAULT  0  NOT NULL,  /* ID-ðîäèòåëÿ îáúåêòà ó÷åòà */
 /* ...ìëÿ-ìëÿ-ìëÿ...*/
 NAME   VARCHAR( 128 ),
PRIMARY KEY(ID),
CONSTRAINT PARENT_Obj FOREIGN KEY(PARENT) REFERENCES Object(ID)
);

/* Ñïðàâî÷íèê ìíîæåñòâ "ñóáêîíòî" ("äðåâåñíûé") */
/* Ññûëêà íà ID,-ññûëêà íà åäèíè÷í.ýëåìåíò èëè íà ïàïêó(ïîääåðåâî) */
CREATE TABLE ObjLink(
 ID     BIGINT DEFAULT  0  NOT NULL,  /* ID-îáúåêòà ó÷åòà */
 PARENT BIGINT DEFAULT  0  NOT NULL,  /* ID-ðîäèòåëÿ îáúåêòà ó÷åòà */
 /* ...ìëÿ-ìëÿ-ìëÿ...*/
 NAME   VARCHAR( 128 ),
PRIMARY KEY(ID),
CONSTRAINT PARENT_ObjLink FOREIGN KEY(PARENT) REFERENCES ObjLink(ID),
CONSTRAINT PARENT_Objects FOREIGN KEY(ID) REFERENCES Object(ID)
);

/* Òàáëèöà îïåðàöèé(ïðîâîäîê) */
CREATE TABLE OPERS(
 /*-------------------------Êîðïî-êîíñîëèäàöèÿ:-------------*/
 /* --- ìëÿ-ìëÿ-ìëÿ ---*/
 /*-------------------------Ïðèêëàä:------------------------*/
 OP_DOC_ID  BIGINT DEFAULT  0  NOT NULL,  /* Äîêóìåíò-ðîäèòåëü ïðîâîäêè */
 OP_ID      BIGINT DEFAULT  0  NOT NULL,  /* ID-ïðîâîäêè */
 OP_DATE    DATE DEFAULT 'NOW' NOT NULL,/* Äàòà îïåðàöèè */
 OP_ACC_D   INTEGER DEFAULT  0  NOT NULL, /* Ñ÷åò(ðåãèñòð) ïî äåáåòó*/
 OP_OBJ_D   BIGINT DEFAULT  0  NOT NULL,  /* Îáúåêò ó÷åòà ïî äåáåòó */
 OP_ACC_K   INTEGER DEFAULT  0  NOT NULL, /* Ñ÷åò(ðåãèñòð) ïî êðåäèòó */
 OP_OBJ_K   BIGINT DEFAULT  0  NOT NULL,  /* Îáúåêò ó÷åòà ïî êðåäèòó */
 OP_KOL     DOUBLE PRECISION DEFAULT  0 . 0  NOT NULL, /* Êîëè÷åñòâî */
 OP_SUM     DOUBLE PRECISION DEFAULT  0 . 0  NOT NULL, /* Ñóììà */
 MONEY_ID   INTEGER DEFAULT  1  NOT NULL,            /*Âàëþòà */
 MONEY_RATE DOUBLE PRECISION DEFAULT  1 . 0  NOT NULL, /*Êóðñ íà äàòó OP_DATE*/
 /*-------------------------System:-------------------------*/
 OP_DT_CRE  TIMESTAMP DEFAULT CURRENT_TIMESTAMP,/*Äàòà è âðåìÿ ñîçäàíèÿ*/
 OP_DT_EDI  TIMESTAMP DEFAULT CURRENT_TIMESTAMP,/*Äàòà è âðåìÿ ìîäèôèêàöèè*/
 CREATOR_ID INTEGER DEFAULT  0  NOT NULL,        /*Ïîëüçîâàòåëü-ñîçäàòåëü*/
 EDITOR_ID  INTEGER DEFAULT  0  NOT NULL,        /*Ïîëüçîâàòåëü-ìîäèôèêàòîð*/
PRIMARY KEY(OP_ID),
/*Íåìíîãî äåêëàðàöèé îò äóðàêà*/
CONSTRAINT PARENT_ACC_D FOREIGN KEY(OP_ACC_D) REFERENCES ACC(ID),
CONSTRAINT PARENT_ACC_K FOREIGN KEY(OP_ACC_K) REFERENCES ACC(ID),
CONSTRAINT PARENT_JBJ_D FOREIGN KEY(OP_OBJ_D) REFERENCES ObjLink(ID),
CONSTRAINT PARENT_JBJ_K FOREIGN KEY(OP_OBJ_K) REFERENCES ObjLink(ID)
);

/*
 OP_ACC_D, OP_ACC_k - ññûëêà íà ðåãèñòð(ñ÷åò)
 OP_OBJ_D, OP_OBJ_K - ññûëêà íà çàïèñü(ýòî ìîæåò áûòü è "ïàïêà"
 â òàáëèöå ðàñøèôðîâêè "ñóáêîíòî") â ObjLink,äàëüøå ðàñøèôðîâêà â Object
 ÈÌÅÅÌ: ïðîâîäêà ìîæåò õðàíèòü ïðîèçâîëüíîå êîëè÷åñòâî ñóáêîíòî,
 êàæäûé èç êîòîðûõ ìîæåò èìåòü ïðîèçâîëüíîå êîëè÷.óðîâíåé èåðàðõèè...
*/

/*RDBMS: FIREBIRD/INTERBASE*/
SET SQL DIALECT  3 ;
CREATE DATABASE "D:\DATA\IBDATA\TEMP2.GDB" USER "SYSDBA"
PASSWORD "masterkey" PAGE_SIZE  4096 ;

/* Справочник счетов(регистров учета)("древесный") */
CREATE TABLE Acc(
 ID      BIGINT DEFAULT  0  NOT NULL, /* ID-регистра(счета) */
 PARENT  BIGINT DEFAULT  0  NOT NULL, /* ID-родителя регистра(счета) */
 SIGN    VARCHAR( 16 ),               /* SIGN: Типа: '19.НДС18%'...'41.МЛЯ.МЛЯ'*/
 AccYype CHAR( 1 ),                   /* 'А', 'П', ... */
 /* ...мля-мля-мля...*/
 NAME    VARCHAR( 128 ),
PRIMARY  KEY(ID),
CONSTRAINT PARENT_Acc FOREIGN KEY(PARENT) REFERENCES Acc(ID)
);

/* Справочник объектов учета("древесный") */
CREATE TABLE Object(
 ID     BIGINT DEFAULT  0  NOT NULL,  /* ID-объекта учета */
 PARENT BIGINT DEFAULT  0  NOT NULL,  /* ID-родителя объекта учета */
 /* ...мля-мля-мля...*/
 NAME   VARCHAR( 128 ),
PRIMARY KEY(ID),
CONSTRAINT PARENT_Obj FOREIGN KEY(PARENT) REFERENCES Object(ID)
);

/* Справочник множеств "субконто" ("древесный") */
/* Ссылка на ID,-ссылка на единичн.элемент или на папку(поддерево) */
CREATE TABLE ObjLink(
 ID     BIGINT DEFAULT  0  NOT NULL,  /* ID-объекта учета */
 PARENT BIGINT DEFAULT  0  NOT NULL,  /* ID-родителя объекта учета */
 /* ...мля-мля-мля...*/
 NAME   VARCHAR( 128 ),
PRIMARY KEY(ID),
CONSTRAINT PARENT_ObjLink FOREIGN KEY(PARENT) REFERENCES ObjLink(ID),
CONSTRAINT PARENT_Objects FOREIGN KEY(ID) REFERENCES Object(ID)
);

/* Таблица операций(проводок) */
CREATE TABLE OPERS(
 /*-------------------------Корпо-консолидация:-------------*/
 /* --- мля-мля-мля ---*/
 /*-------------------------Приклад:------------------------*/
 OP_DOC_ID  BIGINT DEFAULT  0  NOT NULL,  /* Документ-родитель проводки */
 OP_ID      BIGINT DEFAULT  0  NOT NULL,  /* ID-проводки */
 OP_DATE    DATE DEFAULT 'NOW' NOT NULL,/* Дата операции */
 OP_ACC_D   INTEGER DEFAULT  0  NOT NULL, /* Счет(регистр) по дебету*/
 OP_OBJ_D   BIGINT DEFAULT  0  NOT NULL,  /* Объект учета по дебету */
 OP_ACC_K   INTEGER DEFAULT  0  NOT NULL, /* Счет(регистр) по кредиту */
 OP_OBJ_K   BIGINT DEFAULT  0  NOT NULL,  /* Объект учета по кредиту */
 OP_KOL     DOUBLE PRECISION DEFAULT  0 . 0  NOT NULL, /* Количество */
 OP_SUM     DOUBLE PRECISION DEFAULT  0 . 0  NOT NULL, /* Сумма */
 MONEY_ID   INTEGER DEFAULT  1  NOT NULL,            /*Валюта */
 MONEY_RATE DOUBLE PRECISION DEFAULT  1 . 0  NOT NULL, /*Курс на дату OP_DATE*/
 /*-------------------------System:-------------------------*/
 OP_DT_CRE  TIMESTAMP DEFAULT CURRENT_TIMESTAMP,/*Дата и время создания*/
 OP_DT_EDI  TIMESTAMP DEFAULT CURRENT_TIMESTAMP,/*Дата и время модификации*/
 CREATOR_ID INTEGER DEFAULT  0  NOT NULL,        /*Пользователь-создатель*/
 EDITOR_ID  INTEGER DEFAULT  0  NOT NULL,        /*Пользователь-модификатор*/
PRIMARY KEY(OP_ID),
/*Немного деклараций от дурака*/
CONSTRAINT PARENT_ACC_D FOREIGN KEY(OP_ACC_D) REFERENCES ACC(ID),
CONSTRAINT PARENT_ACC_K FOREIGN KEY(OP_ACC_K) REFERENCES ACC(ID),
CONSTRAINT PARENT_JBJ_D FOREIGN KEY(OP_OBJ_D) REFERENCES ObjLink(ID),
CONSTRAINT PARENT_JBJ_K FOREIGN KEY(OP_OBJ_K) REFERENCES ObjLink(ID)
);

/*
 OP_ACC_D, OP_ACC_k - ссылка на регистр(счет)
 OP_OBJ_D, OP_OBJ_K - ссылка на запись(это может быть и "папка"
 в таблице расшифровки "субконто") в ObjLink,дальше расшифровка в Object
 ИМЕЕМ: проводка может хранить произвольное количество субконто,
 каждый из которых может иметь произвольное колич.уровней иерархии...
*/