目次に戻る＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 行事予定表作成システム ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ ＷＡＲＮＩＮＧ ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ この一括処理を実行する前に ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 行事ﾓﾄ.TBLの項目値［年］の＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 項目初期値を変更して下さい｡＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
変数宣言 整数｛＆年度,＆保護,＆行,＆初期値,＆メニュー,＆メニュー2｝
変数宣言 数値｛＆表,＆確認｝
変数宣言 文字列｛＆表名,＆表２,＆キー,＆表題｝
画面表示 (1,10),"********************************************",白
画面表示 (2,10),"****** 年間行事予定表を作成システム ******",白
画面表示 (3,10),"********************************************",白
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊ 年度設定 ＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
キー入力 (5,10),プロンプト="年度（西暦）を入力して下さい。"\
,モード=半角,上書き=する,初期値=＆初期値,パネル使用=禁止\
,終了状態=＆確認,バッファクリア=する,＆年度
画面表示 (10,10),#文字列(＆年度),白
画面表示 (10,14),"年度の年間行事予定表を作成します。(ENT:作成する ESC:しない)",白
名札 ミス１
機能キー入力 (9,10),カーソル=オフ,＆確認
分岐 （＆確認=13) ， 処理１
分岐 （＆確認<>27 .AND ＆確認<>13) ， ミス１
分岐 （＆確認=27) ， 処理５
名札 処理１
画面消去 (10,1)-(10,80)
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 表の保護 ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
代入 ＆表名=#連結（"行事",#文字列(＆年度),".TBL"）
代入 ＆表２=#連結（"行事",#文字列(＆年度),".BUN"）
代入 ＆表=#ファイルサイズ（＆表名）
分岐 （＆表=-1） ， 処理２
メニュー ＆保護,{0,10,10,"指定年度の行事予定表は以前作成しましたね。",白}\
,{1,14,17,"使用する",白}\
,{2,16,17,"使用しない",白}\
,{0,16,27,"： 以前作成した表は消去されます。",白}\
,{0,18,15,"↑・↓キーで注意して選択し、ENTキーを押して下さい。",赤}
分岐 （＆保護=1) ， 処理３
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 表の作成 ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
名札 処理２
ファイル複写 "行事ﾓﾄ.TBL",＆表名
名札 処理３
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 表の編集 ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
画面消去 ＊
画面表示 (22,10),"変更する表を上のメニューバーから選択して下さい。"
繰り返し
メニュー ＆メニュー2,初期項目=＆メニュー2,画面消去=しない,文字選択=する\
,{1,1, 1,"1:祝・祭日の編集”,白,下線}\
,{2,1,22,"2:学校行事の編集”,白,下線}\
,{4,1,64,"4:処理を終了する”,白,下線}
ケース開始
ケース （＆メニュー2=1)
画面消去（1, 1）-(1,80)
表 ”祭日.TBL"
表示制御 行数=25,処理中表示=しない
表形式編集 ガイド="再編集、入力が終了したら、ｆ１キーを２回押した後、ｆ１０キーを押して下さい。"
表
画面消去 *
ケース （＆メニュー2=2)
画面消去（1, 1）-(1,80)
表 ”行事.TBL"
表示制御 行数=25,処理中表示=しない
表形式編集 ガイド="再編集、入力が終了したら、ｆ１キーを２回押した後、ｆ１０キーを押して下さい。"
表
画面消去 *
ケース （＆メニュー2=4)
繰り返し中止
ケース終了
繰り返し終了
画面消去 ＊
表 ＆表名
表示制御 行数=25,処理中表示=しない
条件 （＆保護<>1) 手続き実行 表編集
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊ 表の印刷 ＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
画面表示 (20,10),"印刷とともにワープロソフト松用に書き出しを行います。"
機能キー入力 (22,10),プロンプト="Ａ３の用紙を用意して下さい。(ENT:印刷する ESC:しない)",＆確認
分岐 （＆確認=27) ， 印刷しない
帳票印刷 "行事.FRM",文書ファイル名=＆表２,部数=1,罫線印字=する\
,カラー印刷=する,脚書部=固定,縮小率=0
帳票印刷 "行事.FRM",部数=1,罫線印字=する\
,カラー印刷=する,脚書部=固定,縮小率=0
名札 印刷しない
表
画面消去 (1, 1)-(21,80)
画面表示 (22,10),"再編集、入力が必要なときに上のメニューバーから選択して下さい。"
メニュー ＆メニュー2,初期項目=＆メニュー2,画面消去=しない,文字選択=する\
,{1,1, 1,"1:祝・祭日の編集”,白,下線}\
,{2,1,22,"2:学校行事の編集”,白,下線}\
,{3,1,43,"3:再編集後の印刷”,白,下線}\
,{4,1,64,"4:処理を終了する”,白,下線}
ケース開始
ケース （＆メニュー2=1)
画面消去（1, 1）-(1,80)
表 ”祭日.TBL"
表形式編集 ガイド="再編集、入力が終了したら、ｆ１キーを２回押した後、ｆ１０キーを押して下さい。"
表
画面消去 (1,1)-(21,80)
ケース （＆メニュー2=2)
画面消去（1, 1）-(1,80)
表 ”行事.TBL"
表形式編集 ガイド="再編集、入力が終了したら、ｆ１キーを２回押した後、ｆ１０キーを押して下さい。"
表
画面消去 (1,1)-(21,80)
ケース （＆メニュー2=3)
画面消去（1, 1）-(1,80)
表 ＆表名
画面表示 (16,10),"印刷とともにワープロソフト松用に書き出しを行います。"
キー入力 (18,10),プロンプト="Ａ３の用紙を用意して下さい。(ENT:印刷する ESC:しない)",＆確認
分岐 （＆確認=27) ， 印刷しない２
帳票印刷 "行事.FRM",文書ファイル名=＆表２,部数=1,罫線印字=する\
,カラー印刷=する,脚書部=固定,縮小率=0
帳票印刷 "行事.FRM",部数=1,罫線印字=する\
,カラー印刷=する,脚書部=固定,縮小率=0
名札 印刷しない２
表
画面消去 (1,1)-(21,80)
ケース （＆メニュー2=4)
繰り返し中止
ケース終了
繰り返し終了
表 ＆表名
位置指定 行番号=1
表形式編集 ガイド="再編集、入力が終了したら、ｆ１キーを２回押した後、ｆ１０キーを押して下さい。"
表
終了
名札 表編集
画面表示 (10,10),"年間行事予定表を作成するための一括処理を実行しています。"
画面表示 (12,26),"しばらくお待ち下さい。",点滅
手続き実行 日付編集
手続き実行 祭日編集
手続き実行 振替休日編集
手続き実行 第２土曜編集
手続き実行 行事読み込み
手続き終了
名札 日付編集
位置指定 行番号=31
行訂正 [日２]="",[日短]=""
&初期値=#日(#月末(#文字列(&年度+1)+"-2-1"))+1
繰り返し &行=&初期値,30
位置指定 行番号=&行
行訂正 [日２]=""
繰り返し終了
手続き終了
名札 祭日編集
置換 [１ 月]=#表引き("1-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[２ 月]=#表引き("2-"+#文字列([日２]),=,"祭日",[月日],[祭日名])\
,[３ 月]=#表引き("3-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[４ 月]=#表引き("4-"+#文字列([日短]),=,"祭日",[月日],[祭日名])\
,[５ 月]=#表引き("5-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[６ 月]=#表引き("6-"+#文字列([日短]),=,"祭日",[月日],[祭日名])\
,[７ 月]=#表引き("7-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[８ 月]=#表引き("8-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[９ 月]=#表引き("9-"+#文字列([日短]),=,"祭日",[月日],[祭日名])\
,[１０ 月]=#表引き("10-"+#文字列([ 日長]),=,"祭日",[月日],[祭日名])\
,[１１ 月]=#表引き("11-"+#文字列([日短]),=,"祭日",[月日],[祭日名])\
,[１２ 月]=#表引き("12-"+#STR([ 日長]),=,"祭日",[月日],[祭日名])
手続き終了
名札 振替休日編集
繰り返し &行=1,30
位置指定 行番号=&行
条件 ([曜日１]="日" .and [１ 月]<>"") 手続き実行 振替１月
位置指定 行番号=&行
条件 ([曜日２]="日" .and [２ 月]<>"") 手続き実行 振替２月
位置指定 行番号=&行
条件 ([曜日３]="日" .and [３ 月]<>"") 手続き実行 振替３月
位置指定 行番号=&行
条件 ([曜日４]="日" .and [４ 月]<>"") 手続き実行 振替４月
位置指定 行番号=&行
条件 ([曜日５]="日" .and [５ 月]<>"") 手続き実行 振替５月
位置指定 行番号=&行
条件 ([曜日６]="日" .and [６ 月]<>"") 手続き実行 振替６月
位置指定 行番号=&行
条件 ([曜日７]="日" .and [７ 月]<>"") 手続き実行 振替７月
位置指定 行番号=&行
条件 ([曜日８]="日" .and [８ 月]<>"") 手続き実行 振替８月
位置指定 行番号=&行
条件 ([曜日９]="日" .and [９ 月]<>"") 手続き実行 振替９月
位置指定 行番号=&行
条件 ([曜日１０]="日" .and [１０ 月]<>"") 手続き実行 振替１０月
位置指定 行番号=&行
条件 ([曜日１１]="日" .and [１１ 月]<>"") 手続き実行 振替１１月
位置指定 行番号=&行
条件 ([曜日１２]="日" .and [１２ 月]<>"") 手続き実行 振替１２月
繰り返し終了
手続き終了
名札 振替１月
位置指定 行番号=次行
分岐 ([１ 月]<>""),振替１月
行訂正 [１ 月]="振替休日"
手続き終了
名札 振替２月
位置指定 行番号=次行
分岐 ([２ 月]<>""),振替２月
行訂正 [２ 月]="振替休日"
手続き終了
名札 振替３月
位置指定 行番号=次行
分岐 ([３ 月]<>""),振替３月
行訂正 [３ 月]="振替休日"
手続き終了
名札 振替４月
位置指定 行番号=次行
分岐 ([４ 月]<>""),振替４月
行訂正 [４ 月]="振替休日"
手続き終了
名札 振替５月
位置指定 行番号=次行
分岐 ([５ 月]<>""),振替５月
行訂正 [５ 月]="振替休日"
手続き終了
名札 振替６月
位置指定 行番号=次行
分岐 ([６ 月]<>""),振替６月
行訂正 [６ 月]="振替休日"
手続き終了
名札 振替７月
位置指定 行番号=次行
分岐 ([７ 月]<>""),振替７月
行訂正 [７ 月]="振替休日"
手続き終了
名札 振替８月
位置指定 行番号=次行
分岐 ([８ 月]<>""),振替８月
行訂正 [８ 月]="振替休日"
手続き終了
名札 振替９月
位置指定 行番号=次行
分岐 ([９ 月]<>""),振替９月
行訂正 [９ 月]="振替休日"
手続き終了
名札 振替１０月
位置指定 行番号=次行
分岐 ([１０ 月]<>""),振替１０月
行訂正 [１０ 月]="振替休日"
手続き終了
名札 振替１１月
位置指定 行番号=次行
分岐 ([１１ 月]<>""),振替１１月
行訂正 [１１ 月]="振替休日"
手続き終了
名札 振替１２月
位置指定 行番号=次行
分岐 ([１２ 月]<>""),振替１２月
行訂正 [１２ 月]="振替休日"
手続き終了
名札 第２土曜編集
置換 [１ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日１]="土" .and [１ 月]="")),"休業日",1,[１ 月])\
,[２ 月]=#条件選択(((7<[日２] .and [日２]<15) .and ([曜日２]="土" .and [２ 月]="")),"休業日",1,[２ 月])\
,[３ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日３]="土" .and [３ 月]="")),"休業日",1,[３ 月])\
,[４ 月]=#条件選択(((7<[日短] .and [日短]<15) .and ([曜日４]="土" .and [４ 月]="")),"休業日",1,[４ 月])\
,[５ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日５]="土" .and [５ 月]="")),"休業日",1,[５ 月])\
,[６ 月]=#条件選択(((7<[日短] .and [日短]<15) .and ([曜日６]="土" .and [６ 月]="")),"休業日",1,[６ 月])
置換 ,[７ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日７]="土" .and [７ 月]="")),"休業日",1,[７ 月])\
,[８ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日８]="土" .and [８ 月]="")),"休業日",1,[８ 月])\
,[９ 月]=#条件選択(((7<[日短] .and [日短]<15) .and ([曜日９]="土" .and [９ 月]="")),"休業日",1,[９ 月])\
,[１０ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日１０]="土" .and [１０ 月]="")),"休業日",1,[１０ 月])\
,[１１ 月]=#条件選択(((7<[日短] .and [日短]<15) .and ([曜日１１]="土" .and [１１ 月]="")),"休業日",1,[１１ 月])\
,[１２ 月]=#条件選択(((7<[ 日長] .and [ 日長]<15) .and ([曜日１２]="土" .and [１２ 月]="")),"休業日",1,[１２ 月])
手続き終了
名札 行事読み込み
置換 [１ 月]=#表引き("1-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[２ 月]=#表引き("2-"+#STR([日２]),=,"行事",[月日],[行事名])\
,[３ 月]=#表引き("3-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[４ 月]=#表引き("4-"+#STR([日短]),=,"行事",[月日],[行事名])\
,[５ 月]=#表引き("5-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[６ 月]=#表引き("6-"+#STR([日短]),=,"行事",[月日],[行事名])\
,[７ 月]=#表引き("7-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[８ 月]=#表引き("8-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[９ 月]=#表引き("9-"+#STR([日短]),=,"行事",[月日],[行事名])\
,[１０ 月]=#表引き("10-"+#STR([ 日長]),=,"行事",[月日],[行事名])\
,[１１ 月]=#表引き("11-"+#STR([日短]),=,"行事",[月日],[行事名])\
,[１２ 月]=#表引き("12-"+#STR([ 日長]),=,"行事",[月日],[行事名])
手続き終了
ホームページに戻る