📄 subsaleorder_add.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
dim Action,crs,csql,Pro_Name
Dim ccrs,ccsql
Dim cccrs,cccsql
Action = Trim(request("Action"))
%>
<html>
<head>
<title>销售记录-添加</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center">销售记录</td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""mySubSaleOrder.asp"">我的销售记录</a>"
Response.write " | <a href=""SubSaleOrder_add.asp"">添加销售记录</a>"
if GetUserGPower=9999 then
Response.write " | <a href=""P_SubSaleOrder_s.asp"">(省)销售统计</a>"
Response.write " | <a href=""P_SubSaleOrder_Chk.asp"">审核回款</a>"
elseif GetUserGPower=999 then
Response.write " | <a href=""S_SubSaleOrder_s.asp"">(市)销售统计</a>"
elseif GetUserGPower=99 then
Response.write " | <a href=""X_SubSaleOrder_s.asp"">(县)销售统计</a>"
end if
%>
</td>
</tr>
</table>
<%
if Action="SaleSave" then
Call SaleSave()
else
Call SaleOrder()
end if
Sub SaleOrder()
%>
<script src="../js/ChkFrm.js" language=javascript></script>
<SCRIPT language=javascript>
function CheckAdd()
{
if(fucCheckNUM(document.Frm3.Sale_Num.value)==false)
{
alert("销售数量,应该为一个数值");
document.Frm3.Sale_Num.focus();
return false;
}
if(fucCheckNUM(document.Frm3.Sale_Price.value)==false)
{
alert("销售单价,应该为一个数值");
document.Frm3.Sale_Price.focus();
return false;
}
if(fucCheckNUM(document.Frm3.Fund_Num.value)==false)
{
alert("回款数目,应该为一个数值");
document.Frm3.Fund_Num.focus();
return false;
}
if(fucCheckNUM(document.Frm3.BackFundMoney.value)==false)
{
alert("回款金额,应该为一个数值");
document.Frm3.BackFundMoney.focus();
return false;
}
if(fucCheckLength(document.Frm3.Sale_Info.value)>1000)
{
alert("情况说明字数不要超过1000字");
document.Frm3.Sale_Info.focus();
return false;
}
}
</script>
<form method="post" action="SubSaleOrder_add.asp?Action=SaleSave" name="Frm3" onsubmit="javascript:return CheckAdd();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center">销售记录-添加</div></td>
</tr>
<tr class="tdbg">
<td width="25%" class="tdbg">产品名称/型号</td>
<td width="75%" class="tdbg"><select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC","",0)%>
</select></td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品颜色</td>
<td class="tdbg"><input name="Pro_Col" type="text" id="Pro_Col" size="10" maxlength="5"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">销售数量</td>
<td class="tdbg"><input name="Sale_Num" type="text" id="Sale_Num2" size="10" maxlength="5"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">销售单价</td>
<td class="tdbg"> <input name="Sale_Price" type="text" id="Sale_Price" size="10" maxlength="5"></td>
</tr>
<tr class="tdbg">
<td class="tdbg"> 是否回款 </td>
<td class="tdbg"><input type="radio" name="IsBackFund" value="1">
是
<input name="IsBackFund" type="radio" value="0" checked>
否</td>
</tr>
<tr class="tdbg">
<td class="tdbg">回款数目</td>
<td class="tdbg"><input name="Fund_Num" type="text" id="Fund_Num" value="0" size="10" maxlength="5"> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">回款金额</td>
<td class="tdbg"><input name="BackFundMoney" type="text" id="BackFundMoney" value="0" size="10" maxlength="10"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">情况说明</td>
<td class="tdbg"><textarea name="Sale_Info" cols="50" rows="6" id="Sale_Info"></textarea></td>
</tr>
<tr class="tdbg">
<td class="tdbg">收款单位</td>
<td class="tdbg">
<%if GetUserGPower=9 then %>
<input name="ReCom" type="radio" value="省公司">省公司
<input type="radio" name="ReCom" value="市公司">市公司
<%if GetUserType=0 then%>
<input type="radio" name="ReCom" value="县公司">县公司
<%end if%>
<%end if%>
<%if GetUserGPower=99 then %>
<input name="ReCom" type="radio" value="省公司">省公司
<input type="radio" name="ReCom" value="市公司">市公司
<%end if%>
<%if GetUserGPower=999 or GetUserGPower=9999 then %>
<input name="ReCom" type="radio" value="省公司">省公司
<%end if%>
</td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input type="submit" name="Submit" value=" 提 交 " style="cursor:hand;"> </td>
</tr>
</table>
</form>
<%
end Sub
Sub SaleSave()
Dim crs,csql
Dim Pro_Name,Pro_Price,Pro_Col,Fund_Num
Dim Pro_ID,Sale_Price,Sale_Num,IsBackFund,BackFundMoney,Sale_Info,ReCom
Dim UpUserPower
Pro_ID = Request("Pro_ID")
if Pro_ID = "" then
Call Msg("不明参数！！",1,"")
end if
Sale_Price = Request("Sale_Price")
Sale_Num = Request("Sale_Num")
IsBackFund = Request("IsBackFund")
BackFundMoney = Request("BackFundMoney")
ReCom = Request("ReCom")
Sale_Info = Request("Sale_Info")
Pro_Col = Request("Pro_Col")
Fund_Num = Request("Fund_Num")
csql = "Select * from T_Product where Pro_ID="&cstr(Pro_ID)&""
Call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
Call Msg("产品不存在",1,"")
else
Pro_Name=crs("Pro_MC")
Pro_Price=crs("Pro_DJ")
end if
call rs_end(crs)
if GetUserGPower=9999 then
UpUserPower = 9999
elseif GetUserGPower=999 then
UpUserPower = 9999
elseif GetUserGPower=99 then
UpUserPower = 999
elseif GetUserGPower=9 then
if GetUserType = 1 then '市级分销点用户
UpUserPower = 999
else '县级用户
UpUserPower = 99
end if
end if
'//////先检查库存///////////////
'进货数累计JH,发货数累计FH,库存数Pre_Num,本次发货
'进货：Select Pro_Num from T_SubOutOrder where InChk_UserID=10010 and Pro_ID=1003 and IsChk=1
'发货：Select Pro_Num from T_SubOutOrder where UserID=10010 and Pro_ID=1003
'销售记录:Select * from T_SubSaleOrder UserID=10010 and Pro_ID=1003
Dim JH,FH,XS,Pre_Num
csql = "Select Pro_Num from T_SubOutOrder where InChk_UserID="&cstr(GetUserID)&" and Pro_ID="&cstr(Pro_ID)&" and IsChk=1;"
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
JH = 0
else
Do while not crs.eof
JH = JH + crs("Pro_Num")
crs.movenext
loop
end if
call rs_end(crs)
'发货数，只要自己发了货，不管对方是否确认
ccsql = "Select Pro_Num from T_SubOutOrder where UserID="&cstr(GetUserID)&" and Pro_ID="&cstr(Pro_ID)&""
call sql_open(ccrs,ccsql,conn,1,1)
if ccrs.eof and ccrs.bof then
FH = 0
else
Do while not ccrs.eof
FH = FH + ccrs("Pro_Num")
ccrs.movenext
loop
end if
call rs_end(ccrs)
'销售记录XS
'Select * from T_SubSaleOrder UserID=10010 and Pro_ID=1003
cccsql = "Select Sale_Num from T_SubSaleOrder where UserID="&cstr(GetUserID)&" and Pro_ID="&cstr(Pro_ID)&""
call sql_open(cccrs,cccsql,conn,1,1)
if cccrs.eof and cccrs.bof then
FH = 0
else
Do while not cccrs.eof
XS = XS + cccrs("Sale_Num")
cccrs.movenext
loop
end if
call rs_end(cccrs)
if clng(clng(JH)-(clng(FH)+clng(XS)))<clng(Sale_Num) then
Call Msg(Pro_Name&"库存不够",1,"")
end if
'//////检查库存///////////////
sql = "select * from T_SubSaleOrder"
call sql_open(rs,sql,conn,1,3)
rs.addnew
rs("UserID") = GetUserID '用户名
rs("CityID") = GetCityID '所在市
rs("CountyID") = GetCountyID '所在县
rs("UserType") = GetUserType '用户类型
rs("UserPower") = GetUserGPower '用户等级
rs("UpUserPower") = UpUserPower '上一级用户
rs("Pro_ID") = Pro_ID '产品ID
rs("Pro_Name") = Pro_Name '产品名
rs("Pro_Col") = Pro_Col '产品颜色
rs("Pro_Price") = Pro_Price '产品单价
rs("Sale_Price") = Sale_Price '出售单价
rs("Sale_Num") = Sale_Num '销售数量
rs("Sale_Money") = clng(Sale_Price)*clng(Sale_Num) '总销售量
rs("Sale_Info") = Sale_Info '情况说是
rs("Sale_Time") = Now() '售出时间
rs("Intime") = Now() '录入时间
rs("IsBackFund") = IsBackFund '是否回款
rs("Fund_Num") = Fund_Num '回款数量
rs("BackFundMoney") = BackFundMoney '回款金额
rs("ReCom") = ReCom
rs.update
call rs_end(rs)
Call Msg("保存成功",5,"mySubSaleOrder.asp")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -