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

txt_cd_customerfr_hidden = string(0)
txt_cd_deriveryfr_hidden = string(0)
txt_cd_customerto_hidden = string(99999)
txt_cd_deriveryto_hidden = string(99999)

opt_cd_gradeall = boolean(True)

cmb_cd_customerfr = loadcombo(customer,cd_customer,name_customer,true)
cmb_cd_customerto = loadcombo(customer,cd_customer,name_customer,true)
cmb_cd_deriveryfr = loadcombo(derivery,cd_derivery,name_derivery,true)
cmb_cd_deriveryto = loadcombo(derivery,cd_derivery,name_derivery,true)

#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_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_customerfr_LostFocus]
@form                    = eventlocked(true)
cmb_cd_customerfr        = copystring(txt_cd_customerfr)
txt_cd_customerfr        = copystring(cmb_cd_customerfr)
txt_cd_customerfr_hidden = nullvalue(txt_cd_customerfr,0)
@form                    = eventlocked(false)

[cmb_cd_customerfr_Click]
@form                    = eventlocked(true)
txt_cd_customerfr        = copystring(cmb_cd_customerfr)
txt_cd_customerfr_hidden = nullvalue(txt_cd_customerfr,0)
@form                    = eventlocked(false)

[txt_cd_customerto_LostFocus]
@form                    = eventlocked(true)
cmb_cd_customerto        = copystring(txt_cd_customerto)
txt_cd_customerto        = copystring(cmb_cd_customerto)
txt_cd_customerto_hidden = nullvalue(txt_cd_customerto,99999)
@form                    = eventlocked(false)

[cmb_cd_customerto_Click]
@form                    = eventlocked(true)
txt_cd_customerto        = copystring(cmb_cd_customerto)
txt_cd_customerto_hidden = nullvalue(txt_cd_customerto,99999)
@form                    = eventlocked(false)

[txt_cd_deriveryfr_LostFocus]
@form                    = eventlocked(true)
cmb_cd_deriveryfr        = copystring(txt_cd_deriveryfr)
txt_cd_deriveryfr        = copystring(cmb_cd_deriveryfr)
txt_cd_deriveryfr_hidden = nullvalue(txt_cd_deriveryfr,0)
@form                    = eventlocked(false)

#得意先入力時
[cmb_cd_deriveryfr_Click]
@form                    = eventlocked(true)
txt_cd_deriveryfr        = copystring(cmb_cd_deriveryfr)
txt_cd_deriveryfr_hidden = nullvalue(txt_cd_deriveryfr,0)
@form                    = eventlocked(false)

[txt_cd_deriveryto_LostFocus]
@form                    = eventlocked(true)
cmb_cd_deriveryto        = copystring(txt_cd_deriveryto)
txt_cd_deriveryto        = copystring(cmb_cd_deriveryto)
txt_cd_deriveryto_hidden = nullvalue(txt_cd_deriveryto,99999)
@form                    = eventlocked(false)

[cmb_cd_deriveryto_Click]
@form                    = eventlocked(true)
txt_cd_deriveryto        = copystring(cmb_cd_deriveryto)
txt_cd_deriveryto_hidden = nullvalue(txt_cd_deriveryto,99999)
@form                    = eventlocked(false)

#2004.03.04 konishi 帳票種類追加  start
[opt_dayly_Click]
fra_to  =  Visible(true)
fra_fr  =  Visible(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_monthly_Click]
fra_to  =  Visible(false)
fra_fr  =  Visible(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)
@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)
txt_cd_customerfr_hidden            = Visible(true)
txt_cd_customerto_hidden            = Visible(true)
txt_cd_deriveryfr_hidden            = Visible(true)
txt_cd_deriveryto_hidden            = Visible(true)

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