/********************* ROLES **********************/

CREATE ROLE RDB$ADMIN;
/********************* UDFS ***********************/

/****************** GENERATORS ********************/

CREATE GENERATOR GEN_TBANALYSEN_ID;
CREATE GENERATOR GEN_TBGELD_DEMO_ID;
CREATE GENERATOR GEN_TBGELD_ID;
CREATE GENERATOR GEN_TBKURSZEILEN_ID;
CREATE GENERATOR GEN_TBNEWS_ID;
CREATE GENERATOR GEN_TBORDER_DEMO_ID;
CREATE GENERATOR GEN_TBORDER_ID;
CREATE GENERATOR GEN_TBSCAN_ID;
CREATE GENERATOR GEN_TBTRADES_DEMO_ID;
CREATE GENERATOR GEN_TBTRADES_ID;
/******************** DOMAINS *********************/

CREATE DOMAIN "Laufnummer_small"
 AS Smallint
;
/******************* PROCEDURES ******************/

SET TERM ^ ;
CREATE PROCEDURE KONTRAKT_FOLGEKONTRAKT (
    IN_ID_KONTRAKT Integer,
    IN_WARE Char(2),
    IN_MONATZAHL Integer )
RETURNS (
    OUT_ID_KONTRAKT Integer,
    OUT_NAME Char(4),
    OUT_ABSTAND Integer,
    OUT_JAHR Integer )
AS
BEGIN SUSPEND; END^
SET TERM ; ^

SET TERM ^ ;
CREATE PROCEDURE KONTRAKT_VORKONTRAKT (
    IN_ID_KONTRAKT Integer,
    IN_WARE Char(2),
    IN_MONATZAHL Integer )
RETURNS (
    OUT_ID_KONTRAKT Integer,
    OUT_NAME Char(4),
    OUT_JAHR Integer )
AS
BEGIN SUSPEND; END^
SET TERM ; ^

SET TERM ^ ;
CREATE PROCEDURE KURS_IN_USD (
    WARE Char(2),
    PREIS_ENTRY Double precision,
    PREIS_EXIT Double precision )
RETURNS (
    ERGEBNIS Double precision )
AS
BEGIN SUSPEND; END^
SET TERM ; ^

/******************** TABLES **********************/

CREATE TABLE TBANALYSEN
(
  ID_ANA Integer NOT NULL,
  CODE_ Integer NOT NULL,
  MYTEXT Varchar(500) CHARACTER SET ISO8859_1 COLLATE DE_DE,
  INDATE Date,
  DBDATE Date,
  VORLAGEDATE Date,
  CONSTRAINT PK_TBANALYSEN_1 PRIMARY KEY (ID_ANA)
);
CREATE TABLE TBCOTZEILEN
(
  FK_COMM Char(2) NOT NULL,
  FK_JDATUM Date NOT NULL,
  O Float,
  H Float,
  L Float,
  C Float,
  VOLUME Float,
  OPENINTEREST Float,
  SPEC_LONG Bigint,
  SPEC_SHORT Bigint,
  COMM_LONG Bigint,
  COMM_SHORT Bigint,
  SMALL_LONG Bigint,
  SMALL_SHORT Bigint,
  COMM_NET Integer,
  SPEC_NET Integer,
  SMALL_NET Integer,
  CONSTRAINT UNQ1_TBCOTZEILEN UNIQUE (FK_COMM,FK_JDATUM)
);
CREATE TABLE TBGELD
(
  ID_GELD Smallint NOT NULL,
  BONITAET Integer,
  VALUEATRISK Integer,
  PLR Float,
  KAPITAL Integer,
  ZEITSTEMPEL Timestamp,
  MARGIN Integer,
  EXPECTEDPROFIT Integer,
  OFFENEPOS Integer,
  BUCHGEWINN Integer,
  ZUKONTO Smallint,
  CONSTRAINT PK_TBGELD PRIMARY KEY (ID_GELD)
);
CREATE TABLE TBKALENDER
(
  JDATUM Date NOT NULL,
  KAPITAL Float,
  BONI Float,
  FEIERTAGSMARK Smallint DEFAULT NULL,
  MARGIN_FREI Float,
  MARGIN_ERLEGT Float,
  BUCHGEWINN Float,
  INTRADAY_DD Float,
  INTRADAY_BONI Float,
  WORST_CASE Float,
  BEZEICHNUNG Varchar(20),
  INTRADAY_RU Float,
  CONSTRAINT PK_TBKALENDER PRIMARY KEY (JDATUM)
);
CREATE TABLE TBKENNZAHLEN
(
  ID_WARE Smallint NOT NULL,
  COMM Char(2),
  LOT Integer,
  MARGIN Integer,
  PUNKT Double precision,
  RLT Smallint,
  GRUPPE Integer,
  BEGINN Time,
  ENDE Time,
  VOLLZEIT Time,
  PAUSE Char(13),
  TRADE_AB Time,
  TRADE_BIS Time,
  STOP_LIQUID Double precision,
  STOP_MIN_LIQUID Double precision,
  TRADEFLAG Integer,
  CONSTRAINT PK_ID_WARE PRIMARY KEY (ID_WARE)
  USING INDEX IDX_PK_ID_KENNZAHLEN,
  CONSTRAINT UNQ1_WARE UNIQUE (COMM)
);
CREATE TABLE TBKONTOINFO
(
  ZUKONTO Smallint,
  KAPITAL Integer,
  MARGIN Integer,
  BONITAET Integer,
  INTRADAY_BONI Integer,
  INTRADAY_DD Integer,
  INTRADAY_RU Integer,
  VALUEATRISK Integer,
  EXPECTEDPROFIT Integer,
  BUCHGEWINN Integer,
  OFFENEPOS Integer,
  MONATSZIEL Integer,
  WOCHENZIEL Integer,
  WOCHENGEWINN Integer,
  MONATSGEWINN Integer
);
CREATE TABLE TBKONTRAKTE
(
  ID_KONTRAKT Integer NOT NULL,
  NAME_ Char(4) NOT NULL,
  JAHR_AUS_NAME Smallint,
  MONATSKENNZAHL Smallint,
  SCROLLED Smallint DEFAULT NULL,
  POSITION_ Smallint DEFAULT NULL,
  COMM Char(2),
  CONSTRAINT PK_TBKONTRAKTE PRIMARY KEY (ID_KONTRAKT),
  CONSTRAINT UNQ1_NAME_U_JAHR UNIQUE (NAME_,JAHR_AUS_NAME)
);
CREATE TABLE TBKURSZEILEN
(
  ID_KURSZEILEN Integer NOT NULL,
  FK_JDATUM Date NOT NULL,
  FK_KONTRAKT Integer NOT NULL,
  FK_TRADE Integer,
  O Decimal(10,5),
  H Decimal(10,5),
  L Decimal(10,5),
  C Decimal(10,5),
  VOLUME Integer,
  OPENINTEREST Integer,
  CONSTRAINT PK_IDKURSZEILEN PRIMARY KEY (ID_KURSZEILEN),
  CONSTRAINT UNQ1_TBKURSZEILEN UNIQUE (FK_KONTRAKT,FK_JDATUM)
);
CREATE TABLE TBMARGINS
(
  WARE Varchar(2),
  MARGIN Integer,
  DATUM Date,
  CONSTRAINT MYUNIQUE UNIQUE (DATUM,WARE)
);
CREATE TABLE TBNEWS
(
  ID Integer NOT NULL,
  DATUM Date NOT NULL,
  ZEIT Time,
  CODE_ Integer NOT NULL,
  BEZEICHNUNG Varchar(50) CHARACTER SET ISO8859_1 COLLATE DE_DE,
  CONSTRAINT PK_TBNEWS PRIMARY KEY (ID)
);
CREATE TABLE TBORDER
(
  ID_ORDER Integer NOT NULL,
  ZEIT Time,
  STOP_ Double precision,
  TARGET Double precision,
  POSITION_ Smallint,
  FK_TRADE Integer NOT NULL,
  PRICE Float,
  STAND Integer,
  BEST Integer,
  WORST Integer,
  PL_INTRADAY Float,
  CONSTRAINT PK_TBORDER PRIMARY KEY (ID_ORDER)
);
CREATE TABLE TBSCAN
(
  VORMERK_DAT Date,
  VORMERK_ZEIT Time,
  COMM Varchar(2),
  KONTRAKT Varchar(4),
  TEXT_VORMERK Varchar(1000),
  OBEN Float,
  TEXT_OBEN Varchar(500),
  UNTEN Float,
  TEXT_UNTEN Varchar(500),
  EINTRAG_DAT Date,
  FK_KONTRAKT Integer,
  ID_TBSCAN Integer NOT NULL,
  CONSTRAINT PK_TBSCAN_1 PRIMARY KEY (ID_TBSCAN)
);
CREATE TABLE TBSIGNALE
(
  ID_SIGNALE Smallint NOT NULL,
  KONTRAKT_ID Integer,
  SIGNALNAME_KURZ Char(10) NOT NULL,
  SIGNALNAME_LANG Varchar(20),
  RICHTUNG Smallint,
  CONSTRAINT PK_ID_SIGNALE PRIMARY KEY (ID_SIGNALE)
  USING INDEX IDX_PK_ID_SIGNALE
);
CREATE TABLE TBSYSTEME
(
  ID_SYSTEM Integer NOT NULL,
  ANFANGSKAPITAL Float,
  ENDKAPITAL Float,
  ERGEBNIS Float,
  GEWINNERS Float,
  VERLIERERS Float,
  GEWINNERANZ Integer,
  SCHNITT_GEWINN Float,
  SCHNITT_VERLUST Float,
  MAX_GEWINN Float,
  MAX_VERLUST Float,
  MAX_MARGIN Float,
  ERSTDAT Date,
  LETZTDAT Date,
  PERCENT_PROFITABEL Float,
  EUPHORIEDATUM Date,
  ERGEBNIS_IN_PROZENT Double precision,
  ERGEBNIS_PER_ANNO Double precision,
  PERCENT_DD Float,
  TRADEANZAHL Integer,
  POSITION_GESAMT Float,
  POSITION_SCHNITT Float,
  PROFIT_FACTOR Float,
  INTRADAY_DD Double precision,
  CONSEC_WINNERS Integer,
  CONSEC_LOSERS Integer,
  ENTRYSIGNALE Varchar(20),
  EXITSIGNALE Varchar(20),
  QUELLCODE Varchar(32762),
  CONSTRAINT PK_TBSYSTEME PRIMARY KEY (ID_SYSTEM)
);
CREATE TABLE TBTRADES
(
  ID_TRADE Integer NOT NULL,
  NAME_ Char(4),
  FK_KONTRAKT Integer NOT NULL,
  ENTRY_PRICE Decimal(10,5),
  EXIT_PRICE Decimal(10,5),
  ENTRY_SIGNAL Varchar(80),
  ENTRY_TYP Varchar(10),
  EXIT_SIGNAL Varchar(50),
  EXIT_TYP Varchar(10),
  POSITION_ Smallint NOT NULL,
  ENTRY_DATE Date,
  ENTRY_TIME Time,
  EXIT_DATE Date,
  EXIT_TIME Time,
  STATUS_ "Laufnummer_small" NOT NULL,
  COMM Char(2),
  STOP Decimal(10,5),
  TARGET Decimal(10,5),
  BEST Integer,
  WORST Integer,
  PL Float,
  ERGEBNIS Integer,
  MARGIN Float,
  ZUKONTO Smallint,
  CONSTRAINT PK_TBTRADES PRIMARY KEY (ID_TRADE)
);
/********************* VIEWS **********************/

/******************* EXCEPTIONS *******************/

/******************** TRIGGERS ********************/

SET TERM ^ ;
CREATE TRIGGER TBANALYSEN_BI FOR TBANALYSEN ACTIVE
BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID_ANA IS NULL) THEN
    NEW.ID_ANA = GEN_ID(GEN_TBANALYSEN_ID, 1);
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBGELD_BI FOR TBGELD ACTIVE
BEFORE INSERT POSITION 0
as
begin
  if (new.id_geld is null) then
    new.id_geld = gen_id(gen_tbgeld_id,1);
end^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBKENNZAHLEN_BI0 FOR TBKENNZAHLEN ACTIVE
BEFORE INSERT POSITION 0
AS
begin
  /* Trigger text */
end^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBKURSZEILEN_BI FOR TBKURSZEILEN ACTIVE
BEFORE INSERT POSITION 1
AS
BEGIN
  IF (NEW.ID_KURSZEILEN IS NULL) THEN
    NEW.ID_KURSZEILEN = GEN_ID(GEN_TBKURSZEILEN_ID,1);
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBNEWS_BI0 FOR TBNEWS ACTIVE
BEFORE INSERT POSITION 0
AS
begin
    IF (NEW.ID IS NULL) THEN
    NEW.ID = GEN_ID(GEN_TBNEWS_ID,1);
end^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBORDER_BI FOR TBORDER ACTIVE
BEFORE INSERT POSITION 0
as
begin
  if (new.id_order is null) then
    new.id_order = gen_id(gen_tborder_id,1);
end^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBSCAN_BI FOR TBSCAN ACTIVE
BEFORE INSERT POSITION 0
AS
DECLARE VARIABLE tmp DECIMAL(18,0);
BEGIN
  IF (NEW.ID_TBSCAN IS NULL) THEN
    NEW.ID_TBSCAN = GEN_ID(GEN_TBSCAN_ID, 1);
  ELSE
  BEGIN
    tmp = GEN_ID(GEN_TBSCAN_ID, 0);
    if (tmp < new.ID_TBSCAN) then
      tmp = GEN_ID(GEN_TBSCAN_ID, new.ID_TBSCAN-tmp);
  END
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER TBTRADES_BI FOR TBTRADES ACTIVE
BEFORE INSERT POSITION 0
as
begin
  if (new.id_trade is null) then
    new.id_trade = gen_id(gen_tbtrades_id,1);
end^
SET TERM ; ^

SET TERM ^ ;
ALTER PROCEDURE KONTRAKT_FOLGEKONTRAKT (
    IN_ID_KONTRAKT Integer,
    IN_WARE Char(2),
    IN_MONATZAHL Integer )
RETURNS (
    OUT_ID_KONTRAKT Integer,
    OUT_NAME Char(4),
    OUT_ABSTAND Integer,
    OUT_JAHR Integer )
AS
declare variable minwert integer = 999999;
declare variable such_monatszahl integer;
declare variable such_id_kontrakt integer;
declare variable such_ware char(2);
declare variable id_quell_kontr integer;
declare variable such_name char(4);
declare variable jahr_aus_name integer;
begin
    out_id_kontrakt = -1;   /* auch im Kommentar keine Umlaute!*/

    select id_kontrakt
    from tbkontrakte
    where id_kontrakt = :in_id_kontrakt
    into :id_quell_kontr;

    for      /* Schleife ueber alle Kontrakte */
      select id_kontrakt, name_, comm,jahr_aus_name, (jahr_aus_name * 12 + monatskennzahl)
      from tbkontrakte
      into :such_id_kontrakt,:such_name,:such_ware,:jahr_aus_name,:such_monatszahl
    do
    begin  /* such_monatszahl enthaelt die Monats-Multiplikation des Quellkontrakts */
      /* minwert = such_monatszahl;  sonst ist der Hoechstwert auf Null*/
       if ((such_ware = in_ware) and (such_monatszahl > in_monatzahl))
     then begin
        if (such_monatszahl < minwert) then
        begin     /* findet den fruehesten Monat, der nach dem Einlesemonat kommt */
            minwert = such_monatszahl;
           out_id_kontrakt = such_id_kontrakt;
           out_name =  such_name;
           out_jahr = jahr_aus_name;
           out_abstand = such_monatszahl - in_monatzahl;
         end
         end
      end
  suspend;
end^
SET TERM ; ^


SET TERM ^ ;
ALTER PROCEDURE KONTRAKT_VORKONTRAKT (
    IN_ID_KONTRAKT Integer,
    IN_WARE Char(2),
    IN_MONATZAHL Integer )
RETURNS (
    OUT_ID_KONTRAKT Integer,
    OUT_NAME Char(4),
    OUT_JAHR Integer )
AS
declare variable maxwert integer = 0;
declare variable such_monatszahl integer;
declare variable such_id_kontrakt integer;
declare variable such_ware char(2);
declare variable id_quell_kontr integer;
declare variable such_name char(4);
declare variable jahr_aus_name integer;
begin
    out_id_kontrakt = -1; /* auch im Kommentar keine Umlaute!*/

    select id_kontrakt
    from tbkontrakte
    where id_kontrakt = :in_id_kontrakt
    into :id_quell_kontr;

    for      /*  Schleife ueber alle Kontrakte */
      select id_kontrakt, name_, comm,jahr_aus_name,(jahr_aus_name * 12 + monatskennzahl)
      from tbkontrakte
      into :such_id_kontrakt,:such_name,:such_ware,:jahr_aus_name,:such_monatszahl
    do
    begin
       if ((such_ware = in_ware) and (such_monatszahl < in_monatzahl))
     then begin
        if (such_monatszahl > maxwert) then
        begin
           maxwert = such_monatszahl;
           out_id_kontrakt = :such_id_kontrakt;
           out_name =  such_name;
           out_jahr = jahr_aus_name;
         end
         end
      end
  suspend;
end^
SET TERM ; ^


SET TERM ^ ;
ALTER PROCEDURE KURS_IN_USD (
    WARE Char(2),
    PREIS_ENTRY Double precision,
    PREIS_EXIT Double precision )
RETURNS (
    ERGEBNIS Double precision )
AS
declare variable lot integer;
begin
    ergebnis = 0;
   select tbkennzahlen.lot, tbkennzahlen.comm
    from tbkennzahlen
    where comm = :ware
    into :lot,:ware;
     ergebnis = (preis_exit - preis_entry) * lot;
  suspend;
end^
SET TERM ; ^


ALTER TABLE TBCOTZEILEN ADD CONSTRAINT FK_TBCOTZEILEN_1
  FOREIGN KEY (FK_COMM) REFERENCES TBKENNZAHLEN (COMM);
ALTER TABLE TBCOTZEILEN ADD CONSTRAINT FK_TBCOTZEILEN_2
  FOREIGN KEY (FK_JDATUM) REFERENCES TBKALENDER (JDATUM);
UPDATE RDB$RELATIONS set
RDB$DESCRIPTION = 'Rueckgrat fuer tbkurse und tbnews'
where RDB$RELATION_NAME = 'TBKALENDER';
ALTER TABLE TBKURSZEILEN ADD CONSTRAINT FK_DATUM
  FOREIGN KEY (FK_JDATUM) REFERENCES TBKALENDER (JDATUM);
ALTER TABLE TBKURSZEILEN ADD CONSTRAINT FK_KONTRAKT
  FOREIGN KEY (FK_KONTRAKT) REFERENCES TBKONTRAKTE (ID_KONTRAKT);
ALTER TABLE TBKURSZEILEN ADD CONSTRAINT FK_TBKURSZEILEN_1
  FOREIGN KEY (FK_TRADE) REFERENCES TBTRADES (ID_TRADE);
ALTER TABLE TBNEWS ADD CONSTRAINT FK_TBNEWS_1
  FOREIGN KEY (DATUM) REFERENCES TBKALENDER (JDATUM);
ALTER TABLE TBORDER ADD CONSTRAINT FK_TBORDER_1
  FOREIGN KEY (FK_TRADE) REFERENCES TBTRADES (ID_TRADE);
