[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)
#txt_dayfr = string(01)
#txt_dayto = string(01)
@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_cd_gradeall = boolean(True)
cmb_cd_supplierfr = loadcombo(supplier,cd_supplier,name_supplier,true)
cmb_cd_supplierto = loadcombo(supplier,cd_supplier,name_supplier,true)
cmb_cd_shipmentfr = loadcombo(shipment,cd_shipment,name_shipment,true)
cmb_cd_shipmentto = loadcombo(shipment,cd_shipment,name_shipment,true)
cmb_cd_wpfr = loadcombo(wp,cd_wp,name_wp,true)
cmb_cd_wpto = loadcombo(wp,cd_wp,name_wp,true)


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

[txt_cd_supplierfr_LostFocus]
@form              = eventlocked(true)
cmb_cd_supplierfr  = copystring(txt_cd_supplierfr)
txt_cd_supplierfr  = copystring(cmb_cd_supplierfr)
@form              = eventlocked(false)
[cmb_cd_supplierfr_Click]
@form              = eventlocked(true)
txt_cd_supplierfr  = copystring(cmb_cd_supplierfr)
@form              = eventlocked(false)

[txt_cd_supplierto_LostFocus]
@form              = eventlocked(true)
cmb_cd_supplierto  = copystring(txt_cd_supplierto)
txt_cd_supplierto  = copystring(cmb_cd_supplierto)
@form              = eventlocked(false)
[cmb_cd_supplierto_Click]
@form              = eventlocked(true)
txt_cd_supplierto  = copystring(cmb_cd_supplierto)
@form              = eventlocked(false)

[txt_cd_shipmentfr_LostFocus]
@form              = eventlocked(true)
cmb_cd_shipmentfr  = copystring(txt_cd_shipmentfr)
txt_cd_shipmentfr  = copystring(cmb_cd_shipmentfr)
@form              = eventlocked(false)
[cmb_cd_shipmentfr_Click]
@form              = eventlocked(true)
txt_cd_shipmentfr  = copystring(cmb_cd_shipmentfr)
@form              = eventlocked(false)

[txt_cd_shipmentto_LostFocus]
@form              = eventlocked(true)
cmb_cd_shipmentto  = copystring(txt_cd_shipmentto)
txt_cd_shipmentto  = copystring(cmb_cd_shipmentto)
@form              = eventlocked(false)
[cmb_cd_shipmentto_Click]
@form              = eventlocked(true)
txt_cd_shipmentto  = copystring(cmb_cd_shipmentto)
@form              = eventlocked(false)

[txt_cd_wpfr_LostFocus]
@form              = eventlocked(true)
cmb_cd_wpfr        = copystring(txt_cd_wpfr)
txt_cd_wpfr        = copystring(cmb_cd_wpfr)
@form              = eventlocked(false)
[cmb_cd_wpfr_Click]
@form              = eventlocked(true)
txt_cd_wpfr        = copystring(cmb_cd_wpfr)
@form              = eventlocked(false)

[txt_cd_wpto_LostFocus]
@form              = eventlocked(true)
cmb_cd_wpto        = copystring(txt_cd_wpto)
txt_cd_wpto        = copystring(cmb_cd_wpto)
@form              = eventlocked(false)
[cmb_cd_wpto_Click]
@form              = eventlocked(true)
txt_cd_wpto        = copystring(cmb_cd_wpto)
@form              = eventlocked(false)

#デバッグ時の隠しコントロール
[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)