イベント履歴1
kメニュー (賃金台帳)
名札 メイン
変数宣言 共通,整数,{&年度=#年(#日時値),&月次=#月(#日時値)}
変数宣言 共通,整数,{&fl1,&fl2,&n1,&n2,&OK}
変数宣言 共通,文字列,{&s1,&s2}
変数宣言 共通,整数,{&pass1,&pass2=123,&前年度更新=0}
copy "t*.tbl","temp",終了状態=&OK
ケース開始
ケース (#FATTR("t賃金台帳.tbl",2)=&年月日)
ケース中止
ケース その他
copy "t*.tbl","bak",終了状態=&OK
ケース終了
*
手続き定義開始 tpass::入力前(参照 文字列 &編集文字列)
代入 &pass1=""
手続き定義終了
手続き定義開始 tpass::編集開始()
メソッド呼び出し @tpass.編集選択位置設定( 1 ,-1 )
メソッド呼び出し @tpass.編集選択文字列置換("")
手続き定義終了
手続き定義開始 終了::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
メソッド呼び出し ハンドル= &hwindow,@終了.フォーカス設定()
手続き定義終了
***
手続き定義開始 次年度データ作成::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
変数宣言 自動,整数{&次年度,&行数,&N }
絞り込み解除 *
絞り込み [退職日]=""
ケース開始
ケース (#総件数=0)
絞り込み解除 *
手続き終了
ケース終了
* 繰越データを書き出し、次年度のデータがあった場合は、データ作成を中止する。
書き出し条件登録 表,条件名="繰越処理","$t社員繰越.tbl",ファイル名変更=しない,{[年度],[順],[社番],[氏名],[備考],[次年度],[1支],[2支],[3支],[4支],[5支],[6支],[7支],[8支],[9支],[10支],[11支],[1非],[2非],[3非],[4非],[1控],[2控],[3控],[4控],[5控],[6控],[7控],[8控],[9控],[1実],[2実],[3実]}
書き出し 表,条件名="繰越処理",終了状態 = &OK
絞り込み解除 *
グループ指定 次,終了状態 = &OK
条件 (&OK=1) 手続き終了
*
グループ選択解除
ジャンプ 行番号 = 終端
読み込み条件登録 表,条件名="繰越処理","$t社員繰越.tbl",ファイル名変更=しない,{[年度][次年度],[順],[社番],[氏名],[備考],[次年度],[1支],[2支],[3支],[4支],[5支],[6支],[7支],[8支],[9支],[10支],[11支],[1非],[2非],[3非],[4非],[1控],[2控],[3控],[4控],[5控],[6控],[7控],[8控],[9控],[1実],[2実],[3実]},編集表=する
読み込み 表,条件名="繰越処理",終了状態 = &OK
ジャンプ 行番号 = B
グループ選択
置換 終了状態 = &OK,[順]=#連番
代入 &年度=[年度]
手続き定義終了
手続き定義開始 フォーム::フォーム開始(長整数 &表番号)
変数宣言 自動,整数{ &OK}
グループ検索 { [年度] = #年(#日時値) },終了状態 = &OK
条件 (&OK=0) グループ指定 最終,終了状態 = &OK
条件 (.not #EOF) 代入 &年度=[年度]
手続き定義終了
手続き定義開始 b賃金台帳入力::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
メソッド呼び出し @フォーム.更新モード設定(0)
メソッド呼び出し 戻り値 = &OK , @b順.実行()
ジャンプ 行番号=T
代入 &年度=[年度]
手続き定義終了
手続き定義開始 フォーム::行削除終了(長整数 &削除結果)
メソッド呼び出し 戻り値 = &OK , @b順.実行()
手続き定義終了
手続き定義開始 フォーム::行訂正終了(長整数 &明細番号,長整数 &モード)
メソッド呼び出し 戻り値 = &OK , @b順.実行()
手続き定義終了
手続き定義開始 フォーム::行挿入終了(長整数 &明細番号,長整数 &モード)
メソッド呼び出し 戻り値 = &OK , @b順.実行()
手続き定義終了
手続き定義開始 フォーム::グループ移動(長整数 &グループ番号,長整数 &総グループ件数)
条件 (.not #eof) &年度=[年度]
条件 (.not #eof) メソッド呼び出し ハンドル =&hwindow , @t社番.フォーカス設定()
条件 (.not #eof) メソッド呼び出し @w項目.@b作成.フォーカス設定()
手続き定義終了
手続き定義開始 フォーム::グループ追加終了(長整数 &モード)
条件 (#総件数) &年度=[年度]
手続き定義終了
手続き定義開始 b利用者コード入力::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
利用者コード 会話
手続き定義終了
k賃金台帳
名札 メイン
*
手続き定義開始 フォーム::レコード移動(長整数 &行番号,長整数 &総件数,長整数 &明細番号)
条件 (#eof) ジャンプ 行番号 = 最終
手続き定義終了
手続き定義開始 フォーム::グループ移動(長整数 &グループ番号,長整数 &総グループ件数)
&月次=#cond([列]<13,[列],1,"")
手続き定義終了
手続き定義開始 表示::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
メソッド呼び出し ハンドル= &hwindow,@t氏名.フォーカス設定()
メソッド呼び出し @フォーム.更新モード設定(0)
手続き定義終了
手続き定義開始 b値_削除::マウス左クリック(長整数 &マウス位置[2],長整数 &明細番号,長整数 &フラグ,参照 長整数 &処理中止)
変数宣言 文字列{ &focus , &s}
メソッド呼び出し @フォーム.更新モード設定( 2 )
メソッド呼び出し @フォーム.フォーカスオブジェクト取得( &focus )
メソッド呼び出し &focus.編集文字列取得(&s)
クリップボード 設定,(&s)
メソッド呼び出し &focus.編集文字列設定("")
メソッド呼び出し @フォーム.更新モード設定( 0 )
手続き定義終了