Update E-Tabellen ExchangeGate

Skript, welches das ExchangeGate nach einem Update über ein Pop-up-Fenster ausführen lässt.

UPDATE E_CUSTOMER SET TIMEST = PAT_TIME.FGETTIMEST WHERE TIMEST IS NULL;
ALTER TABLE E_CUSTOMER DROP PRIMARY KEY DROP INDEX;
DROP INDEX E_CUSTOMER_PK;
ALTER TABLE E_CUSTOMER ADD CONSTRAINT E_CUSTOMER_PK PRIMARY KEY (TIMEST);

UPDATE E_EXCHANGE SET EXCHANGE_ID = PAT_TIME.FGETTIMEST WHERE EXCHANGE_ID IS NULL;
ALTER TABLE E_EXCHANGE DROP PRIMARY KEY DROP INDEX;
DROP INDEX E_EXCHANGE_PK;
ALTER TABLE E_EXCHANGE ADD CONSTRAINT E_EXCHANGE_PK PRIMARY KEY (EXCHANGE_ID);
COMMIT;