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

#txt_Arrivalyearfr = sysdate(year)
#txt_Arrivalmonthfr = sysdate(month)
#txt_Arrivaldayfr = sysdate(day)
#txt_Arrivalyearto = sysdate(year)
#txt_Arrivalmonthto = sysdate(month)
#txt_Arrivaldayto = sysdate(day)
@form = sysdateparts(txt_Arrivalyearfr,txt_Arrivalmonthfr,txt_Arrivaldayfr)
txt_Arrivalyearto = copystring(txt_Arrivalyearfr)
txt_Arrivalmonthto = copystring(txt_Arrivalmonthfr)
txt_Arrivaldayto = copystring(txt_Arrivaldayfr)
#txt_Shipmentyearfr = sysdate(year)
#txt_Shipmentmonthfr = sysdate(month)
#txt_Shipmentdayfr = sysdate(day)
#txt_Shipmentyearto = sysdate(year)
#txt_Shipmentmonthto = sysdate(month)
#txt_Shipmentdayto = sysdate(day)
@form = sysdateparts(txt_Shipmentyearfr,txt_Shipmentmonthfr,txt_Shipmentdayfr)
txt_Shipmentyearto = copystring(txt_Shipmentyearfr)
txt_Shipmentmonthto = copystring(txt_Shipmentmonthfr)
txt_Shipmentdayto = copystring(txt_Shipmentdayfr)
opt_cd_gradeall = boolean(True)
txt_dts_Arrivalfr = dateby3parts(txt_Arrivalyearfr,txt_Arrivalmonthfr,txt_Arrivaldayfr)
txt_dts_Arrivalto = dateby3parts(txt_Arrivalyearto,txt_Arrivalmonthto,txt_Arrivaldayto)
txt_dts_Shipmentfr = dateby3parts(txt_Shipmentyearfr,txt_Shipmentmonthfr,txt_Shipmentdayfr)
txt_dts_Shipmentto = dateby3parts(txt_Shipmentyearto,txt_Shipmentmonthto,txt_Shipmentdayto)


#### K.Takahashi 2003.07.21 add 出力帳票の選択追加 ----------- Start
#opt_slip_type_old = boolean(False)
opt_slip_type_mcp = boolean(True)
opt_slip_type_mcp_mitsubishi = boolean(False)
opt_slip_type_shipment = boolean(False)
#### K.Takahashi 2003.07.21 add 出力帳票の選択追加 -----------   End


cmb_cd_customerfr = loadcombo(customer,cd_customer,name_customer,true)
cmb_cd_customerto = loadcombo(customer,cd_customer,name_customer,true)



[txt_Arrivalyearfr_LostFocus]
this = formatstring(0000)
txt_dts_Arrivalfr = dateby3parts(txt_Arrivalyearfr,txt_Arrivalmonthfr,txt_Arrivaldayfr)
txt_dts_Arrivalfr = nullvalue(txt_dts_Arrivalfr,0)
[txt_Arrivalyearto_LostFocus]
this = formatstring(0000)
txt_dts_Arrivalto = dateby3parts(txt_Arrivalyearto,txt_Arrivalmonthto,txt_Arrivaldayto)
txt_dts_Arrivalto = nullvalue(txt_dts_Arrivalto,99999999)
[txt_Arrivalmonthfr_LostFocus]
this = formatstring(00)
txt_dts_Arrivalfr = dateby3parts(txt_Arrivalyearfr,txt_Arrivalmonthfr,txt_Arrivaldayfr)
txt_dts_Arrivalfr = nullvalue(txt_dts_Arrivalfr,0)
[txt_Arrivalmonthto_LostFocus]
this = formatstring(00)
txt_dts_Arrivalto = dateby3parts(txt_Arrivalyearto,txt_Arrivalmonthto,txt_Arrivaldayto)
txt_dts_Arrivalto = nullvalue(txt_dts_Arrivalto,99999999)

