#############################################
# プログラム、Ａｃｔｉｏｎから呼ばれる処理
#############################################

#画面起動時
[Form_Init]
this                               = centering
txt_money_wp_disp                  = configinput(number,10)
txt_money_wp_no_freight            = configinput(number,10)
txt_total_money_wp                 = configinput(number,10)
txt_money_wp                       = configinput(number,10)
txt_tax                            = configinput(number,10)
txt_total_money_wp_no_freight      = configinput(number,10)
txt_money_wp_no_freight_disp       = configinput(number,10)
txt_tax_no_freight                 = configinput(number,10)
#2014.06.09 M.Inoue start
txt_weight_stock_temp              = configinput(number,10)
txt_money_stock_temp               = configinput(number,10)
#20150807 MATSUI DEL 小数点以下が表示されない
#txt_unit_price_stock_temp          = configinput(number,10)
#20150807 MATSUI DEL 小数点以下が表示されない
#2014.06.09 M.Inoue end
#2014.04.11 M.Inoue start
Frame10                            = visible(false)
#2014.04.11 M.Inoue end
#this                               = subroutine(Sub_Debug_ON)
this                               = subroutine(Sub_Debug_OFF)

#画面起動時＋キャンセルボタン
[Form_Start]
this                               = eventlocked(true)
this                               = clearall
txt_termid                         = termid
cmd_search                         = enabled(false)
txt_supplier_search                = enabled(False)
cmb_supplier_search                = enabled(False)
txt_shipment_search                = enabled(False)
cmb_shipment_search                = enabled(False)
txt_wp_search                      = enabled(False)
cmb_wp_search                      = enabled(False)
this                               = subroutine(Sub_SearchEnabled_False)
this                               = subroutine(Sub_InputEnabled_False)
this                               = subroutine(Sub_FootEnabled_False)
txt_no_receiveslip                 = enabled(false)
cmd_cancel                         = enabled(True)
this                               = eventlocked(false)


#新規＋修正＋削除ボタンの共有処理
[Form_Common]
this                               = eventlocked(true)
this                               = clearall
txt_percent                        = string(0.01)
txt_termid                         = termid
this                               = subroutine(Sub_SearchEnabled_True)
this                               = subroutine(Sub_Calc)
txt_marumekbn                      = string(round)
txt_marumeketa                     = string(0)
txt_dts_year                       = setfocus()
this                               = eventlocked(false)


#新規ボタン
[Form_Insert]
this                               = eventlocked(true)
txt_mode                           = string(ins)
txt_subselected                    = string(1)
this                               = subroutine(Sub_dispInsMode)
this                               = subroutine(Sub_Today)
#this                               = subroutine(Sub_GetCookie)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_Tax)
cmd_search                         = enabled(false)
txt_supplier_search                = enabled(False)
cmb_supplier_search                = enabled(False)
txt_shipment_search                = enabled(False)
cmb_shipment_search                = enabled(False)
txt_wp_search                      = enabled(False)
cmb_wp_search                      = enabled(False)
this                               = subroutine(Sub_InputEnabled_True)
this                               = subroutine(Sub_FootEnabled_True)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_Wp_Decided)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = changed(false)
#2014.04.11 M.Inoue start
Frame10                            = visible(false)
#2014.04.11 M.Inoue end
this                               = eventlocked(false)

#修正ボタン
[Form_Update]
this                               = eventlocked(true)
txt_mode                           = string(upd)
this                               = subroutine(Sub_dispUpdMode)
this                               = subroutine(Sub_Today)
this                               = subroutine(Sub_Date)
cmd_search                         = enabled(true)
txt_supplier_search                = enabled(true)
cmb_supplier_search                = enabled(true)
txt_shipment_search                = enabled(true)
cmb_shipment_search                = enabled(true)
txt_wp_search                      = enabled(true)
cmb_wp_search                      = enabled(true)
this                               = subroutine(Sub_InputEnabled_False)
this                               = subroutine(Sub_FootEnabled_False)
this                               = changed(false)
#2014.04.11 M.Inoue start
Frame10                            = visible(true)
#2014.04.11 M.Inoue end
this                               = eventlocked(false)


