##初期処理
[Form_Init]
this                = centering
this                = clearall
#2004.03.12 konishi 特記事項項目変更　start
spd_liststock       = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,note_keikou,note_kyouzatsu,note_arumi,note_shirobutsu,delflg,instermidid,insday,cd_grade)
#spd_liststock       = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,note_keikou,note_zanpori,note_irobutu,delflg,instermidid,insday,cd_grade)
##spd_liststock       = configlistfieldnames(dt_derivery_product,neme_gread,no_pallet,cd_customer,name_customer,cd_derivery,div_weight_dried,name_derivery,cd_product,name_product,weight_moist,weight_dry,unit_price_stock,ratio_moist,time,note,delflg,instermidid,insday,cd_grade)
#2004.03.12 konishi 特記事項項目変更　end
txt_dts_year        = enabled(False)
txt_dts_month       = enabled(False)
txt_dts_day         = enabled(False)
txt_weight_moist    = enabled(False)
txt_ratio_moist     = enabled(False)
txt_weight_dry      = enabled(False)
txt_weight_moistadd = enabled(False)
txt_ratio_moistadd  = enabled(False)
txt_weight_dryadd   = enabled(False)
txt_pallet          = enabled(False)
txt_palletadd       = enabled(False)
#txt_weight_disp    = visible(False)
Fra_msg             = visible(False)
cmd_rowselect       = enabled(True)
cmd_datareflection  = enabled(True)
cmd_cancel          = enabled(True)
txt_marumeketa      = string(1)
txt_multiply        = string(1)
txt_weight_moist    = configinput(number,8)
#txt_ratio_moist     = configinput(number,5)
txt_weight_dry      = configinput(number,7)
txt_weight_moistadd = configinput(number,8)
#txt_ratio_moistadd  = configinput(number,5)
txt_weight_dryadd   = configinput(number,7)
this                = subroutine(sub_debug_OFF) 


#表示風乾重量のメッセージ表示
[Form_div_weight_dried]
#txt_weight_disp = visible(True)
Fra_msg          = visible(True)
txt_weight_disp  = string(総納品重量は10800Kgです。)

#水分率再計算
[Form_Calc]
txt_ratio_moistadd = fixedmultiply(txt_Tax_marume,txt_marumeketa,txt_ratio_moistadd,txt_multiply)
txt_ratio_moistadd = formatstring(########0.0)


#デバック
[sub_debug_OFF]
txt_div_weight_dried  =  Visible(False)
txt_div_rate_moist    =  Visible(False)
txt_multiply          =  Visible(False)  
txt_marumeketa        =  Visible(False)
txt_Tax_marume        =  Visible(False)