store_deliver_input_oper.asp

在线医药销售系统

<%@ Language=VBScript %>
<%
'******************************************************
  '功能：发货单录入--数据处理
  '入口参数：whs_outid （12）出库单编号
  '         
  '出口参数：
  '作者：易江波    日期：2001年6月10日
  '******************************************************
   option Explicit
   '出错
on error resume next
   Response.Expires=0
   
 ' Response.Write Request("OutID") :Response.End
  dim DBConn
  Set DBConn=Server.CreateObject("ADODB.Connection")
 
 DBconn.open Application("Connection2_ConnectionString")
' DBConn.BeginTrans  
  

  
%>
<!--#include file="../PublicFunction.inc"-->
<%
dim Rs_wout,s_wout
set Rs_wout=server.CreateObject("adodb.recordset")

  s_wout="SELECT distinct Warehouse_Out.Whs_OutID,"
  s_wout=s_wout+" Warehouse_Out.Whs_OutType," 
	s_wout=s_wout+" Warehouse_Out.Whs_OutReceiver,"   
	s_wout=s_wout+" Warehouse_Out.Whs_OutDlvFlg,"   
	s_wout=s_wout+" Warehouse_Out.Whs_OutRcvAddress,"
	s_wout=s_wout+" Warehouse_Out.Whs_OutRcvZipCode,"   
	s_wout=s_wout+" Warehouse_Out.Whs_OutRcvTel,"   
'	s_wout=s_wout+" Basic_Customer.Cst_Name,"   
'	s_wout=s_wout+" Basic_Category.Ctg_Name,"
	s_wout=s_wout+" Warehouse_Out.Whs_OutQty,"   
	s_wout=s_wout+" Warehouse_Out.Whs_OutQtyDlv,"
	s_wout=s_wout+" Warehouse_Out.Ctg_ID,"
	s_wout=s_wout+" Sale_Sale.Cst_ID,"   
	s_wout=s_wout+" Warehouse_Out.Whs_ID"
	s_wout=s_wout+" FROM Warehouse_Out,"   
	s_wout=s_wout+" Basic_Customer,"   
	s_wout=s_wout+" Warehouse_OutNotice,"   
	s_wout=s_wout+" Sale_Sale,"   
	s_wout=s_wout+" Basic_Category"  
  s_wout=s_wout+" WHERE ( Warehouse_OutNotice.Whs_OutNID = Warehouse_Out.Whs_OutNID ) and"  
  s_wout=s_wout+" ( Sale_Sale.Sal_SalID = Warehouse_OutNotice.Sal_SalID ) and"
'  s_wout=s_wout+" ( Sale_Sale.Cst_ID = Basic_Customer.Cst_ID ) and"
  s_wout=s_wout+" ( Basic_Category.Ctg_ID = Sale_Sale.Ctg_ID ) and" 
  s_wout=s_wout+" ( Basic_Category.Ctg_ID = Warehouse_OutNotice.Ctg_ID ) and"
  s_wout=s_wout+" ( Basic_Category.Ctg_ID = Warehouse_Out.Ctg_ID ) and"
  s_wout=s_wout+" ( ( Warehouse_Out.Whs_OutQty <> Warehouse_Out.Whs_OutQtyDlv ) AND"
  s_wout=s_wout+" ( Warehouse_Out.Whs_OutID ='"&Request("OutID")&"'  ))"
  Rs_wout.Open s_wout,dbconn
'  Response.Write s_wout  
'  Response.End
'----------------!增加发货单纪录!---------------------  
dim Rs_WID,s_WID,s_insert,ws_type
if Rs_wout.EOF then
Response.Write "操作未完成，请联系易江波!>发货单：" & Request("OutID")
Response.End 
end if 

if cstr(Rs_wout("Whs_OutType")) = "销售出库" then
   ws_type ="销售发货"
end if
if Rs_wout("Whs_OutType") = "补货出库" then
   ws_type ="补货发货"
end if
if Rs_wout("Whs_OutType") = "换货出库" then
   ws_type ="换货发货"
end if
if Rs_wout("Whs_OutType") = "特殊出库" then
  ws_type ="特殊发货"
end if

    s_insert="INSERT INTO Warehouse_Deliver"
		s_insert=s_insert+" ( Whs_DlvID,"
		s_insert=s_insert+" Cst_ID,"
		s_insert=s_insert+" Whs_OutID,"   
		s_insert=s_insert+" Whs_ID,"   
		s_insert=s_insert+" Ctg_ID,"  
		s_insert=s_insert+" Whs_DlvType," 		 
		s_insert=s_insert+" Whs_DlvNum,"   
		s_insert=s_insert+" Whs_DlvHandler,"
		s_insert=s_insert+" Whs_DlvReceiver,"
		s_insert=s_insert+" Whs_DlvReceiveAddr,"
		s_insert=s_insert+" Whs_DlvReceiveZip,"
		s_insert=s_insert+" Whs_DlvReveiveTel,"
		s_insert=s_insert+" Whs_DlvFreightBillNo,"
		s_insert=s_insert+" Whs_DlvWeight,"
		s_insert=s_insert+" Whs_DlvFee,"
		s_insert=s_insert+" Whs_DlvFreightType,"
		s_insert=s_insert+" Whs_DlvFreightCorp,"  
		s_insert=s_insert+" Whs_DlvDate,"   
		s_insert=s_insert+" Whs_DlvFlag,"   
		s_insert=s_insert+" Whs_DlvArvQty,"   
		s_insert=s_insert+" Whs_DlvArvQtyDmg)"    
		s_insert=s_insert+" VALUES ("
		s_insert=s_insert+"'"+getnewid("Warehouse_Deliver","Whs_DlvID")&"',"