[txt_Arrivaldayfr_LostFocus]
this = formatstring(00)
txt_dts_Arrivalfr = dateby3parts(txt_Arrivalyearfr,txt_Arrivalmonthfr,txt_Arrivaldayfr)
txt_dts_Arrivalfr = nullvalue(txt_dts_Arrivalfr,0)
[txt_Arrivaldayto_LostFocus]
this = formatstring(00)
txt_dts_Arrivalto = dateby3parts(txt_Arrivalyearto,txt_Arrivalmonthto,txt_Arrivaldayto)
txt_dts_Arrivalto = nullvalue(txt_dts_Arrivalto,99999999)

[txt_Shipmentyearfr_LostFocus]
this = formatstring(0000)
txt_dts_Shipmentfr = dateby3parts(txt_Shipmentyearfr,txt_Shipmentmonthfr,txt_Shipmentdayfr)
txt_dts_Shipmentfr = nullvalue(txt_dts_Shipmentfr,0)
[txt_Shipmentyearto_LostFocus]
this = formatstring(0000)
txt_dts_Shipmentto = dateby3parts(txt_Shipmentyearto,txt_Shipmentmonthto,txt_Shipmentdayto)
txt_dts_Shipmentto = nullvalue(txt_dts_Shipmentto,99999999)

[txt_Shipmentmonthfr_LostFocus]
this = formatstring(00)
txt_dts_Shipmentfr = dateby3parts(txt_Shipmentyearfr,txt_Shipmentmonthfr,txt_Shipmentdayfr)
txt_dts_Shipmentfr = nullvalue(txt_dts_Shipmentfr,0)
[txt_Shipmentmonthto_LostFocus]
this = formatstring(00)
txt_dts_Shipmentto = dateby3parts(txt_Shipmentyearto,txt_Shipmentmonthto,txt_Shipmentdayto)
txt_dts_Shipmentto = nullvalue(txt_dts_Shipmentto,99999999)

[txt_Shipmentdayfr_LostFocus]
this = formatstring(00)
txt_dts_Shipmentfr = dateby3parts(txt_Shipmentyearfr,txt_Shipmentmonthfr,txt_Shipmentdayfr)
txt_dts_Shipmentfr = nullvalue(txt_dts_Shipmentfr,0)
[txt_Shipmentdayto_LostFocus]
this = formatstring(00)
txt_dts_Shipmentto = dateby3parts(txt_Shipmentyearto,txt_Shipmentmonthto,txt_Shipmentdayto)
txt_dts_Shipmentto = nullvalue(txt_dts_Shipmentto,99999999)


[txt_cd_customerfr_LostFocus]
@form             = eventlocked(true)
cmb_cd_customerfr = copystring(txt_cd_customerfr)
txt_cd_customerfr = copystring(cmb_cd_customerfr)
@form             = eventlocked(false)

[cmb_cd_customerfr_Click]
@form             = eventlocked(true)
txt_cd_customerfr = copystring(cmb_cd_customerfr)
@form             = eventlocked(false)

[txt_cd_customerto_LostFocus]
@form             = eventlocked(true)
cmb_cd_customerto = copystring(txt_cd_customerto)
txt_cd_customerto = copystring(cmb_cd_customerto)
@form             = eventlocked(false)

[cmb_cd_customerto_Click]
@form             = eventlocked(true)
txt_cd_customerto = copystring(cmb_cd_customerto)
@form             = eventlocked(false)

#デバッグ時の隠しコントロール
[Sub_Debug_ON]
txt_dts_Shipmentfr                  = Visible(true)
txt_dts_Shipmentto                  = Visible(true)
txt_dts_Arrivalfr                   = Visible(true)
txt_dts_Arrivalto                   = Visible(true)

#デバッグ時の隠しコントロール
[Sub_Debug_OFF]
txt_dts_Shipmentfr                  = Visible(false)
txt_dts_Shipmentto                  = Visible(false)
txt_dts_Arrivalfr                   = Visible(false)
txt_dts_Arrivalto                   = Visible(false)