📄 suborder_wrt.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'添加修改管理
dim Action,crs,csql,Pro_Name
Action = Trim(request("Action"))
%>
<html>
<style type="text/css">
<!--
.style1 {color: #0000FF}
-->
</style>
<head>
<title>订单添加</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<script src="../js/ListOp.js " language=javascript></script>
</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">
<%
if GetUserGPower = 9999 then
Response.write "<a href=""SX_Chk_SubOrder.asp"">订单审批</a>"
Response.write " | <a href=""SX_SubOrder_List.asp"">订单列表</a>"
end if
if GetUserGPower = 999 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">市公司订单</a>"
Response.write " | <a href=""X_Chk_SubOrder.asp"">县级待审批订单</a>"
Response.write " | <a href=""X_SubOrder_List.asp"">县级订单列表</a>"
Response.write " | <a href=""SF_SubOrder_List.asp?Chk=0"">分销点待审批订单</a>"
Response.write " | <a href=""SF_SubOrder_List.asp?Chk=1"">分销点订单列表</a>"
end if
if GetUserGPower = 99 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">县公司订单</a>"
Response.write " | <a href=""XF_SubOrder_List.asp?Chk=0"">分销点待审批订单</a>"
Response.write " | <a href=""XF_SubOrder_List.asp?Chk=1"">分销点订单列表</a>"
end if
if GetUserGPower = 9 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">我的订单</a>"
end if
%>
</td>
</tr>
</table>
<%
if Action="Add" then '添加
call AddSubOrder()
elseif Action="SaveAdd" then '保存添加
call SaveAdd()
elseif Action="Modify" then '修改
call Modify()
elseif Action="SaveModify" then '保存修改
call SaveModify()
else
Call AddSubOrder()
end if
Call Conn_End(Conn)
sub AddSubOrder()
%>
<form method="post" action="SubOrder_wrt.asp" name="Myfrom">
<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="160" class="tdbg">订单主题</td>
<td width="829" class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" value="<%=GetUserUnit%>" size="40" maxlength="30">
<span class="style1">(默认为单位名称)</span></td>
</tr>
<tr class="tdbg">
<td class="tdbg">申购产品/型号</td>
<TD class=tablebody2 valign=top>产品名称/型号
<select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC","",0)%>
</select>
产品颜色
<input name="Pro_col" type="text" id="Pro_col" size="8" maxlength="5">
申购数量
<input name="SubOrderTotal" type="text" id="SubOrderTotal" size="10" maxlength="2"> </td>
</TD>
</tr>
<tr class="tdbg">
<td class="tdbg">要求到货日期</td>
<td class="tdbg"><input name=toTime size=22 readonly> <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
<div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"></textarea></td>
</tr>
<tr class="tdbg">
<td class="tdbg">收货人</td>
<td class="tdbg"><input name="RecName" type="text" id="RecName" maxlength="20"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">收货地址</td>
<td class="tdbg"><input name="RecAddress" type="text" id="RecAddress" size="50" maxlength="100"></td>
</tr>
<!--
<tr class="tdbg">
<td class="tdbg">是否现款现货</td>
<td class="tdbg"><input type="radio" name="IsMoney" value="1">
是
<input name="IsMoney" type="radio" value="0" checked>
否</td>
</tr>
<tr class="tdbg">
<td class="tdbg">款货金额</td>
<td class="tdbg"><input name="SubMoney" type="text" id="SubMoney" value="0" size="15" maxlength="20">
元</td>
</tr>
-->
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>">
<input name="UserName" type="hidden" id="UserName" value="<%=GetUserName%>">
<input name="CityID" type="hidden" id="CityID" value="<%=GetCityID%>">
<input name="CountyID" type="hidden" id="CountyID" value="<%=GetCountyID%>">
<input name="UserGPower" type="hidden" id="UserGPower" value="<%=GetUserGPower%>">
<input name="UserType" type="hidden" id="UserType" value="<%=GetUserType%>">
<input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit" value=" 添 加 " style="cursor:hand;"> </td>
</tr>
</table>
</form>
<%
end sub
sub Modify()
Dim SubOrderID
SubOrderID=trim(Request("ID"))
if SubOrderID="" then
Call Msg("请指定要修改的内容", 1,"")
exit sub
else
SubOrderID=Clng(SubOrderID)
end if
Sql="Select * from T_SubOrder where UserID="&GetUserID&" and SubOrderID="&SubOrderID&" and (IsChk=0 or IsChk=2)"
Call sql_open(Rs,Sql,Conn,1,3)
If Rs.Bof And Rs.EOF Then
Call Msg("订单不存在或已经审批，请不要修改",1,"")
Else
' response.write IsChk
' if Rs("IsChk")=1 then
' Call Msg("订单已经确认,请不要修改",1,"")
' end if
%>
<form method="post" action="SubOrder_wrt.asp" name="Myfrom" onsubmit="javascript:return CheckModify();">
<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>
<td class="tdbg">主题</td>
<td class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" value="<%=Rs("SubOrderTitle")%>" size="40" maxlength="30">
<span class="style1">(默认为单位名称)</span></td>
</tr>
<tr class="tdbg">
<td class="tdbg">申购产品/型号</td>
<TD class=tablebody2 valign=top>产品名称/型号
<select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC",Rs("Pro_ID"),0)%>
</select>
产品颜色
<input name="Pro_col" type="text" id="Pro_col" size="8" maxlength="5" value="<%=Rs("Pro_col")%>">
申购数量
<input name="SubOrderTotal" type="text" id="SubOrderTotal" value="<%=Rs("SubOrderTotal")%>"> </td>
</TD>
</tr>
<tr class="tdbg">
<td class="tdbg">要求到货日期</td>
<td class="tdbg"><input name=toTime size=22 readonly value="<%=Rs("toTime")%>"> <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
<div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"><%=Rs("SubOrderInfo")%></textarea>
</td>
</tr>
<tr class="tdbg">
<td class="tdbg">收货人</td>
<td class="tdbg"><input name="RecName" type="text" id="RecName" maxlength="20" value="<%=Rs("RecName")%>"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">收货地址</td>
<td class="tdbg"><input name="RecAddress" type="text" id="RecAddress" size="50" maxlength="100" value="<%=Rs("RecAddress")%>"></td>
</tr>
<!--
<tr class="tdbg">
<td class="tdbg">是否现款现货</td>
<td class="tdbg"><input type="radio" name="IsMoney" value="1" <if Rs("IsMoney")=true then Response.Write("checked")%>>
是
<input name="IsMoney" type="radio" value="0" <if Rs("IsMoney")=false then Response.Write("checked")%>>
否</td>
</tr>
<tr class="tdbg">
<td class="tdbg">款货金额</td>
<td class="tdbg"><input name="SubMoney" type="text" id="SubMoney" value="<=Rs("SubMoney")%>" size="15" maxlength="20">
元</td>
</tr>
-->
<tr>
<td colspan="2" align="center" class="tdbg">
<input name="UserID" type="hidden" id="UserID" value="<%=Rs("UserID")%>">
<input name="UserName" type="hidden" id="UserName" value="<%=Rs("UserName")%>">
<input name="CityID" type="hidden" id="CityID" value="<%=Rs("CityID")%>">
<input name="CountyID" type="hidden" id="CountyID" value="<%=Rs("CountyID")%>">
<input name="UserGPower" type="hidden" id="UserGPower" value="<%=Rs("UserGPower")%>">
<input name="UserType" type="hidden" id="UserType" value="<%=Rs("UserType")%>">
<input name="SubOrderID" type="hidden" id="SubOrderID" value="<%=Rs("SubOrderID")%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input type="submit" name="Submit" value="保存修改结果" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
End If
Call Rs_End(Rs)
End Sub
%>
</body>
</html>
<%
'增加新组
Sub SaveAdd()
Dim DDNo
Dim Pro_col
Dim Pro_ID,SubOrderTitle,SubOrderTotal,toTime,SubOrderInfo,IsMoney,SubMoney
Dim UserID,UserName,CityID,CountyID,UserGPower,UserType
Dim RecName,RecAddress
Dim SupChk_UserGPower
DDNo = trim("DD"&Format_Time(Now(),7)&RndNum(4))
Pro_ID=trim(Request("Pro_ID"))
SubOrderTitle=trim(Request("SubOrderTitle"))
SubOrderTotal=trim(Request("SubOrderTotal"))
Pro_col = trim(Request("Pro_col"))
toTime=trim(Request("toTime"))
SubOrderInfo=trim(Request("SubOrderInfo"))
' IsMoney=trim(Request("IsMoney"))
' SubMoney=trim(Request("SubMoney"))
UserID = trim(Request("UserID"))
UserName = trim(Request("UserName"))
CityID = trim(Request("CityID"))
CountyID = trim(Request("CountyID"))
UserGPower = trim(Request("UserGPower"))
UserType = trim(Request("UserType"))
RecName = trim(Request("RecName"))
RecAddress = trim(Request("RecAddress"))
if UserGPower = 9999 then
SupChk_UserGPower = 9999
elseif UserGPower = 999 then
SupChk_UserGPower = 9999
elseif UserGPower = 99 then
SupChk_UserGPower = 999
elseif UserGPower = 9 then
if GetUserType = 1 then
SupChk_UserGPower = 999
else
SupChk_UserGPower = 99
end if
end if
Sql="Select * from T_SubOrder"
Call sql_open(Rs,Sql,Conn,1,3)
rs.addnew
rs("DDNo")=DDNo '流水号：DD+年月日时分秒+4位随机数
rs("Pro_ID")=Pro_ID
rs("SubOrderTitle")=SubOrderTitle
rs("SubOrderTotal")=SubOrderTotal
rs("Pro_col") = Pro_col
rs("toTime")=toTime
rs("SubOrderInfo")=SubOrderInfo
' if IsMoney=1 then
' rs("IsMoney")=true
' rs("SubMoney")=SubMoney
' else
' rs("IsMoney")=false
' rs("SubMoney")=0
' end if
rs("RecName")=RecName
rs("RecAddress")=RecAddress
' rs("SubMoney")=SubMoney
rs("UserID")=UserID
rs("UserName")=UserName
rs("CityID")=CityID
rs("CountyID")=CountyID
rs("UserGPower")=UserGPower
rs("SupChk_UserGPower") = SupChk_UserGPower
rs("UserType")=UserType
rs.update
Call Rs_End(Rs)
Call Msg("添加成功", 5,"My_SubOrder_List.asp")
end sub
'修改
sub SaveModify()
Dim SubOrderID
Dim Pro_col
Dim Pro_ID,SubOrderTitle,SubOrderTotal,toTime,SubOrderInfo,IsMoney,SubMoney
Dim UserID,UserName,CityID,CountyID,UserGPower,UserType
Dim RecName,RecAddress
SubOrderID=trim(Request("SubOrderID"))
if SubOrderID="" then
Call Msg("请指定要修改的内容", 1,"")
else
SubOrderID=Clng(SubOrderID)
end if
Pro_ID=trim(Request("Pro_ID"))
SubOrderTitle=trim(Request("SubOrderTitle"))
SubOrderTotal=trim(Request("SubOrderTotal"))
Pro_col = trim(Request("Pro_col"))
toTime=trim(Request("toTime"))
SubOrderInfo=trim(Request("SubOrderInfo"))
' IsMoney=trim(Request("IsMoney"))
' SubMoney=trim(Request("SubMoney"))
RecName = trim(Request("RecName"))
RecAddress = trim(Request("RecAddress"))
if SubOrderInfo="" then
Call Msg("主题不能为空", 1,"")
end if
UserID = trim(Request("UserID"))
UserName = trim(Request("UserName"))
CityID = trim(Request("CityID"))
CountyID = trim(Request("CountyID"))
UserGPower = trim(Request("UserGPower"))
UserType = trim(Request("UserType"))
Sql="Select * from T_SubOrder where UserID="&GetUserID&" and SubOrderID=" & SubOrderID
Call sql_open(Rs,Sql,Conn,1,3)
if Rs.Bof and Rs.EOF then
Call Msg("不存在此内容", 1,"")
Call Rs_End(Rs)
exit sub
end if
rs("IsChk") = 0 '如果上级拒绝，重写IsChk
rs("Pro_ID")=Pro_ID
rs("SubOrderTitle")=SubOrderTitle
rs("SubOrderTotal")=SubOrderTotal
rs("Pro_col") = Pro_col
rs("toTime")=toTime
rs("SubOrderInfo")=SubOrderInfo
rs("RecName")=RecName
rs("RecAddress")=RecAddress
' if IsMoney=1 then
' rs("IsMoney")=true
' rs("SubMoney")=SubMoney
' else
' rs("IsMoney")=false
' end if
rs("UserID")=UserID
rs("UserName")=UserName
rs("CityID")=CityID
rs("CountyID")=CountyID
rs("UserGPower")=UserGPower
rs("UserType")=UserType
Rs.update
Call Rs_End(Rs)
Call Msg("修改成功", 5,"My_SubOrder_List.asp")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -