MDB-Anpassungen für Rel. 901

Nachfolgend finden Sie eine Zusammenfassung aller MDB-Anpassungen, die für Release 9.01 erforderlich sind.

Zusätzlich finden Sie hier eine Liste mit Verweisen auf die betreffenden Themen im Forum.

Liste der Themen, zu denen Anpassungen erforderlich sind

SQL aller Anpassungen

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.

sqlmdb901
--Meldungsgruppen: Feld OssyCode entfernt
-- --------------------------------------
DELETE FROM edbTdef WHERE EdbInt=37 AND Feldname='OSSYCODE';
UPDATE edbBstn SET Anzahl_Felder= 4 WHERE edbInt = 37;
 
ALTER TABLE edbArea DROP COLUMN OSSYCode
 
-- Ungenutzte Mdb-Einträge GSUA, GSAD und PRES entfernt
-- ---------------------------------------------------
-- GSUA, keine Tdef-Einträge:
DELETE FROM edbBstn WHERE edbint=903 
-- GSAD, keine Tdef-Einträge:
DELETE FROM edbBstn WHERE edbint=904 
-- PRES:
DELETE FROM edbBstn WHERE edbint=21 
DELETE FROM edbTdef WHERE EdbInt=21;
 
-- Entfernung der Nummer von div. Objektarten
-- ------------------------------------------
-- -EVNT/Ereignis (3)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=3 
DELETE FROM edbtdef WHERE edbint = 3 AND feldname = 'NUM'
 
-- -STAT/Zustand (7)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=7
DELETE FROM edbtdef WHERE edbint = 7 AND feldname = 'NUM'
 
-- -GLOB/globales Objekt (10)
UPDATE edbbstn  SET anzahl_felder = 8 WHERE edbint=10 
DELETE FROM edbtdef WHERE edbint = 10 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer - 1 WHERE edbint = 10 AND feldnummer > 4
 
-- -AKTN/Dialogschritt-Aktion (17)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=17 
DELETE FROM edbtdef WHERE edbint = 17 AND feldname = 'NUM'
 
-- -PZUS/Plausizustand (18)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=18
DELETE FROM edbtdef WHERE edbint = 18 AND feldname = 'NUM'
 
-- -ABRC/Returncode (22)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=22 
DELETE FROM edbtdef WHERE edbint = 22 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = 1 WHERE edbint = 22 AND feldnummer = 2
 
-- -ITYP/Implementierungstyp (34)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=34 
DELETE FROM edbtdef WHERE edbint = 34 AND feldname = 'NUM'
ALTER TABLE edbItyp DROP COLUMN NUM
 
-- -MEVT/auslösbare Operation (307)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=307 
DELETE FROM edbtdef WHERE edbint = 307 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = 1 WHERE edbint = 307 AND feldnummer = 2
 
-- -MEGL/evtsp. glob. Object (310) -> Sequence bestückt aus Globnummer
UPDATE edbbstn  SET anzahl_felder = 10 WHERE edbint= 310
DELETE FROM edbtdef WHERE edbint = 310 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer - 1 WHERE edbint = 310 AND feldnummer >  3
 
-- -MGLB/allg. glob. Object (311) -> Sequence bestückt aus Globnummer
UPDATE edbbstn  SET anzahl_felder = 9 WHERE edbint= 311
DELETE FROM edbtdef WHERE edbint = 311 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer - 1 WHERE edbint = 311 AND feldnummer >  2
 
-- -MSTA/erzeugter Zustand (306)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=306 
DELETE FROM edbtdef WHERE edbint = 306 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = 1 WHERE edbint = 306 AND feldnummer = 2
 
-- -IAKT/benutzte Aktion (322)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=322 
DELETE FROM edbtdef WHERE edbint = 322 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = 1 WHERE edbint = 322 AND feldnummer = 2
 
-- -IDSE/Dialogschritt-Einstieg (324)
UPDATE edbbstn  SET anzahl_felder = 3 WHERE edbint=324 
DELETE FROM edbtdef WHERE edbint = 324 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer - 1 WHERE edbint = 324 AND feldnummer > 2
 
-- -IDSS/Dialogschritt-Ausstieg (328)
UPDATE edbbstn  SET anzahl_felder = 3 WHERE edbint=328 
DELETE FROM edbtdef WHERE edbint = 328 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer - 1 WHERE edbint = 328 AND feldnummer > 2
 
-- -IDSA/Dialogschritt-übergang (329)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=329 
DELETE FROM edbtdef WHERE edbint = 329 AND feldname = 'NUM'
 
-- -IPOB/ereignisspez. parmobjekt (331)
UPDATE edbbstn  SET anzahl_felder = 12 WHERE edbint=331 
DELETE FROM edbtdef WHERE edbint = 331 AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = 11 WHERE edbint = 331 AND feldnummer = 12
 
-- -MLDK/Meldungsklasse (348)
UPDATE edbbstn  SET anzahl_felder = 2 WHERE edbint=348 
DELETE FROM edbtdef WHERE edbint = 348 AND feldname = 'NUM'
 
-- -SMCS/Schriftgut Modulecall States (384)
UPDATE edbbstn  SET anzahl_felder = 4 WHERE edbint=384 
DELETE FROM edbtdef WHERE edbint = 384  AND feldname = 'NUM'
UPDATE edbtdef SET feldnummer = feldnummer -1 WHERE edbint = 384 AND feldnummer > 1
 
