#画面起動時 [Form_Init] this = centering #this = subroutine(Sub_Debug_True) this = subroutine(Sub_Debug_False) this = subroutine(Sub_Set_Field_Name) txt_money = configinput(number,10) txt_sum_weight = configinput(number,5) txt_sum_money = configinput(number,5) cbo_name_grade_customer = enabled(False) cbo_div_product = loadcombo(div_adjustment,cd_divadjustment,name_divadjustment,true) #txt_Zen_Weight = enabled(False) txt_wk_weight = enabled(False) #2014.02.10 M.Inoue パレット対応 start txt_wk_pallet = enabled(False) txt_pallet = enabled(False) txt_Zen_Pallet = enabled(False) txt_cd_supplier_search = enabled(False) txt_cd_customer_search = enabled(False) cbo_name_supplier_search = enabled(False) cbo_name_customer_search = enabled(False) #2014.04.11 M.Inoue start Frame8 = visible(false) #2014.04.11 M.Inoue end #2014.02.10 M.Inoue パレット対応 end #*----------------------------------------------/ #画面起動時 [Form_Start] @form = eventlocked(true) this = clearall this = subroutine(Sub_YMD_KBN_Enabled_True) this = subroutine(Sub_SysDate) this = subroutine(Sub_WP_Enabled_False) this = subroutine(Sub_Product_Enabled_False) this = subroutine(Sub_CommonInputUnit_False) this = subroutine(Sub_SprdSupplier_Visible_True) this = subroutine(Sub_Cmd_Edit_False) this = subroutine(Sub_Cmd_StartInput_True) #cbo_div_product = loadcombo(div_adjustment,cd_divadjustment,name_divadjustment,true) txt_termid = termid txt_mode = string(ins) #this = subroutine(Sub_get_cookie) txt_dts_year = setfocus() @form = eventlocked(false) #2004.03.18 konsihi 月単位の棚卸入力に変更 start opt_entry = boolean(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 end @form = changed(false) #*---------------------------------------------/ #新規、修正 [Form_Common] this = eventlocked(True) this = clearall this = eventlocked(False) this = subroutine(Sub_YMD_KBN_Enabled_True) this = subroutine(Sub_SysDate) this = subroutine(Sub_WP_Enabled_False) this = subroutine(Sub_Product_Enabled_False) this = subroutine(Sub_CommonInputUnit_False) this = subroutine(Sub_SprdSupplier_Visible_True) this = subroutine(Sub_Cmd_Edit_False) txt_termid = termid cbo_div_product = loadcombo(div_adjustment,cd_divadjustment,name_divadjustment,true) txt_dts_year = setfocus() @form = changed(false) #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = visible(True) opt_entry = boolean(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #*---------------------------------------------/ #新規 [Form_Insert] this = eventlocked(True) this = subroutine(Sub_Cmd_StartInput_True) txt_mode = string(ins) this = subroutine(Sub_dispInsMode) #2014.04.11 M.Inoue start Frame8 = visible(false) #2014.04.11 M.Inoue end this = eventlocked(False) @form = changed(false) [Form_set_cookie] this = subroutine(Sub_set_cookie) #*---------------------------------------------/ #修正 [Form_Update_New] cmd_search = enabled(True) cmd_start_input = enabled(False) txt_mode = string(upd) this = subroutine(Sub_dispUpdMode) #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = visible(True) opt_entry = boolean(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #2014.04.11 M.Inoue start Frame8 = visible(true) #2014.04.11 M.Inoue end #*---------------------------------------------/ #キャンセル、保存(修正） [Form_Update_New2] @form = eventlocked(True) cmd_search = enabled(True) cmd_start_input = enabled(False) cmd_save = enabled(False) this = subroutine(Sub_Cmd_Edit_False) txt_mode = string(upd) this = clearall this = subroutine(Sub_SprdSupplier_Visible_True) this = subroutine(Sub_YMD_KBN_Enabled_True) this = subroutine(Sub_WP_Enabled_False) this = subroutine(Sub_Product_Enabled_False) this = subroutine(Sub_SysDate) cbo_div_product = loadcombo(div_adjustment,cd_divadjustment,name_divadjustment,true) this = subroutine(Sub_CommonInputUnit_False) txt_termid = termid txt_mode = string(upd) @form = eventlocked(False) #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = visible(True) opt_entry = boolean(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 end txt_dts_month = setfocus() txt_dts_year = setfocus() @form = changed(false) #*---------------------------------------------/ #入力開始 [Form_start_input] this = subroutine(Sub_YMD_KBN_Enabled_False) cmd_start_input = enabled(False) cmd_save = enabled(True) cmd_clear = enabled(True) cmd_listedit = enabled(True) #txt_change_mode = string(1) this = subroutine(Sub_CommonInputUnit_True) this = subroutine(Sub_Shishagonyu) txt_cd_customer = setfocus() txt_cd_supplier = setfocus() #*---------------------------------------------/ #新規（故紙） [Form_Select_SupplierIns] this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_Product_Enabled_False) this = subroutine(Sub_SprdSupplier_True) cmd_listupdate = enabled(True) cmd_listdelete = enabled(True) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.02.10 M.Inoue パレット対応 start txt_pallet = enabled(False) txt_Zen_Pallet = enabled(False) #2014.02.10 M.Inoue パレット対応 end #*---------------------------------------------/ #新規（製品） [Form_Select_CustomerIns] this = subroutine(Sub_WP_Enabled_False) this = subroutine(Sub_Product_Enabled_True) this = subroutine(Sub_SprdCustomer_Visible_True) cmd_listupdate = enabled(True) cmd_listdelete = enabled(True) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start #cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 end #2014.02.10 M.Inoue パレット対応 start txt_pallet = enabled(True) txt_Zen_Pallet = enabled(True) #2014.02.10 M.Inoue パレット対応 end #*---------------------------------------------/ #新規(故紙、クリア） [Form_Sprd_Supplier_True] this = subroutine(Sub_SprdSupplier_True) #*---------------------------------------------/ #新規(製品、クリア） [Form_Sprd_Customer_True] this = subroutine(Sub_SprdCustomer_True) #*---------------------------------------------/ #対象区分=1の時 [Form_Select_Customer] this = subroutine(Sub_SprdCustomer_True) this = subroutine(Sub_WP_Enabled_False) this = subroutine(Sub_Product_Enabled_True) cmd_listupdate = enabled(True) cmd_listdelete = enabled(True) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start #cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 end this = subroutine(Sub_CommonInputUnit_False) #2014.03.10 M.Inoue Start #*---------------------------------------------/ #対象区分=0の時 [Form_Select_Supplier_Search] this = subroutine(Sub_Supplier_Search) #*---------------------------------------------/ #対象区分=1の時 [Form_Select_Customer_Search] this = subroutine(Sub_Customer_Search) #2014.03.10 M.Inoue End #*---------------------------------------------/ [Form_JituZai_True] #txt_Zen_Weight = enabled(True) #*---------------------------------------------/ [Form_JituZai_False] #txt_Zen_Weight = enabled(False) #*---------------------------------------------/ [Form_Add_Clear] @form = eventlocked(True) this = subroutine(cmd_clear_Click) @form = eventlocked(False) #*---------------------------------------------/ [Form_Add_Clear_Customer] this = subroutine(cmd_clear_Click) sprd_customer = enabled(False) #*---------------------------------------------/ [Form_Sprd_Select_Supplier] @form = eventlocked(True) this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) @form = eventlocked(False) #*---------------------------------------------/ [Form_Sprd_Select_Supplier_Upd] @form = eventlocked(True) this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) #this = subroutine(Sub_WP_Enabled_False) #this = subroutine(Sub_CommonInputUnit_False) @form = eventlocked(False) #*---------------------------------------------/ [Form_Sprd_Select_Customer] sprd_customer = enabled(True) this = subroutine(Sub_CommonInputUnit_True) this = subroutine(Sub_Product_Enabled_True) #*---------------------------------------------/ [Form_Sprd_Select_Customer_Upd] sprd_customer = enabled(True) this = subroutine(Sub_Product_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) #*---------------------------------------------/ [Form_Sub_CommonInputUnit_False] txt_weight = enabled(False) #2014.02.07 M.Inoue パレット対応 start txt_pallet = enabled(False) #2014.02.07 M.Inoue パレット対応 end txt_unit_price = enabled(False) txt_remarks = enabled(False) #*---------------------------------------------/ [Form_MiddleArea_Enabled_False] this = subroutine(Sub_Product_Enabled_False) this = subroutine(Sub_WP_Enabled_False) #*---------------------------------------------/ [Form_Wp_False] this = subroutine(Sub_WP_Enabled_False) [Form_Wp_True] this = subroutine(Sub_WP_Enabled_True) #*---------------------------------------------/ [Form_Product_False] this = subroutine(Sub_Product_Enabled_False) [Form_Product_True] this = subroutine(Sub_Product_Enabled_True) #*---------------------------------------------/ ## LostFocus ----------------------------------/ #*---------------------------------------------/ [txt_dts_year_LostFocus] this = formatstring(0000) @form = eventlocked(True) txt_dts_yyyymmdd = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) @form = eventlocked(False) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start #cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) cbo_name_customer_search = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier_search = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) txt_cd_supplier_search = string() txt_cd_customer_search = string() #2014.02.06 M.Inoue 倉庫対応 end txt_ymd_mode = string(1) #*---------------------------------------------/ [txt_dts_month_LostFocus] this = formatstring(00) @form = eventlocked(True) txt_dts_yyyymmdd = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) @form = eventlocked(False) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start #cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) cbo_name_customer_search = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier_search = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) txt_cd_supplier_search = string() txt_cd_customer_search = string() #2014.02.06 M.Inoue 倉庫対応 end txt_ymd_mode = string(1) #*---------------------------------------------/ [txt_dts_day_LostFocus] this = formatstring(00) @form = eventlocked(True) txt_dts_yyyymmdd = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) @form = eventlocked(False) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start #cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) cbo_name_customer_search = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier_search = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) txt_cd_supplier_search = string() txt_cd_customer_search = string() #2014.02.06 M.Inoue 倉庫対応 end txt_ymd_mode = string(1) #*---------------------------------------------/ [txt_cd_supplier_LostFocus] cbo_name_supplier = copystring(txt_cd_supplier) txt_cd_supplier = copystring(cbo_name_supplier) #*---------------------------------------------/ [txt_cd_shipment_LostFocus] cbo_name_shipment = copystring(txt_cd_shipment) txt_cd_shipment = copystring(cbo_name_shipment) #*---------------------------------------------/ [txt_cd_wp_LostFocus] cbo_name_wp = copystring(txt_cd_wp) txt_cd_wp = copystring(cbo_name_wp) #*---------------------------------------------/ [txt_cd_customer_LostFocus] cbo_name_customer = copystring(txt_cd_customer) txt_cd_customer = copystring(cbo_name_customer) #2014.03.10 M.Inoue Start #*---------------------------------------------/ [txt_cd_supplier_search_LostFocus] cbo_name_supplier_search = copystring(txt_cd_supplier_search) txt_cd_supplier_search = copystring(cbo_name_supplier_search) #*---------------------------------------------/ [txt_cd_customer_search_LostFocus] cbo_name_customer_search = copystring(txt_cd_customer_search) txt_cd_customer_search = copystring(cbo_name_customer_search) #2014.03.10 M.Inoue End #2014.02.06 M.Inoue 倉庫対応 start #*---------------------------------------------/ [txt_cd_warehouse_LostFocus] cbo_name_warehouse = copystring(txt_cd_warehouse) txt_cd_warehouse = copystring(cbo_name_warehouse) #2014.02.06 M.Inoue 倉庫対応 start #*---------------------------------------------/ [txt_cd_delivery_LostFocus] cbo_name_delivery = copystring(txt_cd_delivery) txt_cd_delivery = copystring(cbo_name_delivery) #*---------------------------------------------/ [txt_cd_product_LostFocus] cbo_name_product = copystring(txt_cd_product) txt_cd_product = copystring(cbo_name_product) #*---------------------------------------------/ [txt_weight_LostFocus] this = subroutine(Sub_FixedMultply) #*---------------------------------------------/ [txt_unit_price_LostFocus] this = subroutine(Sub_FixedMultply) @form = action(unitformat) # Add 2003/06/20 M.Tsujinaka 在庫量の取得 Start [txt_Zen_Weight_LostFocus] @form = action(pre_stock) # Add 2003/06/20 M.Tsujinaka 在庫量の取得 Start # 2014.02.07 M.Inoue パレット対応 start [txt_Zen_Pallet_LostFocus] @form = action(pre_pallet) # 2014.02.07 M.Inoue パレット対応 end #*---------------------------------------------/ [Form_FixedMultply] @form = eventlocked(True) this = subroutine(Sub_FixedMultply) @form = eventlocked(False) #*---------------------------------------------/ [cbo_div_product_Click] txt_div_product = copystring(cbo_div_product) this = subroutine(Sub_CommonInputUnit_False) #*---------------------------------------------/ [cmd_clear_Click] @form = eventlocked(True) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 end txt_cd_supplier = string() cbo_name_supplier = copystring(txt_cd_supplier) txt_cd_shipment = string() cbo_name_shipment = copystring(txt_cd_shipment) txt_cd_wp = string() cbo_name_wp = copystring(txt_cd_wp) txt_wk_cd_grade = string() cbo_name_grade_supplier = copystring(txt_wk_cd_grade) txt_cd_grade_supplier = string() txt_cd_customer = string() cbo_name_customer = copystring(txt_cd_customer) txt_cd_delivery = string() cbo_name_delivery = copystring(txt_cd_delivery) txt_cd_product = string() cbo_name_product = copystring(txt_cd_product) #2014.02.06 M.Inoue 倉庫対応 start txt_cd_warehouse = string() cbo_name_warehouse = copystring(txt_cd_warehouse) #2014.02.06 M.Inoue 倉庫対応 start txt_wk_cd_grade2 = string() cbo_name_grade_customer = copystring(txt_wk_cd_grade2) txt_cd_grade_customer = string() txt_weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end txt_unit_price = string() txt_remarks = string() txt_money = string() txt_edit_mode = string() txt_Zen_Pallet = string() txt_Zen_Weight = string() @form = eventlocked(False) #*---------------------------------------------/ [Form_cmd_clear_Click] @form = eventlocked(True) txt_cd_supplier = string() cbo_name_supplier = copystring(txt_cd_supplier) txt_cd_shipment = string() cbo_name_shipment = copystring(txt_cd_shipment) txt_cd_wp = string() cbo_name_wp = copystring(txt_cd_wp) txt_wk_cd_grade = string() cbo_name_grade_supplier = copystring(txt_wk_cd_grade) txt_cd_grade_supplier = string() txt_cd_customer = string() cbo_name_customer = copystring(txt_cd_customer) txt_cd_delivery = string() cbo_name_delivery = copystring(txt_cd_delivery) txt_cd_product = string() cbo_name_product = copystring(txt_cd_product) #2014.02.06 M.Inoue 倉庫対応 start txt_cd_warehouse = string() cbo_name_warehouse = copystring(txt_cd_warehouse) #2014.02.06 M.Inoue 倉庫対応 end txt_wk_cd_grade2 = string() cbo_name_grade_customer = copystring(txt_wk_cd_grade2) txt_cd_grade_customer = string() txt_weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end txt_unit_price = string() txt_remarks = string() txt_money = string() txt_edit_mode = string() #txt_Zen_Weight = string() this = subroutine(Sub_CommonInputUnit_True) this = subroutine(Sub_Cmd_Edit_Del_Upd_True) @form = eventlocked(False) #*---------------------------------------------/ #仮登録チェック有 #2004.03.18 konsihi 月単位の棚卸入力に変更 start [opt_kari_entry_Click] fra_dts_day = visible(true) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #*---------------------------------------------/ #登録チェック有 #2004.03.18 konsihi 月単位の棚卸入力に変更 start [opt_entry_Click] fra_dts_day = visible(false) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #*---------------------------------------------/ #行修正クリック [cmd_listupdate_Click] #txt_change_mode = string(1) #*---------------------------------------------/ #行削除クリック [cmd_listdelete_Click] #txt_change_mode = string(1) #*---------------------------------------------/ #確定クリック [cmd_listedit_Click] @form = eventlocked(True) this = subroutine(Sub_SetCbo_Supplier) cmd_save = Enabled(True) @form = eventlocked(False) #2014.03.10 M.Inoue Start #*---------------------------------------------/ [cbo_name_supplier_search_Click] @form = eventlocked(True) txt_cd_supplier_search = copystring(cbo_name_supplier_search) @form = eventlocked(False) #*---------------------------------------------/ [cbo_name_customer_search_Click] @form = eventlocked(True) txt_cd_customer_search = copystring(cbo_name_customer_search) @form = eventlocked(False) #2014.03.10 M.Inoue End #*---------------------------------------------/ #仕入先コンボクリック [cbo_name_supplier_Click] @form = eventlocked(True) txt_cd_supplier = copystring(cbo_name_supplier) txt_cd_shipment = string() txt_cd_wp = string() txt_wk_cd_grade = string() txt_Zen_Weight = string() txt_Weight = string() cbo_name_shipment = loadcombo(activeshipment,cd_shipment,name_shipment,true,txt_dts_yyyymmdd,txt_cd_supplier) cbo_name_wp = loadcombo(activewp,cd_wp,name_grade,true,txt_dts_yyyymmdd,txt_cd_supplier,txt_cd_shipment) cbo_name_grade_supplier = loadcombo(activegrade,cd_grade,name_gread,true) @form = eventlocked(False) #*---------------------------------------------/ #得意先コンボクリック [cbo_name_customer_Click] @form = eventlocked(True) txt_cd_customer = copystring(cbo_name_customer) cbo_name_delivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dts_yyyymmdd,txt_cd_customer) cbo_name_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dts_yyyymmdd,txt_cd_delivery,txt_cd_customer) cbo_name_grade_customer = loadcombo(activegrade,cd_grade,name_gread,true) #2014.02.06 M.Inoue 倉庫対応 start cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) txt_cd_warehouse = string() #2014.02.06 M.Inoue 倉庫対応 end txt_cd_delivery = string() txt_cd_product = string() txt_wk_cd_grade2 = string() txt_Zen_Weight = string() #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = string() #2014.02.07 M.Inoue パレット対応 end txt_Weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end @form = eventlocked(False) #*---------------------------------------------/ #荷送先コンボクリック [cbo_name_shipment_Click] @form = eventlocked(True) txt_cd_shipment = copystring(cbo_name_shipment) cbo_name_wp = loadcombo(activewp,cd_wp,name_grade,true,txt_dts_yyyymmdd,txt_cd_supplier,txt_cd_shipment) #cbo_name_wp = loadcombo(activewp,cd_wp,name_grade,true,txt_dts_yyyymmdd,txt_cd_supplier,txt_cd_shipment) txt_cd_wp = string() cbo_name_grade_supplier = copystring(txt_cd_wp) txt_wk_cd_grade = string() txt_Zen_Weight = string() txt_Weight = string() @form = eventlocked(False) #*---------------------------------------------/ #納品先コンボクリック [cbo_name_delivery_Click] @form = eventlocked(True) txt_cd_delivery = copystring(cbo_name_delivery) cbo_name_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dts_yyyymmdd,txt_cd_delivery,txt_cd_customer) #2014.02.06 M.Inoue 倉庫対応 start cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) txt_cd_warehouse = string() #2014.02.06 M.Inoue 倉庫対応 end txt_cd_product = string() cbo_name_grade_customer = copystring(txt_cd_product) txt_wk_cd_grade2 = string() txt_Zen_Weight = string() #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = string() #2014.02.07 M.Inoue パレット対応 end txt_Weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end @form = eventlocked(False) #2014.02.06 M.Inoue 倉庫対応 start #*---------------------------------------------/ #倉庫コンボクリック [cbo_name_warehouse_Click] @form = eventlocked(True) txt_cd_warehouse = copystring(cbo_name_warehouse) txt_Zen_Weight = string() #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = string() #2014.02.07 M.Inoue パレット対応 end txt_Weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end @form = eventlocked(False) #2014.02.06 M.Inoue 倉庫対応 start #*---------------------------------------------/ #故紙コンボクリック [cbo_name_wp_Click] @form = eventlocked(True) txt_cd_wp = copystring(cbo_name_wp) cbo_name_grade_supplier = loadcombo(activegrade,cd_grade,name_gread,true) txt_wk_cd_grade = codeliststring(activewp,cd_grade,txt_dts_yyyymmdd,txt_cd_supplier,txt_cd_shipment,txt_cd_wp) cbo_name_grade_supplier = copystring(txt_wk_cd_grade) txt_cd_grade_supplier = copystring(cbo_name_grade_supplier) txt_Zen_Weight = string() txt_Weight = string() @form = eventlocked(False) #*---------------------------------------------/ #製品コンボクリック [cbo_name_product_Click] @form = eventlocked(True) #txt_wk_cd_grade2 = string() txt_cd_product = copystring(cbo_name_product) cbo_name_grade_customer = loadcombo(activegrade,cd_grade,name_gread,true) #2014.02.06 M.Inoue 倉庫対応 start cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) txt_cd_warehouse = string() #2014.02.06 M.Inoue 倉庫対応 end #### K.takahashi 2004.01.17 抽出条件不正 タイプを取得する際には、得意先ではなく納品先をキーにする -- start #txt_wk_cd_grade2 = codeliststring(activeproduct,cd_gread,txt_dts_yyyymmdd,txt_cd_customer,txt_cd_product) txt_wk_cd_grade2 = codeliststring(activeproduct,cd_gread,txt_dts_yyyymmdd,txt_cd_delivery,txt_cd_product) #### K.takahashi 2004.01.17 抽出条件不正 タイプを取得する際には、得意先ではなく納品先をキーにする -- End cbo_name_grade_customer = copystring(txt_wk_cd_grade2) txt_cd_grade_customer = copystring(cbo_name_grade_customer) txt_Zen_Weight = string() #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = string() #2014.02.07 M.Inoue パレット対応 end txt_Weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end @form = eventlocked(False) #*---------------------------------------------/ #故紙タイプコンボクリック [cbo_name_grade_supplier_Click] @form = eventlocked(True) txt_cd_grade_supplier = copystring(cbo_name_grade_supplier) txt_Zen_Weight = string() txt_Weight = string() @form = eventlocked(False) #*---------------------------------------------/ #製品タイプコンボクリック [cbo_name_grade_customer_Click] @form = eventlocked(True) txt_cd_grade_customer = copystring(cbo_name_grade_customer) txt_Zen_Weight = string() #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = string() #2014.02.07 M.Inoue パレット対応 end txt_Weight = string() #2014.02.07 M.INoue パレット対応 start txt_pallet = string() #2014.02.07 M.INoue パレット対応 end @form = eventlocked(False) #*---------------------------------------------/ [Form_Ret_Select_Supplier] this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_Cmd_Edit_True) this = subroutine(Sub_SprdSupplier_True) this = subroutine(Sub_CommonInputUnit_True) cmd_save = enabled(True) cmd_search = enabled(False) cbo_div_product = enabled(False) this = subroutine(Sub_Shishagonyu) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = enabled(False) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #2014.03.10 M.Inoue start txt_cd_supplier_search = enabled(False) txt_cd_customer_search = enabled(False) cbo_name_supplier_search = enabled(False) cbo_name_customer_search = enabled(False) txt_dts_year = enabled(false) txt_dts_month = enabled(false) txt_dts_day = enabled(false) #2014.03.10 M.Inoue end #2014.04.08 M.Inoue enableFalseにしたため最初のフォーカス位置を別コントロールに start #txt_dts_year = setfocus() txt_cd_supplier = setfocus() #2014.04.08 M.Inoue end #*---------------------------------------------/ [Form_Ret_Select_Customer] this = subroutine(Sub_Product_Enabled_True) this = subroutine(Sub_Cmd_Edit_True) this = subroutine(Sub_SprdCustomer_True) this = subroutine(Sub_CommonInputUnit_True) cmd_save = enabled(True) cmd_search = enabled(False) cbo_div_product = enabled(False) this = subroutine(Sub_Shishagonyu) cbo_name_customer = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 start cbo_name_warehouse = loadcombo(activewarehouseall,CD_WAREHOUSE,NAME_WAREHOUSE,true,txt_dts_yyyymmdd) #2014.02.06 M.Inoue 倉庫対応 end #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = enabled(False) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #2014.03.10 M.Inoue start txt_cd_supplier_search = enabled(False) txt_cd_customer_search = enabled(False) cbo_name_supplier_search = enabled(False) cbo_name_customer_search = enabled(False) txt_dts_year = enabled(false) txt_dts_month = enabled(false) txt_dts_day = enabled(false) txt_Zen_Pallet = enabled(true) txt_pallet = enabled(true) #2014.03.10 M.Inoue end sprd_customer = setfocus() #2014.04.08 M.Inoue enableFalseにしたため最初のフォーカス位置を別コントロールに start #txt_dts_year = setfocus() txt_cd_customer = setfocus() #2014.04.08 M.Inoue end #*---------------------------------------------/ [Form_SettingMiddleSupplier] this = eventlocked(True) cbo_name_supplier = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) cbo_name_supplier = copystring(txt_cd_supplier) cbo_name_shipment = loadcombo(activeshipment,cd_shipment,name_shipment,true,txt_dts_yyyymmdd,txt_cd_supplier) cbo_name_shipment = copystring(txt_cd_shipment) cbo_name_wp = loadcombo(activewp,cd_wp,name_grade,true,txt_dts_yyyymmdd,txt_cd_supplier,txt_cd_shipment) cbo_name_wp = copystring(txt_cd_wp) cbo_name_grade_supplier = loadcombo(activegrade,cd_grade,name_gread,true) txt_cd_grade_supplier = copystring(cbo_name_grade_supplier) cbo_name_grade_supplier = copystring(txt_wk_cd_grade) txt_cd_grade_supplier = copystring(cbo_name_grade_supplier) sprd_supplier = enabled(False) this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) this = eventlocked(False) #*---------------------------------------------/ [Form_SettingMiddleCustomer] this = eventlocked(True) cbo_name_customer = copystring(txt_cd_customer) cbo_name_delivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dts_yyyymmdd,txt_cd_customer) cbo_name_delivery = copystring(txt_cd_delivery) cbo_name_product = loadcombo(activeproduct,cd_product,name_product,true,txt_dts_yyyymmdd,txt_cd_customer,txt_cd_delivery) cbo_name_product = copystring(txt_cd_product) cbo_name_grade_customer = loadcombo(activegrade,cd_grade,name_gread,true) txt_cd_grade_customer = copystring(cbo_name_grade_customer) cbo_name_grade_customer = copystring(txt_wk_cd_grade2) cbo_name_warehouse = copystring(txt_cd_warehouse) txt_cd_grade_customer = copystring(cbo_name_grade_customer) sprd_customer = enabled(False) this = subroutine(Sub_Product_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) this = eventlocked(False) #2014.02.06 M.Inoue 倉庫対応 start #*---------------------------------------------/ [Form_SettingMiddleWarehouse] this = eventlocked(True) cbo_name_warehouse = copystring(txt_cd_warehouse) sprd_customer = enabled(False) this = subroutine(Sub_Product_Enabled_True) this = subroutine(Sub_CommonInputUnit_True) this = eventlocked(False) #2014.02.06 M.Inoue 倉庫対応 end #*---------------------------------------------/ [Form_Upd_Mode] this = subroutine(Sub_WP_Enabled_True) this = subroutine(Sub_Product_Enabled_True) #*---------------------------------------------/ [Form_Edit_True_Customer] this = subroutine(Sub_CommonInputUnit_True) #*---------------------------------------------/ [Form_Upd_Edit_True] this = subroutine(Sub_CommonInputUnit_True) #*---------------------------------------------/ [Form_BothSprdEnabled_True] sprd_supplier = enabled(True) sprd_customer = enabled(True) #*---------------------------------------------/ [Form_BothSprdEnabled_False] sprd_supplier = enabled(False) sprd_customer = enabled(False) #*---------------------------------------------/ [Form_Cmd_Edit_Del_Upd_False] this = subroutine(Sub_Cmd_Edit_Del_Upd_False) #*---------------------------------------------/ [Form_Cmd_Edit_Del_Upd_True] this = subroutine(Sub_Cmd_Edit_Del_Upd_True) #*---------------------------------------------/ ################################## ## Subroutine ## ################################## #システム日付セット [Sub_SysDate] #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_dts_yyyymmdd = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day) #----------------------------------------------/ [Sub_YMD_KBN_Enabled_True] txt_dts_year = enabled(True) txt_dts_month = enabled(True) txt_dts_day = enabled(True) cbo_div_product = enabled(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = enabled(True) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #----------------------------------------------/ [Sub_YMD_KBN_Enabled_False] txt_dts_year = enabled(False) txt_dts_month = enabled(False) txt_dts_day = enabled(False) cbo_div_product = enabled(False) #2014.03.10 M.Inoue Start txt_cd_supplier_search = enabled(False) txt_cd_customer_search = enabled(False) cbo_name_supplier_search = enabled(False) cbo_name_customer_search = enabled(False) #2014.03.10 M.Inoue End #2004.03.18 konsihi 月単位の棚卸入力に変更 start fra_entry_umu = enabled(False) #2004.03.18 konsihi 月単位の棚卸入力に変更 end #---------------------------------------------/ [Sub_CommonInputUnit_True] txt_Zen_Weight = enabled(True) #2014.02.07 M.Inoue パレット対応 start #txt_Zen_Pallet = enabled(True) #2014.02.07 M.Inoue パレット対応 end txt_weight = enabled(True) #2014.02.07 M.INoue パレット対応 start #txt_pallet = enabled(True) #2014.02.07 M.INoue パレット対応 end txt_unit_price = enabled(True) txt_remarks = enabled(True) #---------------------------------------------/ [Sub_CommonInputUnit_False] txt_Zen_Weight = enabled(False) #2014.02.07 M.Inoue パレット対応 start txt_Zen_Pallet = enabled(False) #2014.02.07 M.Inoue パレット対応 end txt_weight = enabled(False) #2014.02.07 M.INoue パレット対応 start txt_pallet = enabled(False) #2014.02.07 M.INoue パレット対応 end txt_unit_price = enabled(False) txt_remarks = enabled(False) #---------------------------------------------/ [Sub_WP_Enabled_False] txt_cd_supplier = enabled(False) cbo_name_supplier = enabled(False) txt_cd_shipment = enabled(False) cbo_name_shipment = enabled(False) txt_cd_wp = enabled(False) cbo_name_wp = enabled(False) cbo_name_grade_supplier = enabled(False) #---------------------------------------------/ [Sub_WP_Enabled_True] txt_cd_supplier = enabled(True) cbo_name_supplier = enabled(True) txt_cd_shipment = enabled(True) cbo_name_shipment = enabled(True) txt_cd_wp = enabled(True) cbo_name_wp = enabled(True) cbo_name_grade_supplier = enabled(True) #---------------------------------------------/ [Sub_Product_Enabled_False] txt_cd_customer = enabled(False) cbo_name_customer = enabled(False) txt_cd_delivery = enabled(False) cbo_name_delivery = enabled(False) txt_cd_product = enabled(False) cbo_name_product = enabled(False) #2014.02.06 M.Inoue 倉庫対応 start txt_cd_warehouse = enabled(False) cbo_name_warehouse = enabled(False) #2014.02.06 M.Inoue 倉庫対応 end #cbo_name_grade_customer = enabled(False) #---------------------------------------------/ [Sub_Product_Enabled_True] txt_cd_customer = enabled(True) cbo_name_customer = enabled(True) txt_cd_delivery = enabled(True) cbo_name_delivery = enabled(True) txt_cd_product = enabled(True) cbo_name_product = enabled(True) #2014.02.06 M.Inoue 倉庫対応 start txt_cd_warehouse = enabled(True) cbo_name_warehouse = enabled(True) #2014.02.06 M.Inoue 倉庫対応 end #cbo_name_grade_customer = enabled(True) #---------------------------------------------/ [Sub_Set_Field_Name] sprd_supplier = configlistfieldnames(cd_supplier,name_supplier,cd_shipment,name_shipment,cd_wp,name_wp,name_grade,unit_price,weight,money,cd_grade,no_adjustment_supplier,dt_adjustment,dts_year,dts_month,dts_day,dt_regist,dt_update,dt_delete,id_regist,id_update,id_delete,note,flg) #2014.02.06 M.Inoue 倉庫対応 start sprd_customer = configlistfieldnames(cd_customer,name_customer,cd_delivery,name_delivery,cd_product,name_product,cd_warehouse,name_warehouse,name_grade,unit_price,weight,money,pallet,cd_grade,no_adjustment_customer,dt_adjustment,dts_year,dts_month,dts_day,dt_regist,dt_update,dt_delete,id_regist,id_update,id_delete,note,flg) #sprd_customer = configlistfieldnames(cd_customer,name_customer,cd_delivery,name_delivery,cd_product,name_product,name_grade,unit_price,weight,money,cd_grade,no_adjustment_customer,dt_adjustment,dts_year,dts_month,dts_day,dt_regist,dt_update,dt_delete,id_regist,id_update,id_delete,note,flg) #2014.02.06 M.Inoue 倉庫対応 end #2014.03.10 M.Inoue Start [Sub_Customer_Search] txt_cd_supplier_search = enabled(False) cbo_name_supplier_search = enabled(False) txt_cd_supplier_search = string() cbo_name_supplier_search = string() txt_cd_customer_search = enabled(True) cbo_name_customer_search = enabled(True) cbo_name_customer_search = loadcombo(activecustomer,CD_CUSTOMER,NAME_CUSTOMER,true,txt_dts_yyyymmdd) [Sub_Supplier_Search] txt_cd_supplier_search = enabled(True) cbo_name_supplier_search = enabled(True) txt_cd_customer_search = enabled(False) cbo_name_customer_search = enabled(False) txt_cd_customer_search = string() cbo_name_customer_search = string() cbo_name_supplier_search = loadcombo(activesupplier,CD_SUPPLIER,NAME_SUPPLIER,true,txt_dts_yyyymmdd) #2014.03.10 M.Inoue End [Sub_FixedMultply] txt_money = fixedmultiply(txt_marume,txt_keta,txt_weight,txt_unit_price) #---------------------------------------------/ ###※隠しコントロール [Sub_Debug_False] txt_mode = visible(False) txt_termid = visible(False) txt_dts_yyyymmdd = visible(False) txt_no_adjust = visible(False) txt_subselected = visible(False) txt_dts_yyyymmdd = visible(False) txt_div_product = visible(False) txt_wk_cd_grade = visible(False) txt_cd_grade_supplier = visible(False) txt_wk_cd_grade2 = visible(False) txt_cd_grade_customer = visible(False) txt_edit_mode = visible(False) txt_maxrows_count = visible(False) txt_ymd_mode = visible(False) txt_marume = visible(False) txt_keta = visible(False) txt_wk_weight = visible(False) txt_wk_weight2 = visible(False) txt_wk_pallet = visible(False) #----------------------------------------------/ [Sub_Debug_True] txt_mode = visible(True) txt_termid = visible(True) txt_dts_yyyymmdd = visible(True) txt_no_adjust = visible(True) txt_subselected = visible(True) txt_dts_yyyymmdd = visible(True) txt_div_product = visible(True) txt_wk_cd_grade = visible(True) txt_cd_grade_supplier = visible(True) txt_wk_cd_grade2 = visible(True) txt_cd_grade_customer = visible(True) txt_edit_mode = visible(True) txt_maxrows_count = visible(True) txt_ymd_mode = visible(True) txt_marume = visible(True) txt_keta = visible(True) txt_wk_weight = visible(True) txt_wk_weight2 = visible(True) txt_wk_pallet = visible(False) #----------------------------------------------/ [Sub_SprdSupplier_Visible_True] sprd_supplier = enabled(False) sprd_customer = enabled(False) sprd_supplier = visible(True) sprd_customer = visible(False) #----------------------------------------------/ [Sub_SprdCustomer_Visible_True] sprd_supplier = enabled(False) sprd_customer = enabled(False) sprd_supplier = visible(False) sprd_customer = visible(True) #----------------------------------------------/ [Sub_SprdSupplier_True] sprd_supplier = visible(True) sprd_supplier = enabled(True) sprd_customer = visible(False) sprd_customer = enabled(False) #----------------------------------------------/ [Sub_SprdCustomer_True] sprd_supplier = visible(False) sprd_customer = visible(True) sprd_supplier = enabled(False) sprd_customer = enabled(True) #----------------------------------------------/ [Sub_Cmd_Edit_Del_Upd_False] cmd_listupdate = enabled(False) cmd_listdelete = enabled(False) #----------------------------------------------/ [Sub_Cmd_Edit_Del_Upd_True] cmd_listupdate = enabled(True) cmd_listdelete = enabled(True) #----------------------------------------------/ [Sub_Cmd_Edit_False] cmd_clear = enabled(False) cmd_listedit = enabled(False) cmd_listupdate = enabled(False) cmd_listdelete = enabled(False) #---------------------------------------------- [Sub_Cmd_Edit_True] cmd_clear = enabled(True) cmd_listedit = enabled(True) cmd_listupdate = enabled(True) cmd_listdelete = enabled(True) #----------------------------------------------/ [Sub_Cmd_StartInput_True] cmd_start_input = enabled(True) cmd_save = enabled(False) cmd_search = enabled(False) #----------------------------------------------/ [Sub_Shishagonyu] txt_marume = string(round) txt_keta = string(0) #----------------------------------------------/ #〜以下Cookie対応〜 #Cookie [Sub_get_cookie] txt_dts_year = getcookie(year) txt_dts_month = getcookie(month) txt_dts_day = getcookie(day) txt_dts_yyyymmdd = getcookie(yyyymmdd) txt_div_product = getcookie(div) cbo_div_product = copystring(txt_div_product) txt_div_product = copystring(cbo_div_product) [Sub_set_cookie] txt_dts_year = setcookie(year) txt_dts_month = setcookie(month) txt_dts_day = setcookie(day) txt_dts_yyyymmdd = setcookie(yyyymmdd) txt_div_product = setcookie(div) #Cookieをはずす場合（#をつける）は this = subroutine(Sub_SysDate)の#をはずし有効にして下さい。 #Sub_SysDateでサーバー日付をセットしています。 ## 処理選択表示 [Sub_dispInsMode] cmd_ins = backcolor(&HFFDFFF) cmd_upd = backcolor(&H8000000F&) [Sub_dispUpdMode] cmd_ins = backcolor(&H8000000F&) cmd_upd = backcolor(&HFFDFFF)