📄 suborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'/////数据录入///////////////////////////////////////////////
'T_SubSaleOrder '回款/销售数 SaleOrder
'T_SubOutOrder '进货/发货数 InOutOrder
'T_SubOrder '申购数 SubOrder
'/////数据录入///////////////////////////////////////////////
if GetUserGPower<>9999 then
Call Msg("您没有权限访问此页",1,"")
end if
dim Action,crs,csql,Pro_Name
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">
<script src="../js/ListOp.js " language=javascript></script>
<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">
<a href="SubOrder.asp">申购</a> |
<a href="InOutOrder.asp">发货/进货</a> |
<a href="SaleOrder.asp">售出回款</a> |
</td>
</tr>
</table>
<%
if Action="Sec" then
call SubOrder_Sec()
elseif Action="Thi" then
Call SubOrder_Thi()
elseif Action="Save" then
Call SubOrderSave()
else
Call SubOrder_Fir()
end if
Sub SubOrder_Fir()
%>
<form method="post" action="SubOrder.asp?Action=Sec" name="Frm1">
<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="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 SubOrder_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="SubOrder.asp?Action=Thi" name="Frm2">
<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>
<%
if Area=1 then
%>
<tr class="tdbg">
<td width="35%" class="tdbg">选择市</td>
<td width="65%" 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","",0)%>
</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 SubOrder_Thi()
Dim Area
Dim CityID,CountyID,Pro_ID
Dim Pro_Name,Pro_Price
Dim CityName,CountyName
Dim crs,csql
Dim SubOrderID
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 src="../js/ChkFrm.js" language=javascript></script>
<SCRIPT language=javascript>
function CheckAdd()
{
if(fucCheckNUM(document.Myfrom.SubOrderTotal.value)==false)
{
alert("申购数量,应该为一个数值");
document.Myfrom.SubOrderTotal.focus();
return false;
}
if(fucCheckLength(document.Myfrom.SubOrderInfo.value)>1000)
{
alert("情况说明字数不要超过1000字");
document.Myfrom.SubOrderInfo.focus();
return false;
}
}
</script>
<form method="post" action="SubOrder.asp?Action=Save" name="Myfrom" 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>
<td class="tdbg">申购人</td>
<td width="65%" class="tdbg">
<%
response.write CityName
if Area=2 then
response.write " "&CountyName
end if
%>
<select name="UserID" id="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 width="160" class="tdbg">订单主题</td>
<td width="829" class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" size="40" maxlength="30"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">申购产品/型号</td>
<TD>产品名称/型号
<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>
</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>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="CityID" type="hidden" value="<%=CityID%>">
<input type="hidden" name="CountyID" value="<%=CountyID%>">
<%
if Area=1 then '市
Response.Write "<input name=""UserGPower"" type=""hidden"" id=""UserGPower"" value=""999"">"
elseif Area=2 then '县
Response.Write "<input name=""UserGPower"" type=""hidden"" id=""UserGPower"" value=""99"">"
end if
%>
<input name="UserType" type="hidden" id="UserType" value="0">
<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 SubOrderSave()
Dim DDNo
Dim Pro_col
Dim Pro_ID,SubOrderTitle,SubOrderTotal,toTime,SubOrderInfo,IsMoney,SubMoney
Dim UserID,UserName,CityID,CountyID,UserGPower,UserType
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"))
UserID = trim(Request("UserID"))
CityID = trim(Request("CityID"))
CountyID = trim(Request("CountyID"))
UserGPower = trim(Request("UserGPower"))
UserType = trim(Request("UserType"))
SupChk_UserGPower = 9999
if UserID<>"" then
csql="Select * from T_User where UserID="&Cstr(UserID)&""
Call sql_open(crs,csql,Conn,1,3)
if crs.eof and crs.bof then
Call Msg("用户，不存在",1,1)
else
UserName = crs("UserName")
end if
call rs_end(crs)
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("SubMoney")=0
rs("SubOrderInfo")=SubOrderInfo
rs("UserID")=UserID
rs("UserName")=UserName
rs("CityID")=CityID
if CountyID<>"" then
rs("CountyID")=CountyID
end if
rs("UserGPower")=UserGPower
rs("SupChk_UserGPower") = 9999
rs("UserType")=0
rs("SupChk_UserID")=GetUserID
rs("SupChk_UserName")=GetUserName
rs("IsChk")=1
rs("ChkInfo")="已审核"
rs("ChkTime")=Now()
rs.update
Call Rs_End(Rs)
Call Msg("添加成功", 5,"SubOrder.asp")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -