📄 s_suboutorder_wrt.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
if GetUserGPower<>999 then
Call Msg("您没有权限访问此页",1,"")
end if
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">
<style type="text/css">
<!--
.style1 {font-weight: bold}
-->
</style>
</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"><strong>发货管理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""S_subOutOrder.asp"">发货列表</a>"
Response.write " | <a href=""S_subOutOrder_s.asp"">发货统计</a>"
Response.write " | <a href=""S_subOutOrder_wrt.asp"">我要发货</a>"
%>
</td>
</tr>
</table>
<%
if Action="Sec" then
call OutOrder_Sec()
elseif Action="Thi" then
Call OutOrder_Thi()
elseif Action="Save" then
Call OutOrderSave()
else
Call OutOrder_Fir()
end if
Sub OutOrder_Fir()
%>
<form method="post" action="S_subOutOrder_wrt.asp?Action=Sec" name="Frm1">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">发货:第一步</div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">收货方</td>
<td width="65%" class="tdbg"><input name="Area" type="radio" value="1" checked>
市分销点
<input type="radio" name="Area" value="2">
县</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 OutOrder_Sec()
dim Area
Area = Trim(Request("Area"))
if Area="" then
Call Msg("不明参数", 1,"")
end if
if cint(Area)<>1 and cint(Area)<>2 then
Call Msg("不明参数!", 1,"")
end if
%>
<form method="post" action="S_subOutOrder_wrt.asp?Action=Thi" name="Frm2">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">发货:第二步</div></td>
</tr>
<%
if Area=1 then
%>
<tr class="tdbg">
<td width="35%" class="tdbg">选择市分销点</td>
<td width="65%" class="tdbg">
<select name="InChk_UserID" id="InChk_UserID">
<%
Call Opt_M("T_User","UserID","UserUnit","","CityID="&GetCityID&" and CountyID=0 and UserGID=8",2)
%>
</select>
</td>
</tr>
<%else%>
<tr class="tdbg">
<td class="tdbg">选择县</td>
<td class="tdbg">
<!--联动下拉框开始-->
<%
Dim Rst,Sqlt,Rstt,sqltt
Dim kCount
Sqlt = "select * from County order by CountyID asc"
Call sql_open(Rst,Sqlt,Conn,1,1)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
kCount = 0
do while not Rst.eof
%>
subcat[<%=kCount%>] = new Array("<%= trim(Rst("CountyName"))%>","<%= trim(Rst("CityID"))%>","<%= trim(Rst("CountyID"))%>");
<%
kCount = kCount + 1
Rst.movenext
loop
Call Rs_End(Rst)
%>
onecount=<%=kCount%>;
function changelocation(CityID)
{
document.Frm2.CountyID.length = 0;
var CityID=CityID;
var i;
//document.Frm2.CountyID.options[0] = new Option('====所有地区====','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == CityID)
{
document.Frm2.CountyID.options[document.Frm2.CountyID.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<select name="CityID" onChange="changelocation(document.Frm2.CityID.options[document.Frm2.CityID.selectedIndex].value)">
<%
Sqltt = "select * from City order by CityID asc"
Call sql_open(Rstt,Sqltt,Conn,1,1)
do while not Rstt.eof
%>
<option value="<%=trim(Rstt("CityID"))%>"><%=trim(Rstt("CityName"))%></option>
<%
Rstt.movenext
loop
Call Rs_End(Rstt)
%>
</select>
<select name="CountyID">
<option selected value="">==所有地区==</option>
</select>
<script LANGUAGE="javascript">
changelocation(document.Frm2.CityID.options[document.Frm2.CityID.selectedIndex].value);
</script>
<!--联动下拉框结束-->
</td>
</tr>
<%end if%>
<tr class="tdbg">
<td class="tdbg">产品名称/型号</td>
<td class="tdbg"><select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC","",2)%>
</select></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="Area" type="hidden" id="Area" value="<%=Area%>">
<input type="submit" name="Submit" value="下一步>>" style="cursor:hand;"> </td>
</tr>
</table>
</form>
<%End Sub
Sub OutOrder_Thi()
Dim Area
Dim InChk_UserID
Dim CountyID,Pro_ID
Dim Pro_Name,Pro_Price
Dim CountyName
Dim crs,csql
Dim SubOrderID
Area = trim(Request("Area"))
if Area=1 then
InChk_UserID = trim(Request("InChk_UserID"))
else
CountyID = trim(Request("CountyID"))
end if
Pro_ID = trim(Request("Pro_ID"))
SubOrderID = trim(Request("SubOrderID"))
if Area="" then
Call Msg("不明参数", 1,"")
end if
if cint(Area)<>1 and cint(Area)<>2 then
Call Msg("不明参数!", 1,"")
end if
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 Area=2 then
csql = "Select * from County where CountyID = "&Cstr(CountyID)&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
Call Msg("县，不存在",1,"")
else
CountyName=crs("CountyName")
end if
call rs_end(crs)
elseif Area=1 then
csql = "Select * from T_User where UserID="&Cstr(InChk_UserID)&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
Call Msg("此分销商不存在",1,"")
else
InChk_UserID=crs("UserID")
end if
call rs_end(crs)
end if
%>
<script src="../js/ChkFrm.js" language=javascript></script>
<SCRIPT language=javascript>
function CheckAdd()
{
if(document.Frm3.Pro_Num.value=="")
{
alert("请填写发货数量");
document.Frm3.Pro_Num.focus();
return false;
}
if(fucCheckNUM(document.Frm3.Pro_Num.value)==false)
{
alert("发货数量,应该为一个数值");
document.Frm3.Pro_Num.focus();
return false;
}
}
</script>
<form method="post" action="S_subOutOrder_wrt.asp?Action=Save" name="Frm3" onsubmit="javascript:return CheckAdd();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">发货:第三步</div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">收货方信息</td>
<td width="65%" class="tdbg">
<%
if Area=2 then
response.write " "&CountyName
Response.write "<select name=""InChk_UserID"" id=""InChk_UserID"">"
Call Opt_M("T_User","UserID","UserUnit","","CountyID="&CountyID&" and UserGID=7",0)
Response.write "</select>"
elseif Area=1 then
Response.write "<select name=""InChk_UserID"" id=""InChk_UserID"">"
Call Opt_M("T_User","UserID","UserUnit","","UserID="&cstr(InChk_UserID)&"",0)
Response.write "</select>"
end if
%>
</td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品名称/型号</td>
<td class="tdbg"><input name="Pro_Name" type="text" id="Pro_Name" value="<%=Pro_Name%>" readonly></td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品颜色</td>
<td class="tdbg"><input name="Pro_Col" type="text" id="Pro_Col" size="10" maxlength="15"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品单价</td>
<td class="tdbg"><input name="Pro_Price" type="text" id="Pro_Price" value="<%=Pro_Price%>" readonly>
元</td>
</tr>
<tr class="tdbg">
<td class="tdbg">发货数量</td>
<td class="tdbg"><input name="Pro_Num" type="text" id="Pro_Num"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">发货人姓名</td>
<td class="tdbg"><input name="UserName" type="text" id="UserName" value="<%=GetUserName%>">
<input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">其它说明</td>
<td class="tdbg"><textarea name="OutOrder_Info" cols="40" rows="6" id="OutOrder_Info"></textarea></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<%
if Area=2 then
%>
<input type="hidden" name="CountyID" value="<%=CountyID%>">
<%
end if
%>
<input type="hidden" name="Pro_ID"value="<%=Pro_ID%>">
<input name="Area" type="hidden" id="Area" value="<%=Area%>">
<input type="hidden" name="SubOrderID"value="<%=SubOrderID%>">
<input type="submit" name="Submit" value=" 完 成 " style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end Sub
Sub OutOrderSave()
Dim Area
Dim Pro_Col,OutOrder_Info
Dim InChk_UserID,Pro_ID,Pro_Name,Pro_Price,Pro_Num
Dim CityID,CountyID,UserName,UserID
Dim SubOrderID
Area = trim(Request("Area"))
if Area="" then
Call Msg("1不明参数", 1,"")
end if
if cint(Area)<>1 and cint(Area)<>2 then
Call Msg("2不明参数!", 1,"")
end if
InChk_UserID = Request("InChk_UserID")
Pro_ID = Request("Pro_ID")
Pro_Name = Request("Pro_Name")
Pro_Col = Request("Pro_Col")
Pro_Price = Request("Pro_Price")
Pro_Num = Request("Pro_Num")
CountyID = Request("CountyID")
UserName = Request("UserName")
UserID = Request("UserID")
OutOrder_Info = Request("OutOrder_Info")
SubOrderID = trim(Request("SubOrderID"))
'//////先检查库存///////////////
'进货数累计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(Pro_Num) then
Call Msg(Pro_Name&"库存不够",1,"")
end if
'//////检查库存///////////////
sql = "select * from T_SubOutOrder"
call sql_open(rs,sql,conn,1,3)
rs.addnew
if SubOrderID <> "" then
rs("SubOrderID") = SubOrderID
csql = "update T_SubOrder set IsOutOrder=1,OutNum=OutNum+1 where SubOrderID="&cstr(SubOrderID)&""
conn.execute(csql)
end if
rs("Pro_ID") = Pro_ID '产品ID
rs("Pro_Name") = Pro_Name '产品名
rs("Pro_Col") = Pro_Col
rs("Pro_Num") = Pro_Num '数量
rs("Pro_Price") = Pro_Price '单价
rs("Pro_Money") = clng(Pro_Price)*clng(Pro_Num) '总金额
rs("InTime") = Now() '发货时间
rs("CityID") = GetCityID '市ID
if Area=2 then
rs("CountyID") = CountyID '县
rs("InChk_UserPower")=99
rs("InChk_UserType")=0
else
rs("InChk_UserPower")=9
rs("InChk_UserType")=1
end if
rs("UserID") = UserID '发货人ID
rs("UserName") = UserName '发货人姓名
rs("UserPower") = GetUserGPower '发货人等级
rs("InChk_UserID") = InChk_UserID '收货人ID
rs("OutOrder_Info") = OutOrder_Info
rs.update
Call rs_end(rs)
if SubOrderID="" then
Call Msg("保存成功",5,"S_subOutOrder.asp")
else
Response.Redirect "keepSubOrder.asp?SubOrderID="&SubOrderID&""
end if
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -