39 lines
2.7 KiB
Transact-SQL
39 lines
2.7 KiB
Transact-SQL
DECLARE @CONTROL_ID INTEGER,
|
||
@NEW_CONTROL_ID INTEGER,
|
||
@CONTROL_TYPE_ID INTEGER,
|
||
@NAME VARCHAR(100),
|
||
@COL_NAME VARCHAR(100),
|
||
@SQL_COMMAND_1 VARCHAR(2000)
|
||
|
||
DECLARE c_CONTROLS CURSOR FOR SELECT T.GUID,
|
||
CASE T.CONTROL_TYPE_ID
|
||
WHEN 8 THEN 10
|
||
WHEN 9 THEn 8
|
||
WHEN 10 THEN 9
|
||
ELSE T.CONTROL_TYPE_ID
|
||
END AS CONTROL_TYPE_ID,
|
||
T.NAME,T.COL_NAME,T.SQL_COMMAND_1
|
||
FROM DD_DMS.dbo.TBPMO_CONTROL T WHERE T.FORM_ID = 22
|
||
|
||
BEGIN
|
||
OPEN c_CONTROLS
|
||
FETCH NEXT FROM c_CONTROLS INTO @CONTROL_ID,@CONTROL_TYPE_ID,@NAME,@COL_NAME,@SQL_COMMAND_1
|
||
|
||
WHILE @@FETCH_STATUS = 0
|
||
BEGIN
|
||
INSERT INTO TBPMO_CONTROL (FORM_ID,CONTROL_TYPE_ID,NAME,COL_NAME,SQL_COMMAND_1) VALUES
|
||
(8,@CONTROL_TYPE_ID,@NAME,@COL_NAME,@SQL_COMMAND_1)
|
||
SELECT @NEW_CONTROL_ID = MAX(GUID) FROM TBPMO_CONTROL
|
||
|
||
INSERT INTO TBPMO_CONTROL_SCREEN (CONTROL_ID,SCREEN_ID,CONTROL_TEXT,X_LOC,Y_LOC,HEIGHT,WIDTH,FONT_FAMILY,FONT_COLOR,FONT_SIZE,FONT_STYLE,TAB_INDEX,TAB_STOP)
|
||
SELECT @NEW_CONTROL_ID,SCREEN_ID,CONTROL_TEXT,X_LOC,Y_LOC,HEIGHT,WIDTH,FONT_FAMILY,FONT_COLOR,FONT_SIZE,FONT_STYLE,TAB_INDEX,TAB_STOP FROM
|
||
DD_DMS.dbo.TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = @CONTROL_ID AND SCREEN_ID = 1
|
||
|
||
FETCH NEXT FROM c_CONTROLS INTO @CONTROL_ID,@CONTROL_TYPE_ID,@NAME,@COL_NAME,@SQL_COMMAND_1
|
||
END
|
||
|
||
CLOSE c_CONTROLS
|
||
DEALLOCATE c_CONTROLS
|
||
|
||
|
||
END |