過去の桐井戸端BBS (桐ver.9)
18824 一括処理の「確認」コマンドでエスケープを押すとその後の処理が実行されないようにしたい 裕次郎 2003/02/05-00:27
一括処理の「確認」についてご指導ください。

--------------------------------------

表  "売上.tbl"
ケース開始
 ケース(#空ファイル)
  表
 ケース(.not#空ファイル)
  確認 "ファイルを保存します。 (Enter:実行 ESC:中止)",&確認
  表
  表  "売上マスター"
  並べ替え {[年月日],[伝票番号]昇順}
  ジャンプ 行番号=最終
  読み込み 表,"売上",*
----------------------------------------
といった処理をしたいのですが、
確認のコマンドでエンターをクリックすると実行するのですが
エスケープを押しても、実行してしまうのですが
どこをどうすれば、エスケープキーが実行されるのでしょうか・・

よろしくお願いいたします。
  

18826 Re:確認 郷司 2003/02/05-00:50
記事番号18824へのコメント
裕次郎さん こんばんは。

>  確認 "ファイルを保存します。 (Enter:実行 ESC:中止)",&確認

ここで、&確認 には次の戻り値が返ってきますので、その値によってそれぞれに処理を変えるのがよろしいかと。

以下、HELPより

<変数名> には、つぎのボタン番号が代入されます。
 戻り値 ボタン番号
 1    [OK]
 0    [キャンセル]


18827 Re:確認 郷司 2003/02/05-01:26
記事番号18826へのコメント
すみませんです、質問の答になっていませんでしたね。

エスケープは「キャンセル」と同じ 0 (零)が戻り値です.

18828 Re:確認 悲しげ 2003/02/05-10:31
記事番号18827へのコメント
したがって、具体的な記述は例えば次のようにします。

 ・・・・・・・・・・
 ケース(.not#空ファイル)
  確認 "ファイルを保存します。 (Enter:実行 ESC:中止)",&確認
  ケース開始
  ケース(&確認=1)
   表
   表  "売上マスター"
   並べ替え {[年月日],[伝票番号]昇順}
   ジャンプ 行番号=最終
   読み込み 表,"売上",*
  ケース終了
18829 Re:確認 裕次郎 2003/02/05-12:00
記事番号18828へのコメント
郷司さん、悲しげさん、ご指導ありがとうございます。
やってみます。

18831 「読み込み」について補足 悲しげ 2003/02/05-14:23
記事番号18828へのコメント
些細なことですが、一寸引っかかったので補足です。

>並べ替え {[年月日],[伝票番号]昇順}
>ジャンプ 行番号=最終
>読み込み 表,"売上",*

桐のヘルプには次のように記載されています。
---------------------------------------------
読み込んだデータは、表の最後に追加されます。
ただし、編集対象表で行挿入ができる状態ならば、
処理対象行の直前に挿入されます。
---------------------------------------------

と云うことで「行挿入ができる状態ならば」最終行ではなく終端行にジャンプさせなくてはなりません。
なお、索引を使っている状態であれば、処理対象行がどこにあっても、表の最後に行追加されます。
索引を使わない並べ替え状態だとどうなるかについては、すいません、未確認です。

戻る