#削除ボタン
[Form_Delete]
this                               = eventlocked(true)
txt_mode                           = string(del)
this                               = subroutine(Sub_dispDelMode)
this                               = subroutine(Sub_Today)
this                               = subroutine(Sub_Date)
cmd_search                         = enabled(true)
txt_supplier_search                = enabled(true)
cmb_supplier_search                = enabled(true)
txt_shipment_search                = enabled(true)
cmb_shipment_search                = enabled(true)
txt_wp_search                      = enabled(true)
cmb_wp_search                      = enabled(true)
this                               = subroutine(Sub_InputEnabled_False)
this                               = subroutine(Sub_FootEnabled_False)
this                               = changed(false)
#2014.04.11 M.Inoue start
Frame10                            = visible(true)
#2014.04.11 M.Inoue end
this                               = eventlocked(false)


#修正ボタンからの受入履歴検索ボタン後の処理
[Form_Selected_Update]
this                               = eventlocked(true)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_InputEnabled_True)
this                               = subroutine(Sub_FootEnabled_True)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_FormatNum)
#2014.03.25 M.Inoue start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.25 M.Inoue end
txt_price_last                     = string()
txt_trnsport_last                  = string()
txt_area_last                      = string()
this                               = changed(false)
this                               = eventlocked(false)


#削除ボタンからの受入履歴検索ボタン後の処理
[Form_Selected_Delete]
this                               = eventlocked(true)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_InputEnabled_False)
this                               = subroutine(Sub_FootEnabled_True)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_FormatNum)
#2014.03.25 M.Inoue start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.25 M.Inoue end
this                               = changed(false)
this                               = eventlocked(false)

#新規登録後に呼ばれる処理
[Form_AfterSave]
#this                               = subroutine(Sub_SetCookie)

#2014.03.07 M.Inoue Start
[Form_Selected_Calc]
this                               = subroutine(Sub_Stock_WP)
this                               = subroutine(Sub_Stock_Calc)

[Form_Selected_Calc_Minus]
this                               = subroutine(Sub_Stock_WP)
this                               = subroutine(Sub_Stock_Calc_Minus)
#2014.03.07 M.Inoue End

#2016.07.04 M.Inoue Start
[Form_Update_Init]
this                               = subroutine(txt_supplier_search_LostFocus)
this                               = subroutine(txt_shipment_search_LostFocus)
this                               = subroutine(txt_wp_search_LostFocus)
#2016.07.04 M.Inoue end

#############################################
# 各コントロールのイベント処理
#############################################

#受入日付（年）ロストフォーカス
[txt_dts_year_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_Tax)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#受入日付（月）ロストフォーカス
[txt_dts_month_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_Tax)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#受入日付（日）ロストフォーカス
[txt_dts_day_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Date)
this                               = subroutine(Sub_Load_AllCombo)
this                               = subroutine(Sub_Tax)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#仕入先テストボックスロストフォーカス
[txt_supplier_LostFocus]
@form                              = eventlocked(true)
cmb_supplier                       = copystring(txt_supplier)
txt_supplier                       = copystring(cmb_supplier)
this                               = subroutine(Sub_LoadCombo_Shipment)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Wp)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)

#2014.03.06 M.Inoue start
#検索用仕入先テストボックスロストフォーカス
[txt_supplier_search_LostFocus]
@form                              = eventlocked(true)
cmb_supplier_search                = copystring(txt_supplier_search)
txt_supplier_search                = copystring(cmb_supplier_search)
@form                              = eventlocked(false)

#検索用仕入先コンボボックスクリック
[cmb_supplier_search_Click]
@form                              = eventlocked(true)
txt_supplier_search                = copystring(cmb_supplier_search)
@form                              = eventlocked(false)
#2014.03.06 M.Inoue end

#仕入先コンボボックスクリック
[cmb_supplier_Click]
@form                              = eventlocked(true)
txt_supplier                       = copystring(cmb_supplier)
this                               = subroutine(Sub_LoadCombo_Shipment)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Wp)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)


#荷送先テキストボックスロストフォーカス
[txt_shipment_LostFocus]
@form                              = eventlocked(true)
cmb_shipment                       = copystring(txt_shipment)
txt_shipment                       = copystring(cmb_shipment)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Wp)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)

#荷送先コンボボックスクリック
[cmb_shipment_Click]
@form                              = eventlocked(true)
txt_shipment                       = copystring(cmb_shipment)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Wp)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)

