[Form_Init]
this = centering
this = clearall
#this = subroutine(Sub_Debug_ON)
this = subroutine(Sub_Debug_OFF)

#txt_yearfr = sysdate(year)
#txt_monthfr = sysdate(month)
#txt_yearto = sysdate(year)
#txt_monthto = sysdate(month)
opt_cd_gradeall = boolean(True)
#txt_dayfr = string(01)
#txt_dayto = string(01)
@from = sysdateparts(txt_yearfr,txt_monthfr,txt_dayfr)
@from = sysdateparts(txt_yearto,txt_monthto,txt_dayto)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)
#2004.03.04 konishi 帳票追加  start
opt_dayly       = boolean(true)
#2004.03.04 konishi 帳票追加  end

[txt_yearfr_LostFocus]
this = formatstring(0000)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearfr = nullvalue(txt_dts_yearfr,0)
[txt_monthfr_LostFocus]
this = formatstring(00)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearfr = nullvalue(txt_dts_yearfr,0)
[txt_yearto_LostFocus]
this = formatstring(0000)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)
txt_dts_yearto = nullvalue(txt_dts_yearto,99999999)
[txt_monthto_LostFocus]
this = formatstring(00)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)
txt_dts_yearto = nullvalue(txt_dts_yearto,99999999)

#2004.03.04 konishi 帳票種類追加  start
[opt_dayly_Click]
fra_to  =  Visible(true)
fra_fr  =  Visible(true)
fra_recalc = Visible(false)

[opt_monthly_Click]
fra_to  =  Visible(false)
fra_fr  =  Visible(true)
#fra_recalc = Visible(true)
fra_recalc = Visible(false)
opt_recalc_no = boolean(True)
@form = sysdateparts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dayfr      = string(01)
txt_yearto     = copystring(txt_yearfr)
txt_monthto    = copystring(txt_monthfr)
txt_dayto      = copystring(txt_dayfr)

txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)


[opt_yearly_Click]
fra_to  =  Visible(false)
fra_fr  =  Visible(true)
#fra_recalc = Visible(true)
fra_recalc = Visible(false)
opt_recalc_no = boolean(True)
@form = sysdateparts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dayfr      = string(01)
txt_yearto     = copystring(txt_yearfr)
txt_monthto    = copystring(txt_monthfr)
txt_dayto      = copystring(txt_dayfr)

txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)

#2004.03.04 konishi 帳票種類追加  end


#デバッグ時の隠しコントロール
[Sub_Debug_ON]
txt_dayfr                           = Visible(true)
txt_dayto                           = Visible(true)
txt_dts_yearfr                      = Visible(true)
txt_dts_yearto                      = Visible(true)

#デバッグ時の隠しコントロール
[Sub_Debug_OFF]
txt_dayfr                           = Visible(false)
txt_dayto                           = Visible(false)
txt_dts_yearfr                      = Visible(false)
txt_dts_yearto                      = Visible(false)