[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[orca-users:07729] ヘルプマスタ関連差分
- To: ORCA USER ML <orca-users@xxxxxxxxxxxxxx>
- Subject: [orca-users:07729] ヘルプマスタ関連差分
- From: Naoki Shimaya <naoki-shimaya@xxxxxxxxxxxxxxxxxx>
- Date: Thu, 14 Apr 2005 09:32:33 +0900
おはようございます，島谷＠恵庭です．
もっと重要な部分での作業がお忙しいと思い，
自分で，ORCGW06.CBL W06.INC W06.rec W06.glade を
いじってみました． どんなもんでしょう？
ちょっとだけ試した範囲では動きました．
--- jma-receipt/cobol/ORCGW06.CBL Thu Apr 14 08:55:36 2005
+++ jma-receipt/cobol/ORCGW06.CBL Thu Apr 14 09:11:34 2005
@@ -40,6 +40,7 @@
* 01.01.08 NACL-多々納 02/11/13 一括入力
* 02.00.01 NACL-森脇 04/02/06 プログラム管理の追加
* 02.00.02 NACL-森脇 04/08/04 住所マスタの追加
+ * 02.00.03 05/04/14 ヘルプマスタ
*****************************************************************
*
ENVIRONMENT DIVISION.
@@ -81,7 +82,9 @@
*----(01.01.07)----START------------
*----(02.00.01)--UPD-START---
*----(02.00.02)--UPD-START---
- 09 SPA-GMN-CHK PIC X OCCURS 34.
+ *----(02.00.03)--UPD-START---
+ 09 SPA-GMN-CHK PIC X OCCURS 35.
+ *----(02.00.03)--UPD-END-----
*----(02.00.02)--UPD-END-----
*----(02.00.01)--UPD-END-----
*----(01.01.07)----END--------------
@@ -404,11 +407,13 @@
*----(01.01.07)----START------------
*----(02.00.01)--ADD-START---
*----(02.00.02)--ADD-START---
+ *----(02.00.03)--ADD-START---
* 業務処理権限
PERFORM VARYING IDX FROM 1 BY 1
- UNTIL IDX > 34
+ UNTIL IDX > 35
MOVE "F" TO SPA-GMN-CHK (IDX)
END-PERFORM
+ *----(02.00.03)--ADD-END-----
*----(02.00.02)--ADD-END-----
*----(02.00.01)--ADD-END-----
*----(01.01.07)----END--------------
@@ -724,7 +729,15 @@
ELSE
MOVE "F" TO SPA-GMN-CHK(34)
END-IF
- *----(02.00.021)--ADD-END-----
+ *----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ *ヘルプマスタ
+ IF SYS-1010-GSRAUTH(69:1) = "1"
+ MOVE "T" TO SPA-GMN-CHK(35)
+ ELSE
+ MOVE "F" TO SPA-GMN-CHK(35)
+ END-IF
+ *----(02.00.03)--ADD-END-----
.
320-SPASET-GSRAUTH-EXT.
EXIT.
@@ -787,6 +800,9 @@
*----(02.00.02)--ADD-START---
WHEN "CLICKED" ALSO "CHK34"
*----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ WHEN "CLICKED" ALSO "CHK35"
+ *----(02.00.03)--ADD-END-----
PERFORM 4119-GSRAUTH-CHK-SEC
END-EVALUATE
*
@@ -1541,6 +1557,14 @@
MOVE "0" TO SYS-1010-GSRAUTH(68:1)
END-IF
*----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ *住所マスタ
+ IF SPA-GMN-CHK(35) = "T"
+ MOVE "1" TO SYS-1010-GSRAUTH(69:1)
+ ELSE
+ MOVE "0" TO SYS-1010-GSRAUTH(69:1)
+ END-IF
+ *----(02.00.03)--ADD-END-----
.
4900-KOUSHIN-GSRAUTH-EXT.
EXIT.
@@ -1694,6 +1718,9 @@
*----(02.00.02)--ADD-START---
MOVE SPA-GMN-CHK(34) TO W06-CHK34
*----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ MOVE SPA-GMN-CHK(35) TO W06-CHK35
+ *----(02.00.03)--ADD-END-----
*
PERFORM VARYING IDX FROM 1 BY 1
UNTIL IDX > 5
@@ -1735,6 +1762,9 @@
*----(02.00.02)--ADD-START---
MOVE WIDGET-INSENSITIVE TO W06-CHK34-STATE
*----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ MOVE WIDGET-INSENSITIVE TO W06-CHK35-STATE
+ *----(02.00.03)--ADD-END-----
*
IF SPA-W01-SELNUM > ZERO
MOVE WIDGET-NORMAL TO W06-B03-STATE
@@ -1752,8 +1782,10 @@
*----(02.00.02)--ADD-START---
MOVE WIDGET-NORMAL TO W06-CHK34-STATE
*----(02.00.02)--ADD-END-----
+ *----(02.00.03)--ADD-START---
+ MOVE WIDGET-NORMAL TO W06-CHK35-STATE
+ *----(02.00.03)--ADD-END-----
END-IF
-
.
51O-GSRAUTH-EXT.
EXIT.
@@ -1886,13 +1918,15 @@
MOVE "SEMONKACD5" TO MCP-WIDGET
*----(02.00.01)--UPD-START---
*----(02.00.02)--UPD-START---
- WHEN 14 THRU 47
+ *----(02.00.03)--UPD-START---
+ WHEN 14 THRU 48
MOVE SPA-GMN-CUR TO IDX2
MOVE "CHK" TO MCP-WIDGET
COMPUTE IDX2 = IDX2 - 13
MOVE IDX2 TO MCP-WIDGET(4:2)
- WHEN 48
+ WHEN 49
MOVE "KANRIAUTHFLG" TO MCP-WIDGET
+ *----(02.00.03)--UPD-END-----
*----(02.00.02)--UPD-END-----
*----(02.00.01)--UPD-END-----
*----(01.01.05)----END--------------
@@ -1963,10 +1997,12 @@
IF IDX2 = 26
MOVE 47 TO SPA-GMN-CUR
END-IF
- * 住所マスタの後、管理者へ
- IF IDX2 = 47
- MOVE 48 TO SPA-GMN-CUR
+ *----(02.00.03)--UPD-START---
+ * ヘルプマスタの後、管理者へ
+ IF IDX2 = 48
+ MOVE 49 TO SPA-GMN-CUR
END-IF
+ *----(02.00.03)--UPD-END-----
*----(02.00.02)--UPD-END-----
*----(02.00.01)--UPD-END-----
END-IF
--- jma-receipt/cobol/copy/W06.INC Thu Apr 14 08:49:21 2005
+++ jma-receipt/cobol/copy/W06.INC Thu Apr 14 09:15:21 2005
@@ -73,6 +73,9 @@
04 W06-CHK34.
05 W06-CHK34-VALUE PIC X.
05 W06-CHK34-STATE PIC S9(9) BINARY.
+ 04 W06-CHK35.
+ 05 W06-CHK35-VALUE PIC X.
+ 05 W06-CHK35-STATE PIC S9(9) BINARY.
04 W06-KANRIAUTHCOMBO.
05 W06-KANRIAUTHFLG.
06 W06-FLG-VALUE PIC X(12).
--- jma-receipt/record/W06.rec Thu Apr 14 08:48:39 2005
+++ jma-receipt/record/W06.rec Thu Apr 14 09:16:14 2005
@@ -173,6 +173,10 @@
value bool;
state int;
};
+ CHK35 {
+ value bool;
+ state int;
+ };
KANRIAUTHCOMBO {
KANRIAUTHFLG {
value varchar(12);
--- jma-receipt/screen/W06.glade Thu Apr 14 09:17:05 2005
+++ jma-receipt/screen/W06.glade Wed Apr 13 17:23:07 2005
@@ -1679,6 +1679,30 @@
</widget>
<widget>
+ <class>GtkCheckButton</class>
+ <name>CHK35</name>
+ <x>800</x>
+ <y>632</y>
+ <width>130</width>
+ <height>26</height>
+ <can_focus>True</can_focus>
+ <signal>
+ <name>toggled</name>
+ <handler>button_toggled</handler>
+ <last_modification_time>Tue, 07 May 2002 10:35:27 GMT</last_modification_time>
+ </signal>
+ <signal>
+ <name>clicked</name>
+ <handler>send_event</handler>
+ <data>CLICKED</data>
+ <last_modification_time>Tue, 07 May 2002 10:35:43 GMT</last_modification_time>
+ </signal>
+ <label>ヘルプマスタ</label>
+ <active>False</active>
+ <draw_indicator>True</draw_indicator>
+ </widget>
+
+ <widget>
<class>GtkPandaCombo</class>
<name>KANRIAUTHCOMBO</name>
<x>200</x>