[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_dayfr = sysdate(day)
#txt_yearto = sysdate(year)
#txt_monthto = sysdate(month)
#txt_dayto = sysdate(day)
@form = sysdateparts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_yearto = copystring(txt_yearfr)
txt_monthto = copystring(txt_monthfr)
txt_dayto = copystring(txt_dayfr)
opt_pulperall = boolean(True)
opt_gradeall = boolean(True)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)

[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_dayfr_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)
[txt_dayto_LostFocus]
this = formatstring(00)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)
txt_dts_yearto = nullvalue(txt_dts_yearto,99999999)

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

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