| おはようございます、いつもお世話になります。 下記一括処理ですが 「ウインドウ作成 Menu,ハンドル=&東京,編集表=開く」でメニュフォームを表示し、「ケース (&処理分岐=kanjya )」で処理を終わった後繰り返し表示「ウインドウ会話 &東京,モーダル=しない,ボタン=&処理分岐,初期項目=@id」の行で”無効なウインドウハンドル”のエラーになります。 「ウインドウ終了 &hd」また「ウインドウ終了 &東京」に置き換えても同じエラーとなります。
ウインドウハンドルの基本的な考え方が間違っているのでしょうか。 (必要な添付ファイルが必要な場合はご指示ください)
変数宣言 共通,整数{&東京,&フォームの状態,&ハンドル1,&hd} 変数宣言 共通,数値{&ptid,&検査分類,&dcd,&tcd,&kcd,&tcdAitem[10]} /* &ptid=患者番号,&dcd=検査分類,&tcd=検査小分類,&kcd=検査オーダID */ 変数宣言 共通,長整数,{&了解,&戻り値,&確定} 変数宣言 共通,文字列{&処理分岐,&患者氏名,&RS}
手続き実行 起動時設定 ウインドウ作成 Menu,ハンドル=&東京,編集表=開く
繰り返し
ウインドウ会話 &東京,モーダル=しない,ボタン=&処理分岐,初期項目=@id ケース開始 ケース (&確定=99) /* オーダメニューを終了し印刷処理へ移動 */ 終了 表 5,10 結合 kensa レポート印刷 "ken-order.rpt",プレビュー=する 終了 表 編集対照表 手続き実行 オーダ終了
ケース (&処理分岐=患者照会) /* 表示:患者照会 */
ケース (&処理分岐=終了ボタン) シェル実行 "c:\order\killie.vbs" /* ブラウザーの終了 */ シェル実行 "c:\order\ap-end.bat" /* アパッチの終了 */ 終了 桐 /* */
ケース (&処理分岐=kanjya ) /* */ 結合 ”mas-kan-temp.xvw” 書き出し 表,"患者一時処理" 終了 表 編集対象表 結合 "mas-kan.viw" 書き出し 表,"tmp-kan.tbl" 表 ”mas-kan” 行削除 * 読み込み 表,"tmp-kan.tbl",* 終了 表 編集対照表 終了 表 編集対象表 *ウインドウ終了 &hd ケース (&処理分岐=戻る2 ) /* */ ウィンドウ終了 &hd 編集表 ”ken-menu” 終了 表 編集対照表 ケース (&処理分岐=戻る3 ) /* */ ウィンドウ終了 &ハンドル1 編集表 ”komoku.tbl” 終了 表 編集対照表 * ケース (&処理分岐= ) /* */ * ケース (&処理分岐= ) /* */ ケース終了 条件 (&処理分岐=開始) 繰り返し中止 繰り返し終了
|