[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_cd_gradeall = boolean(True)
#optprintsitei1 = boolean(True)
cmb_cd_wpfr = loadcombo(wp,cd_wp,name_wp,true)
cmb_cd_wpto = loadcombo(wp,cd_wp,name_wp,true)
txt_dts_yearfr = dateby3parts(txt_yearfr,txt_monthfr,txt_dayfr)
txt_dts_yearto = dateby3parts(txt_yearto,txt_monthto,txt_dayto)

txt_cd_wpfr_hidden = string(0)
txt_cd_wpto_hidden = string(99999)

[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)

[txt_cd_wpfr_LostFocus]
@form              = eventlocked(true)
cmb_cd_wpfr        = copystring(txt_cd_wpfr)
txt_cd_wpfr        = copystring(cmb_cd_wpfr)
txt_cd_wpfr_hidden = nullvalue(txt_cd_wpfr,0)
@form              = eventlocked(false)
[cmb_cd_wpfr_Click]
@form              = eventlocked(true)
txt_cd_wpfr        = copystring(cmb_cd_wpfr)
txt_cd_wpfr_hidden = nullvalue(txt_cd_wpfr,0)
@form              = eventlocked(false)

[txt_cd_wpto_LostFocus]
@form              = eventlocked(true)
cmb_cd_wpto        = copystring(txt_cd_wpto)
txt_cd_wpto        = copystring(cmb_cd_wpto)
txt_cd_wpto_hidden = nullvalue(txt_cd_wpto,99999)
@form              = eventlocked(false)
[cmb_cd_wpto_Click]
@form              = eventlocked(true)
txt_cd_wpto        = copystring(cmb_cd_wpto)
txt_cd_wpto_hidden = nullvalue(txt_cd_wpto,99999)
@form              = eventlocked(false)

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