/**Begin D:\PDM\PDM_UPGRADE\pdm1\BCM_constraint.sql **/
 EXEC P_ALTERPK 'PK_T_BCM_DSACCTMAINDATA', 'T_BCM_DSACCTMAINDATA', 'FID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_BCM_DSACCTMAINDATA_GCODE') CREATE INDEX IDX_BCM_DSACCTMAINDATA_GCODE ON T_BCM_DSACCTMAINDATA ( FGROUPACCOUNTCODE );


 EXEC P_ALTERPK 'PK_T_BCM_DSENTITYMAINDATA', 'T_BCM_DSENTITYMAINDATA', 'FID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_BCM_DSENTITYMAINDATA_CODE') CREATE INDEX IDX_BCM_DSENTITYMAINDATA_CODE ON T_BCM_DSENTITYMAINDATA ( FCOMPANYCODE );


 EXEC P_ALTERPK 'PK_T_BCM_DSCURRMAINDATA', 'T_BCM_DSCURRMAINDATA', 'FID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX__BCM_DSCURRMAINDATA_CODE') CREATE INDEX IDX__BCM_DSCURRMAINDATA_CODE ON T_BCM_DSCURRMAINDATA ( FCURRENCYCODE );



/**End D:\PDM\PDM_UPGRADE\pdm1\BCM_constraint.sql **/