#2014.03.06 M.Inoue Start
#荷送先テキストボックスロストフォーカス
[txt_shipment_search_LostFocus]
@form                              = eventlocked(true)
cmb_shipment_search                = copystring(txt_shipment_search)
txt_shipment_search                = copystring(cmb_shipment_search)
@form                              = eventlocked(false)

#荷送先コンボボックスクリック
[cmb_shipment_search_Click]
@form                              = eventlocked(true)
txt_shipment_search                = copystring(cmb_shipment_search)
@form                              = eventlocked(false)
#2014.03.06 M.Inoue end


#銘柄テキストボックスロストフォーカス
[txt_wp_LostFocus]
@form                              = eventlocked(true)
cmb_wp                             = copystring(txt_wp)
txt_wp                             = copystring(cmb_wp)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)

#銘柄コンボボックスクリック
[cmb_wp_Click]
@form                              = eventlocked(true)
txt_wp                             = copystring(cmb_wp)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Grade_AutoSelected)
this                               = subroutine(Sub_Wp_Decided)
#2014.03.07 M.Inoue Start
this                               = subroutine(Sub_Fsc_Flg)
#2014.03.07 M.Inoue End
@form                              = eventlocked(false)

#2014.03.06 M.Inoue Start
#検索用銘柄テキストボックスロストフォーカス
[txt_wp_search_LostFocus]
@form                              = eventlocked(true)
cmb_wp_search                      = copystring(txt_wp_search)
txt_wp_search                      = copystring(cmb_wp_search)
@form                              = eventlocked(false)

#検索用銘柄コンボボックスクリック
[cmb_wp_search_Click]
@form                              = eventlocked(true)
txt_wp_search                      = copystring(cmb_wp_search)
@form                              = eventlocked(false)
#2014.03.06 M.Inoue End


#2014.02.12 M.Inoue 客先銘柄対応 start
#客先銘柄テキストボックスロストフォーカス
[txt_wp_supplier_LostFocus]
@form                              = eventlocked(true)
cmb_wp_supplier                    = copystring(txt_wp_supplier)
txt_wp_supplier                    = copystring(cmb_wp_supplier)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
@form                              = eventlocked(false)

#客先銘柄コンボボックスクリック
[cmb_wp_supplier_Click]
@form                              = eventlocked(true)
txt_wp_supplier                    = copystring(cmb_wp_supplier)
@form                              = eventlocked(false)
#2014.02.12 M.Inoue 客先銘柄対応 end


#タイプコンボボックスクリック
[cmb_grade_Click]
@form                              = eventlocked(true)
txt_grade                          = copystring(cmb_grade)
@form                              = eventlocked(false)

#運送会社テキストボックスロストフォーカス
[txt_trnsport_LostFocus]
@form                              = eventlocked(true)
cmb_trnsport                       = copystring(txt_trnsport)
txt_trnsport                       = copystring(cmb_trnsport)
this                               = subroutine(Sub_LoadCombo_Area)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#運送会社コンボボックスクリック
[cmb_trnsport_Click]
@form                              = eventlocked(true)
txt_trnsport                       = copystring(cmb_trnsport)
this                               = subroutine(Sub_LoadCombo_Area)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#地域テキストボックスロストフォーカス
[txt_area_LostFocus]
@form                              = eventlocked(true)
cmb_area                           = copystring(txt_area)
txt_area                           = copystring(cmb_area)
this                               = subroutine(Sub_Price_Freight)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#地域コンボボックスクリック
[cmb_area_Click]
@form                              = eventlocked(true)
txt_area                           = copystring(cmb_area)
this                               = subroutine(Sub_Price_Freight)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#単価テキストボックスロストフォーカス
[txt_unit_price_wp_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#重量テキストボックスロストフォーカス
[txt_weight_wp_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#運賃単価テキストボックスロストフォーカス
[txt_price_unit_freight_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#消費税率テキストボックスロストフォーカス
[txt_rate_tax_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc)
@form                              = eventlocked(false)

#金額テキストボックスロストフォーカス
[txt_money_wp_disp_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc_Money)
@form                              = eventlocked(false)

#運賃テキストボックスロストフォーカス
[txt_money_wp_no_freight_LostFocus]
@form                              = eventlocked(true)
this                               = subroutine(Sub_Calc_Money)
@form                              = eventlocked(false)



#############################################
# 共有処理 
#############################################

#本日日付をセット
[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)

#日付の書式を整える
[Sub_Date]
txt_dts_year                       = formatstring(0000)
txt_dts_month                      = formatstring(00)
txt_dts_day                        = formatstring(00)
txt_dt_receiveslip                 = dateby3parts(txt_dts_year,txt_dts_month,txt_dts_day)

#消費税率
[Sub_Tax]
@form                              = action(tax,txt_rate_tax,txt_dt_receiveslip,1)

#再計算
[Sub_Calc]
#txt_money_wp_disp                  = multiply(txt_unit_price_wp,txt_weight_wp)
#txt_money_wp_no_freight            = multiply(txt_price_unit_freight,txt_weight_wp)
txt_money_wp_disp                  = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_unit_price_wp,txt_weight_wp)
txt_money_wp_no_freight            = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_price_unit_freight,txt_weight_wp)
txt_money_wp                       = add(txt_money_wp_disp,txt_money_wp_no_freight)
txt_money_wp_no_freight_disp       = copystring(txt_money_wp_disp)
txt_tax                            = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_money_wp,txt_rate_tax,txt_percent)
txt_total_money_wp                 = add(txt_money_wp,txt_tax)
txt_tax_no_freight                 = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_money_wp_no_freight_disp,txt_rate_tax,txt_percent)
txt_total_money_wp_no_freight      = add(txt_money_wp_no_freight_disp,txt_tax_no_freight)
this                               = subroutine(Sub_FormatNum)


