Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.13 » View Incident Report |
Serious |
Reported By: Geroglidis Giannis Reported On: 3/26/2013 For: Version 2.12 Build 2 |
Database: SCRIPT BEGIN EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable0" ( "ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1), "CODE" VARCHAR(25) COLLATE "ANSI", "DESCRIPTION" VARCHAR(50) COLLATE "ANSI", CONSTRAINT "MasterTable0_PK" PRIMARY KEY ("ID"), CONSTRAINT "MasterTable0_Code" UNIQUE ("CODE") )'; EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable" ( "ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1), "CODE" VARCHAR(25) COLLATE "ANSI", "DESCRIPTION" VARCHAR(50) COLLATE "ANSI", "ID0" INTEGER, CONSTRAINT "MasterTable_PK" PRIMARY KEY ("ID"), CONSTRAINT "MasterTable_Code" UNIQUE ("CODE"), CONSTRAINT "MasterTableToMasterTable0" FOREIGN KEY ("ID0") REFERENCES "MasterTable0" ("ID") ON UPDATE NO ACTION ON DELETE NO ACTION )'; EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable2" ( "ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1), "CODE" VARCHAR(25) COLLATE "ANSI", "DESCRIPTION" VARCHAR(50) COLLATE "ANSI", "ID0" INTEGER, CONSTRAINT "MasterTable2_PK" PRIMARY KEY ("ID"), CONSTRAINT "MasterTable2_Code" UNIQUE ("CODE"), CONSTRAINT "MasterTable2ToMasterTable0" FOREIGN KEY ("ID0") REFERENCES "MasterTable0" ("ID") ON UPDATE NO ACTION ON DELETE NO ACTION )'; EXECUTE IMMEDIATE 'CREATE TABLE "DetailTable" ( "ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1), "MASTERID" INTEGER, "MASTERID2" INTEGER, "DESCRIPTION" VARCHAR(50) COLLATE "ANSI", CONSTRAINT "DetailTable_PK" PRIMARY KEY ("ID"), CONSTRAINT "DetailTableToMaster" FOREIGN KEY ("MASTERID") REFERENCES "MasterTable" ("ID") ON UPDATE NO ACTION ON DELETE NO ACTION, CONSTRAINT "DetailTableToMaster2" FOREIGN KEY ("MASTERID2") REFERENCES "MasterTable2" ("ID") ON UPDATE NO ACTION ON DELETE NO ACTION )'; END Code: procedure TdtmEDB.Error401; begin tblMaster0.Active := True; DropConstraint; DropConstraint2; tblMaster0.Active := False; // tblMaster0.Active := True; tblMaster0.Active := False; AddConstraint; AddConstraint2; // end; procedure TdtmEDB.DelInsM0R1; begin if tblMaster0.Locate('ID', 1, []) then begin tblMaster0.Delete; end; tblMaster0.Append; tblMaster0.FieldByName('ID').AsInteger := 1; tblMaster0.FieldByName('CODE').AsString := '001'; tblMaster0.FieldByName('DESCRIPTION').AsString := '001'; tblMaster0.Post; end; procedure TdtmEDB.Error402; begin tblMaster0.Active := True; try DropConstraint; AddConstraint; finally DelInsM0R1; tblMaster0.Active := False; end; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |