#--------------------------------------------------
# メイン処理
#--------------------------------------------------
## 初期処理
[Form_Init]
this = centering
this = subroutine(Sub_loadStaticCombos)
#2014.03.11 tsujimoto 特記事項項目変更　start
#2004.03.12 konishi 特記事項項目変更　start
#spd_list = configlistfieldnames(dt_derivery_product,no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,tm_finished,note_keikou,note_kyouzatsubutsu,note_arumi,note_shirobutu,note,ratio_moist,cd_grade_product,tm_finished_hour,tm_finished_minute,cd_note,no_derivery_product,dts_year,dts_month,dts_day)
spd_list = configlistfieldnames(txt_div_ship,txt_type,dt_derivery_product,no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,tm_finished,note_keikou,note_kyouzatsubutsu,note_arumi,note_shirobutu,note,ratio_moist,cd_grade_product,tm_finished_hour,tm_finished_minute,cd_note,no_derivery_product,dts_year,dts_month,dts_day)
#spd_list = configlistfieldnames(no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,tm_finished,note_keikou,note_zanpori,note_irobutu,note,ratio_moist,cd_grade_product,tm_finished_hour,tm_finished_minute,cd_note,no_derivery_product)
##spd_list = configlistfieldnames(no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,weight_moist,tm_finished,note,ratio_moist,cd_grade_product,tm_finished_hour,tm_finished_minute,cd_note,no_derivery_product)
#2004.03.12 konishi 特記事項項目変更　end
#2014.03.11 tsujimoto 特記事項項目変更　end
spd_summary = configlistfieldnames(grade,weight_moist,ratio_moist,weight_dry)
#2014.04.11 M.Inoue start
Frame9 = visible(false)
#2014.04.11 M.Inoue end
cmd_TagPrint = enabled(false)
this = subroutine(Sub_debugOff)
#this = subroutine(Sub_debugOn)
@form = changed(false)


## 新規登録モード
[Form_Insert]
this = eventlocked(true)
this = subroutine(Sub_Init)
txt_editmode = string(ins)
this = subroutine(Sub_dispInsMode)
this = subroutine(Sub_loadInitialItems)
this = subroutine(Sub_loadNowDateIns)
this = subroutine(Sub_unlockedHeaderIns)
this = subroutine(Sub_refreshHeader)
this = subroutine(Sub_lockedBody)
#2014.04.11 M.Inoue start
Frame9 = visible(false)
#2014.04.11 M.Inoue end
this = eventlocked(false)
@form = changed(false)
txt_dts_year = setfocus()

## 修正モード
[Form_PreUpdate]
this = eventlocked(true)
this = subroutine(Sub_Init)
txt_editmode = string(upd)
this = subroutine(Sub_dispUpdMode)
this = subroutine(Sub_loadNowDateUpd)
this = subroutine(Sub_unlockedHeaderUpd)
this = subroutine(Sub_loadHeaderCombos)
this = subroutine(Sub_refreshHeader)
this = subroutine(Sub_lockedBody)
this = subroutine(Sub_loadSearchCombos)
#2014.04.11 M.Inoue start
Frame9 = visible(true)
#2014.04.11 M.Inoue end
this = eventlocked(false)
@form = changed(false)
txt_dts_year = setfocus()

## 受入開始(新規)
[Form_EditIns]
this = eventlocked(true)
this = subroutine(Sub_lockedHeader)
this = subroutine(Sub_unlockedBodyIns)
this = subroutine(Sub_refreshBatch)
this = subroutine(Sub_loadObjects)
this = subroutine(Sub_loadSearchCombos)
this = eventlocked(false)
txt_weight_moist = setfocus()
tim_auto = enabled(true)

## 受入開始(修正)
[Form_EditUpd]
this = eventlocked(true)
this = subroutine(Sub_lockedHeader)
this = subroutine(Sub_unlockedBodyUpd)
this = subroutine(Sub_clearHeader)
this = subroutine(Sub_clearMiddleUpd)
this = subroutine(Sub_loadObjects)
txt_cd_customer = setfocus()
this = eventlocked(false)

## キャンセル処理
[Form_CancelIns]
this = subroutine(Form_Insert)
[Form_CancelUpd]
this = subroutine(Form_PreUpdate)

## クリア処理(新規)
[Form_ClearIns]
this = eventlocked(true)
this = subroutine(Sub_refreshBatch)
this = eventlocked(false)

## クリア処理(修正)
[Form_ClearUpd]
this = subroutine(Sub_clearHeader)
this = subroutine(Sub_clearMiddleUpd)
this = subroutine(Sub_unlockedListUpd)

## 新規保存後処理
[Form_SaveInsFinish]
@form = subroutine(Sub_saveInitialItems)
@form = subroutine(Form_EditIns)

## 修正保存後処理
[Form_SaveUpdFinish]
@form = subroutine(Sub_saveBodyItems)
this = subroutine(Form_EditUpd)

## 削除保存後処理
[Form_SaveDelFinish]
this = subroutine(Form_EditUpd)

## 明細内容の反映
[Form_SettingMiddle]
this = eventlocked(true)
this = subroutine(Sub_refreshMiddle)
this = eventlocked(false)

## 明細修正前処理
[Form_ListUpdStart]
this = eventlocked(true)
this = subroutine(Sub_lockedListUpd)
this = subroutine(Sub_refreshMiddle)
txt_cd_customer = setfocus()
this = eventlocked(false)

## 明細削除前処理
[Form_ListDelStart]
this = eventlocked(true)
this = subroutine(Sub_lockedListDel)
this = subroutine(Sub_refreshMiddle)
txt_cd_customer = setfocus()
this = eventlocked(false)

## 故紙在庫読込時処理
[Form_LoadStockWp]
this = subroutine(Sub_calcMoneyWp)

## 最新状態へ更新
[Form_Refresh]
@form = eventlocked(true)
@form = subroutine(Sub_loadNowDateIns)
@form = subroutine(Sub_loadObjects)
@form = subroutine(Sub_loadNowTime)
@form = subroutine(Sub_loadPallet)
@form = eventlocked(false)

#--------------------------------------------------
# イベントトラップ
#--------------------------------------------------
## 受入日付
[txt_dts_year_LostFocus]
this = formatstring(0000)
@form = subroutine(Sub_changedDts)
[txt_dts_month_LostFocus]
this = formatstring(00)
@form = subroutine(Sub_changedDts)
[txt_dts_day_LostFocus]
this = formatstring(00)
@form = subroutine(Sub_changedDts)

## 担当者
[txt_cd_staff_LostFocus]
@form = eventlocked(true)
cmb_cd_staff = copystring(txt_cd_staff)
txt_cd_staff = copystring(cmb_cd_staff)
@form = eventlocked(false)
[cmb_cd_staff_Click]
@form = eventlocked(true)
txt_cd_staff = copystring(cmb_cd_staff)
@form = eventlocked(false)

## パルパー
[txt_cd_pulper_LostFocus]
@form = eventlocked(true)
cmb_cd_pulper = copystring(txt_cd_pulper)
@form = eventlocked(false)
[cmb_cd_pulper_Click]
@form = eventlocked(true)
txt_cd_pulper = copystring(cmb_cd_pulper)
@form = eventlocked(false)

## 得意先
[txt_cd_customer_LostFocus]
@form = eventlocked(true)
cmb_cd_customer = copystring(txt_cd_customer)
txt_cd_customer = copystring(cmb_cd_customer)
@form = subroutine(Sub_changedCustomer)
@form = eventlocked(false)
[cmb_cd_customer_Click]
@form = eventlocked(true)
txt_cd_customer = copystring(cmb_cd_customer)
@form = subroutine(Sub_changedCustomer)
@form = eventlocked(false)

## 得意先(検索用)
[txt_cd_customer_s_LostFocus]
@form = eventlocked(true)
cmb_cd_customer_s = copystring(txt_cd_customer_s)
txt_cd_customer_s = copystring(cmb_cd_customer_s)
@form = eventlocked(false)
[cmb_cd_customer_s_Click]
@form = eventlocked(true)
txt_cd_customer_s = copystring(cmb_cd_customer_s)
@form = eventlocked(false)

## 納品先
[txt_cd_derivery_LostFocus]
@form = eventlocked(true)
cmb_cd_derivery = copystring(txt_cd_derivery)
txt_cd_derivery = copystring(cmb_cd_derivery)
@form = subroutine(Sub_changedDerivery)
@form = eventlocked(false)
[cmb_cd_derivery_Click]
@form = eventlocked(true)
txt_cd_derivery = copystring(cmb_cd_derivery)
@form = subroutine(Sub_changedDerivery)
@form = eventlocked(false)

## 納品先(検索用)
[txt_cd_derivery_s_LostFocus]
@form = eventlocked(true)
cmb_cd_derivery_s = copystring(txt_cd_derivery_s)
txt_cd_derivery_s = copystring(cmb_cd_derivery_s)
@form = eventlocked(false)
[cmb_cd_derivery_s_Click]
@form = eventlocked(true)
txt_cd_derivery_s = copystring(cmb_cd_derivery_s)
@form = eventlocked(false)

## 製品
[txt_cd_product_LostFocus]
@form = eventlocked(true)
cmb_cd_product = copystring(txt_cd_product)
txt_cd_product = copystring(cmb_cd_product)
@form = subroutine(Sub_changedProduct)
@form = eventlocked(false)
[cmb_cd_product_Click]
@form = eventlocked(true)
txt_cd_product = copystring(cmb_cd_product)
@form = subroutine(Sub_changedProduct)
@form = eventlocked(false)