'	 Response.Write s_insert&"<br>"
if  isnull(Rs_wout("Cst_ID")) or Rs_wout("Cst_ID")="" then
		s_insert=s_insert&"null,"
else
		s_insert=s_insert+"'"&Rs_wout("Cst_ID")& "',"
end if
		s_insert=s_insert+"'"+Rs_wout("Whs_OutID")+ "',"
		s_insert=s_insert+"'"+Rs_wout("Whs_ID")+ "',"
		s_insert=s_insert+"'"+Rs_wout("Ctg_ID")+ "',"
	  s_insert=s_insert+"'"+ws_type+ "',"
'		 Response.Write s_insert&"<br>" 
		s_insert=s_insert+"'"+Request("willoutqty")+ "',"   
		s_insert=s_insert+"'"+Session("Gs_StaffID")+ "',"  
		s_insert=s_insert+"'"+Rs_wout("Whs_OutReceiver")+ "',"   
		s_insert=s_insert+"'"+Rs_wout("Whs_OutRcvAddress")+ "',"  
		s_insert=s_insert+"'"+Rs_wout("Whs_OutRcvZipCode")+ "',"   
		s_insert=s_insert+"'"+Rs_wout("Whs_OutRcvTel")+ "'," 
		s_insert=s_insert+"'"+trim(Request("rid"))+ "',"  
		s_insert=s_insert+"'"+trim(Request("rw"))+ "',"   
		s_insert=s_insert+    trim(Request("rpay"))+ ","   
		s_insert=s_insert+"'"+trim(Request("sel1"))+ "',"   
		s_insert=s_insert+"'"+trim(Request("rcompany"))+ "',"  
		s_insert=s_insert+  "'"&date&"',"    
		s_insert=s_insert+  "'"+"已发货"+ "',"   
		s_insert=s_insert&  0 & ","  
		s_insert=s_insert&  0 & ")" 
'  Response.Write s_insert&"<br>" 
'  Response.end
	 DBConn.Execute (s_insert)
'----------------增加发货单纪录---------------------  

'------------------!修改出库单!----------------------
dim s_update
s_update="UPDATE Warehouse_Out" 
s_update=s_update+" SET Whs_OutQtyDlv ="&Request("willoutqty")&"+Whs_OutQtyDlv"
s_update=s_update+" where Whs_OutID='"&Request("OutID")&"'"

DBConn.Execute s_update
'Response.Write s_update&"<br>"
dim Rs_outnum,s_outnum
set Rs_outnum=server.CreateObject("adodb.recordset")
s_outnum="select Whs_OutQtyDlv,Whs_OutQty from Warehouse_Out where Whs_OutID='"&Request("OutID")&"'"

Rs_outnum.open s_outnum,DBConn
if clng(Rs_outnum("Whs_OutQtyDlv")) = clng(Rs_outnum("Whs_OutQty")) then
  s_update="UPDATE Warehouse_Out"
  s_update=s_update+" set Whs_OutDlvFlg='全部发货' where Whs_OutID='"&Request("OutID")&"'"
else
  s_update="UPDATE Warehouse_Out"
  s_update=s_update+" set Whs_OutDlvFlg='部分发货' where Whs_OutID='"&Request("OutID")&"'"
end if

DBConn.Execute (s_update)
'Response.Write s_update&"<br>"
'------------------修改出库单------------------------
'------------------!修改出库通知单!---------------------
s_update=""
s_update="update Sale_Sale"
s_update=s_update+" set Sal_SalFlgDeal='已发货'" 
s_update=s_update+" from Warehouse_OutNotice,Warehouse_Out,Sale_Sale"
s_update=s_update+"  where  Warehouse_OutNotice.Whs_OutNID = Warehouse_Out.Whs_OutNID  and"  
s_update=s_update+" Warehouse_OutNotice.Sal_SalID = Sale_Sale.Sal_SalID  and"
s_update=s_update+" Warehouse_Out.Whs_OutID ='"&trim(Request("OutID")) &"'"

DBConn.Execute (s_update)
'Response.Write s_update&"<br>"
'-------------------修改出库通知单----------------------

%>
<HTML>
<HEAD>
<TITLE>发货处理页面</TITLE>
</HEAD>
<BODY>
<FORM action="Deliver_OutOddSelect.asp" method=POST id=form1 name=form1>
</FORM>

<%If DBConn.Errors.Count =0 Then
 ' DBConn.CommitTrans %>
<div align="center"></div>
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox "发货单录入完成！",,"CMS系统信息"
//-->
</SCRIPT>


<SCRIPT LANGUAGE=javascript>
<!--
form1.submit()
//-->
</SCRIPT>
<%else
  ' DBConn.RollbackTrans 
%>

<SCRIPT LANGUAGE=vbscript>
   MsgBox "数据保存有误，不成功！",,"CMS系统提示"
 ' form1.submit 
</SCRIPT>

<%end if%>

</BODY>
</HTML>