【正文】 nve_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編號：各地倉庫的編號。產(chǎn)品類別：預先有管理員設置入系統(tǒng)的產(chǎn)品大類。產(chǎn)品編號：產(chǎn)品的詳細信息。填寫日期：填寫單證的日期，系統(tǒng)會默認給一個當前日期。委托單號：派送單號，由客戶提供。出庫數(shù)量：此單號內(nèi)某一產(chǎn)品的數(shù)量。出庫方式：運輸此單貨物所使用的方式。客戶城市：收貨客戶的所在的城市，可以不選，主要用于檢索目的地客戶地址。目的地：收貨單位名稱，通過選擇“目的地“系統(tǒng)會自動顯示出預先所設置的“客戶編號”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。客戶編號：鍵入預先設置好的編號系統(tǒng)會檢索出預先所設置的“客戶編號”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。拼音編碼：鍵入預先設置好的編碼預先所設置的“客戶編號”、“拼音編碼”、“所屬城市”、“客戶地址”、“聯(lián)系人”、“聯(lián)系電話”。派送通知主要代碼（operate/）：%39。開始事務處理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%用于增加已存在的出庫單號內(nèi)的產(chǎn)品信息，如此單已做過分揀系統(tǒng)會拒絕此操作。補單操作主要代碼（operate/）：%39。出庫方式outw_type39。目的地outw_where，收貨人訂單號takeman_id，時限要求yuji_time39。出庫摘要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 end if 39。如果出的是同一個客戶的產(chǎn)品,則只更新OUTWARD_DETAIL表和INVENTORY表 39。如果出給另一客戶,則還需更新DETAIL_INFO表 if outw_where = guest_id_cookies then (@flag) = 0 else if check_flag = 1 then (@flag) = 1 elseif check_flag = 0 then (@flag) = 0 end if end if (@detail_outw_id) = outwardid (@dc_id) = dc_id (@prod_id) = prod_id (@newpanyid) = newpanyid (@detail_no) = outw_no (@user) = User (@info_type) = outw_type (@info_takeman_id) = takeman_id (@info_yuji_time) = yuji_time (@info_order_beizu) = outw_beizu (@detail_guest_id) = outw_where set cmd = nothing%用于增加或編輯“目的地“。新增客戶主要代碼（operate/）：% sql = UPDATE guest SET sql = sql + guest_code= 39。 amp。 code amp。 39。, sql = sql + guest_user= 39。 amp。 txttitle amp。 39。, sql = sql + guest_pycode= 39。 amp。 py amp。 39。, sql = sql + guest_address= 39。amp。addressamp。39。, sql = sql + guest_tel= 39。amp。telamp。39。, sql = sql + guest_fax= 39。amp。faxamp。39。, sql = sql + guest_idcard= 39。amp。idcardamp。39。, sql = sql + guest_takecode= 39。amp。takecodeamp。39。, sql = sql + guest_= 39。amp。amp。39。, sql = sql + guest_addtime= 39。amp。tamp。39。, sql = sql + guest_lasttime= 39。amp。tamp。39。, sql = sql + guest_city= 39。amp。cityamp。39。, sql = sql + guest_contact= 39。amp。contactamp。39。, sql = sql + guest_beizu= 39。amp。beizuamp。39。 sql = sql + WHERE guest_id = + curid sql %提貨通知主要代碼（operate/）：%39。開始事務處理39。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 = Direct_Save_Outward dim adInteger adInteger = 3 dim adParamInput adParamInput = 1 dim adParamOutput adParamOutput = 2 dim adVarchar adVarChar = 200 adDBDAte = 135 addbtimestamp = 135 39。 prod_no amp。br 39。 prod_type amp。br 39。 prod_color amp。br 39。 prod_flag amp。br 39。 direct amp。br 39。 inwa_take_addressamp。br 39。 inwa_line_no amp。br 39。 inwa_take_no amp。br 39。 dc_id amp。br 39。 outw_dateamp。br 39。 consign_datetime amp。br 39。 outw_sra amp。br 39。 newpanyid amp。br 39。 outw_beizu amp。br 39。 Useramp。br 39。 outw_where amp。br 39。 outw_no amp。br 39。 outw_type amp。br 39。 tajeman_id amp。br 39。 yuji_time 39。 (@prod_no) = prod_no (@prod_type) = prod_type (@prod_color) = prod_color (@prod_flag) = prod_flag (@direct) = direct (@inwa_take_address) = inwa_take_address (@inwa_line_no) = inwa_line_no (@inwa_take_no) = inwa_take_no (@dc_id) = dc_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 (@outw_id).Direction = adParamOutput outwardid = (@outw_id) set cmd = nothing%到貨查看主要代碼（operate/）：%sub ShowContent() if flag 4 then sql=select * from outward_elink join dc on = where transport_type 0 and transport_type 4 and attemper_dc_id 0 and elink_flag 1 and elink_panyid = amp。newpanyidamp。 order by elink_id asc else sql=select * from outward_elink join dc on = where transport_type 0 and