#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ---------- Start
#再計算
[Sub_Calc_Money]
txt_money_wp                       = add(txt_money_wp_disp,txt_money_wp_no_freight)
txt_money_wp_no_freight_disp       = copystring(txt_money_wp_disp)
txt_tax                            = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_money_wp,txt_rate_tax,txt_percent)
txt_total_money_wp                 = add(txt_money_wp,txt_tax)
txt_tax_no_freight                 = fixedmultiply(txt_marumekbn,txt_marumeketa,txt_money_wp_no_freight_disp,txt_rate_tax,txt_percent)
txt_total_money_wp_no_freight      = add(txt_money_wp_no_freight_disp,txt_tax_no_freight)
this                               = subroutine(Sub_FormatNum)
#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ----------   End

#数値の書式設定
[Sub_FormatNum]
#txt_money_wp_disp                 = formatstring(#########0.00)
#txt_money_wp_no_freight           = formatstring(#########0.00)
#txt_money_wp                      = formatstring(#########0.00)
#txt_money_wp_no_freight_disp      = formatstring(#########0.00)
txt_tax                            = formatstring(#########0)
txt_tax_no_freight                 = formatstring(#########0)
#txt_total_money_wp                = formatstring(#########0.00)
#txt_total_money_wp_no_freight     = formatstring(#########0.00)

#検索部を使用可にする
[Sub_SearchEnabled_True]
txt_dts_year                       = enabled(True)
txt_dts_month                      = enabled(True)
txt_dts_day                        = enabled(True)
#2014.03.06 M.Inoue Start
txt_supplier_search                = enabled(True)
cmb_supplier_search                = enabled(True)
txt_shipment_search                = enabled(True)
cmb_shipment_search                = enabled(True)
txt_wp_search                      = enabled(True)
cmb_wp_search                      = enabled(True)
#2014.03.06 M.Inoue End

#検索部を使用不可にする
[Sub_SearchEnabled_False]
txt_dts_year                       = enabled(False)
txt_dts_month                      = enabled(False)
txt_dts_day                        = enabled(False)
#2014.03.06 M.Inoue Start
txt_supplier_search                = enabled(False)
cmb_supplier_search                = enabled(False)
txt_shipment_search                = enabled(False)
cmb_shipment_search                = enabled(False)
txt_wp_search                      = enabled(False)
cmb_wp_search                      = enabled(False)
#2014.03.06 M.Inoue End

#入力部を使用可にする
[Sub_InputEnabled_True]
txt_supplier                       = enabled(True)
cmb_supplier                       = enabled(True)
txt_shipment                       = enabled(True)
cmb_shipment                       = enabled(True)
txt_wp                             = enabled(True)
cmb_wp                             = enabled(True)
#2014.02.12 M.Inoue 客先銘柄対応 start
txt_wp_supplier                    = enabled(True)
cmb_wp_supplier                    = enabled(True)
#2014.02.12 M.Inoue 客先銘柄対応 end
cmb_grade                          = enabled(True)
txt_trnsport                       = enabled(True)
cmb_trnsport                       = enabled(True)
txt_area                           = enabled(True)
cmb_area                           = enabled(True)
txt_unit_price_wp                  = enabled(True)
txt_weight_wp                      = enabled(True)
txt_price_unit_freight             = enabled(True)
txt_rate_tax                       = enabled(True)
cmd_save                           = enabled(True)

#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ---------- Start
txt_money_wp_disp                  = enabled(True)
txt_money_wp_no_freight            = enabled(True)
#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ----------   End

#入力部を使用不可にする
[Sub_InputEnabled_False]
txt_supplier                       = enabled(False)
cmb_supplier                       = enabled(False)
txt_shipment                       = enabled(False)
cmb_shipment                       = enabled(False)
txt_wp                             = enabled(False)
cmb_wp                             = enabled(False)
#2014.02.12 M.Inoue 客先銘柄対応 start
txt_wp_supplier                    = enabled(False)
cmb_wp_supplier                    = enabled(False)
#2014.02.12 M.Inoue 客先銘柄対応 end
cmb_grade                          = enabled(False)
txt_trnsport                       = enabled(False)
cmb_trnsport                       = enabled(False)
txt_area                           = enabled(False)
cmb_area                           = enabled(False)
txt_unit_price_wp                  = enabled(False)
txt_weight_wp                      = enabled(False)
txt_price_unit_freight             = enabled(False)
txt_rate_tax                       = enabled(false)


#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ---------- Start
txt_money_wp_disp                  = enabled(false)
txt_money_wp_no_freight            = enabled(false)
#2016.07.12 add KSP K.Takahashi 金額調整入力用の対応 ----------   End


#フッタ部を使用可にする
[Sub_FootEnabled_True]
cmd_save                           = enabled(True)
cmd_calc                           = enabled(True)

#フッタ部を使用不可にする
[Sub_FootEnabled_False]
cmd_save                           = enabled(False)
cmd_calc                           = enabled(False)

#全てのコンボボックスを作成する
[Sub_Load_AllCombo]
this                               = subroutine(Sub_LoadCombo_Supplier)
this                               = subroutine(Sub_LoadCombo_Shipment)
this                               = subroutine(Sub_LoadCombo_Wp_Supplier)
this                               = subroutine(Sub_LoadCombo_Wp)
this                               = subroutine(Sub_LoadCombo_Grade)
this                               = subroutine(Sub_LoadCombo_Trnsport)
this                               = subroutine(Sub_LoadCombo_Area)
#2014.03.06 M.Inoue Start
this                               = subroutine(Sub_LoadCombo_Supplier_Search)
this                               = subroutine(Sub_LoadCombo_Shipment_Search)
this                               = subroutine(Sub_LoadCombo_Wp_Search)
#2014.03.06 M.Inoue End

#仕入先のコンボボックスを作成する
[Sub_LoadCombo_Supplier]
cmb_supplier                       = loadcombo(activesupplier,cd_supplier,name_supplier,true,txt_dt_receiveslip)
cmb_supplier                       = copystring(txt_supplier)
txt_supplier                       = copystring(cmb_supplier)

#2014.03.06 M.Inoue Start
#検索用仕入先のコンボボックスを作成する
[Sub_LoadCombo_Supplier_Search]
cmb_supplier_search                       = loadcombo(activesupplier,cd_supplier,name_supplier,true,txt_dt_receiveslip)
cmb_supplier_search                       = copystring(txt_supplier_search)
#2014.03.06 M.Inoue End

#荷送先のコンボボックスを作成する
[Sub_LoadCombo_Shipment]
cmb_shipment                       = loadcombo(activeshipment,cd_shipment,name_shipment,true,txt_dt_receiveslip,txt_supplier)
cmb_shipment                       = copystring(txt_shipment)
txt_shipment                       = copystring(cmb_shipment)


#2014.03.06 M.Inoue Start
#検索用荷送先のコンボボックスを作成する
[Sub_LoadCombo_Shipment_Search]
cmb_shipment_search                = loadcombo(activeshipment_search,cd_shipment,name_shipment,true,txt_dt_receiveslip)
cmb_shipment_search                = copystring(txt_shipment_search)
txt_shipment_search                = copystring(cmb_shipment_search)

#検索用銘柄のコンボボックスを作成する
[Sub_LoadCombo_Wp_Search]
cmb_wp_search                      = loadcombo(activewp_search,cd_wp,name_grade,true,txt_dt_receiveslip)
cmb_wp_search                      = copystring(txt_wp_search)
txt_wp_search                      = copystring(cmb_wp_search)
#2014.03.06 M.Inoue End


#銘柄のコンボボックスを作成する
[Sub_LoadCombo_Wp]
#2012.02.12 M.Inoue 客先銘柄対応 start
cmb_wp                             = loadcombo(activewp,cd_wp,name_grade,true,txt_dt_receiveslip,txt_supplier,txt_shipment)
#2012.02.12 M.Inoue 客先銘柄対応 start
cmb_wp                             = copystring(txt_wp)
txt_wp                             = copystring(cmb_wp)

#2012.02.12 M.Inoue 客先銘柄対応 start
#客先銘柄のコンボボックスを作成する
[Sub_LoadCombo_Wp_Supplier]
cmb_wp_supplier                    = loadcombo(activewpsupplier,cd_wp_supplier,name_grade_supplier,true,txt_dt_receiveslip,txt_supplier,txt_wp)
cmb_wp_supplier                    = copystring(txt_wp_supplier)
txt_wp_supplier                    = copystring(cmb_wp_supplier)
#2012.02.12 M.Inoue 客先銘柄対応 end

#タイプのコンボボックスを作成する
[Sub_LoadCombo_Grade]
cmb_grade                          = loadcombo(activegrade,cd_grade,name_gread,true)
cmb_grade                          = copystring(txt_grade)
txt_grade                          = copystring(cmb_grade)

#銘柄→グレードの自動選択
[Sub_LoadCombo_Grade_AutoSelected]
cmb_grade                          = loadcombo(activegrade,cd_grade,name_gread,true)
txt_wp_grade                       = codeliststring(activewp,cd_grade,txt_dt_receiveslip,txt_supplier,txt_shipment,txt_wp)
cmb_grade                          = copystring(txt_wp_grade)
txt_grade                          = copystring(cmb_grade)


#銘柄決定時の処理
[Sub_Wp_Decided]
txt_price_last                     = codeliststring(activeshipmentwp,price_last,txt_dt_receiveslip,txt_shipment,txt_wp)
txt_unit_price_wp                  = copystring(txt_price_last)
txt_trnsport_last                  = codeliststring(activeshipment,cd_transport,txt_dt_receiveslip,txt_shipment)
txt_area_last                      = codeliststring(activeshipment,cd_area,txt_dt_receiveslip,txt_shipment)
txt_trnsport                       = copystring(txt_trnsport_last)
txt_area                           = copystring(txt_area_last)
this                               = subroutine(Sub_LoadCombo_Trnsport)
this                               = subroutine(Sub_LoadCombo_Area)
this                               = subroutine(Sub_Price_Freight)
this                               = subroutine(Sub_Calc)

#運送会社のコンボボックスを作成する
[Sub_LoadCombo_Trnsport]
cmb_trnsport                       = loadcombo(activetransport,cd_transport,name_trnsport,true,txt_dt_receiveslip)
cmb_trnsport                       = copystring(txt_trnsport)
txt_trnsport                       = copystring(cmb_trnsport)

#地域のコンボボックスを作成する
[Sub_LoadCombo_Area]
cmb_area                           = loadcombo(activearea,cd_area,name_area,true,txt_trnsport)
cmb_area                           = copystring(txt_area)
txt_area                           = copystring(cmb_area)

#運賃単価を取得する
[Sub_Price_Freight]
txt_price_freight                  = codeliststring(activefreight,price_freight,txt_trnsport,txt_area)
txt_unit_freight                   = codeliststring(activefreight,unit_freight,txt_trnsport,txt_area)
txt_price_unit_freight             = multiply(txt_price_freight,txt_unit_freight)

#2014.03.07 M.Inoue start
#FSCフラグを取得する
[Sub_Fsc_Flg]
txt_fsc                            = codeliststring(activefsc,flg_fsc,txt_wp)
txt_fsc_cd                         = codeliststring(activefsccd,fsc_cd,txt_wp)

#在庫データを取得する
[Sub_Stock_WP]
txt_weight_stock                  = codeliststring(activestockwp,weight_stock,txt_dt_receiveslip,txt_supplier,txt_shipment,txt_wp,txt_grade)
txt_money_stock                   = codeliststring(activestockwp,money_stock,txt_dt_receiveslip,txt_supplier,txt_shipment,txt_wp,txt_grade)

#在庫への加算をシミュレートする
[Sub_Stock_Calc]
txt_weight_calc                   = minus(txt_weight_stock,txt_weight_stock_old)
txt_money_calc                    = minus(txt_money_stock,txt_money_stock_old)
txt_weight_stock_temp             = add(txt_weight_calc,txt_weight_wp)
txt_money_stock_temp              = add(txt_money_calc,txt_money_wp_disp)
#削除時は受入量を加算しない
[Sub_Stock_Calc_Minus]
txt_weight_calc                   = minus(txt_weight_stock,txt_weight_stock_old)
txt_money_calc                    = minus(txt_money_stock,txt_money_stock_old)
txt_weight_stock_temp             = copystring(txt_weight_calc)
txt_money_stock_temp              = copystring(txt_money_calc)
#2014.03.07 M.Inoue end

## 処理選択表示
[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_SetCookie]
#txt_dts_year                       = setCookie(txt_dts_year)
#txt_dts_month                      = setCookie(txt_dts_month)
#txt_dts_day                        = setCookie(txt_dts_day)
#txt_supplier                       = setCookie(txt_supplier)
#txt_shipment                       = setCookie(txt_shipment)
#txt_wp                             = setCookie(txt_wp)
#txt_trnsport                       = setCookie(txt_trnsport)
#txt_area                           = setCookie(txt_area)
#txt_unit_price_wp                  = setCookie(txt_unit_price_wp)
#txt_price_unit_freight             = setCookie(txt_price_unit_freight)
#txt_weight_wp                      = setCookie(txt_weight_wp)

#クッキー取得
[Sub_GetCookie]
#txt_dts_year                       = getCookie(txt_dts_year)
#txt_dts_month                      = getCookie(txt_dts_month)
#txt_dts_day                        = getCookie(txt_dts_day)
#txt_supplier                       = getCookie(txt_supplier)
#txt_shipment                       = getCookie(txt_shipment)
#txt_wp                             = getCookie(txt_wp)
#txt_trnsport                       = getCookie(txt_trnsport)
#txt_area                           = getCookie(txt_area)
#txt_unit_price_wp                  = getCookie(txt_unit_price_wp)
#txt_price_unit_freight             = getCookie(txt_price_unit_freight)
#txt_weight_wp                      = getCookie(txt_weight_wp)



#デバッグ時の隠しコントロール
[Sub_Debug_ON]
txt_mode                           = Visible(true)
txt_dt_receiveslip                 = Visible(true)
txt_no_receiveslip                 = Visible(true)
txt_termid                         = Visible(true)
txt_subselected                    = Visible(true)
txt_wp_grade                       = Visible(true)
#2014.02.12 M.Inoue 客先銘柄対応 start
txt_cd_wp                          = Visible(true)
#2014.02.12 M.Inoue 客先銘柄対応 end
txt_grade                          = Visible(true)
txt_price_last                     = Visible(true)
txt_trnsport_last                  = Visible(true)
txt_area_last                      = Visible(true)
txt_price_freight                  = Visible(true)
txt_unit_freight                   = Visible(true)
txt_percent                        = Visible(true)
txt_marumekbn                      = Visible(true)
txt_marumeketa                     = Visible(true)

#デバッグ時の隠しコントロール
[Sub_Debug_OFF]
txt_mode                           = Visible(false)
txt_dt_receiveslip                 = Visible(false)
txt_no_receiveslip                 = Visible(false)
txt_termid                         = Visible(false)
txt_subselected                    = Visible(false)
txt_wp_grade                       = Visible(false)
#2014.02.12 M.Inoue 客先銘柄対応 start
txt_cd_wp                          = Visible(false)
#2014.02.12 M.Inoue 客先銘柄対応 end
txt_grade                          = Visible(false)
txt_price_last                     = Visible(false)
txt_trnsport_last                  = Visible(false)
txt_area_last                      = Visible(false)
txt_price_freight                  = Visible(false)
txt_unit_freight                   = Visible(false)
txt_percent                        = Visible(false)
txt_marumekbn                      = Visible(false)
txt_marumeketa                     = Visible(false)