#社員のシフト

ウインドウの固定

レイアウト切り替え[「Dシフト明細」(Dシフト明細); アニメーション:なし]

検索モードに切り替え[一時停止:オフ]



#前月のシフトCDを使ってシフト明細を絞る

フィールド設定[Dシフト明細::シフトCD; $シフトCD]

エラー処理[オン]

検索実行[]

If[Get ( 最終エラー ) > 0]

   現在のスクリプト終了 [テキスト結果:]

End If



レコード/検索条件/ページへ移動 [最初の]

変数を設定 [$対象レコード数; 値: Get(対象レコード数)]

変数を設定 [$要素数; 値: 0]

Loop

   #社員CDを記録

   変数を設定 [$社員CD[$要素数]; 値: Dシフト明細::社員CD]

   変数を設定 [$フィールドの数; 値: 0]

   フィールドへ移動 [Dシフト明細::シフト状況1]

   Loop

      #前月のシフトを記録

      変数を設定 [$シフト[$要素数]; 値: $シフト[$要素数] & "❡" & Get ( アクティブフィールド内容 )]

      変数を設定 [$フィールドの数; 値: $フィールドの数 + 1]

      次のフィールドへ移動

      Exit Loop If [$フィールドの数 > 31]

   End Loop



   #先頭の改行を取り除く

   変数を設定 [$シフト[$要素数]; 値: Replace ( $シフト[$要素数] ; 1 ; 1 ; "" )]



   変数を設定 [$要素数; 値: $要素数 + 1]

   レコード/検索条件/ページへ移動 [次の; 最後まできたら終了:オフ]

   Exit Loop If [$対象レコード数 < $要素数]

End Loop



#各社員のシフト値を登録する

#変数:末日にはその月の末日が入っています

Loop

   #社員CDを登録

   フィールド設定[Dシフト明細::社員CD; $社員CD[$要素数]]



   #シフト値を登録

   変数を設定[$日にち; 1]

   Loop

      変数を設定[$フィールド名; 値: Get(レイアウトテーブル名) & "::シフト状況" & $日にち]

      フィールドを名前で設定[$フィールド名; GetValue ( $シフト[$要素数] ; $日にち )]

      変数を設定[$日にち; $日にち + 1]

      Exit Loop If [$末日 < $日にち]

   End Loop



   変数を設定 [$要素数; 値: $要素数 + 1]   

   Exit Loop If [$対象レコード数 < $要素数]

End Loop