/**Begin C:\PDM_UPGRADE\PDM1\SRC_constraint.sql **/
 EXEC P_ALTERPK 'PK_SRC_PURLISTENTRYSUB', 'T_SRC_PURLISTENTRYSUB', 'FDETAILID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_SRC_PURLISTENTRYSUB_EID') CREATE INDEX IDX_SRC_PURLISTENTRYSUB_EID ON T_SRC_PURLISTENTRYSUB ( FENTRYID );


 EXEC P_ALTERPK 'PK_SRC_CONTRACTENTRYSUB', 'T_SRC_CONTRACTENTRYSUB', 'FDETAILID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_SRC_CONTRACTENTRYSUB_EID') CREATE INDEX IDX_SRC_CONTRACTENTRYSUB_EID ON T_SRC_CONTRACTENTRYSUB ( FENTRYID );


 EXEC P_ALTERPK 'PK_SRC_MATERIALCHG', 'T_SRC_MATERIALCHG', 'FID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_SRC_MATERIALCHG_PID') CREATE INDEX IDX_SRC_MATERIALCHG_PID ON T_SRC_MATERIALCHG ( FPARENTID );


 EXEC P_ALTERPK 'PK_SRC_MATERIALCHGENTRY', 'T_SRC_MATERIALCHGENTRY', 'FENTRYID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_SRC_MATERIALCHGENTRY_FID') CREATE INDEX IDX_SRC_MATERIALCHGENTRY_FID ON T_SRC_MATERIALCHGENTRY ( FID );



/**End C:\PDM_UPGRADE\PDM1\SRC_constraint.sql **/
