過去の桐井戸端BBS (桐ver.8)
16397 一括処理で一覧表フォームのボタンを押して印刷したいのだがうまくいかない 安斎 2002/06/22-23:14
また、お世話になります。
一括処理に挑んでいますが、うまくいかないのでよろしく願いいたします。
フォーム(一覧表)にボタン名「印刷」と「終了」を作成しました。
「印刷」は"一覧表A"を2部印刷して桐を終了する。
「終了」は何もしないで桐を終了するようにしたいのです。
印刷を実行しません、また、ボタンを2度クリックしないと終了しません。

変数宣言 整数{&ハンドル,&OK}
変数宣言 文字列{&ボタン}

表 救護者
使用フォーム 編集画面
  ジャンプ 行番号=先頭
  ウインドウ作成 フォーム,ハンドル=&ハンドル
  フォーム形式編集
  フォーム表示
 ケース開始
    ケース (&ボタン="終了")
  終了 桐
    ケース (&ボタン="印刷")
     一覧表印刷 条件名="一覧表A",部数=2,¥
     開始ページ=1:1,終了ページ=0:0,ページ番号=1,カラー印刷=しない,¥
     ソート=しない,会話=しない,プレビュー=しない,印刷ページ=両方,¥
     終了状態=&OK
     終了 桐
 ケース終了
終了 表
  ウインドウ終了 &ハンドル
終了 桐
16398 Re:一括処理での印刷について KH 2002/06/22-23:55
記事番号16397へのコメント
安斎さん、こんばんわは。

表や使用フォームコマンドの使い方も???部分がありますが、
&ボタンはフォーム形式編集コマンドでは取得できないのではないでしょうか。

・フォーム形式編集のまま「印刷」のコマンドで一覧表印刷する場合、イベントにするのが簡単か思います。

・&ボタンで処理内容を取得するなら、ウィンドウ会話コマンドでないと取得して一括に戻れないと思います。
 蛇足ですが、この場合コマンドボタンでは一括処理時有効にチェックと
 一括処理に戻るという命令が必要ですが。


16399 Re:一括処理での印刷について jyuuyuu_2 2002/06/23-08:26
記事番号16397へのコメント
安斎さん  今日は   jyuuyuu_2といいます。

本件に関してはフォームから印刷のジョブが有るだ(終了はないと同じ)けなので
一括処理向きではないと思います、イベントで処理向きです。

もし一括処理を勉強されるなら、起動して幾つかの処理を行い済んだら桐終了する
という手順が良いかと思います。

下の例では、私の顧問先で実際に仕事で使用している一括処理の一部です
MENU.WFM には 各ジョブボタンと終了ボタンと 見出し、会社名のラベルが有ります


【例】
****************************************************
* xxxxx処理システム
*  Version  WIN1.0  (98/7/30)
*  株式会社xxxxxxxx
****************************************************

変数宣言 共通 整数{&I,&J,&X0,&Y0,&X1,&X2,&Y1,&Y2,&ボタン}
変数宣言 共通 数値{&no1,&MENU,&G1,&G2,&G3,&G4,&G5,&G6,&G番号}
変数宣言 共通 文字列{&MENUM}
変数宣言 共通 文字列{&T1,&T2,&T3,&YY,&MM,&CODE}
代入 &no1=1
*****************************************************
  /*  メインメニュー・ウインドウの作成  */
  ウィンドウ作成 "MENU.WFM",位置=(0,0),ハンドル=&MENU
繰り返し
  /*  メインメニューでの指定      */
  ウィンドウ会話 &MENU,ボタン=&MENUM
  条件 (&MENUM="KIRI") 繰り返し中止
  条件 (&MENUM="終了") 終了 桐
 ケース開始
  ケース (&MENUM="自動集計")
   手続き実行 自動集計
  ケース (&MENUM="訂正入力")
   手続き実行 訂正入力
  ケース (&MENUM="A4横置印刷")
   手続き実行 A4横置印刷
  ケース (&MENUM="明細全員")
   手続き実行 明細全員
  ケース (&MENUM="明細個人")
   手続き実行 明細個人
  ケース (&MENUM="所属集計")
   手続き実行 所属集計
 ケース終了
繰り返し終了
  ウィンドウ終了 &MENU

終了

*4***********************
名札 自動集計
************************

《《途中省略》》
   手続き終了 


*4***********************
名札 訂正入力
************************

表 "集計2"
条件(.NOT #行集計状態 .AND .NOT #選択状態 .AND #整列状態) 整列解除
     使用フォーム ”新報奨金"
     フォーム形式編集 
  終了 表
  ウィンドウ作成 "MENU.WFM",位置=(0,0),ハンドル=&MENU
 手続き終了 

  
*4***********************
名札 A4横置印刷
************************
    表 "メッセージ"
    &G番号=2
    &G2=0
    ジャンプ 行番号=&G番号
    使用帳票 "メッセージ.WFM"
    フォーム形式編集 カーソル=→,終了状態=&G5
条件 (&ボタン=2) 分岐 FIN

表 "集計2"
     条件 (.NOT #行集計状態 .AND .NOT #絞り込み状態 .AND #整列状態)
整列解
     並べ替え 条件名="担当かな"
     行集計条件登録 条件名="印刷集計",並べ替え=しない,総計{[前回未払代金]#合計,
[切手代その他]#合計,[小計1]#合計,[150]#合計,[150数]#合計,[650]
#合計,[650数]#合計,[1000]#合計,[1000数]#合計,[紹介キャン]#合計,[紹介数]
#合計,[小計2]#合計,[努力賞]#合計,[合計]#合計,[合計数]#合計}
     行集計 条件名="印刷集計"
    一覧表印刷 条件名="新報奨金",部数=1,開始ページ=1:1,終了ページ=0:0,カラー印刷=しない,ソート=しない,ページ番号=1

手続き終了 

 
*4***********************
名札 明細全員
************************
《《以下省略》》

16400 Re:一括処理での印刷について(一部訂正) KH 2002/06/23-08:42
記事番号16398へのコメント
一部訂正します。コマンド→コマンドボタン

>・フォーム形式編集のまま「印刷」のコマンドで一覧表印刷する場合、イベント
> にするのが簡単か思います。

・フォーム形式編集のまま「印刷」のコマンドボタンで一覧表印刷する場合、
 イベントにするのが簡単か思います。

16402 Re:ありがとうございました。 安斎 2002/06/23-14:28
記事番号16399へのコメント
KHさん、 jyuuyuu_2さん ありがとうございました。

いただいたアドバイスや一括処理の例を参考にして、これから訂正します。

桐はV6からはじめ、過去に一括処理にトライして挫折し、
履歴とボタンの機能名で利用してきましたが、「老人と桐」さんの掲示板を読み刺激を受け、
勉強を始めたばかりですので、今後もご教示の程、よろしくお願いいたします。

質問の補足ですが、一連の手続きを履歴のような感覚で
初期画面(メニュー.WFM)データ読込、データの絞り込み、
並べ替えをその都度フォーム(複数ボタンの中から選択)を切り替え、
最後のフォームで編集確認し、印刷をして桐を終了したいと考えて
挑戦しましたが、つまずいてしまいました。

戻る