#-------------------------------------------------- # メイン処理 #-------------------------------------------------- ## 初期処理 [Form_Init] this = centering @form = clearall spd_list = configlistfieldnames(no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,tm_finished,weight_moist,note_keikou,note_kyouzatubutsu,note_arumi,note_shirobutu,ratio_moist,bfo_cd_customer,bfo_cd_derivery,bfo_cd_product,bfo_weight_moist,bfo_note_keikou,bfo_note_kyouzatubutsu,bfo_note_arumi,bfo_note_shirobutu,bfo_ratio_moist,cd_grade_product,tm_finished_year,tm_finished_month,tm_finished_day,tm_finished_hour,tm_finished_minute,no_batch,weight_dry,div_inspect,div_ship,dt_shipslip,cd_staff,no_derivery_product,dts_year,dts_month,dts_day,edit_weight_dry) #spd_list = configlistfieldnames(no_pallet,name_staff,cd_customer,name_customer,cd_derivery,name_derivery,cd_product,name_product,cd_warehouse,name_warehouse,tm_finished,weight_moist,note_keikou,note_zanpori,note_irobutu,ratio_moist,bfo_cd_customer,bfo_cd_derivery,bfo_cd_product,bfo_weight_moist,bfo_note_keikou,bfo_note_zanpori,bfo_note_irobutu,bfo_ratio_moist,cd_grade_product,tm_finished_year,tm_finished_month,tm_finished_day,tm_finished_hour,tm_finished_minute,no_batch,weight_dry,div_inspect,div_ship,dt_shipslip,cd_staff,no_derivery_product) spd_list = setlistcount(0) txt_freemessage = message(NSP0040,info.moistinfo) txt_dts_year = enabled(false) txt_dts_month = enabled(false) txt_dts_day = enabled(false) fra_message = enabled(false) this = subroutine(Sub_debugOff) #this = subroutine(Sub_debugOn) ## デバッグ情報の制御 [Sub_debugOff] txt_dt_derivery_product = visible(false) txt_termid = visible(false) txt_cd_pulper = visible(false) txt_dt_regist = visible(false) txt_id_regist = visible(false) [Sub_debugOn] txt_dt_derivery_product = visible(true) txt_termid = visible(true) txt_cd_pulper = visible(true) txt_dt_regist = visible(true) txt_id_regist = visible(true)