## 製品(検索用)
[txt_cd_product_s_LostFocus]
@form = eventlocked(true)
cmb_cd_product_s = copystring(txt_cd_product_s)
txt_cd_product_s = copystring(cmb_cd_product_s)
@form = eventlocked(false)
[cmb_cd_product_s_Click]
@form = eventlocked(true)
txt_cd_product_s = copystring(cmb_cd_product_s)
@form = eventlocked(false)

## 倉庫
[txt_cd_warehouse_LostFocus]
@form = eventlocked(true)
cmb_cd_warehouse = copystring(txt_cd_warehouse)
txt_cd_warehouse = copystring(cmb_cd_warehouse)
@form = subroutine(Sub_changedWarehouse)
@form = eventlocked(false)
[cmb_cd_warehouse_Click]
@form = eventlocked(true)
txt_cd_warehouse = copystring(cmb_cd_warehouse)
@form = subroutine(Sub_changedWarehouse)
@form = eventlocked(false)


## タイプ
[txt_name_grade_product_LostFocus]

##仕上時刻(時)
[txt_tm_finished_hour_LostFocus]

##仕上時刻(分)
[txt_tm_finished_minute_LostFocus]

## パレットNO
[txt_no_pallet_LostFocus]
@form = eventlocked(true)
cmb_no_pallet = copystring(txt_no_pallet)
@form = eventlocked(false)
[cmb_no_pallet_Click]
@form = eventlocked(true)
txt_no_pallet = copystring(cmb_no_pallet)
@form = eventlocked(false)

## 水分率
[txt_ratio_moist_LostFocus]
@form = subroutine(Sub_calcWeightDry)

## 特記事項
#2004.03.10 konishi  特記事項項目変更	start
[txt_note_LostFocus]
#cmb_note = copystring(txt_note)
[cmb_note_Click]
#txt_note = copystring(cmb_note)
#2004.03.10 konishi  特記事項項目変更	end

## 含水重量
[txt_weight_moist_LostFocus]
@form = subroutine(Sub_calcWeightDry)

## タイマー
[tim_auto_Timer]
@form = action(refresh,auto)

### Del M.Tsujinaka 2003/06/11 自動更新を削除 Start
#@form = action(save,auto)
### Del M.Tsujinaka 2003/06/11 自動更新を削除 End

#--------------------------------------------------
# サブルーチン
#--------------------------------------------------
## 初期処理
[Sub_Init]
@form           = clearall
spd_list        = setlistcount(0)
txt_termid      = termid
txt_cd_pulper   = string(1)
tim_auto        = enabled(false)
txt_freemessage = message(NSP0040,info.moistinfo)

## ヘッダ部の整合性をとる
[Sub_refreshHeader]
@form = subroutine(Sub_loadHeaderCombos)
cmb_cd_staff      = copystring(txt_cd_staff)
cmb_cd_pulper     = copystring(txt_cd_pulper)
txt_cd_staff      = copystring(cmb_cd_staff)
txt_cd_pulper     = copystring(cmb_cd_pulper)

## 中央部(投入情報)の整合性をとる
[Sub_refreshMiddle]
@form = subroutine(Sub_loadMiddleCombos)
cmb_cd_staff      = copystring(txt_cd_staff)
cmb_cd_customer   = copystring(txt_cd_customer)
cmb_cd_derivery   = copystring(txt_cd_derivery)
cmb_cd_product    = copystring(txt_cd_product)
cmb_cd_warehouse    = copystring(txt_cd_warehouse)
txt_cd_staff      = copystring(cmb_cd_staff)
txt_cd_customer   = copystring(cmb_cd_customer)
txt_cd_derivery   = copystring(cmb_cd_derivery)
txt_cd_warehouse    = copystring(cmb_cd_warehouse)
@form = subroutine(Sub_changedProduct)
cmb_no_pallet     = copystring(txt_no_pallet)
#2004.03.10 konishi  特記事項項目変更	start
#cmb_note          = copystring(txt_note)
#2004.03.10 konishi  特記事項項目変更	end
@form             = subroutine(Sub_changedTmfinished)
@form             = subroutine(Sub_calcWeightDry)

## 固定コンボボックス作成
[Sub_loadStaticCombos]
cmb_cd_staff  = loadcombo(activestaff,cd_staff,name_staff,true)
cmb_cd_pulper = loadcombo(pulper,cd_pulper,name_pulper,false)
#2004.03.10 konishi  特記事項項目変更	del start
####cmb_note      = loadcombo(note,cd_note,note,false)
#cmb_note      = loadcombo(note,note,note,false)
#2004.03.10 konishi  特記事項項目変更	del end

## ヘッダ部のコンボボックス作成
[Sub_loadHeaderCombos]

## 中央部(仕上情報)のコンボボックス作成
[Sub_loadMiddleCombos]
cmb_cd_customer = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_derivery_product)
cmb_cd_derivery = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_derivery_product,txt_cd_customer)
cmb_cd_product  = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_derivery_product,txt_cd_derivery)
cmb_cd_warehouse = loadcombo(activewarehouseall,cd_warehouse,name_warehouse,true,txt_dt_derivery_product)

## ヘッダ部のクリア
[Sub_clearHeader]
txt_cd_staff           = clear
#txt_cd_customer_s        = clear
#txt_cd_derivery_s        = clear
#txt_cd_product_s         = clear

## 中央部のクリア
[Sub_clearMiddleIns]
txt_cd_customer        = clear
txt_cd_derivery        = clear
txt_cd_product         = clear
txt_cd_warehouse       = clear
txt_this_dt_shipslip   = clear
txt_this_no_batch      = clear
txt_tm_finished_hour   = clear
txt_tm_finished_minute = clear
txt_weight_moist       = clear
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
txt_weight_dry         = clear
chk_edit_weight_dry    = clear
txt_note               = clear
#2004.03.10 konishi  特記事項項目変更	start
txt_note_keikou        = clear
#txt_note_zanpori       = clear
#txt_note_irobutu       = clear
txt_note_kyouzatsubutsu        = clear
txt_note_arumi        = clear
txt_note_shirobutsu        = clear
#2004.03.10 konishi 特記事項項目変更	end
txt_ratio_moist        = clear
txt_no_pallet          = clear
@form                  = subroutine(Sub_loadInitialBodyItems)
@form                  = subroutine(Sub_refreshMiddle)
[Sub_clearMiddleUpd]
txt_cd_customer        = clear
txt_cd_derivery        = clear
txt_cd_product         = clear
txt_cd_warehouse       = clear
txt_this_dt_shipslip   = clear
txt_this_no_batch      = clear
txt_tm_finished_hour   = clear
txt_tm_finished_minute = clear
txt_weight_moist       = clear
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
txt_weight_dry         = clear
chk_edit_weight_dry    = clear
txt_note               = clear
#2004.03.10 konishi 特記事項項目変更	start
txt_note_keikou        = clear
#txt_note_zanpori       = clear
#txt_note_irobutu       = clear
txt_note_kyouzatsubutsu        = clear
txt_note_arumi        = clear
txt_note_shirobutsu        = clear
#2004.03.10 konishi 特記事項項目変更	end
txt_ratio_moist        = clear
txt_no_pallet          = clear
@form                  = subroutine(Sub_refreshMiddle)

## ヘッダ部のロック
[Sub_lockedHeader]
txt_dts_year    = enabled(false)
txt_dts_month   = enabled(false)
txt_dts_day     = enabled(false)
txt_cd_staff    = enabled(false)
cmb_cd_staff    = enabled(false)
cmb_cd_pulper   = enabled(false)
cmd_edit        = enabled(false)
cmd_subedit      = enabled(false)
txt_cd_customer_s        = enabled(false)
cmb_cd_customer_s        = enabled(false)
txt_cd_derivery_s        = enabled(false)
cmb_cd_derivery_s        = enabled(false)
txt_cd_product_s         = enabled(false)
cmb_cd_product_s         = enabled(false)
#2016.11.15 KSP K.Takahashi 出荷済み条件を追加　
chk_syukkazumi           = enabled(false)  

## ヘッダ部のロック解除(新規)
[Sub_unlockedHeaderIns]
txt_dts_year    = enabled(false)
txt_dts_month   = enabled(false)
txt_dts_day     = enabled(false)
txt_cd_staff    = enabled(true)
cmb_cd_staff    = enabled(true)
#cmb_cd_pulper   = enabled(true)
cmb_cd_pulper   = enabled(false)
cmd_edit        = enabled(true)
cmd_subedit     = enabled(false)
cmd_edit        = string(受入開始)
txt_cd_customer_s        = enabled(false)
cmb_cd_customer_s        = enabled(false)
txt_cd_derivery_s        = enabled(false)
cmb_cd_derivery_s        = enabled(false)
txt_cd_product_s         = enabled(false)
cmb_cd_product_s         = enabled(false)
#2016.11.15 KSP K.Takahashi 出荷済み条件を追加　
chk_syukkazumi           = enabled(false)  

## ヘッダ部のロック解除(修正/削除)
[Sub_unlockedHeaderUpd]
txt_dts_year    = enabled(true)
txt_dts_month   = enabled(true)
txt_dts_day     = enabled(true)
#txt_cd_staff    = enabled(true)
txt_cd_staff    = enabled(false)
#cmb_cd_staff    = enabled(true)
cmb_cd_staff    = enabled(false)
#cmb_cd_pulper   = enabled(true)
cmb_cd_pulper   = enabled(false)
cmd_edit        = enabled(true)
cmd_subedit     = enabled(true)
cmd_edit        = string(記入済  検索)
txt_cd_customer_s        = enabled(true)
cmb_cd_customer_s        = enabled(true)
txt_cd_derivery_s        = enabled(true)
cmb_cd_derivery_s        = enabled(true)
txt_cd_product_s         = enabled(true)
cmb_cd_product_s         = enabled(true)
#2016.11.15 KSP K.Takahashi 出荷済み条件を追加　
chk_syukkazumi           = enabled(true)  

## 本体のロック
[Sub_lockedBody]
txt_cd_customer        = enabled(false)
cmb_cd_customer        = enabled(false)
txt_cd_derivery        = enabled(false)
cmb_cd_derivery        = enabled(false)
txt_cd_product         = enabled(false)
cmb_cd_product         = enabled(false)
txt_cd_warehouse       = enabled(false)
cmb_cd_warehouse       = enabled(false)
txt_tm_finished_hour   = enabled(false)
txt_tm_finished_minute = enabled(false)
txt_weight_moist       = enabled(false)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
#txt_weight_dry         = enabled(false)
#chk_edit_weight_dry    = enabled(false)
cmb_no_pallet          = enabled(false)
#2004.03.10 konishi  特記事項項目変更	start
txt_name_grade_product =  enabled(false)
#cmb_note               = enabled(false)
txt_note_keikou        = enabled(false)
#txt_note_zanpori       = enabled(false)
#txt_note_irobutu       = enabled(false)
txt_note_kyouzatsubutsu        = enabled(false)
txt_note_arumi        = enabled(false)
txt_note_shirobutsu        = enabled(false)
#2004.03.10 konishi  特記事項項目変更	end
txt_ratio_moist        = enabled(false)
frm_ratio_moist        = visible(false)
this                   = subroutine(Sub_lockedList)
cmd_clear              = enabled(false)
cmd_save               = enabled(false)

## 本体のロック解除(新規)
[Sub_unlockedBodyIns]
#txt_cd_customer       = enabled(false)
#cmb_cd_customer       = enabled(false)
#txt_cd_derivery       = enabled(false)
#cmb_cd_derivery       = enabled(false)
#txt_cd_product        = enabled(false)
#cmb_cd_product        = enabled(false)
txt_cd_customer        = enabled(true)
cmb_cd_customer        = enabled(true)
txt_cd_derivery        = enabled(true)
cmb_cd_derivery        = enabled(true)
txt_cd_product         = enabled(true)
cmb_cd_product         = enabled(true)
txt_cd_warehouse       = enabled(true)
cmb_cd_warehouse       = enabled(true)
txt_tm_finished_hour   = enabled(false)
txt_tm_finished_minute = enabled(false)
txt_weight_moist       = enabled(true)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加(新規は入力不可)
#txt_weight_dry         = enabled(false)
#chk_edit_weight_dry    = enabled(false)
cmb_no_pallet          = enabled(false)
#2004.03.10 konishi  特記事項項目変更	start
txt_name_grade_product =  enabled(true)
#cmb_note               = enabled(true)
txt_note_keikou        = enabled(true)
#txt_note_zanpori       = enabled(true)
#txt_note_irobutu       = enabled(true)
txt_note_kyouzatsubutsu        = enabled(true)
txt_note_arumi        = enabled(true)
txt_note_shirobutsu        = enabled(true)
#2004.03.10 konishi  特記事項項目変更	end
txt_ratio_moist        = enabled(true)
frm_ratio_moist        = visible(false)
this                   = subroutine(Sub_unlockedListIns)
cmd_clear              = enabled(true)
cmd_save               = enabled(true)

## 本体のロック解除(修正)
[Sub_unlockedBodyUpd]
txt_cd_customer   = enabled(true)
cmb_cd_customer   = enabled(true)
txt_cd_derivery   = enabled(true)
cmb_cd_derivery   = enabled(true)
txt_cd_product    = enabled(true)
cmb_cd_product    = enabled(true)
txt_cd_warehouse  = enabled(true)
cmb_cd_warehouse  = enabled(true)
txt_name_grade_product = enabled(true)


#txt_tm_finished_hour   = enabled(true)
#txt_tm_finished_minute = enabled(true)
#txt_weight_moist       = enabled(true)
#cmb_no_pallet          = enabled(true)
#cmb_note               = enabled(true)
#txt_ratio_moist        = enabled(true)


frm_ratio_moist   = visible(true)
this              = subroutine(Sub_unlockedListUpd)

txt_tm_finished_hour   = enabled(true)
txt_tm_finished_minute = enabled(true)
txt_weight_moist       = enabled(true)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
#txt_weight_dry         = enabled(true)
#chk_edit_weight_dry    = enabled(true)
cmb_no_pallet          = enabled(true)
cmb_note               = enabled(true)
txt_ratio_moist        = enabled(true)



#cmd_clear         = enabled(false)
#cmd_save          = enabled(false)
cmd_clear         = enabled(false)
cmd_save          = enabled(true)

## 明細のロック
[Sub_lockedList]
#spd_list         = enabled(false)
txt_listeditmode = string()
cmd_listupdate   = enabled(false)
cmd_listdelete   = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	start
cmd_allupd       = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	end
cmd_TagPrint     = enabled(false)

## 明細のロック(修正)
[Sub_lockedListUpd]
txt_weight_moist    = enabled(true)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
#txt_weight_dry      = enabled(true)
#chk_edit_weight_dry = enabled(true)
#2004.03.10 konishi  特記事項項目変更	start
#cmb_note            = enabled(true)
txt_note_keikou     = enabled(true)
#txt_note_zanpori    = enabled(true)
#txt_note_irobutu    = enabled(true)
txt_note_kyouzatsubutsu        = enabled(true)
txt_note_arumi        = enabled(true)
txt_note_shirobutsu        = enabled(true)
#2004.03.10 konishi  特記事項項目変更	end
txt_ratio_moist     = enabled(true)
#spd_list            = enabled(false)
txt_listeditmode    = string()
cmd_clear           = enabled(true)
cmd_save            = enabled(true)
cmd_listupdate      = enabled(false)
cmd_listdelete      = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	start
cmd_allupd          = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	end
cmd_TagPrint        = enabled(false)
## K.TAKAHAHSI 2003.08.16 ADD 明細削除時は入力不可にする Start
txt_cd_customer     = enabled(true)
cmb_cd_customer     = enabled(true)
txt_cd_derivery     = enabled(true)
cmb_cd_derivery     = enabled(true)
txt_cd_product      = enabled(true)
cmb_cd_product      = enabled(true)
txt_cd_warehouse    = enabled(true)
cmb_cd_warehouse    = enabled(true)
txt_name_grade_product = enabled(true)
## K.TAKAHAHSI 2003.08.16 ADD 明細削除時は入力不可にする   End

## 明細のロック(削除)
[Sub_lockedListDel]
txt_weight_moist = enabled(false)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
#txt_weight_dry      = enabled(false)
#chk_edit_weight_dry = enabled(false)
#2004.03.10 konishi  特記事項項目変更	start
#cmb_note         = enabled(false)
txt_note_keikou  = enabled(false)
#txt_note_zanpori = enabled(false)
#txt_note_irobutu = enabled(false)
txt_note_kyouzatsubutsu        = enabled(false)
txt_note_arumi        = enabled(false)
txt_note_shirobutsu        = enabled(false)
#2004.03.10 konishi  特記事項項目変更	end
txt_ratio_moist  = enabled(false)
#spd_list         = enabled(false)
txt_listeditmode = string()
cmd_clear        = enabled(true)
cmd_save         = enabled(true)
cmd_listupdate   = enabled(false)
cmd_listdelete   = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	start
cmd_allupd       = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	end
cmd_TagPrint     = enabled(false)

## K.TAKAHAHSI 2003.08.16 ADD 明細削除時は入力不可にする Start
txt_cd_customer        = enabled(false)
cmb_cd_customer        = enabled(false)
txt_cd_derivery        = enabled(false)
cmb_cd_derivery        = enabled(false)
txt_cd_product         = enabled(false)
cmb_cd_product         = enabled(false)
txt_cd_warehouse       = enabled(false)
cmb_cd_warehouse       = enabled(false)
txt_name_grade_product = enabled(false)
## K.TAKAHAHSI 2003.08.16 ADD 明細削除時は入力不可にする   End


## 明細のロック解除(新規)
[Sub_unlockedListIns]
spd_list         = enabled(true)
txt_listeditmode = string()
cmd_listupdate   = enabled(false)
cmd_listdelete   = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	start
cmd_allupd       = enabled(false)
#2004.03.10 konishi add	 一括修正機能追加	end
cmd_TagPrint     = enabled(false)

## 明細のロック解除(修正)
[Sub_unlockedListUpd]
txt_weight_moist = enabled(false)
#2.16.11.15 KSP K.Takahashi 風管重量手入力追加
#txt_weight_dry       = enabled(false)
#chk_edit_weight_dry  = enabled(false)
#2004.03.10 konishi  特記事項項目変更	start
#cmb_note         = enabled(false)
txt_note_keikou  = enabled(false)
#txt_note_zanpori = enabled(false)
#txt_note_irobutu = enabled(false)
txt_note_kyouzatsubutsu        = enabled(false)
txt_note_arumi        = enabled(false)
txt_note_shirobutsu        = enabled(false)
#2004.03.10 konishi  特記事項項目変更	end
txt_ratio_moist  = enabled(false)
spd_list         = enabled(true)
txt_listeditmode = string()
cmd_clear        = enabled(false)
cmd_save         = enabled(false)
cmd_listupdate   = enabled(true)
cmd_listdelete   = enabled(true)
#2004.03.10 konishi add	 一括修正機能追加	start
cmd_allupd       = enabled(true)
#2004.03.10 konishi add	 一括修正機能追加	end
cmd_TagPrint     = enabled(true)

## 日付変更時の処理
[Sub_changedDts]
txt_dt_derivery_product = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day)

## 時刻変更時の処理
[Sub_changedTmfinished]
txt_tm_finished  = timeby2parts(txt_tm_finished_hour,txt_tm_finished_minute)

## 仕入先変更時の処理
[Sub_changedSupplier]
cmb_cd_shipment  = loadcombo(activeshipment,cd_shipment,name_shipment,true,txt_dt_derivery_product,txt_cd_supplier)
txt_cd_shipment  = copystring(cmb_cd_shipment)
@form            = subroutine(Sub_changedShipment)

## 荷送先変更時の処理
[Sub_changedShipment]
cmb_cd_wp        = loadcombo(activewp,cd_wp,name_grade,true,txt_dt_derivery_product,txt_cd_supplier,txt_cd_shipment)
txt_cd_wp        = copystring(cmb_cd_wp)
@form            = subroutine(Sub_changedWp)

## 銘柄変更時の処理
[Sub_changedWp]
txt_cd_wp_grade  = codeliststring(activewp,cd_grade,txt_dt_derivery_product,txt_cd_supplier,txt_cd_shipment,txt_cd_wp)
cmb_cd_grade     = copystring(txt_cd_wp_grade)

## 得意先変更時の処理
[Sub_changedCustomer]
cmb_cd_derivery  = loadcombo(activederivery,cd_derivery,name_derivery,true,txt_dt_derivery_product,txt_cd_customer)
txt_cd_derivery  = copystring(cmb_cd_derivery)
@form            = subroutine(Sub_changedDerivery)

## 納品先変更時の処理
[Sub_changedDerivery]
cmb_cd_product   = loadcombo(activeproduct,cd_product,name_product,true,txt_dt_derivery_product,txt_cd_derivery)
txt_cd_product   = copystring(cmb_cd_product)
@form            = subroutine(Sub_changedProduct)

## 製品変更時の処理
[Sub_changedProduct]
txt_cd_grade_product   = codeliststring(activeproduct,cd_gread,txt_dt_derivery_product,txt_cd_derivery,txt_cd_product)
txt_name_grade_product = codeliststring(activeproduct,name_gread,txt_dt_derivery_product,txt_cd_derivery,txt_cd_product)

## 風乾重量の計算
[Sub_calcWeightDry]
@form         = action(calcweightdry)

## パレットNOの取得
[Sub_loadPallet]
@form         = action(loadpallet)
txt_no_pallet = copystring(cmb_no_pallet)

## 日付変更(新規)
[Sub_loadNowDateIns]
#txt_dts_year  = sysdate(year,1000)
#txt_dts_month = sysdate(month,1000)
#txt_dts_day   = sysdate(day,1000)
@form          = sysdateparts(txt_dts_year,txt_dts_month,txt_dts_day,1000)
@form          = subroutine(Sub_changedDts)

## 日付変更(修正)
[Sub_loadNowDateUpd]
#txt_dts_year  = sysdate(year,1000)
#txt_dts_month = sysdate(month,1000)
#txt_dts_day   = sysdate(day,1000)
@form          = sysdateparts(txt_dts_year,txt_dts_month,txt_dts_day,1000)
@form          = subroutine(Sub_changedDts)

## 時刻変更
[Sub_loadNowTime]
#txt_tm_finished_year   = sysdate(year)
#txt_tm_finished_month  = sysdate(month)
#txt_tm_finished_day    = sysdate(day)
#txt_tm_finished_hour   = sysdate(hour)
#txt_tm_finished_minute = sysdate(minute)
@form = sysdatetimeparts(txt_tm_finished_year,txt_tm_finished_month,txt_tm_finished_day,txt_tm_finished_hour,txt_tm_finished_minute)
@form = subroutine(Sub_changedTmfinished)
@form = subroutine(Sub_loadBatchInfos)
@form = subroutine(Sub_refreshMiddle)

## 対応バッチ情報の取得
[Sub_loadBatchInfos]
@form = action(loadbatch)

## 登録一覧の作成
[Sub_loadObjects]
@form = action(loadobjects)

## 対応バッチ反映
[Sub_refreshBatch]
@form = subroutine(Sub_clearMiddleIns)
@form = subroutine(Sub_loadNowTime)
@form = subroutine(Sub_loadPallet)

## 初期値設定の読み込み
[Sub_loadInitialItems]
txt_cd_staff      = getcookie(cd_staff)
#txt_cd_pulper     = getcookie(cd_pulper)

## 初期値設定の読み込み
[Sub_loadInitialBodyItems]
txt_cd_customer   = getcookie(cd_customer)
txt_cd_derivery   = getcookie(cd_derivery)
txt_cd_product    = getcookie(cd_product)
txt_cd_warehouse  = getcookie(cd_warehouse)

## 初期値設定の書き込み
[Sub_saveInitialItems]
txt_cd_staff      = setcookie(cd_staff)
#txt_cd_pulper     = setcookie(cd_pulper)
txt_cd_customer   = setcookie(cd_customer)
txt_cd_derivery   = setcookie(cd_derivery)
txt_cd_product    = setcookie(cd_product)
txt_cd_warehouse  = setcookie(cd_warehouse)

## 処理選択表示
[Sub_dispInsMode]
cmd_ins         = backcolor(&HFFDFFF)
cmd_upd         = backcolor(&H8000000F&)
[Sub_dispUpdMode]
cmd_ins         = backcolor(&H8000000F&)
cmd_upd         = backcolor(&HFFDFFF)

##ヘッダ部検索用コンボボックス作成（20140130 M.Inoue)
[Sub_loadSearchCombos]
cmb_cd_customer_s = loadcombo(activecustomer,cd_customer,name_customer,true,txt_dt_derivery_product)
cmb_cd_derivery_s = loadcombo(activederivery_search,cd_derivery,name_derivery,true,txt_dt_derivery_product)
cmb_cd_product_s  = loadcombo(activeproduct_search,cd_product,name_product,true,txt_dt_derivery_product)


## デバッグ情報の制御
[Sub_debugOff]
txt_editmode            = visible(false)
txt_termid              = visible(false)
txt_dt_derivery_product = visible(false)
txt_cd_pulper           = visible(false)
txt_cd_grade_product    = visible(false)
txt_this_dt_shipslip    = visible(false)
txt_this_no_batch       = visible(false)
txt_no_pallet           = visible(false)
txt_note                = visible(false)
txt_weight_dry          = visible(false)
chk_edit_weight_dry     = visible(false)
txt_tm_finished         = visible(false)
txt_tm_finished_year    = visible(false)
txt_tm_finished_month   = visible(false)
txt_tm_finished_day     = visible(false)
txt_no_derivery_product = visible(false)
txt_div_inspect         = visible(false)
txt_listeditmode        = visible(false)
txt_listcount           = visible(false)
cmb_cd_pulper           = visible(false)
txt_div_ship            = visible(false)
txt_id_regist           = visible(false)
txt_dt_regist           = visible(false)
#2004.03.10 konishi add	 一括修正機能追加	start
txt_printmode           = visible(false)
#2004.03.10 konishi add	 一括修正機能追加	end
#2004.05.17 konishi add	 登録フラグの追加	start
txt_saveFlg            = visible(false)
#2004.03.10 konishi add	 登録フラグの追加	end
#2016.11.15 KSP K.Takahashi add	 仮水分率
txt_ratio_moist_sub    = visible(false)

[Sub_debugOn]
txt_editmode            = visible(true)
txt_termid              = visible(true)
txt_dt_derivery_product = visible(true)
txt_cd_pulper           = visible(true)
txt_cd_grade_product    = visible(true)
txt_this_dt_shipslip    = visible(true)
txt_this_no_batch       = visible(true)
txt_no_pallet           = visible(true)
txt_note                = visible(true)
txt_weight_dry          = visible(true)
chk_edit_weight_dry     = visible(true)
txt_tm_finished         = visible(true)
txt_tm_finished_year    = visible(true)
txt_tm_finished_month   = visible(true)
txt_tm_finished_day     = visible(true)
txt_no_derivery_product = visible(true)
txt_div_inspect         = visible(true)
txt_listeditmode        = visible(true)
txt_listcount           = visible(true)
cmb_cd_pulper           = visible(true)
txt_div_ship            = visible(true)
txt_id_regist           = visible(true)
txt_dt_regist           = visible(true)
#2004.03.10 konishi add	 一括修正機能追加	start
txt_printmode           = visible(true)
#2004.03.10 konishi add	 一括修正機能追加	end
#2004.05.17 konishi add	 登録フラグの追加	start
txt_saveFlg            = visible(true)
#2004.03.10 konishi add	 登録フラグの追加	end
#2016.11.15 KSP K.Takahashi add	 仮水分率
txt_ratio_moist_sub    = visible(true)