📄 saleorder.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'/////数据录入///////////////////////////////////////////////
'T_SubSaleOrder			'回款/销售数 SaleOrder
'T_SubOutOrder			'进货/发货数 InOutOrder
'T_SubOrder				'申购数		 SubOrder
'/////数据录入///////////////////////////////////////////////
Dim crs,csql
Dim ccrs,ccsql
Dim cccrs,cccsql
if GetUserGPower<>9999 then
	Call Msg("您没有权限访问此页",1,"")
end if
dim Action,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">

<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>&nbsp;|&nbsp;
	<a href="InOutOrder.asp">发货/进货</a>&nbsp;|&nbsp;
	<a href="SaleOrder.asp">售出回款</a>&nbsp;|&nbsp;		
	</td>
  </tr>
</table>
<%

if Action="Sec" then
	call SaleOrder_Sec()
elseif Action="Thi" then
	Call SaleOrder_Thi()
elseif Action="Save" then
	Call SaleOrderSave()
else
	Call SaleOrder_Fir()
end if

Sub SaleOrder_Fir()
%>
<form method="post" action="SaleOrder.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 SaleOrder_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="SaleOrder.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> 
      <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 SaleOrder_Thi()
Dim Area
Dim CityID,CountyID,Pro_ID
Dim Pro_Name,Pro_Price
Dim CityName,CountyName

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 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.Frm3.Sale_Num.value)==false)
   {
   alert("销售数量,应该为一个数值");
   document.Frm3.Sale_Num.focus();
   return false;
   }
 if(fucCheckNUM(document.Frm3.Sale_Price.value)==false)
   {
   alert("销售单价,应该为一个数值");
   document.Frm3.Sale_Price.focus();
   return false;
   }   
 if(fucCheckNUM(document.Frm3.Fund_Num.value)==false)
   {
   alert("回款数目,应该为一个数值");
   document.Frm3.Fund_Num.focus();
   return false;
   }   
 if(fucCheckNUM(document.Frm3.BackFundMoney.value)==false)
   {
   alert("回款金额,应该为一个数值");
   document.Frm3.BackFundMoney.focus();
   return false;
   }            

 if(fucCheckLength(document.Frm3.Sale_Info.value)>1000)
   {
   alert("情况说明字数不要超过1000字");
   document.Frm3.Sale_Info.focus();
   return false;
   } 
   
}
</script>

<form method="post" action="SaleOrder.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="35%" class="tdbg">收货人</td>
      <td width="65%" class="tdbg">
	  <%
	  response.write CityName
	  if Area=2 then
	  	response.write "&nbsp;"&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 width="25%" class="tdbg">产品名称/型号</td>
      <td width="75%" class="tdbg"><select name="Pro_ID" id="Pro_ID">
        <%Call Opt_N("T_Product","Pro_ID","Pro_MC","",0)%>
      </select></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">产品颜色</td>
      <td class="tdbg"><input name="Pro_Col" type="text" id="Pro_Col" size="10" maxlength="5"></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">销售数量</td>
      <td class="tdbg"><input name="Sale_Num" type="text" id="Sale_Num2" size="10" maxlength="5"></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">销售单价</td>
      <td class="tdbg">      <input name="Sale_Price" type="text" id="Sale_Price" size="10" maxlength="5"></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg"> 是否回款 </td>
      <td class="tdbg"><input type="radio" name="IsBackFund" value="1">        
        是
          <input name="IsBackFund" type="radio" value="0" checked>
      否</td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">回款数目</td>
      <td class="tdbg"><input name="Fund_Num" type="text" id="Fund_Num" value="0" size="10" maxlength="5">      </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">回款金额</td>
      <td class="tdbg"><input name="BackFundMoney" type="text" id="BackFundMoney" value="0" size="10" maxlength="10"></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">情况说明</td>
      <td class="tdbg"><textarea name="Sale_Info" cols="50" rows="6" id="Sale_Info"></textarea></td>
    </tr>
    <tr> 
      <td height="40" colspan="2" align="center" class="tdbg">
	    <input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>">
        <input name="CityID" type="hidden" value="<%=CityID%>">
        <input type="hidden" name="CountyID" value="<%=CountyID%>">
        <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 SaleOrderSave()
	Dim Area
	Dim InChk_UserID,CityID,CountyID
	Dim Pro_Name,Pro_Price,Pro_Col,Fund_Num
	Dim Pro_ID,Sale_Price,Sale_Num,IsBackFund,BackFundMoney,Sale_Info
	Dim UpUserPower
	InChk_UserID	= Request("InChk_UserID")
	CityID			= Request("CityID")
	CountyID		= Request("CountyID")
	Area			= Request("Area")
	Pro_ID		= Request("Pro_ID")
	if Pro_ID = "" then
		Call Msg("不明参数！！",1,"")
	end if
	Sale_Price	= Request("Sale_Price")
	Sale_Num	= Request("Sale_Num")
	IsBackFund	= Request("IsBackFund")
	BackFundMoney = Request("BackFundMoney")
	Sale_Info = Request("Sale_Info")
	Pro_Col = Request("Pro_Col")
	Fund_Num = Request("Fund_Num")
	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)



	sql = "select * from T_SubSaleOrder"
	call sql_open(rs,sql,conn,1,3)
	rs.addnew

		rs("UserID") = InChk_UserID								'用户名
		rs("CityID") = CityID									'所在市
		rs("UserType") = 0										'用户类型
		if Area=1 then
			rs("UserPower") = 999							'用户等级
			rs("UpUserPower") = 9999						'上一级用户
		else
			rs("CountyID") = CountyID									'所在县		
			rs("UserPower") = 99
			rs("UpUserPower") = 999							'上一级用户
		end if
										
		rs("Pro_ID") = Pro_ID									'产品ID
		rs("Pro_Name") = Pro_Name								'产品名
		rs("Pro_Col") = Pro_Col									'产品颜色
		rs("Pro_Price") = Pro_Price								'产品单价
		rs("Sale_Price") = Sale_Price							'出售单价
		rs("Sale_Num") = Sale_Num								'销售数量
		rs("Sale_Money") = clng(Sale_Price)*clng(Sale_Num)		'总销售量
		rs("Sale_Info") = Sale_Info								'情况说是
		rs("Sale_Time")	= Now()									'售出时间
		rs("Intime") = Now()									'录入时间
		rs("IsBackFund") = IsBackFund							'是否回款
		rs("Fund_Num") = Fund_Num								'回款数量		
		rs("BackFundMoney") = BackFundMoney						'回款金额
		rs("IsChk") = 1
		rs("Chk_UserID") = GetUserID
		rs("Chk_UserName") = GetUserName
		rs("Chk_Info") = "省级已审核"
		rs("Chk_time") = Now()
		rs("IsOutOrder")=1
		rs("OutNum")=1
		
		
	rs.update
	call rs_end(rs)
	Call Msg("保存成功",5,"SaleOrder.asp")

End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -