Nachfolgend finden Sie eine Zusammenfassung aller MDB-Anpassungen, die für Release 9.02 erforderlich sind.
Zusätzlich finden Sie hier eine Liste mit Verweisen auf die betreffenden Themen im Forum.
Um die Durchführung der Anpassungen zu erleichtern, sind diese hier in einem SQL-Block zusammengefasst. Um die verschiedenen Themen, für die die Anpassungen notwendig wurden, abzugrenzen, sind diese als SQL-Kommentare eingefügt.
Sie können den gesamten Block als Datei herunterladen, indem Sie auf den Reiter am Anfang des SQL-Blocks klicken.
-- 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);
Im Rahmen von Update wurden nachträglich folgende Anpassungen vorgenommen:
zu TFS99339: Anpassungen für Non-TAA-Module - Update 5
--- copy objt TO USE AS GROUP level, CHANGE edbint,parent OF objt AND name, bezeichnung OF objp : --- change edbint of objt to 507 and parent to obpt UPDATE [edbbstn] SET edbint=507 WHERE edbint=4 UPDATE [edbBstn] SET Parent= 'OBTP' WHERE edbint=507 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 ('OBTP', 'Objecttype Parent', NULL, NULL, 'DMR', 0, 0, 'HOST', 4, '$R', 1, 0, 1, 6,0, '$R', 'FM-DATS', 'FM-DATS', NULL, 16, NULL, NULL, NULL, NULL, 0); --- copy löschen falls vorhanden um anschließend neu anzulegen DELETE FROM edbBstn WHERE name='COPY' 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 ('COPY', 'Cobol-Copy', NULL, NULL, 'DMR', 0, 0, 'OBTP', 508, '$R', 1, 0, 0, 6,0, '$R', 'DV-COPY', 'DV-COPY', NULL, 0, NULL, NULL, NULL, NULL, 0); -- Lokal genutzte Dstr können auch auf copy verweisen: UPDATE [edbtdef] SET Extname = ' TL-DATS;TL-BCOP', AltExtname = ' TL-DATS;TL-BCOP' WHERE edbint = 313 AND feldnummer = 0 INSERT INTO [edbRmap] ([MapName], [RoName]) VALUES ('DV-COPY', 'DV_COPY') --- copy ntaa TO USE AS GROUP level, CHANGE edbint,parent OF ntaa AND name, bezeichnung OF update [edbbstn] set edbint=506 where edbint=79 UPDATE [edbbstn] SET edbint=506 WHERE name='NTAA' UPDATE [edbBstn] SET Parent= 'NTAP' WHERE edbint=506 UPDATE [edbBstn] SET Parent= 'NTAP' WHERE edbint=509 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 ('NTAP', 'NTAA Parent', NULL, NULL, 'DMR', -1, 1, 'MODL', 79, '$R', 3, 8, 925, 14,0, '$R', NULL, NULL, NULL, 74, 0, 'LNTA', NULL, 'Ityp="";0', 3075);
Aufgrund verschiedener Änderungen in den vorhergehenden Releases ist sind die Angaben zur Auswahl der Views, die für die Schnittstelle der verschiedenen Modultypen angezeigt werden, mehrfach angepasst worden. Dabei wurden leider nicht immer alle Einschränkungen korrekt berücksichtigt. Deshalb an dieser Stelle eine Zusammenstellung der korrekten Angaben, auch unter Berücksichtigung der hinzugekommen Unterscheidung zwischen verschiedenen Typen von Einstiegsmodulen (NTRY/WFLS/WEBA als Subtypen von FRST) und nicht mehr verwendeter Views.
UPDATE edbbstn SET interface_dialog = 7743 WHERE edbint = 50 -- MODL UPDATE edbbstn SET interface_dialog = 7807 WHERE edbint = 60 -- TSTR UPDATE edbbstn SET interface_dialog = 0 WHERE edbint = 72 -- SSTR UPDATE edbbstn SET interface_dialog = 7723 WHERE edbint = 67 -- GEVO UPDATE edbbstn SET interface_dialog = 7715 WHERE edbint = 49 -- HSTR UPDATE edbbstn SET interface_dialog = 7743 WHERE edbint = 83 -- BSTR UPDATE edbbstn SET interface_dialog = 7999 WHERE edbint = 40 -- CTVK UPDATE edbbstn SET interface_dialog = 7487 WHERE edbint = 106 -- SSML UPDATE edbbstn SET interface_dialog = 7715 WHERE edbint = 53 -- FRST UPDATE edbbstn SET interface_dialog = 0 WHERE edbint = 260 -- NTRY UPDATE edbbstn SET interface_dialog = 0 WHERE edbint = 262 -- WEBA UPDATE edbbstn SET interface_dialog = 0 WHERE edbint = 261 -- WFLS UPDATE edbbstn SET interface_dialog = 3075 WHERE edbint = 79 -- NTAA UPDATE edbbstn SET interface_dialog = 7171 WHERE edbint = 63 -- EPRU UPDATE edbbstn SET interface_dialog = 7231 WHERE edbint = 64 -- NPRU UPDATE edbbstn SET interface_dialog = 7231 WHERE edbint = 86 -- PRUL UPDATE edbbstn SET interface_dialog = 7201 WHERE edbint = 77 -- BPRU UPDATE edbbstn SET interface_dialog = 1024 WHERE edbint = 250 -- WEBS UPDATE edbbstn SET interface_dialog = 1024 WHERE edbint = 600 -- KMPE