#初期処理 [Form_Init] this = centering txt_weight_moist = configinput(number,7) #txt_ratio_moist = configinput(number,5.2) txt_weight_dry = configinput(number,7) #txt_no_moist = configinput(number,10) #this = subroutine(sub_debug_ON) #2014.04.11 M.Inoue Start Frame10 = visible(false) #2014.04.11 M.Inoue End #this = subroutine(sub_debug_OFF) [Form_Start] #画面をクリア this = eventlocked(true) this = clearall this = eventlocked(false) #コンピュータ名 txt_termid = termid #使用可不可の制御 cmd_history = enabled(False) cmd_kaishi = enabled(False) cmd_product = enabled(False) cmd_select = visible(True) cmd_insert = visible(False) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) this = subroutine(Sub_FootEnabled_False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.04.03 M.Inoue end #2014.02.05 M.Inoue 倉庫対応 start #2014.03.10 tsujimoto 倉庫対応 start spd_list = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,note_keikou,note_kyouzatsu,note_arumi,note_shirobutsu,delflg,instermidid,insday,cd_grade,insflg) #2014.02.05 M.Inoue 倉庫対応 end #spd_list = configlistfieldnames(flg_fcs,dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,note_keikou,note_zanpori,note_irobutu,delflg,instermidid,insday,cd_grade,insflg) #2014.03.10 tsujimoto 倉庫対応 end #2004.03.12 konishi 特記事項項目変更　start #spd_list = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,note_keikou,note_zanpori,note_irobutu,delflg,instermidid,insday,cd_grade,insflg) #spd_list = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,delflg,instermidid,insday,cd_grade,insflg) #2004.03.12 konishi 特記事項項目変更　end #txt_changed = string() @form = changed(false) ##新規時、修正時、削除時　共通 [Form_Common] #画面をクリア this = eventlocked(true) this = clearall this = eventlocked(false) #コンピュータ名 txt_termid = termid #使用可不可の制御 #this = subroutine(Sub_HeadEnabled_True) this = subroutine(Sub_MeisaiEnabled_True) this = subroutine(Sub_FootEnabled_False) this = subroutine(Sub_Today) #コンボボックスを設定 this = eventlocked(True) cmb_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_ship_product) cmb_transport = loadcombo(activetransport,cd_transport,name_trnsport,true,txt_dt_ship_product) cmb_customer = copystring(txt_customer) cmb_transport = copystring(txt_transport) txt_customer = copystring(cmb_customer) txt_transport = copystring(cmb_transport) #txt_changed = string() txt_changedCustomer = string() txt_marumeketa = string(1) txt_multiply = string(1) this = eventlocked(False) @form = changed(false) #20140310 tsujimoto add start cmb_customer_s = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_ship_product) cmb_customer_s = copystring(txt_customer_s) txt_customer_s = copystring(cmb_customer_s) #cmb_derivery_s = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_ship_product,txt_customer) #cmb_product_s = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,cmb_derivery) #20140310 tsujimoto add end #新規 [Form_Insert] txt_mode = string(ins) this = subroutine(Sub_dispInsMode) this = subroutine(Sub_HeadEnabled_True) #this = subroutine(Sub_get_cookie) this = eventlocked(true) this = subroutine(Sub_Load_AllCombo) this = eventlocked(false) txt_no_ship_product_slip = enabled(False) txt_dts_year = setfocus() cmd_history = enabled(False) cmd_kaishi = enabled(True) cmd_product = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #2014.04.03 M.Inoue end #2014.04.11 M.Inoue Start Frame10 = visible(false) #2014.04.11 M.Inoue End #txt_changed = string() @form = changed(false) #修正 [Form_Update] txt_mode = string(upd) this = subroutine(Sub_dispUpdMode) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) #txt_no_ship_product_slip = enabled(True) cmd_history = enabled(True) cmd_kaishi = enabled(False) cmd_product = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.04.03 M.Inoue end #2014.04.11 M.Inoue Start Frame10 = visible(true) #2014.04.11 M.Inoue End #txt_changed = string() @form = changed(false) txt_dts_year = setfocus this = subroutine(Sub_loadSearchCombos) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #削除 [Form_Delete] txt_mode = string(del) this = subroutine(Sub_dispDelMode) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) txt_no_ship_product_slip = enabled(True) cmd_history = enabled(True) cmd_kaishi = enabled(False) cmd_product = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.04.11 M.Inoue Start Frame10 = visible(true) #2014.04.11 M.Inoue End #2014.04.03 M.Inoue end #txt_changed = string() @form = changed(false) txt_dts_year = setfocus this = subroutine(Sub_loadSearchCombos) #キャンセル [Form_Cancel] txt_dts_year3 = clear() txt_dts_month3 = clear() txt_dts_day3 = clear() txt_dt_derivery_product = clear() txt_weight_moist = clear() spd_list = clear() txt_ratio_moist = clear() txt_weight_dry = clear() txt_ratio_moistAdd = clear() txt_MaxRow = string(0) #txt_changed = string() @form = changed(false) cmd_insert = visible(False) cmd_select = visible(True) txt_ratioMoistSelect= clear() txt_selectRow = clear() this = subroutine(Sub_Today) txt_ratio_moistAdd = enabled(False) #出荷開始 [Form_productstart] #使用可不可の制御 this = subroutine(Sub_HeadEnabled_False) cmd_history = enabled(False) cmd_kaishi = enabled(False) cmd_product = enabled(True) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(True) cbo_fsc_kind = enabled(True) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #2014.04.03 M.Inoue end this = subroutine(Sub_FootEnabled_True) txt_weight_moist = string(0) txt_ratio_moist = string(0.0) txt_weight_dry = string(0) txt_MaxRow = string(0) #水分率選択 [Form_RatiomoistSelect] txt_ratio_moistAdd = enabled(True) txt_ratio_moistAdd = formatstring(#0.0) cmd_insert = visible(True) cmd_select = visible(False) cmd_listdel = enabled(False) txt_ratio_moistAdd = setfocus #水分率登録 [Form_RatiomoistInsert] cmd_insert = visible(False) cmd_select = visible(True) cmd_listdel = enabled(True) txt_ratioMoistSelect= clear() txt_selectRow = clear() txt_ratio_moistAdd = clear() txt_ratio_moistAdd = enabled(False) txt_changed = string(1) spd_list = setfocus #水分率登録エラー時 [Form_RatiomoistInsert_Err] txt_ratio_moistAdd = setfocus cmd_listdel = enabled(False) #行削除時 [Form_listDel] txt_changed = string(1) #表示風乾重量のメッセージ表示 [Form_div_weight_dried] #txt_weight_disp = visible(True) Fra_msg = visible(True) txt_weight_disp = string(総納品重量は10800Kgです。) ##2003.10.29 konishi add ---------------start [Form_div_weight_dried_False] #txt_weight_disp = visible(False) Fra_msg = visible(False) ##2003.10.29 konishi add ---------------end #修正ボタンからの出荷記録検索ボタン後の処理(売上未の場合） [Form_Selected_Update] this = subroutine(Sub_HeadEnabled_True) this = subroutine(Sub_MeisaiEnabled_True) this = subroutine(Sub_FootEnabled_True) txt_no_ship_product_slip = enabled(False) cmd_history = enabled(False) cmd_kaishi = enabled(False) cmd_product = enabled(True) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(True) cbo_fsc_kind = enabled(True) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #2014.04.03 M.Inoue end cmd_listdel = enabled(True) cmd_insert = visible(False) cmd_select = visible(True) cmd_select = enabled(True) txt_ratio_moistAdd = enabled(False) txt_ratio_moistAdd = clear() this = eventlocked(true) #this = subroutine(Sub_Copy_Searched) this = subroutine(Sub_Load_AllCombo) this = eventlocked(False) #txt_changed = string() @form = changed(false) #修正ボタンからの出荷記録検索ボタン後の処理(売上済の場合） [Form_Selected_Update_Sale] this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) this = subroutine(Sub_FootEnabled_False) txt_no_ship_product_slip = enabled(False) cmd_history = enabled(False) cmd_kaishi = enabled(False) cmd_product = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #2014.04.03 M.Inoue end this = eventlocked(true) #this = subroutine(Sub_Copy_Searched) this = subroutine(Sub_Load_AllCombo) this = eventlocked(False) #txt_changed = string() @form = changed(false) #修正ボタンからの製品在庫検索ボタン後の処理 [Form_SelectedSrock] this = subroutine(Sub_FootEnabled_True) cmd_listdel = enabled(True) txt_ratio_moistAdd = enabled(True) txt_ratio_moistAdd = clear() cmd_select = enabled(True) #txt_changed = string() @form = changed(false) #削除ボタンからの出荷記録検索ボタン後の処理 [Form_Selected_Delete] this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) cmd_save = enabled(True) cmd_cancel = enabled(False) txt_no_ship_product_slip = enabled(False) cmd_history = enabled(False) cmd_kaishi = enabled(False) cmd_product = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.04.03 M.Inoue end this = eventlocked(true) #this = subroutine(Sub_Copy_Searched) this = subroutine(Sub_Load_AllCombo) this = eventlocked(False) #txt_changed = string() @form = changed(false) #cookieの設定 [Form_set_cookie] this = subroutine(Sub_set_cookie) #再計算 [Form_Calc] txt_Tax_marume = case(txt_div_rate_moist,1,down,2,up,3,round) txt_ratio_moist = fixedmultiply(txt_Tax_marume,txt_marumeketa,txt_ratio_moist,txt_multiply) txt_ratio_moist = formatstring(########0.0) #得意先変更時 [cmb_customer_Click] @Form = eventlocked(true) txt_customer = copystring(cmb_customer) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_ship_product,txt_customer) txt_derivery = clear() cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,cmb_derivery) txt_product = clear() txt_gread = clear() @Form = eventlocked(False) txt_changed = string(1) @Form = action(changecustomer) #20140310 add start [cmb_customer_s_Click] @Form = eventlocked(true) txt_customer_s = copystring(cmb_customer_s) @form = eventlocked(false) #20140310 add end [txt_customer_LostFocus] @Form = eventlocked(true) cmb_customer = copystring(txt_customer) txt_customer = copystring(cmb_customer) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_ship_product,txt_customer) txt_derivery = clear() cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,cmb_derivery) txt_product = clear() txt_gread = clear() @Form = eventlocked(False) txt_changed = string(1) @Form = action(changecustomer) #20140310 add start [txt_customer_s_LostFocus] @Form = eventlocked(true) cmb_customer_s = copystring(txt_customer_s) txt_customer_s = copystring(cmb_customer_s) @form = eventlocked(false) #20140310 add end ##2003.10.29 konishi add ---------------start #納品先変更時 [cmb_derivery_Click] @Form = eventlocked(true) txt_derivery = copystring(cmb_derivery) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,cmb_derivery) txt_product = clear() txt_gread = clear() @Form = action(changederivery) @Form = eventlocked(False) txt_changed = string(1) [cmb_derivery_s_Click] @Form = eventlocked(true) txt_derivery_s = copystring(cmb_derivery_s) @Form = eventlocked(False) [txt_derivery_LostFocus] @Form = eventlocked(true) cmb_derivery = copystring(txt_derivery) txt_derivery = copystring(cmb_derivery) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,cmb_derivery) txt_product = clear() txt_gread = clear() @Form = action(changederivery) @Form = eventlocked(False) txt_changed = string(1) [txt_derivery_s_LostFocus] @Form = eventlocked(true) cmb_derivery_s = copystring(txt_derivery_s) txt_derivery_s = copystring(cmb_derivery_s) @Form = eventlocked(False) ##2003.10.29 konishi add ---------------end #製品変更時 [cmb_product_Click] txt_product = copystring(cmb_product) txt_gread = codeliststring(activeproduct,name_gread,txt_dt_ship_product,txt_derivery,txt_product) txt_cdGread = codeliststring(activeproduct,cd_gread,txt_dt_ship_product,txt_derivery,txt_product) txt_changed = string(1) [cmb_product_s_Click] @form = eventlocked(true) txt_product_s = copystring(cmb_product_s) @form = subroutine(Sub_changedProduct) @form = eventlocked(false) [txt_product_LostFocus] @Form = eventlocked(true) cmb_product = copystring(txt_product) txt_product = copystring(cmb_product) @Form = eventlocked(False) txt_gread = codeliststring(activeproduct,name_gread,txt_dt_ship_product,txt_derivery,txt_product) txt_cdGread = codeliststring(activeproduct,cd_gread,txt_dt_ship_product,txt_derivery,txt_product) txt_changed = string(1) [txt_product_s_LostFocus] @Form = eventlocked(true) cmb_product_s = copystring(txt_product_s) txt_product_s = copystring(cmb_product_s) @Form = eventlocked(False) #運送会社変更時 [cmb_transport_Click] txt_transport = copystring(cmb_transport) cmb_truck = loadcombo(activetruck,cd_carnumber,name_carnumber,true,txt_dt_ship_product,txt_transport) txt_truck = clear() txt_changed = string(1) [txt_transport_LostFocus] @Form = eventlocked(true) cmb_transport = copystring(txt_transport) txt_transport = copystring(cmb_transport) @Form = eventlocked(False) cmb_truck = loadcombo(activetruck,cd_carnumber,name_carnumber,true,txt_dt_ship_product,txt_transport) txt_truck = clear() txt_changed = string(1) #車番変更時 [cmb_truck_Click] txt_truck = copystring(cmb_truck) txt_changed = string(1) [txt_truck_LostFocus] @Form = eventlocked(true) cmb_truck = copystring(txt_truck) txt_truck = copystring(cmb_truck) @Form = eventlocked(False) txt_changed = string(1) #出荷日変更時 [txt_dts_year_LostFocus] @Form = eventlocked(true) this = formatstring(0000) txt_dt_ship_product = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_AllCombo) @Form = eventlocked(False) txt_changed = string(1) [txt_dts_month_LostFocus] @Form = eventlocked(true) this = formatstring(00) txt_dt_ship_product = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_AllCombo) @Form = eventlocked(False) txt_changed = string(1) [txt_dts_day_LostFocus] @Form = eventlocked(true) this = formatstring(00) txt_dt_ship_product = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_AllCombo) @Form = eventlocked(False) txt_changed = string(1) #到着予定日変更時 [txt_dts_year2_LostFocus] this = formatstring(0000) txt_dt_due_arrival = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) txt_changed = string(1) [txt_dts_month2_LostFocus] this = formatstring(00) txt_dt_due_arrival = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) txt_changed = string(1) [txt_dts_day2_LostFocus] this = formatstring(00) txt_dt_due_arrival = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) txt_changed = string(1) #製造日変更時 [txt_dts_year3_LostFocus] this = formatstring(0000) txt_dt_derivery_product = dateby3parts(txt_dts_year3,txt_dts_month3,txt_dts_day3) [txt_dts_month3_LostFocus] this = formatstring(00) txt_dt_derivery_product = dateby3parts(txt_dts_year3,txt_dts_month3,txt_dts_day3) [txt_dts_day3_LostFocus] this = formatstring(00) txt_dt_derivery_product = dateby3parts(txt_dts_year3,txt_dts_month3,txt_dts_day3) #〜〜以下共通処理〜〜# #本日日付をセット [Sub_Today] #txt_dts_year = sysdate(year) #txt_dts_month = sysdate(month) #txt_dts_day = sysdate(day) @form = sysdateparts(txt_dts_year,txt_dts_month,txt_dts_day) txt_dt_ship_product = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) #txt_dts_year3 = sysdate(year) #txt_dts_month3 = sysdate(month) #txt_dts_day3 = sysdate(day) @form = sysdateparts(txt_dts_year3,txt_dts_month3,txt_dts_day3) txt_dt_derivery_product = dateby3parts(txt_dts_year3,txt_dts_month3,txt_dts_day3) @form = sysdateparts(txt_dts_year2,txt_dts_month2,txt_dts_day2) txt_dt_due_arrival = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) [Sub_HeadEnabled_True] txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) txt_dts_year2 = enabled(True) txt_dts_month2 = enabled(True) txt_dts_day2 = enabled(True) txt_customer = enabled(True) cmb_customer = enabled(True) txt_product = enabled(True) cmb_product = enabled(True) txt_derivery = enabled(True) cmb_derivery = enabled(True) txt_product = enabled(True) cmb_product = enabled(True) txt_transport = enabled(True) cmb_transport = enabled(True) txt_truck = enabled(True) cmb_truck = enabled(True) #20140310 tsujimoto add start txt_customer_s = enabled(False) cmb_customer_s = enabled(False) txt_product_s = enabled(False) cmb_product_s = enabled(False) txt_derivery_s = enabled(False) cmb_derivery_s = enabled(False) #20140310 tsujimoto add end [Sub_HeadEnabled_False] txt_no_ship_product_slip = enabled(False) txt_dts_year = enabled(False) txt_dts_month = enabled(False) txt_dts_day = enabled(False) txt_dts_year2 = enabled(False) txt_dts_month2 = enabled(False) txt_dts_day2 = enabled(False) txt_customer = enabled(False) cmb_customer = enabled(False) txt_derivery = enabled(False) cmb_derivery = enabled(False) txt_product = enabled(False) cmb_product = enabled(False) txt_no_moist = enabled(False) txt_transport = enabled(False) cmb_transport = enabled(False) txt_truck = enabled(False) cmb_truck = enabled(False) #20140310 tsujimoto add start txt_customer_s = enabled(True) cmb_customer_s = enabled(True) txt_derivery_s = enabled(True) cmb_derivery_s = enabled(True) txt_product_s = enabled(True) cmb_product_s = enabled(True) #20140310 tsujimoto add end [Sub_MeisaiEnabled_True] txt_dts_year3 = enabled(True) txt_dts_month3 = enabled(True) txt_dts_day3 = enabled(True) spd_list = enabled(True) cmd_kaishi = enabled(True) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(True) cbo_fsc_kind = enabled(True) #2014.03.11 M.Inoue Start this = subroutine(Sub_LoadCombo_FSC_Kind) #2014.03.11 M.Inoue End #2014.04.03 M.Inoue end [Sub_MeisaiEnabled_False] txt_dts_year3 = enabled(False) txt_dts_month3 = enabled(False) txt_dts_day3 = enabled(False) txt_ratio_moistAdd = enabled(False) spd_list = enabled(False) cmd_listdel = enabled(False) cmd_select = enabled(False) #2014.04.03 M.Inoue start txt_fsc_kind = enabled(False) cbo_fsc_kind = enabled(False) #2014.04.03 M.Inoue end [Sub_FootEnabled_True] cmd_save = enabled(True) cmd_cancel = enabled(True) [Sub_FootEnabled_False] cmd_save = enabled(False) cmd_cancel = enabled(False) [Sub_Load_AllCombo] cmb_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_ship_product) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_ship_product,txt_customer) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_ship_product,txt_derivery) cmb_transport = loadcombo(activetransport,cd_transport,name_trnsport,true,txt_dt_ship_product) cmb_truck = loadcombo(activetruck,cd_carnumber,name_carnumber,true,txt_dt_ship_product,txt_transport) cmb_customer = copystring(txt_customer) cmb_derivery = copystring(txt_derivery) cmb_product = copystring(txt_product) #20140310 tsujimoto add start cmb_customer_s = copystring(txt_customer_s) cmb_derivery_s = copystring(txt_derivery_s) cmb_product_s = copystring(txt_product_s) #20140310 tsujimoto add end cmb_transport = copystring(txt_transport) cmb_truck = copystring(txt_truck) txt_customer = copystring(cmb_customer) txt_derivery = copystring(cmb_derivery) txt_product = copystring(cmb_product) #20140310 tsujimoto add start txt_customer_s = copystring(cmb_customer_s) txt_derivery_s = copystring(cmb_derivery_s) txt_product_s = copystring(cmb_product_s) #20140310 tsujimoto add end txt_transport = copystring(cmb_transport) txt_truck = copystring(cmb_truck) ## 処理選択表示 [Sub_dispInsMode] cmd_ins = backcolor(&HFFDFFF) cmd_upd = backcolor(&H8000000F&) cmd_del = backcolor(&H8000000F&) [Sub_dispUpdMode] cmd_ins = backcolor(&H8000000F&) cmd_upd = backcolor(&HFFDFFF) cmd_del = backcolor(&H8000000F&) [Sub_dispDelMode] cmd_ins = backcolor(&H8000000F&) cmd_upd = backcolor(&H8000000F&) cmd_del = backcolor(&HFFDFFF) ##ヘッダ部検索用コンボボックス作成（20140130 M.Inoue) [Sub_loadSearchCombos] cmb_customer_s = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_ship_product) cmb_derivery_s = loadcombo(activederivery_search,cd_derivery,name_derivery,true,txt_dt_ship_product) cmb_product_s = loadcombo(activeproduct_search,cd_product,name_product,true,txt_dt_ship_product) #2014.04.03 M.Inoue Start #*----------------------------------------------/ #FSCのコンボボックスを作成する [Sub_LoadCombo_FSC_Kind] cbo_fsc_kind = loadcombo(div_fsckind,cd_fsckind,name_fsckind,true) cbo_fsc_kind = copystring(txt_fsc_kind) txt_fsc_kind = copystring(cbo_fsc_kind) #得意先変更時 [cbo_fsc_kind_Click] @Form = eventlocked(true) txt_fsc_kind = copystring(cbo_fsc_kind) @Form = eventlocked(False) txt_changed = string(1) @Form = action(changecustomer) [txt_fsc_kind_LostFocus] @Form = eventlocked(true) cbo_fsc_kind = copystring(txt_fsc_kind) txt_fsc_kind = copystring(cbo_fsc_kind) @Form = eventlocked(False) txt_changed = string(1) @Form = action(changecustomer) #2014.04.03 M.Inoue End #cookieの設定 [Sub_get_cookie] ##txt_dts_year = getcookie(dts_year) ##txt_dts_month = getcookie(dts_month) ##txt_dts_day = getcookie(dts_day) ##txt_dt_ship_product = getcookie(shipdate) #txt_dts_year2 = getcookie(dts_year2) #txt_dts_month2 = getcookie(dts_month2) #txt_dts_day2 = getcookie(dts_day2) #txt_dt_due_arrival = getcookie(arrivaldate) #txt_customer = getcookie(cd_customer) #txt_derivery = getcookie(cd_derivery) #txt_product = getcookie(cd_product) #txt_gread = getcookie(name_gread) #txt_cdGread = getcookie(cd_gread) #txt_transport = getcookie(cd_transport) #txt_truck = getcookie(cd_truck) #cookieの設定 [Sub_set_cookie] ##txt_dts_year = setcookie(dts_year) ##txt_dts_month = setcookie(dts_month) ##txt_dts_day = setcookie(dts_day) ##txt_dt_ship_product = setcookie(shipdate) #txt_dts_year2 = setcookie(dts_year2) #txt_dts_month2 = setcookie(dts_month2) #txt_dts_day2 = setcookie(dts_day2) #txt_dt_due_arrival = setcookie(arrivaldate) #txt_customer = setcookie(cd_customer) #txt_derivery = setcookie(cd_derivery) #txt_product = setcookie(cd_product) #txt_gread = setcookie(name_gread) #txt_cdGread = setcookie(cd_gread) #txt_transport = setcookie(cd_transport) #txt_truck = setcookie(cd_truck) #デバック [sub_debug_OFF] txt_mode = Visible(False) txt_termid = Visible(False) txt_no_ship_product_slip = Visible(False) txt_dt_ship_product = Visible(False) txt_dt_due_arrival = Visible(False) txt_dt_ship_productslc = Visible(False) txt_no_ship_product_slipslc = Visible(False) txt_changedCustomer = Visible(False) txt_changed = Visible(False) txt_subselected = Visible(False) txt_NoSale = Visible(False) txt_no_moistslc = Visible(False) txt_cdGread = Visible(False) txt_dt_derivery_product = Visible(False) txt_subselected2 = Visible(False) txt_div_weight_dried = Visible(False) txt_MaxRow = Visible(False) txt_selectRow = Visible(False) txt_ratioMoistSelect = Visible(False) txt_div_rate_moist = Visible(False) txt_multiply = Visible(False) txt_marumeketa = Visible(False) txt_Tax_marume = Visible(False) #txt_changedDerivery = Visible(False) #デバック [sub_debug_ON] txt_mode = Visible(True) txt_termid = Visible(True) txt_no_ship_product_slip = Visible(True) txt_dt_ship_product = Visible(True) txt_dt_due_arrival = Visible(True) txt_dt_ship_productslc = Visible(True) txt_no_ship_product_slipslc = Visible(True) txt_changedCustomer = Visible(True) txt_changed = Visible(True) txt_subselected = Visible(True) txt_NoSale = Visible(True) txt_no_moistslc = Visible(True) txt_cdGread = Visible(True) txt_dt_derivery_product = Visible(True) txt_subselected2 = Visible(True) txt_div_weight_dried = Visible(True) txt_MaxRow = Visible(True) txt_selectRow = Visible(True) txt_ratioMoistSelect = Visible(True) txt_div_rate_moist = Visible(True) txt_multiply = Visible(True) txt_marumeketa = Visible(True) txt_Tax_marume = Visible(True) #txt_changedDerivery = Visible(True)