[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 ���[�lj� start opt_dayly = boolean(true) #2004.03.04 konishi ���[�lj� 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 ���[��ޒlj� 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 ���[��ޒlj� end #�f�o�b�O���̉B���R���g���[�� [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) #�f�o�b�O���̉B���R���g���[�� [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)