-- -SMCL/Schriftgut Modulecall (380)
UPDATE edbbstn  SET anzahl_felder = 26 WHERE edbint=380 
DELETE FROM edbtdef WHERE edbint = 380  AND feldname = 'EVNTNUM'
UPDATE edbtdef SET feldnummer = feldnummer -1 WHERE edbint = 380 AND feldnummer > 17
UPDATE edbtdef SET POSITION = 1 WHERE feldname='EVNTUMS'
 
-- ExpEdge: Code für unterschiedliche Typen von Verbindungsbausteinen
-- ------------------------------------------------------------------
-- edbints für subtypen von FRST zusammenhalten:
UPDATE [edbBstn] SET Parent = 'FRST', edbint=260 WHERE Name = 'NTRY'
 
-- einfügen FRST als neuer parent von ntry, wfls, weba:
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 ('FRST', 'Verbindungsbaustein (Basis)', NULL, NULL, 'DMR', 0, -1, 'MODL', 53, NULL, 3, 8, 905, 14, 0, NULL, 'DV-MDL', 'DV-MDL', NULL, 18, NULL, 'LNTR', NULL, 'Ityp="";0', 0);
 
-- einfügen wfls, weba:
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 ('WFLS', 'Verbindungsbaustein Workflow', NULL, NULL, 'DMR', 0, 1, 'FRST', 261, NULL, 3, 8, 905, 14, 0, NULL, 'DV-MDL', 'DV-MDL', NULL, 18, NULL, 'LNTR', NULL, 'Ityp="";0', 7494);
 
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 ('WEBA', 'Verbindungsbaustein Web', NULL, NULL, 'DMR', 0, 1, 'FRST', 262, NULL, 3, 8, 905, 14, 0, NULL, 'DV-MDL', 'DV-MDL', NULL, 18, NULL, 'LNTR', NULL, 'Ityp="";0', 7494);
 
-- call-angaben von ntry nutzen für frst:
 UPDATE [edbCall] SET Caller='FRST' WHERE Caller='NTRY' 
 
-- hinzufügen call-angaben for wfls:
-- achtung, seq kann bei al oder hn anders sein!
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (106, 'WFLS', 'GSTR')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (107, 'WFLS', 'AFUN')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (108, 'WFLS', 'DZUG')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (109, 'WFLS', 'NTAA')
 
-- Diagrammbausteine: Speichern und Generieren der Datenbeschriftung
-- -----------------------------------------------------------------
--edbBstn
UPDATE edbBstn SET Anzahl_Felder = 55 WHERE EdbInt = 420;
 
--edbTdef
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (420,52,'GRAPHFONTNAME',8,0,71,1,0,0,0,'Grafik Schriftname',0);
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (420,53,'GRAPHFONTSIZE',8,1,4,2,0,0,0,'Grafik Schriftgröße',0);
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (420,54,'GRAPHFONTSTYLE',8,2,4,2,0,0,0,'Grafik Schriftschnitt',0);
 
-- SGPV-Tabelle bereinigt
-------------------------
DELETE FROM edbtdef
WHERE (edbint = 704 AND feldname = 'edbint') OR (edbint = 704 AND feldname='fldnr')
 
UPDATE edbtdef
SET feldnummer = 7 WHERE edbint = 704 AND feldname =  'REFT'
UPDATE edbtdef
SET feldnummer = 8 WHERE edbint = 704 AND feldname =  'FLDKEY'
UPDATE edbtdef
SET feldnummer = 9 WHERE edbint = 704 AND feldname =  'FLDBEZ'
UPDATE edbtdef
SET feldnummer = 10 WHERE edbint = 704 AND feldname =  'FILTER'
UPDATE edbtdef
SET feldnummer = 11 WHERE edbint = 704 AND feldname =  'MAXLEN'
UPDATE edbtdef
SET feldnummer = 12 WHERE edbint = 704 AND feldname =  'CTRPROP'
UPDATE edbtdef
SET feldnummer = 13 WHERE edbint = 704 AND feldname =  'FLDAUSWKZ'
UPDATE edbtdef
SET feldnummer = 14  WHERE edbint = 704 AND feldname =  'FLDFIXKZ'
 
ALTER TABLE edbsgpv
DROP COLUMN edbint
ALTER TABLE edbsgpv
DROP COLUMN fldnr
 
UPDATE edbbstn SET anzahl_felder = 15 WHERE edbint=704
 
-- XSTR und ISPC aus MDB entfernt
-- ------------------------------
 
DELETE FROM edbtdef WHERE edbint = 9
DELETE FROM edbbstn WHERE name = 'XSTR'
DROP TABLE edbXstr
 
DELETE FROM edbtdef WHERE edbint = 35
DELETE FROM edbbstn WHERE name = 'ISPC'
 
-- ROLE und ITYP aus MDB entfernt
-- ------------------------------
 
DELETE FROM edbBstn WHERE name = 'ROLE'
DELETE FROM edbtdef WHERE edbint = 6
DROP TABLE edbRole
 
 
DELETE FROM edbBstn WHERE name = 'ITYP'
DELETE FROM edbtdef WHERE edbint = 34
DROP TABLE edbItyp
 
UPDATE edbtdef SET linkbstn=0 WHERE linkbstn=6
UPDATE edbtdef SET bezeichnung = 'Rolle' WHERE edbint = 331 AND feldnummer = 1
mdb:r901 · Zuletzt geändert: 09.08.2024 13:25

Copyright © 1992-2024 TeamWiSE Gesellschaft für Softwaretechnik mbH         Adressen |  Kontakt |  AGB |  Datenschutzerklärung |  Impressum