📄 p_suboutorder_edit.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
if GetUserGPower<>9999 then
Call Msg("您没有权限访问此页",1,"")
end if
dim Action,crs,csql,Pro_Name
Dim ID
ID = trim(Request("ID"))
Action = Trim(request("Action"))
sql = "select * from T_SubOutOrder where OutOrder_ID = "&cstr(ID)&""
call sql_open(rs,sql,Conn,1,1)
if rs.eof and rs.bof then
call Msg("没有您要查找的内容",1,"")
end if
%>
<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">发货管理</td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""P_ChkSubOutOrder.asp"">省公司已审批订单</a>"
Response.write " | <a href=""P_subOutOrder.asp"">发货列表</a>"
Response.write " | <a href=""P_subOutOrder_s.asp"">发货统计</a>"
Response.write " | <a href=""P_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="P_SubOutOrder_edit.asp?Action=Sec" name="Frm1" 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"><input name="Area" type="radio" value="1" <%if rs("InChk_UserPower")=999 then Response.write "checked"%>>
市
<input type="radio" name="Area" value="2" <%if rs("InChk_UserPower")=99 then Response.write "checked"%>>
县
<input name="ID" type="hidden" id="ID" value="<%=ID%>"></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="P_SubOutOrder_edit.asp?Action=Thi" name="Frm2" 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">
<%
Dim CityName,CountyName
csql = "select * from City where CityID="&cstr(Rs("CityID"))&""
Call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
call Msg("市不存在",1,"")
else
CityName = crs("CityName")
end if
call rs_end(crs)
Response.Write CityName
if Rs("InChk_UserPower")=99 then '县级收货
csql = "Select * from County where CountyID="&Cstr(Rs("CountyID"))&""
call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
CountyName = "无"
else
CountyName = crs("CountyName")
end if
call rs_end(crs)
Response.write " "&CountyName
end if
%></td>
</tr>
<%
if Area=1 then
%>
<tr class="tdbg">
<td width="25%" class="tdbg">选择市</td>
<td width="75%" class="tdbg"><select name="CCityID" id="CCityID">
<%Call Opt_N("City","CityID","CityName","",0)%>
</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",Rs("Pro_ID"),0)%>
</select></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="ID" type="hidden" id="ID" value="<%=ID%>">
<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 CityID,CountyID,Pro_ID
Dim Pro_Name,Pro_Price
Dim CityName,CountyName
Dim crs,csql
Area = trim(Request("Area"))
if Area=1 then
CityID = trim(Request("CCityID"))
else
CityID = trim(Request("CityID"))
end if
CountyID = trim(Request("CountyID"))
Pro_ID = trim(Request("Pro_ID"))
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)
csql = "Select * from City where CityID = "&Cstr(CityID)&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
Call Msg("市，不存在",1,1)
else
CityName=crs("CityName")
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,1)
else
CountyName=crs("CountyName")
end if
call rs_end(crs)
end if
%>
<SCRIPT language=javascript>
function CheckAdd()
{
if(document.Frm3.Pro_Num.value=="")
{
alert("请填写发货数量");
document.Frm3.Pro_Num.focus();
return false;
}
}
</script>
<form method="post" action="P_SubOutOrder_edit.asp?Action=Save" 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">
<%
response.write CityName
if Area=2 then
response.write " "&CountyName
end if
%>
<select name="InChk_UserID" id="InChk_UserID">
<%
if Area=1 then
Call Opt_M("T_User","UserID","UserTrueName","","CityID="&CityID&" and UserGID=6",0)
else
Call Opt_M("T_User","UserID","UserTrueName","","CountyID="&CountyID&" and UserGID=7",0)
end if
%>
</select></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" value="<%=Rs("Pro_Col")%>"></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" value="<%=Rs("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"><%=Rs("OutOrder_Info")%></textarea></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input name="CityID" type="hidden" value="<%=CityID%>">
<input type="hidden" name="CountyID" value="<%=CountyID%>">
<input type="hidden" name="Pro_ID"value="<%=Pro_ID%>">
<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 OutOrderSave()
Dim Area
Dim ID
Dim InChk_UserID,Pro_ID,Pro_Name,Pro_Price,Pro_Num
Dim CityID,CountyID,UserName,UserID
Dim Pro_Col,OutOrder_Info
ID = trim(Request("ID"))
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
InChk_UserID = Request("InChk_UserID")
Pro_ID = Request("Pro_ID")
Pro_Name = Request("Pro_Name")
Pro_Price = Request("Pro_Price")
Pro_Num = Request("Pro_Num")
CityID = Request("CityID")
CountyID = Request("CountyID")
UserName = Request("UserName")
UserID = Request("UserID")
Pro_Col = Request("Pro_Col")
OutOrder_Info = Request("OutOrder_Info")
sql = "select * from T_SubOutOrder where OutOrder_ID="&Cstr(ID)&""
call sql_open(rs,sql,conn,1,3)
if rs.eof and rs.bof then
Call Msg("没有此单",1,"")
else
rs("Pro_ID") = Pro_ID '产品ID
rs("Pro_Name") = Pro_Name '产品名
rs("Pro_Num") = Pro_Num '数量
rs("Pro_Price") = Pro_Price '单价
rs("Pro_Money") = clng(Pro_Price)*clng(Pro_Num) '总金额
rs("InTime") = Now() '发货时间
rs("CityID") = CityID '市ID
if Area=2 then
rs("CountyID") = CountyID '县
rs("InChk_UserPower")=99
else
rs("InChk_UserPower")=999
end if
rs("UserID") = UserID '发货人ID
rs("UserName") = UserName '发货人姓名
rs("UserPower") = GetUserGPower '发货人等级
rs("InChk_UserID") = InChk_UserID '收货人ID
rs("Pro_Col") = Pro_Col
rs("OutOrder_Info") = OutOrder_Info
rs("ChkOutOrder")=1 '确认发货
rs.update
end if
call rs_end(rs)
Call Msg("保存成功",5,"P_SubOutOrder.asp")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -