base_rec_new_exe.asp

=== ==ASP销售管理系统

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 3000800	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Contract_ID = request("Contract_ID")
Rec_Date = request("Rec_Date")
Account = request("Account")
Rec_Content = request("Rec_Content")
if not IsNot(Contract_ID,"n") then
	response.write "合同编号丢失或不正确"
	response.end
end if
if not IsNot(Rec_Date,"d") then
	response.write "日期“" & Rec_Date& "”输入不正确，请按照yyyy-mm-dd的格式输入"
	response.end
end if
if not IsNot(Account,"n") then
	response.write "金额“" & Account & "”输入不正确"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "insert into Contracts_Base_Rec(Contract_ID,Rec_Date,Account,Rec_Content,Employee_ID) values(" & Contract_ID & ",'" & Rec_Date & "'," & Account & ",'" & Rec_Content & "'," & Session("Employee_ID") & ")"
'response.write sql
conn.execute(sql)

'更新合同金额记录
conn.execute("sp_Contract_Account_Change " & Contract_ID)
set conn = nothing

'操作日志
Rec_Content = "添加合同业务基础记录"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
成功添加合同基础业务记录！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>