-- Diagrammbausteine: Stilvorlagen Kategorien
-- -----------------------------------------
-- add category to edbBstn
INSERT INTO [edbBstn] ([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('SDCC', 'Grafikbaustein Datenstilkategorie', NULL, NULL, NULL, 0, 4, 'SDCS', 422, NULL, 1, 0, 1265, 4, 4, NULL, NULL, NULL, NULL, 0, NULL, NULL, NULL, NULL, 0);

-- update parent von SDCP
UPDATE [edbBstn] set Parent = 'SDCC' where EdbInt = 421

-- update chartdata fields
UPDATE [edbBstn] set Anzahl_Felder = 5 where EdbInt = 397

-- add new field for chartdata
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (397,3,'CHARTDATATYPE',1,3,4,2,0,0,0,'Konditionsfeld',0);

-- update chart fields
UPDATE [edbBstn] set Anzahl_Felder = 59 where EdbInt = 396

-- add new field to chart
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (396,58,'DISPLAYDATABYCATEGORYORDER',23,0,1,1,0,0,0,'Daten kategorisch sortieren',0);

-- add new fields for category
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (422,0,'DEFAULT',1,0,1,1,0,0,0,'Standard Kategorie',0);
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (422,1,'NAME',1,1,71,1,0,0,0,'Kategoriename',0);
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (422,2,'EXPRESSIONTYPE',1,2,1,1,0,0,0,'Bedingung',0);
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (422,3,'EXPRESSIONVALUE',1,3,71,1,0,0,0,'Bedingungswert',0);

-- Datenelemente mit Alias
-- -----------------------------------------

-- AliasNutzung bei Datenelement (DALI):
INSERT INTO [edbBstn]
([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('DALI', 'Aliasnamen von Datenelement', NULL, NULL, NULL, 0, 4, 'DELT', 459, NULL, 1, 0, 0, 3, 4, NULL, NULL, NULL, 0, 0, NULL, NULL, NULL, NULL, 0);
 
INSERT  INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (459,0,'NAME',1,1,32,0,4,'TL-ALIAS','TL-ALIAS',458,0,'Aliasname',1)

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (459,1,'KATEGORIE',2,1,32,0,5,NULL,0,0,'Kategorie',0);

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (459,2,'KATEGORIEZUSATZ',3,1,71,0,5,NULL,0,0,'Kategorie-Zusatz',0);

-- Anpassungen an DSTR (generierte Datenstruktur als OSTR, STAB, Report)
INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (177,30,'ALIAS',65,1,0,1,3,NULL,0,0,'Alias Names for this Field',0);

UPDATE [edbBstn] 
SET Anzahl_Felder = 31 where edbInt = 177 or edbint=26 or edbint=120


-- Alias als Objekt (ALIA)
-- -------------------------

INSERT INTO [edbBstn] 
([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('ALIA', 'Aliasname', NULL, NULL, NULL, 0, 0, 'DTMD', 458, '$R', 1, 0, 0, 6, 0, NULL, 'DM-ALIAS', 'DM-ALIAS', NULL, 0, NULL, NULL, NULL, NULL, 0);

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (458,0,'NAME',1,1,32,0,4,NULL, NULL,0,0,'Aliasname',0);

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (458,1,'UMS',50,1,71,1,3,'TT-DEF','TT-DEF',0,0,'Bezeichnung',0);

INSERT INTO [edbTdef] 
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (458,2,'APPL',1,2,12,0,4,'TL-GEHZU', 'TL-GEHZU',1,0,'Anwendung',1); 

INSERT INTO [edbTdef] 
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (458,3,'STVS',1,3,6,0,2,'TW-STUFE', 'TW-STUFE',0,0,'Stufe',1);

-- Analyse OpenXML: Analyse von OpenXML Textkonserven
-- --------------------------------------------------
-- add ctvxml to edbAnly

INSERT INTO [edbAnly]
([Bstn],[Shortname],[DllName],[BaseName],[Bezeichnung])
VALUES ('CTVK','CtvXml','TeamWiSE.Analysis.dll','tanCtvOpenXml','Überprüfung der OpenXML-Textkonserve');

-- Mandantenspezifische UNIT- und GVTP-Tabellen
-- --------------------------------------------------
--- field Company added to APPL:
UPDATE EDBBSTN SET ANZAHL_FELDER = 4 WHERE EDBINT = 1

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (1,3,'COMPANY',1,2,2,1,1,NULL, NULL,0,0,'Mandant',0);

ALTER TABLE EDBAPPL
ADD [COMPANY] VARCHAR(2) NULL;

UPDATE EDBAPPL
SET COMPANY = 'HN'
WHERE      
    NAME = 'FVB'
OR  NAME = 'FVA'
OR NAME = 'GBA'
OR NAME = 'GDB'
OR NAME = 'PAZ'
OR NAME = 'VIB'
OR NAME = 'TAS-F'
OR NAME = 'TAS'
OR NAME = 'UMC'
OR NAME = 'VIS'

UPDATE EDBAPPL
SET COMPANY = 'TW'
WHERE      
    NAME = 'TAA'
OR  NAME = 'SAMPLE'

UPDATE edbAppl SET edbAppl.COMPANY = 'AL'
WHERE company is null;
´
--- Zugriff auf Meldungsliste mit/ohne Anwendung
-- --------------------------------------------------
update edbbstn set path='$R:VB_TAA_EDB_SELECTION $A' where name='LMLD'

--- MdB-Tabelle CLAS wird nicht mehr benötigt
---------------------------------------------

DELETE FROM edbtdef WHERE edbint = 2

UPDATE edbtdef SET linkbstn=0 WHERE linkbstn=2

DELETE FROM edbbstn WHERE edbint = 2

DROP TABLE edbClas

--- Generierungsnamen an Alias und Datenelement
-----------------------------------------------

UPDATE [edbBstn] set anzahl_felder=5 where edbint=459
UPDATE [edbBstn] set name='ALIU' where edbint=459
UPDATE [edbTdef] set Position=0 where edbint=459 and feldnummer=0
UPDATE [edbTdef] set Position =0 where edbint=459 and feldnummer=1
UPDATE [edbTdef] set Position =0 where edbint=459 and feldnummer=2

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (459,3,'GENERIERUNGSNAME',4,0,71,0,5,NULL,0,0,'Generierungsname',0);

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (459,4,'KATEGORIEID',2,1,2,1,5,NULL,0,0,'KategorieID',0);

UPDATE [edbBstn] set anzahl_felder=5 where edbint=458
UPDATE [edbBstn] set listby='LALI' where edbint=458
UPDATE [edbTdef] set Position=0 where edbint=458 and feldnummer=0
UPDATE [edbTdef] set Position=0 where edbint=458 and feldnummer=1
UPDATE [edbTdef] set Position=1 where edbint=458 and feldnummer=2
UPDATE [edbTdef] set Position=2 where edbint=458 and feldnummer=3

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (458,4,'GENERIERUNGSNAMEN',3,0,0,1,3,'TT-GENNM',0,0,'Generierungsnamen',0);

INSERT INTO [edbRmap]
([MapName], [RoName])
Values ('TT-GENNM', 'GENERIERUNGSNAMEN')

INSERT INTO [edbBstn] ([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('LALI', 'AliasListe', NULL, NULL, NULL, 0, 2, 'SYST', 457, '$R:VB_TAA_EDB_SELECTION', 1, 0, 1, 4, 1, '$R:VB_TAA_EDB_SELECTION', 'DM-ALIAS', 'DM-ALIAS', NULL, 0, NULL, NULL, 'ALIA', NULL, 0);

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (457,0, 'ALIASNAME',1,0,32,1,0,NULL,0,0, 'AliasName',0);

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (457,1, 'KATEGORIEID',2,0,2,2,0,NULL,0,0, 'Kategorieid',0);

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (457,2, 'KATEGORIE',2,1,32,1,0,NULL,0,0, 'Kategoriename',0);

INSERT INTO [edbTdef]
 ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (457,3,'GENERIERUNGSNAMEN',3,0,71,1,0, 'TT-GENNM',0,0, 'Generierungsname',0);


--- Neue Variante für Web-Generierungen (HKV)
-----------------------------------------------
INSERT INTO [edbVari]
([Name], [Bezeichnung], [Num], [Qual], [Setting])
Values ('TAAWEB', 'TAA WebService', 17, 'W', NULL)

--- Korrektur zu Alias (Stufe)
------------------------------
UPDATE [edbTdef]
set Typ=1, Flags=4
where edbint = 458 and feldnummer = 3

--- Neue Built-In Funktion _StrFind (Pseudocode)
-----------------------------------------------
INSERT INTO [edbBifn]
(Name, Sprache, Funktion, AppliesTo, Ums, RTyp, RDim, RUms)
VALUES ('CTV-PSEUDOCODE-_STRFIND', 'CTV-Pseudocode', '_StrFind', NULL, 'Eine Zeichenfolge in einer anderen finden', 'I', 0, 'Position')

INSERT INTO [edbBifp]
(Name, Sprache, Funktion, Pos, Parameter, Typ, Dim, Ums)
VALUES ('CTV-PSEUDOCODE-_STRFIND-1', 'CTV-Pseudocode', '_StrFind', 1, 'Eingabe-String', 'S', 0, 'zu suchende Zeichenfolge')

INSERT INTO [edbBifp]
(Name, Sprache, Funktion, Pos, Parameter, Typ, Dim, Ums)
VALUES ('CTV-PSEUDOCODE-_STRFIND-2', 'CTV-Pseudocode', '_StrFind', 2, 'Eingabe-String', 'S', 0, 'Zeichenfolge, in der gesucht werden soll')

INSERT INTO [edbBifp]
(Name, Sprache, Funktion, Pos, Parameter, Typ, Dim, Ums)
VALUES ('CTV-PSEUDOCODE-_STRFIND-3', 'CTV-Pseudocode', '_StrFind', 3, 'Wert', 'I' , 0, 'Position in der Zeichenfolge, ab der gesucht werden soll (optional)')


-- Korrektur für mglw. fehlerhaften Eintrag in edbBstn für NMDL
---------------------------------------------------------------
update edbBstn set Anzahl_Felder=14 where edbint = 509

--- KnowlEdge: Felder vor Erstellen des Druckjobs aktualisieren
---------------------------------------------------------------
UPDATE edbBstn SET Anzahl_Felder=33 WHERE edbint = 360

INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (360,32,'UPDATEFLDS',1,13,1,1,0,NULL,0,0,'Update Fields',0);