.******************************************************************* .* .* PANEL GRP NAME: MN02 .* .* TEXT : 受注処理メニュー .* .* TYPE : 単一メニュー・パネル .* .* 作成日 : 98/07/31 13:22:21 .* .* 作成ユーザー : QTR APTIVAS01 .* .* 変更日 : 98/07/31 13:30:39 .* .* 変更ユーザー : QTR APTIVAS01 .* .******************************************************************* :PNLGRP. :COPYR. (C) COPYRIGHT OFFICE QUATTRO 1994. :IMPORT NAME='*' PNLGRP=CMDMNU. .* ------------------------- .* クラスの定義 .* ------------------------- .* ------------------------- .* 変数の定義 .* ------------------------- :VAR NAME=ZMENU. :VAR NAME=ZUSER. .* ------------------------- .* レコードの定義 .* ------------------------- .* ------------------------- .* 条件の定義 .* ------------------------- :COND NAME=PERL EXPR='CHKOBJ("PERL.COM", "*LIB", "*OBJEXIST")' EXPR='*AND CHKOBJ("PERL", "*MENU", "*OBJEXIST")'. :COND NAME=HANBAI EXPR='ZUSER = "HANBAI "'. .* ------------------------- .* 機能キーの定義 .* ------------------------- :KEYL NAME=MNUKEYL. :KEYI KEY=ENTER HELP=ENTER ACTION=ENTER. :KEYI KEY=HELP HELP=HELP ACTION=HELP. :KEYI KEY=F3 HELP=F3 ACTION='EXIT SET' VARUPD=NO. F3= 終了 :KEYI KEY=F4 HELP=F4 ACTION='PROMPT' VARUPD=NO. F4= プロンプト :KEYI KEY=F5 HELP=F5 ACTION='CMD WRKACTJOB' VARUPD=NO. F5= 活動状況 :KEYI KEY=F6 HELP=F6 ACTION='CMD DSPMSG' VARUPD=NO. F6= メッセージ :KEYI KEY=F9 HELP=F9 ACTION='RETRIEVE' VARUPD=NO. F9= コマンドの複写 :KEYI KEY=F10 HELP=F10 ACTION='CMD CALL QCMD' VARUPD=NO. F10= コマンド入力 :KEYI KEY=F12 HELP=F12 ACTION='CANCEL SET' VARUPD=NO. F12= 取消し :KEYI KEY=F13 HELP=F13 ACTION='CMD OPMENUJ' VARUPD=NO. F13= 印刷制御 :KEYI KEY=PAGEUP HELP=PAGEUP ACTION=PAGEUP. :KEYI KEY=PAGEDOWN HELP=PAGEDOWN ACTION=PAGEDOWN. :EKEYL. .* ------------------------- .* ヘルプの定義 .* ------------------------- .* STRHLPDFN : DO NOT REMOVE THIS LINE :HELP NAME=OPTION01. 受注の入力 JUCHU :XH3. 受注の入力 JUCHU :P. :PC. :EHELP. :HELP NAME=OPTION02. 商品明細表 PRT001 :XH3. 商品明細表 PRT001 :P. :PC. :EHELP. :HELP NAME=OPTION03. 部品マスターの登録 PNL001 :XH3. 部品マスターの登録 PNL001 :P. :PC. :EHELP. :HELP NAME=OPTION04. 品種別商品在庫照会 PNL004 :XH3. 品種別商品在庫照会 PNL004 :P. :PC. :EHELP. :HELP NAME=OPTION05. 部品仕入の入力 PNL008 :XH3. 部品仕入の入力 PNL008 :P. :PC. :EHELP. :HELP NAME=OPTION06. 部品在庫の照会 PNL009 :XH3. 部品在庫の照会 PNL009 :P. :PC. :EHELP. :HELP NAME=OPTION07. 漢字処理メニュー KJMENU :XH3. 漢字処理メニュー KJMENU :P. :PC. :EHELP. .* ENDHLPDFN : DO NOT REMOVE THIS LINE .* ------------------------- .* 表　示　パ　ネ　ル .* ------------------------- :PANEL NAME=DSPMNU HELP='MENU' KEYL=MNUKEYL PANELID=ZMENU ENTER='MSG CPD9817 QCPFMSG' TOPSEP=SYSNAM. 受注処理メニュー :MENU DEPTH='*' SCROLL=NO BOTSEP=SPACE. :TOPINST. 次の中から１つを選んでください。 .* STRMNUDFN : DO NOT REMOVE THIS LINE :MENUI OPTION=01 ACTION='CMD JUCHU' HELP='OPTION01'. 受注の入力 JUCHU :MENUI OPTION=02 ACTION='CMD PRT001' HELP='OPTION02'. 商品明細表 PRT001 :MENUI OPTION=03 ACTION='CMD CHGPNL QTROBJ/PNL001' HELP='OPTION03'. 部品マスターの登録 PNL001 :MENUI OPTION=04 ACTION='CMD DSPPNL QTROBJ/PNL004' HELP='OPTION04'. 品種別商品在庫照会 PNL004 :MENUI OPTION=05 ACTION='CMD CHGPNL QTROBJ/PNL008' HELP='OPTION05'. 部品仕入の入力 PNL008 :MENUI OPTION=06 ACTION='CMD DSPPNL QTROBJ/PNL009' HELP='OPTION06'. 部品在庫の照会 PNL009 :MENUI OPTION=07 ACTION='CMD GO QTROBJ/KJMENU' COND=HANBAI HELP='OPTION07'. 漢字処理メニュー KJMENU .* ENDMNUDFN : DO NOT REMOVE THIS LINE :EMENU. .* STRCMDDFN : DO NOT REMOVE THIS LINE :CMDLINE SIZE=LONG. 選択項目またはコマンド .* ENDCMDDFN : DO NOT REMOVE THIS LINE :EPANEL. :EPNLGRP. .* * * * END OF PANEL GROUP * * *