#初期処理 [Form_Init] this = centering txt_weight = configinput(number,10) txt_money = configinput(number,10) txt_tax = configinput(number,10) txt_money_freight = configinput(number,10) txt_money_adjustafter = configinput(number,10) txt_money_adjust = configinput(number,10) #2014.03.11 M.Inoue start txt_money_all = configinput(number,10) #2014.03.11 M.Inoue end #txt_price_unit_freght = configinput(number,5.2) this = subroutine(sub_debug_OFF) [Form_Start] this = eventlocked(True) this = clearall this = eventlocked(False) cmd_ship_history = enabled(False) cmd_sale_history = enabled(False) cmd_kaishi = enabled(False) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) this = subroutine(Sub_FootEnabled_False) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_True) #2014.03.11 M.Inoue End #txt_changed = string() @form = changed(False) txt_customer = setfocus ##新規時、修正時、削除時　共通 [Form_Common] this = eventlocked(True) this = clearall ##コンピュータ名 txt_termid = termid this = subroutine(Sub_Today) cmb_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) #2014.03.11 M.Inoue start this = subroutine(Sub_Search_True) cmb_customer_search = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) cmb_derivery_search = loadcombo(activederivery_search,cd_derivery,name_derivery,true,txt_dt_sale) cmb_product_search = loadcombo(activeproduct_search,cd_product,name_product,true,txt_dt_sale) #2014.03.11 M.Inoue end cmb_gread = loadcombo(activegrade,cd_grade,name_gread,true) cmb_div_sale = loadcombo(div_sale,cd_divsale,name_divsale,true) txt_subselectedShip = string() txt_subselectedSale = string() txt_percent = string(0.01) #txt_changed = string() @form = changed(False) txt_marumeketa = string(0) txt_marumeketa1 = string(0) txt_money_no_fraction_adjust = string(0) txt_Tax_marume1 = string(round) this = subroutine(Sub_MeisaiEnabled_False) #2014.04.11 M.Inoue Start Frame6 = visible(true) #2014.04.11 M.Inoue End this = eventlocked(False) #新規 [Form_Insert] this = eventlocked(True) txt_mode = string(ins) this = subroutine(Sub_dispInsMode) txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) cmb_div_sale = enabled(True) #cmb_customer = enabled(True) #txt_customer = enabled(True) #2014.04.08 M.Inoue start #cmb_gread = enabled(True) #2014.04.08 M.Inoue end cmd_ship_history = enabled(True) cmd_sale_history = enabled(False) #cmd_kaishi = enabled(True) cmb_div_sale = loadcombo(div_sale,cd_divsale,name_divsale,true) this = subroutine(Sub_get_cookie) cmb_div_sale = copystring(txt_div_sale) this = subroutine(Sub_Load_Combo) this = subroutine(Sub_Uriage_Kubun) this = eventlocked(False) #txt_changed = string() @form = changed(False) #2004.03.11 konishi 到着日＝売上日に変更 start fra_dts = Visible(False) fra_dts2 = Visible(True) @form = sysdateparts(txt_dts_year2,txt_dts_month2,txt_dts_day2) txt_dt_ship_product= dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) #2004.03.11 konishi 到着日＝売上日に変更 end txt_customer = setfocus() #cookieの設定 [Form_set_cookie] this = subroutine(Sub_set_cookie) #修正 [Form_Update] txt_mode = string(upd) this = subroutine(Sub_dispUpdMode) this = subroutine(Sub_HeadEnabled_False) txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) #cmb_customer = enabled(True) #txt_customer = enabled(True) #2014.04.08 M.Inoue start #cmb_gread = enabled(True) #2014.04.08 M.Inoue end cmd_sale_history = enabled(True) cmd_ship_history = enabled(False) cmd_kaishi = enabled(False) #txt_changed = string() #2004.03.11 konishi 到着日 = 売上日に変更 start fra_dts = Visible(True) fra_dts2 = Visible(False) #2004.03.11 konishi 到着日 = 売上日に変更 end txt_dts_year = setfocus @form = changed(False) #削除 [Form_Delete] txt_mode = string(del) this = subroutine(Sub_dispDelMode) this = subroutine(Sub_HeadEnabled_False) txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) cmb_div_sale = enabled(True) #cmb_customer = enabled(True) #txt_customer = enabled(True) #2014.04.08 M.Inoue Start #cmb_gread = enabled(False) #2014.04.08 M.Inoue End cmd_sale_history = enabled(True) cmd_ship_history = enabled(False) cmd_kaishi = enabled(False) #txt_changed = string() #2004.03.11 konishi 到着日＝売上日に変更 start fra_dts = Visible(True) fra_dts2 = Visible(False) #2004.03.11 konishi 到着日＝売上日に変更 end txt_dts_year = setfocus @form = changed(false) #入力開始 [Form_inputstart] #使用可不可の制御 this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_True) this = subroutine(Sub_FootEnabled_True) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_False) #2014.03.11 M.Inoue End txt_money_freight = enabled(False) cmd_ship_history = enabled(False) cmd_sale_history = enabled(False) cmd_kaishi = enabled(False) this = eventlocked(true) this = subroutine(Sub_Tax) this = subroutine(Sub_Calc) this = eventlocked(False) #txt_changed = string() @form = changed(false) #修正ボタンからの売上記録検索ボタン後の処理 [Form_SelectedSale_Upd] txt_unit_price = setfocus this = eventlocked(true) this = subroutine(txt_div_tax_LostFocus) this = subroutine(Sub_Load_Combo) cmb_div_sale = copystring(txt_div_sale) txt_div_sale = copystring(cmb_div_sale) this = subroutine(Sub_FormatNum) this = eventlocked(False) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_True) this = subroutine(Sub_FootEnabled_True) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_False) #2014.03.11 M.Inoue End cmd_ship_history = enabled(False) cmd_sale_history = enabled(False) cmd_kaishi = enabled(False) #txt_changed = string() #2004.03.11 konishi 到着日(払出日) = 売上日に変更 start fra_dts = Visible(True) fra_dts2 = Visible(False) #2004.03.11 konishi 到着日(払出日) = 売上日に変更 end @form = changed(False) txt_unit_price = setfocus #削除ボタンからの売上記録検索ボタン後の処理 [Form_SelectedSale_Del] this = eventlocked(True) this = subroutine(Sub_Load_Combo) this = eventlocked(False) this = subroutine(Sub_FormatNum) cmd_ship_history = enabled(False) cmd_sale_history = enabled(False) cmd_kaishi = enabled(False) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_False) this = subroutine(Sub_FootEnabled_True) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_False) #2014.03.11 M.Inoue End #txt_changed = string() @form = changed(false) #出荷記録検索ボタン後の処理 [Form_Selected_Ship] txt_dts_year2 = enabled(False) txt_dts_month2 = enabled(False) txt_dts_day2 = enabled(False) txt_moist = enabled(False) cmd_ship_history = enabled(False) cmd_sale_history = enabled(False) cmd_kaishi = enabled(False) this = subroutine(Sub_HeadEnabled_False) this = subroutine(Sub_MeisaiEnabled_True) this = subroutine(Sub_FootEnabled_True) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_False) #2014.03.11 M.Inoue End this = subroutine(txt_div_tax_LostFocus) this = eventlocked(true) this = subroutine(Sub_Load_Combo) this = eventlocked(False) this = subroutine(Sub_Tax) this = subroutine(Sub_Calc) #txt_changed = string() @form = changed(false) #売上区分"0"の場合 [Form_Sale] txt_derivery = enabled(False) cmb_derivery = enabled(False) txt_product = enabled(False) cmb_product = enabled(False) #2014.04.08 M.Inoue start cmb_gread = enabled(False) #cmb_gread = enabled(True) #2014.04.08 M.Inoue start #2014.04.11 M.Inoue Start Frame6 = visible(true) #2014.04.11 M.Inoue End txt_dts_year2 = enabled(True) txt_dts_month2 = enabled(True) txt_dts_day2 = enabled(True) txt_moist = enabled(True) cmd_ship_history = enabled(True) cmd_kaishi = enabled(False) #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_True) #2014.03.11 M.Inoue End #売上区分"1"の場合 [Form_SaleAdjust] this = subroutine(Sub_HeadEnabled_True) #2016.07.07 chg KSP K.Takahashi False → True ---------- Start txt_dts_year2 = enabled(True) txt_dts_month2 = enabled(True) txt_dts_day2 = enabled(True) #2016.07.07 chg KSP K.Takahashi False → True ---------- End txt_moist = enabled(False) cmd_ship_history = enabled(False) cmd_kaishi = enabled(True) #2014.04.08 M.Inoue start #cmb_gread = enabled(False) #2014.04.08 M.Inoue end #2014.04.11 M.Inoue Start Frame6 = visible(false) #2014.04.11 M.Inoue End #2014.03.11 M.Inoue Start this = subroutine(Sub_Search_False) #2014.03.11 M.Inoue End #得意先変更時 [cmb_customer_Click] txt_customer = copystring(cmb_customer) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_sale,txt_customer) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_sale,cmb_derivery) txt_derivery = clear() cmb_derivery = clear() txt_product = clear() cmb_product = clear() txt_cdGread = clear() cmb_gread = clear() #txt_changed = string(1) [txt_customer_LostFocus] cmb_customer = copystring(txt_customer) txt_customer = copystring(cmb_customer) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_sale,txt_customer) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_sale,cmb_derivery) txt_derivery = clear() txt_product = clear() txt_derivery = clear() cmb_derivery = clear() txt_product = clear() cmb_product = clear() txt_cdGread = clear() cmb_gread = clear() #txt_changed = string(1) #2014.03.11 M.Inoue Start [txt_customer_search_LostFocus] cmb_customer_search = copystring(txt_customer_search) txt_customer_search = copystring(cmb_customer_search) [txt_derivery_search_LostFocus] cmb_derivery_search = copystring(txt_derivery_search) txt_derivery_search = copystring(cmb_derivery_search) [txt_product_search_LostFocus] cmb_product_search = copystring(txt_product_search) txt_product_search = copystring(cmb_product_search) [cmb_customer_search_Click] txt_customer_search = copystring(cmb_customer_search) [cmb_derivery_search_Click] txt_derivery_search = copystring(cmb_derivery_search) [cmb_product_search_Click] txt_product_search = copystring(cmb_product_search) #2014.03.11 M.Inoue End #納品先変更時 [cmb_derivery_Click] txt_derivery = copystring(cmb_derivery) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_sale,cmb_derivery) txt_product = clear() cmb_product = clear() txt_cdGread = clear() cmb_gread = clear() txt_changed = string(1) [txt_derivery_LostFocus] cmb_derivery = copystring(txt_derivery) txt_derivery = copystring(cmb_derivery) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_sale,cmb_derivery) txt_product = clear() cmb_product = clear() txt_cdGread = clear() cmb_gread = clear() #txt_changed = string(1) #製品変更時 [cmb_product_Click] txt_product = copystring(cmb_product) #cmb_gread = codeliststring(activeproduct,cd_gread,txt_dt_sale,txt_derivery,txt_product) txt_cdGread = codeliststring(activeproduct,cd_gread,txt_dt_sale,txt_derivery,txt_product) cmb_gread = copystring(txt_cdGread) txt_cdGread = copystring(cmb_gread) #txt_changed = string(1) [txt_product_LostFocus] cmb_product = copystring(txt_product) txt_product = copystring(cmb_product) #cmb_gread = codeliststring(activeproduct,cd_gread,txt_dt_sale,txt_derivery,txt_product) txt_cdGread = codeliststring(activeproduct,cd_gread,txt_dt_sale,txt_derivery,txt_product) cmb_gread = copystring(txt_cdGread) txt_cdGread = copystring(cmb_gread) #txt_changed = string(1) #タイプ変更時 [cmb_gread_Click] txt_cdGread = copystring(cmb_gread) #txt_changed = string(1) [txt_cdGread_LostFocus] cmb_gread = copystring(txt_cdGread) #txt_cdGread = copystring(cmb_gread) #売上日付変更時 [txt_dts_year_LostFocus] this = formatstring(0000) txt_dt_sale = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_Combo_Customer) this = subroutine(Sub_Load_Combo_Search) #txt_changed = string(1) [txt_dts_month_LostFocus] this = formatstring(00) txt_dt_sale = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_Combo_Customer) this = subroutine(Sub_Load_Combo_Search) #txt_changed = string(1) [txt_dts_day_LostFocus] this = formatstring(00) txt_dt_sale = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) this = subroutine(Sub_Load_Combo_Customer) this = subroutine(Sub_Load_Combo_Search) #txt_changed = string(1) #売上区分変更時 [cmb_div_sale_Click] this = subroutine(Sub_Uriage_Kubun) [Sub_Uriage_Kubun] #txt_customer = clear() #cmb_customer = clear() txt_derivery = clear() cmb_derivery = clear() txt_product = clear() cmb_product = clear() cmb_gread = clear() #txt_dts_year2 = clear() #txt_dts_month2 = clear() #txt_dts_day2 = clear() txt_moist = clear() @form = eventlocked(True) this = subroutine(Sub_Load_Combo) @form = eventlocked(False) txt_div_sale = copystring(cmb_div_sale) @form = action(div_sale) #txt_changed = string(1) #cmb_div_sale = enabled(False) ##[txt_div_sale_LostFocus] #@form = action(div_sale) #txt_changed = string(1) #cmb_div_sale = enabled(False) #払出日付変更時 [txt_dts_year2_LostFocus] this = formatstring(0000) txt_dt_ship_product = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) #txt_changed = string(1) [txt_dts_month2_LostFocus] this = formatstring(00) txt_dt_ship_product = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) #txt_changed = string(1) [txt_dts_day2_LostFocus] this = formatstring(00) txt_dt_ship_product = dateby3parts(txt_dts_year2,txt_dts_month2,txt_dts_day2) #txt_changed = string(1) #運賃単価変更時 [txt_price_unit_freight_LostFocus] this = subroutine(Sub_Calc) #txt_changed = string(1) #消費税率変更時 [txt_rate_tax_LostFocus] this = subroutine(Sub_Calc) #txt_changed = string(1) #単価変更時 [txt_unit_price_LostFocus] txt_money_fraction_adjust = string(0) txt_money_all = string() this = subroutine(Sub_Calc) #txt_changed = string(1) #重量変更時 [txt_weight_LostFocus] #@form = action(calcback,txt_money_all,txt_weight) txt_money_all = string() this = subroutine(Sub_Calc) #txt_changed = string(1) #単位運賃変更時 [txt_price_unit_freght_LostFocus] this = subroutine(Sub_Calc) #txt_changed = string(1) #運賃変更時 #[txt_money_freight_LostFocus] #this = subroutine(Sub_Calc) #txt_changed = string(1) #調整額変更時 [txt_money_adjust_LostFocus] this = subroutine(Sub_Calc) #txt_changed = string(1) #備考変更時 [txt_note_LostFocus] #txt_changed = string(1) #消費税算出区分変更時 [txt_div_tax_LostFocus] txt_Tax_marume = case(txt_div_tax,0,down,1,round,2,up) #2014.03.11 M.Inoue Start #総売額変更時 [txt_money_all_LostFocus] @form = action(calcback,txt_money_all,txt_weight) this = subroutine(Sub_Calc) #2014.03.11 M.Inoue End #〜〜以下共通処理〜〜# #本日日付をセット [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_sale = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) #消費税率 [Sub_Tax] @form = action(tax,txt_rate_tax,txt_dt_sale,1) #再計算 [Sub_Calc] #2014.03.11 M.Inoue Start #txt_money = fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight) #txt_money_no_fraction_adjust = case(txt_customer,1,fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight),fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight)p) #txt_money_no_fraction_adjust = fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight) #txt_money_no_fraction_adjust = case(txt_customer,1,fixedmultiply(string(down),txt_marumeketa1,txt_unit_price,txt_weight),fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight)) #2016.10.30　クレシア（cd_customer=1）のみ切り上げにする。 txt_Tax_marume1 = case(txt_customer,1,down,round) txt_Tax_marume = case(txt_customer,1,down,round) txt_money_no_fraction_adjust = fixedmultiply(txt_Tax_marume1,txt_marumeketa1,txt_unit_price,txt_weight) txt_money = add(txt_money_no_fraction_adjust,txt_money_fraction_adjust) txt_tax = fixedmultiply(txt_Tax_marume,txt_marumeketa,txt_money,txt_rate_tax,txt_percent) txt_money_freight = multiply(txt_price_unit_freght,txt_weight) txt_money_adjustafter = add(txt_money,txt_tax,txt_money_freight,txt_money_adjust) this = subroutine(Sub_FormatNum) [Sub_Calc_Back] #2014.03.11 M.Inoue End #txt_unit_price = #数値の書式設定 [Sub_FormatNum] #単価 txt_unit_price = formatstring(######0.00) #端数調整額 txt_money_fraction_adjust = formatstring(######0.00) #重量 txt_weight = formatstring(########0) #金額 txt_money = formatstring(#########0) #総売額 txt_money_all = formatstring(#########0) #消費税 txt_tax = formatstring(#######0) #消費税率 txt_rate_tax = formatstring(##0) #単位運賃 txt_price_unit_freght = formatstring(######0.00) #運賃 txt_money_freight = formatstring(########0) #調整額 txt_money_adjust = formatstring(########0) #調整後金額 txt_money_adjustafter = formatstring(#########0) #cookieの設定 [Sub_get_cookie] ##txt_dts_year = getcookie(dts_year) ##txt_dts_month = getcookie(dts_month) ##txt_dts_day = getcookie(dts_day) ##txt_dt_sale = getcookie(dt_sale) txt_div_sale = getcookie(div_sale) #txt_customer = getcookie(cd_customer) #txt_derivery = getcookie(cd_derivery) #txt_product = getcookie(cd_product) #txt_cdGread = getcookie(cd_gread) [Sub_set_cookie] ##txt_dts_year = setcookie(dts_year) ##txt_dts_month = setcookie(dts_month) ##txt_dts_day = setcookie(dts_day) ##txt_dt_sale = setcookie(dt_sale) txt_div_sale = setcookie(div_sale) #txt_customer = setcookie(cd_customer) #txt_derivery = setcookie(cd_derivery) #txt_product = setcookie(cd_product) #txt_cdGread = setcookie(cd_gread) #ヘッダー部の使用可 [Sub_HeadEnabled_True] txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) txt_no_sale = enabled(False) cmb_div_sale = enabled(True) txt_customer = enabled(True) cmb_customer = enabled(True) txt_derivery = enabled(True) cmb_derivery = enabled(True) txt_product = enabled(True) cmb_product = enabled(True) cmb_gread = enabled(True) txt_dts_year2 = enabled(True) txt_dts_month2 = enabled(True) txt_dts_day2 = enabled(True) txt_moist = enabled(True) #ヘッダー部の使用不可 [Sub_HeadEnabled_False] txt_dts_year = enabled(False) txt_dts_month = enabled(False) txt_dts_day = enabled(False) txt_no_sale = enabled(False) cmb_div_sale = 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) cmb_gread = enabled(False) txt_dts_year2 = enabled(False) txt_dts_month2 = enabled(False) txt_dts_day2 = enabled(False) txt_moist = enabled(False) #明細部の使用可 [Sub_MeisaiEnabled_True] txt_unit_price = enabled(True) txt_weight = enabled(True) txt_rate_tax = enabled(True) txt_price_unit_freght = enabled(True) #txt_money_freight = enabled(True) txt_money_adjust = enabled(True) txt_note = enabled(True) #2014.03.11 M.Inoue Start txt_money_all = enabled(True) #2014.03.11 M.Inoue End #明細部の使用不可 [Sub_MeisaiEnabled_False] txt_unit_price = enabled(False) txt_weight = enabled(False) txt_rate_tax = enabled(False) txt_price_unit_freght = enabled(False) #txt_money_freight = enabled(False) txt_money_adjust = enabled(False) txt_note = enabled(False) #2014.03.11 M.Inoue Start txt_money_all = enabled(False) #2014.03.11 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_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) #コンボボックスの設定 [Sub_Load_Combo] cmb_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) cmb_customer = copystring(txt_customer) txt_customer = copystring(cmb_customer) cmb_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_sale,txt_customer) cmb_derivery = copystring(txt_derivery) txt_derivery = copystring(cmb_derivery) cmb_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_sale,txt_derivery) cmb_product = copystring(txt_product) txt_product = copystring(cmb_product) cmb_gread = loadcombo(activegrade,cd_grade,name_gread,true) cmb_gread = copystring(txt_cdGread) txt_cdGread = copystring(cmb_gread) #2014.03.11 M.Inoue Start cmb_customer_search = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) cmb_customer_search = copystring(txt_customer_search) txt_customer_search = copystring(cmb_customer_search) cmb_derivery_search = loadcombo(activederivery_search,cd_derivery,name_derivery,true,txt_dt_sale,txt_customer) cmb_derivery_search = copystring(txt_derivery_search) txt_derivery_search = copystring(cmb_derivery_search) cmb_product_search = loadcombo(activeproduct_search,cd_product,name_product,true,txt_dt_sale,txt_derivery) cmb_product_search = copystring(txt_product_search) txt_product_search = copystring(cmb_product_search) #2014.03.11 M.Inoue End [Sub_Load_Combo_Customer] cmb_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) cmb_customer = copystring(txt_customer) txt_customer = copystring(cmb_customer) #2014.03.11 M.Inoue Start [Sub_Load_Combo_Search] cmb_customer_search = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_sale) cmb_customer_search = copystring(txt_customer_search) txt_customer_search = copystring(cmb_customer_search) cmb_derivery_search = loadcombo(activederivery_search,cd_derivery,name_derivery,true,txt_dt_sale,txt_customer) cmb_derivery_search = copystring(txt_derivery_search) txt_derivery_search = copystring(cmb_derivery_search) cmb_product_search = loadcombo(activeproduct_search,cd_product,name_product,true,txt_dt_sale,txt_derivery) cmb_product_search = copystring(txt_product_search) txt_product_search = copystring(cmb_product_search) #2014.03.11 M.Inoue End #2014.03.11 M.Inoue start [Sub_Search_True] txt_customer_search = enabled(True) txt_derivery_search = enabled(True) txt_product_search = enabled(True) cmb_customer_search = enabled(True) cmb_derivery_search = enabled(True) cmb_product_search = enabled(True) [Sub_Search_False] txt_customer_search = enabled(False) txt_derivery_search = enabled(False) txt_product_search = enabled(False) cmb_customer_search = enabled(False) cmb_derivery_search = enabled(False) cmb_product_search = enabled(false) #2014.03.11 M.Inoue end #デバック [sub_debug_OFF] txt_mode = Visible(False) txt_termid = Visible(False) txt_changed = Visible(False) txt_no_sale = Visible(False) txt_dt_sale = Visible(False) txt_div_sale = Visible(False) txt_cdGread = Visible(False) txt_dt_ship_product = Visible(False) txt_no_ship_product = Visible(False) txt_subselectedSale = Visible(False) txt_subselectedShip = Visible(False) txt_div_tax = Visible(False) txt_percent = Visible(False) txt_Tax_marume = Visible(False) txt_marumeketa = Visible(False) txt_marumeketa1 = Visible(False) #2014.03.11 M.Inoue Start txt_money_no_fraction_adjust = Visible(False) txt_fsc = Visible(False) #2014.03.11 M.Inoue End txt_Tax_marume1 = Visible(False)