《 レコード選択メニューと絞り込み 》
【内容】
レコードの絞り込み対象をメニューとして表示し、
選択した対象を絞り込みます。
【用例】
名札 月選択 ①
繰り返し
メニュー２ &POPM,&POPM,(14,41),＃連結（&ｼｽﾃﾑ名,"対象月の選択") \
,"４ 月,５ 月,６ 月,７ 月,８ 月,９ 月,10 月,11 月,12 月" \
,"１ 月,２ 月,３ 月,中 止"
条件 (&POPM=13) 分岐 START
条件 (&POPM<13) &ｹﾞﾂ=#数値(#対応文字列("4,5,6,7,8,9,10,11,12,1,2,3",&POPM))
条件 (&POPM<13) &ﾂｷ=#対応文字列("04,05,06,07,08,09,10,11,12,01,02,03",&POPM)
条件 (&ｹﾞﾂ>3) &ﾈﾝ=&年度
条件 (&ｹﾞﾂ<4) &ﾈﾝ=&年度+1
条件 (&POPM<13) メッセージボックス \
＃連結（&ｼｽﾃﾑ名,"対象年月確認：",#全角(#STR(&ﾈﾝ)),"年",#全角(#STR(&ｹﾞﾂ)),"月分") \
,"よろしいか？",アイコン=?,ボタン=4,&選択
条件 (&選択=6) 繰り返し中止
条件 (&選択=2) 分岐 START
繰り返し終了
手続き終了
名札 部選択
・・・・・・・・・
繰り返し
メッセージボックス ＃連結（&ｼｽﾃﾑ名,"対象学部の選択"),"対象の部を選んでください。「任意指定」では \
\n 任意にレコードを選べます。(会話処理)",アイコン=i
条件 (&部="") &部=7
メニュー２ &部,&部,(14,41),＃連結（&ｼｽﾃﾑ名,"対象学部の選択") \ ②
,"幼稚部,小学部,中学部,高等部,専攻科,特殊学級" \
,"全学部,ＩＤ番号,任意指定,中 止"
条件 (&部=10) 分岐 START
条件 (&部<10) &対象=#対応文字列("幼稚部,小学部,中学部,高等部,専攻科,特殊学級,全学部,,任意指定",&部)
・・・・・・・・・
ケース開始
ケース (&部<>8)
メッセージボックス ＃連結（&ｼｽﾃﾑ名,"対象：",&対象) \
,"よろしいか？",アイコン=?,ボタン=4,&選択
ケース (&部=8)
キー入力 (14,41),プロンプト=＃連結（&ｼｽﾃﾑ名,"対象のＩＤ番号を入力してください。＝ ") \
,上書き=する,初期値=&ID,&ID
・・・・・・・・・
ケース終了
条件 (&部<>8 .and &選択=6) 繰り返し中止
条件 (&部<>8 .and &選択=2) 分岐 START
条件 (&部=8 .and &ID<>"") 繰り返し中止
・・・・・・・・・
繰り返し終了
・・・・・・・・・
手続き終了
名札 併合元表
条件 (#検索条件数>0) 検索条件削除 *
並べ替え {[ＩＤ]昇順,[氏名]辞書順,[年]昇順,[月]昇順,[支給日]辞書順}
ケース開始 ③
ケース (&部<7)
検索条件登録 条件名="ＤＢ化",{[年]=&ﾈﾝ,[月]=&ｹﾞﾂ,[部]=&部}
条件 (&TOPM=6 .and &POPM<13) 検索条件登録 条件名="ＤＢ化",{[年]=&ﾈﾝ,[月]=&ｹﾞﾂ,[部]=&部,[仮]<>[決]}
条件 (&TOPM=6 .and &POPM=13) 検索条件登録 条件名="ＤＢ化",{[月]>3,[月]≦&ｹﾞﾂ,[部]=&部,[仮]<>[決]}
絞り込み 条件名="ＤＢ化"
・・・・・・・・・
ケース (&部=8)
検索条件登録 条件名="ＤＢ化",{[年]=&ﾈﾝ,[月]=&ｹﾞﾂ,[ＩＤ]=&ID}
・・・・・・・・・
絞り込み 条件名="ＤＢ化"
・・・・・・・・・
ケース終了
&KEN=&選択件数
条件 (&KEN<1) 確認 ＃連結（&ｼｽﾃﾑ名,"処理対象レコードがありません。作業を中止します。")
条件 (&KEN<1) 分岐 START
手続き終了
【解説】
① 月選択では、対象月を選択した後、メッセージ表示やファイル指定などのため変数にデータを
設定しています。
② 部選択の学部は幼稚部を１、小学部を２として設定しています。
③ 選択対象別に検索条件を設定し、レコードを絞り込みます。
【参考】
①月選択と②部選択
③ 選択対象別に検索条件を設定し、レコードを絞り込みます。
END of FILE 《戻る》 《玄関へ》