ALTER TABLE TBSIGNALE ADD CONSTRAINT FK_SIG_AUF_KONTRAKT
  FOREIGN KEY (KONTRAKT_ID) REFERENCES TBKONTRAKTE (ID_KONTRAKT)
  USING INDEX FK_AUF_KONTRAKT;
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Erster und letzter Kapitalstand eines Beobachtungszeitraumes'  where RDB$FIELD_NAME = 'ANFANGSKAPITAL' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Differenz zwischen AnfKap und EndKap'  where RDB$FIELD_NAME = 'ERGEBNIS' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Gesamtsumme der Gewinner und Verlierer als SUMME'  where RDB$FIELD_NAME = 'GEWINNERS' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Gesamtsumme der Gewinner und Verlierer als SUMME'  where RDB$FIELD_NAME = 'VERLIERERS' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Gesamtsumme der Gewinner und Verlierer als ANZAHL'  where RDB$FIELD_NAME = 'GEWINNERANZ' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Durchschnittsgewinn / -verlust'  where RDB$FIELD_NAME = 'SCHNITT_VERLUST' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'gr'  where RDB$FIELD_NAME = 'MAX_VERLUST' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Maximale zu erlegende Marginsumme, auch in Grafik_System verwendet'  where RDB$FIELD_NAME = 'MAX_MARGIN' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'erstes und letztes Datum in einer Tradereihenperiode'  where RDB$FIELD_NAME = 'LETZTDAT' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'bezogen auf die Gesamtheit der beobachteten Tradereihe'  where RDB$FIELD_NAME = 'ERGEBNIS_IN_PROZENT' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'bezogen auf die Gesamtheit der beobachteten Tradereihe'  where RDB$FIELD_NAME = 'ERGEBNIS_PER_ANNO' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = '% vom letzten H'  where RDB$FIELD_NAME = 'PERCENT_DD' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Summe aller Trades'  where RDB$FIELD_NAME = 'TRADEANZAHL' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Summe aller gehandelter Kontrakte und deren Schnitt pro Trade'  where RDB$FIELD_NAME = 'POSITION_SCHNITT' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Namen der Signale'  where RDB$FIELD_NAME = 'ENTRYSIGNALE' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'Namen der Signale'  where RDB$FIELD_NAME = 'EXITSIGNALE' and RDB$RELATION_NAME = 'TBSYSTEME';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'bis 32.000'  where RDB$FIELD_NAME = 'POSITION_' and RDB$RELATION_NAME = 'TBTRADES';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'NUR Datum in dialect 3'  where RDB$FIELD_NAME = 'ENTRY_DATE' and RDB$RELATION_NAME = 'TBTRADES';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'muss extra sein'  where RDB$FIELD_NAME = 'ENTRY_TIME' and RDB$RELATION_NAME = 'TBTRADES';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'ob offen etc'  where RDB$FIELD_NAME = 'STATUS_' and RDB$RELATION_NAME = 'TBTRADES';
UPDATE RDB$RELATION_FIELDS set RDB$DESCRIPTION = 'welchem Konto zuordenbar'  where RDB$FIELD_NAME = 'ZUKONTO' and RDB$RELATION_NAME = 'TBTRADES';
ALTER TABLE TBTRADES ADD CONSTRAINT FK_TBTRADES_1
  FOREIGN KEY (FK_KONTRAKT) REFERENCES TBKONTRAKTE (ID_KONTRAKT);
GRANT EXECUTE
 ON PROCEDURE KONTRAKT_FOLGEKONTRAKT TO  SYSDBA;

GRANT EXECUTE
 ON PROCEDURE KONTRAKT_VORKONTRAKT TO  SYSDBA;

GRANT EXECUTE
 ON PROCEDURE KURS_IN_USD TO  SYSDBA;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBANALYSEN TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBCOTZEILEN TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBGELD TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBKALENDER TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBKENNZAHLEN TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBKONTOINFO TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBKONTRAKTE TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBKURSZEILEN TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBMARGINS TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBNEWS TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBORDER TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBSCAN TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBSIGNALE TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBSYSTEME TO  SYSDBA WITH GRANT OPTION;

GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON TBTRADES TO  SYSDBA WITH GRANT OPTION;