kiri9.com

イベント履歴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 )

手続き定義終了

powered by Quick Homepage Maker 5.3
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional