📄 salesendcheck_apply_operate.asp
字号:
<%@ Language=VBScript %>
<%'******************************************************
'功能：送检申请添加操作页
'入口参数：
' 1,职工编号
' 2,区域编号
' 3,收货人
' 4,收货地址
' 5,邮政编码
' 6,联系电话
' 7,送检品种
' 8,送检数量
' 9,经手人
'出口参数：
'作者：钟宇 日期：2001年6月13日
'******************************************************
%>
<HTML>
<HEAD>
<TITLE>送检检查页面</TITLE>
</HEAD>
<BODY>
<FORM action="SaleSendCheck_Apply.asp" method=post id=form1 name=form1>
</FORM>
<%
Dim DBConn,LStr_Sql,TStr_StfID,TStr_AgnID,TStr_Receiver
Dim TStr_ReceiveAdr,TStr_ZipCode,TStr_Tel,TStr_CtgID,TStr_CtgNum,TStr_Mender
Dim LStr_SaleID
TStr_StfID=Session("Gs_StaffID")
TStr_AgnID=Trim(Request("TStr_AgnID"))
TStr_Receiver=Trim(Request("text1"))
TStr_ReceiveAdr=Trim(Request("text2"))
TStr_ZipCode=Trim(Request("text3"))
TStr_Tel=Trim(Request("text4"))
TStr_CtgID=Trim(Request("select2"))
TStr_CtgNum=Trim(Request("text5"))
TStr_Mender=Trim(Request("text6"))
If TStr_StfID="" Or TStr_AgnID="" Then
Response.Write "网页已经过期，添加操作被取消，请重新登录系统！"
Response.End
End If
%><!--#include file="../PublicFunction.inc"-->
<%
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.OPEN Application("Connection2_ConnectionString")
DBConn.BeginTrans
LStr_SaleID=GetNewID("Sale_Sale","Sal_SalID")
LStr_Sql= "INSERT INTO Sale_Sale(Sal_SalID,Sal_SalReceiver,"
LStr_Sql=LStr_Sql+"Sal_SalRcvAddr,Sal_SalRcvZipCode,Sal_SalRcvTel,"
LStr_Sql=LStr_Sql+"Ctg_ID,Sal_SalQty,Applier,ApplyDate,Sal_SalPrice,"
LStr_Sql=LStr_Sql+"Sal_SalDiscount,Sal_SalSum,Sal_SalType,Stf_ID) "
LStr_Sql=LStr_Sql+"VALUES('"&LStr_SaleID
LStr_Sql=LStr_Sql+"','"& TStr_Receiver &"','"& TStr_ReceiveAdr
LStr_Sql=LStr_Sql+"','"& TStr_ZipCode &"','"& TStr_Tel
LStr_Sql=LStr_Sql+"','"& TStr_CtgID &"',"& TStr_CtgNum
LStr_Sql=LStr_Sql+",'" & TStr_StfID &"','"& Date() &"',0,0,0,'送检','"& TStr_StfID &"')"
DBConn.Execute LStr_Sql
LStr_Sql="INSERT INTO Sale_SendCheck(Sal_SalID,Sal_SCHandler) "
LStr_Sql=LStr_Sql+"VALUES('" & LStr_SaleID &"','" & TStr_Mender &"')"
DBConn.Execute LStr_Sql
If DBConn.Errors.Count =0 Then
DBConn.CommitTrans
%>
<SCRIPT LANGUAGE=vbscript>
MsgBox "已成功添加送检申请！",,"CMS系统提示"
'提交添加操作，返回上一页
form1.submit
</SCRIPT>
<%
Else
DBConn.RollbackTrans
%>
<SCRIPT LANGUAGE=vbscript>
MsgBox "数据保存有误，不成功！",,"CMS系统提示"
form1.submit
</SCRIPT>
<%
End If
DBConn.Close
Set DBConn=Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -