【導(dǎo)讀】物流學(xué)研究的對(duì)象是經(jīng)濟(jì)活動(dòng)中“物”的流動(dòng)規(guī)律。隨著現(xiàn)代信息技術(shù)和電子。物流管理是根據(jù)物流這種先進(jìn)的經(jīng)濟(jì)運(yùn)行模式而產(chǎn)生的各種物流運(yùn)作活動(dòng)，根據(jù)客戶的要求，為了達(dá)到物流的根本目的，而進(jìn)行的計(jì)劃、組織、協(xié)調(diào)與控制。向管理，也可能是縱向管理；可能是單元管理，也可能是多元管理等等。提高服務(wù)質(zhì)量為目的。利于物流業(yè)發(fā)展的環(huán)境，而企業(yè)的參與與運(yùn)作則決定一切。

　　

【正文】 rt into inward(inwa_date,inwa_fact_date,inwa_sia,inwa_dc_id,inwa_type,inwa_yuji_time,inwa_contact,inwa_operate,inwa_ser_beizu,inwa_flag,inwa_panyid,inwa_disabled,inwa_dir_flag,inattemper,tiaoma_flag) sql = sql + values(39。amp。inwa_dateamp。39。,39。amp。inwa_fact_dateamp。39。,39。amp。inwa_siaamp。39。,amp。dc_idamp。,39。amp。inwa_typeamp。39。,39。amp。inwa_yuji_timeamp。39。,39。amp。inwa_contactamp。39。,39。amp。Useramp。39。,39。amp。inwa_beizuamp。39。,amp。inwa_flagamp。,amp。newpanyidamp。,0,0,0,0) else inwa_take_address = (take_address) inwa_line_no = trim((line_no)) if inwa_line_no = then inwa_line_no = inwa_take_no = trim((take_no)) if inwa_take_no = then inwa_take_no = sql = insert into inward(inwa_date,inwa_fact_date,inwa_sia,inwa_dc_id,inwa_type,inwa_yuji_time,inwa_contact,inwa_operate,inwa_ser_beizu,inwa_flag,inwa_panyid,inwa_disabled,inwa_dir_flag,inwa_take_address,inwa_line_no,inwa_take_no,inattemper,tiaoma_flag) sql = sql + values(39。amp。inwa_dateamp。39。,39。amp。inwa_fact_dateamp。39。,39。amp。inwa_siaamp。39。,amp。dc_idamp。,39。amp。inwa_typeamp。39。,39。amp。inwa_yuji_timeamp。39。,39。amp。inwa_contactamp。39。,39。amp。Useramp。39。,39。amp。inwa_beizuamp。39。,amp。inwa_flagamp。,amp。newpanyidamp。,0,1,39。amp。inwa_take_addressamp。39。,39。amp。inwa_line_noamp。39。,39。amp。inwa_take_noamp。39。,0,0) end if sql = sql + select @@identity as 39。id39。 39。 sql 39。 set rst = (sql) set rst = inwardid = rst(id) set rst = nothing sql = insert into inward_detail(idetail_inwa_id,idetail_prod_id,idetail_no,idetail_rec_no,idetail_date,idetail_man,idetail_io_flag,idetail_flag) values(amp。inwardidamp。,amp。prod_idamp。,amp。inwa_noamp。,0,39。amp。inwa_fact_dateamp。39。,39。amp。Useramp。39。,0,0) (sql) if inwa_flag = 0 then 39。o 為在途 sql = update inventory set inve_zaitu = inve_zaitu + amp。 inwa_no amp。 ,inve_total = inve_total + amp。 inwa_no amp。 ,inve_last_date = 39。 amp。 inve_last_date amp。39。 where inve_dc_id = amp。dc_idamp。 and inve_prod_id = amp。prod_idamp。 and inve_panyid = amp。newpanyidamp。 and inve_disabled = 0 (sql) 39。lseif inwa_flag = 1 then 39。 sql = update inventory set inve_ruku = inve_ruku + amp。 inwa_rec_no amp。 ,inve_maysent = inve_maysent + amp。 inwa_rec_no amp。 ,inve_total = inve_total +amp。inwa_rec_noamp。,inve_last_date = 39。amp。inve_last_date amp。 39。 where inve_dc_id = amp。dc_idamp。 and inve_prod_id = amp。prod_idamp。 and inve_panyid = amp。newpanyidamp。 and inve_disabled = 0 39。 (sql) end if % 補(bǔ)單操作 點(diǎn)擊“補(bǔ)單“按鈕進(jìn)入圖 ，填寫已經(jīng)存在的入庫(kù)單號(hào)內(nèi)的產(chǎn)品資料。 圖 補(bǔ)單記錄 保存補(bǔ)單記錄的主要代碼（ operate/） : % 39。保存數(shù)據(jù)模塊 ,以下所有命令必須全部執(zhí)行 ,否則會(huì)造成數(shù)據(jù)的不完整 39。如為在途 ,則更新庫(kù)存的是入庫(kù)數(shù)量 。如是入庫(kù) ,則更新庫(kù)存的是實(shí)收數(shù)量 sql = insert into inward_detail(idetail_inwa_id,idetail_prod_id,idetail_no,idetail_rec_no,idetail_date,idetail_man,idetail_io_flag,idetail_flag) values(amp。inwardidamp。,amp。prod_idamp。,amp。inwa_noamp。,0,39。amp。now()amp。39。,39。amp。Useramp。39。,0,0) (sql) sql = update inward set inwa_flag = 0 where inwa_id = amp。inwardidamp。 (sql) if inwa_flag = 0 then 39。o 為在途 sql = update inventory set inve_zaitu = inve_zaitu + amp。 inwa_no amp。 ,inve_total = inve_total + amp。 inwa_no amp。 ,inve_last_date = 39。 amp。 inve_last_date amp。39。 where inve_dc_id = amp。dc_idamp。 and inve_prod_id = amp。prod_idamp。 and inve_panyid = amp。newpanyidamp。 and inve_disabled = 0 (sql) end if % 派送通知 圖 派送通知界面 DC 編號(hào)：各地倉(cāng)庫(kù)的編號(hào)。 產(chǎn)品類別：預(yù)先有管理員設(shè)置入系統(tǒng)的產(chǎn)品大類。 產(chǎn)品編號(hào)：產(chǎn)品的詳細(xì)信息。 填寫日期：填寫單證的日期，系統(tǒng)會(huì)默認(rèn)給一個(gè)當(dāng)前日期。 委托單號(hào)：派送單號(hào)，由客戶提供。 出庫(kù)數(shù)量：此單號(hào)內(nèi)某一產(chǎn)品的數(shù)量。 出庫(kù)方式：運(yùn)輸此單貨物所使用的方式。 客戶城市：收貨客戶的所在的城市，可以不選，主要用于檢索目的地客戶地 址。 目的地：收貨單位名稱，通過(guò)選擇“目的地“系統(tǒng)會(huì)自動(dòng)顯示出預(yù)先所設(shè)置的“客戶編號(hào)”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。 客戶編號(hào)：鍵入預(yù)先設(shè)置好的編號(hào)系統(tǒng)會(huì)檢索出預(yù)先所設(shè)置的“客戶編號(hào)”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。 拼音編碼：鍵入預(yù)先設(shè)置好的編碼預(yù)先所設(shè)置的“客戶編號(hào)”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。 派送通知主要代碼（ operate/）： % 39。開始事務(wù)處 理 sql =select * from outward where outw_sra = 39。amp。outw_sraamp。39。 and outw_panyid = amp。newpanyidamp。 set rs_flag = (sql) if then set cmd=() = conn = 4 = Save_Outward dim adInteger adInteger = 3 dim adParamInput adParamInput = 1 dim adParamOutput adParamOutput = 2 dim adVarchar adVarChar = 200 adDBDAte = 135 addbtimestamp = 135 39。 (@dc_id,adInteger,adParamInput) 39。 (@prod_id,adInteger,adParamInput) 39。 (@outw_date,adDBDate,adParamInput) 39。 (@consign_datetime,adDBTimeStamp,adParamInput) 39。 (@outw_sra,adVarChar,adParamInput) 39。 (@newpanyid,adInteger,adParamInput) 39。 (@outw_beizu,adVarchar,adParamInput) 39。 (@User,adVarchar,adParamInput) 39。 (@outw_where,adInteger,adParamInput) 39。 (@outw_no,adInteger,adParamInput) 39。 (@outw_type,adVarchar,adbParamInput) 39。 (@takeman_id,adVarchar,adParamInput) 39。 (@yuji_time,adVarchar,adParamInput) 39。 (outw_id,adInteger,adParamOutput) (@direct) = direct (@inwa_take_address) = inwa_take_address (@inwa_line_no) = inwa_line_no (@inwa_take_no) = inwa_take_no (@dc_id) = dc_id (@prod_id) = prod_id (@outw_date) = outw_date (@consign_datetime) = consign_datetime (@outw_sra) = outw_sra (@newpanyid) = newpanyid (@outw_beizu) = outw_beizu (@User) = User (@outw_where) = outw_where (@outw_no) = outw_no (@outw_type) = outw_type (@takeman_id) = takeman_id (@yuji_time) = yuji_time 39。(@outw_id).Name = 0 (@outw_id).Direction = adParamOutput 39。(outw_id) = 0 outwardid = (@outw_id) set cmd = nothing % 補(bǔ)單操作 用于增加已存在的出庫(kù)單號(hào)內(nèi)的產(chǎn)品信息，如此單已做過(guò)分揀系統(tǒng)會(huì)拒絕此操作。 圖 補(bǔ)單操作界面 補(bǔ)單操作主要代碼（ operate/）： % 39。出庫(kù)方式 outw_type 39。目的地 outw_where，收貨人訂單號(hào) takeman_id，時(shí)限要求 yuji_time 39。出庫(kù)摘要 outw_beizu set cmd=() = conn = 4 = Save_Outward_2 dim adInteger adInteger = 3 dim adParamInput adParamInput = 1 dim adParamOutput adParamOutput = 2 dim adVarchar adVarChar = 200 adDBDAte = 135 addbtimestamp = 135 if direct = 1 then (@direct) = 1 else (@direct) = 0