📄 x_suboutorder_wrt.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
if GetUserGPower<>99 then
Call Msg("您没有权限访问此页",1,"")
end if
'订单管理: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=""X_subOutOrder.asp"">发货列表</a>"
Response.write " | <a href=""X_subOutOrder_s.asp"">发货统计</a>"
Response.write " | <a href=""X_subOutOrder_wrt.asp"">我要发货</a>"
%>
</td>
</tr>
</table>
<%
if Action="Thi" then
Call OutOrder_Thi()
elseif Action="Save" then
Call OutOrderSave()
else
Call OutOrder_Sec()
end if
Sub OutOrder_Sec()
%>
<form method="post" action="X_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>
<tr class="tdbg">
<td width="25%" class="tdbg">选择县分销点</td>
<td width="75%" class="tdbg">
<select name="InChk_UserID" id="InChk_UserID">
<%
Call Opt_M("T_User","UserID","UserTrueName","","CountyID="&cstr(GetCountyID)&" and UserGID=8",0)
%>
</select></td>
</tr>
<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","",0)%>
</select></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_Thi()
Dim InChk_UserID
Dim CountyID,Pro_ID
Dim Pro_Name,Pro_Price
Dim CountyName
Dim crs,csql
Dim SubOrderID
InChk_UserID = trim(Request("InChk_UserID"))
SubOrderID = trim(Request("SubOrderID"))
Pro_ID = trim(Request("Pro_ID"))
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)
%>
<SCRIPT language=javascript>
function CheckAdd()
{
if(document.Frm3.Pro_Num.value=="")
{
alert("请填写发货数量");
document.Frm3.Pro_Num.focus();
return false;
}
}
</script>
<form method="post" action="X_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="25%" class="tdbg">收货人信息</td>
<td width="75%" class="tdbg">
<%
Response.write "<select name=""InChk_UserID"" id=""InChk_UserID"">"
Call Opt_M("T_User","UserID","UserTrueName","","UserID="&cstr(InChk_UserID)&"",0)
Response.write "</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"></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="UserName2" value="<%=GetUserName%>">
<input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>">
<input type="hidden" name="Pro_ID"value="<%=Pro_ID%>">
<input type="hidden" name="SubOrderID"value="<%=SubOrderID%>">
</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">
<input type="submit" name="Submit" value=" 完 成 " style="cursor:hand;"> </td>
</tr>
</table>
</form>
<%
end Sub
Sub OutOrderSave()
Dim Area
Dim Pro_Col
Dim InChk_UserID,Pro_ID,Pro_Name,Pro_Price,Pro_Num
Dim UserName,UserID
Dim OutOrder_Info
Dim SubOrderID
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")
UserName = Request("UserName")
UserID = Request("UserID")
OutOrder_Info = Request("OutOrder_Info")
SubOrderID = 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("OutOrder_Info") = OutOrder_Info
rs("InTime") = Now() '发货时间
rs("CityID") = GetCityID '县ID
rs("CountyID") = GetCountyID '县
rs("InChk_UserPower")=9
rs("InChk_UserType")=0
rs("UserID") = UserID '发货人ID
rs("UserName") = UserName '发货人姓名
rs("UserPower") = GetUserGPower '发货人等级
rs("InChk_UserID") = InChk_UserID '收货人ID
rs.update
call rs_end(rs)
if SubOrderID="" then
Call Msg("保存成功",5,"X_subOutOrder.asp")
else
Response.Redirect "keepSubOrder.asp?SubOrderID="&SubOrderID&""
end if
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -