📄 returnedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑采购退货单信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.rid.value==""){
   alert("请输入退货单编号！");
   form1.rid.focus;
   return false;
  } 
  if (document.form1.pid.selectedIndex<0){
   alert("请选择采购单编号！");
   form1.pid.focus;
   return false;
  }  
  return true;
}
function new11(url) {
  var pid,aUrl;
  pid = document.form1.pid.value;
  aUrl = "&pid=" + pid;
  url = url + aUrl;
  //为了保证数据的完整性，在添加、修改和删除前要提交一下表单保存表单数据
  form1.action = "ReturnSave.asp?action=edit&flag=1";
  form1.submit();
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=550,height=320";
  var new11=window.open(url,"new11",oth);
  new11.focus();
  return false;
}
function fSave(){
  var rid;
  rid = document.form1.rid.value;
  var url="ReturnSave.asp?flag=0&rid=" + rid;
  form1.action = url;
  form1.submit();
}
function Calculate(){
  // 当更改其他费用时，采购订单总金额同时变更
  var cst,psum;
  cst = document.form1.cost.value;
  psum = document.form1.psum.value;
  document.form1.total.value = eval(cst) + eval(psum);
}
</Script>
</head>
<%
  Dim RntId,PurId,CreateDate,RntDate,Status,Memo,Poster,ProSum,OtherCost,Total
  Dim EmpId,EmpName,ProId,ProName,Style
  Dim Action,rs
  '变量初始化
  RntId = ""  '退货编号
  PurId = ""   '采购编号
  Status = "创建"  '状态
  ProSum = 0  '退货商品总金额
  OtherCost = 0  '其他费用
  Total = 0   '退货总金额
  CreateDate = Date()  '创建日期
  Poster = Session("UserName")  '创建人
  '读取参数action
  Action = Request.QueryString("action")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑采购退货单记录
  If Action = "edit" Then
    RntId = Request.QueryString("rid")   '退还编号
    '设置SELECT语句，读取记录数据
    sql = "SELECT * FROM SaleReturn Where RntId='"& RntId & "'"
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      PurId = rs("SaleId")
      RntDate = rs("RntDate")
      OtherCost = rs("OtherCost")      
      Poster = rs("Poster")
      CreateDate = rs("CreateDate")
      Memo = rs("Memo")
      '计算商品列表中对应的商品总金额
      sql = "Select Sum(Price*Quantity) AS pSum From PurProductList Where PurId='" & RntId & "'"
      Set rs1 = Conn.Execute(sql)
      If IsNull(rs1("pSum")) Then
        ProSum = 0
      Else
        ProSum = rs1("pSum")
      End If
      Total = CDbl(ProSum) + CDbl(OtherCost)
      Set rs1 = Nothing
    End If
    rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ReturnOK.asp?action=<%=Action%>&rid=<%=RntId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="pic/sale.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">商品采购退货单</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%"  bgcolor="#CEE7FF">采购退货单号</td>
      <td width="40%"><input type="text" name="rid" size="20" value="<%=RntId%>" <%If action="edit" Then%>ReadOnly<%End If%>>&nbsp;</td>
      <td width="20%"  bgcolor="#CEE7FF">当前状态</td>
      <td width="40%"><%=Status%>&nbsp;</td>
    </tr>
    <tr>
      <td width="20%"  bgcolor="#CEE7FF">采购订单号</td>
      <td width="40%">
<select size="1" name="pid">
      <%
        sql = "Select * From PurchaseOrder  ORDER BY PurId" 
        rs.Open sql,conn,1,3
        Do While Not rs.EOF
          If rs("PurId")=PurId Then
       %>
            <option value="<%=rs("PurId")%>" selected><%=rs("PurId")%></option>
        <%Else%>
            <option value="<%=rs("PurId")%>"><%=rs("PurId")%></option>
        <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select>&nbsp;</td>
      <td bgcolor="#CEE7FF">退货日期</td>
      <td><input type="text" name="rdate" size="20" value="<%=RntDate%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">商品总金额</td>
      <td><input type="text" name="psum" size="20" value="<%=ProSum%>" ReadOnly>&nbsp;</td>
      <td bgcolor="#CEE7FF">其他费用</td>
      <td><input type="text" name="cost" size="20" value="<%=OtherCost%>" OnChange="Calculate()">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">退货总金额</td>
      <td><input type="text" name="total" size="20" value="<%=Total%>" ReadOnly>&nbsp;</td>
      <td bgcolor="#CEE7FF" rowspan="3">备注</td>
      <td rowspan="3"><textarea rows="3" name="memo" cols="20"><%=Memo%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">创建日期</td>
      <td><%=CreateDate%>&nbsp;</td>
     </tr>
    <tr>
     <td bgcolor="#CEE7FF">录入人</td>
      <td><input type="text" name="poster" size="20" value="<%=Poster%>">&nbsp;</td>
    </tr>
  </table>
  <%If RntId="" Then%>
  <p align=center><input type="button" value=" 保 存 " name="B1" onclick="if(CheckFlds()){fSave();}else{return false;}"></p>
  <%Else%><br>
   <table align=center border="0" cellspacing="0" width="95%">
   <tr><td align="center">退货商品列表</td></tr>
   <tr><td align="right"><a href="ListRntEdit.asp?action=add&rid=<%=RntId%>" onclick="return new11(this.href)">添加退货商品</a></td>
  </tr>
 </table>
 <table align=center border="1" cellspacing="0" width="95%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
  <tr>
   <td width="10%" align="center" bgcolor="#C1E0FF"><strong>商品编号</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品型号</strong></td>
   <td width="14%" align="center" bgcolor="#C1E0FF"><strong>客户名称</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>采购价格</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>采购数量</strong></td>
   <td width="12%" align="center" bgcolor="#C1E0FF"><strong>总额</strong></td>
   <td width="16%" align="center" bgcolor="#C1E0FF"><strong>操作</strong></td>
  </tr>
<%  If Action = "edit" Then  '当编辑信息时，提取订单商品信息
      '读取对应的采购商品信息
      sql = "SELECT l.*,p.ProName,p.ProStyle,c.CustName  FROM PurProductList l,Product p,Customer c" _
        & " WHERE l.ProId=p.ProId AND l.CustId=c.CustId And l.PurId='" & RntId & "' ORDER BY l.ProId"
      rs.Open sql,Conn,1,3
      If rs.EOF Then
        Response.Write "<tr><td colspan='8' align='center'>目前没有记录</td></tr>"
      End If
      Do While Not rs.EOF
     %>
   <tr>
   <td align=center><%=rs("ProId")%></td>
   <td><%=rs("ProName")%></td>
   <td><%=rs("ProStyle")%></td>
   <td><%=rs("CustName")%></td>
   <td align="right"><%=rs("Price")%></td>
   <td align="right"><%=rs("Quantity")%></td>
   <td align="right"><%=CDbl(rs("Price"))*CDbl(rs("Quantity"))%></td>
    <td align="center">
    <a href="ListRntEdit.asp?action=edit&lid=<%=rs("ListId")%>" onClick="return new11(this.href)">修改</a>&nbsp;
    <a href="ListRntDelt.asp?lid=<%=rs("ListId")%>" onClick="return new11(this.href)">删除</a>&nbsp;
    </td>
  </tr> 
     <%
        rs.MoveNext()
      Loop
    Else
      Response.Write "<tr><td colspan='8' align='center'>目前没有记录</td></tr>"
    End If
%>
</table>
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
<%End If%>
</form>
</body>
</html>
⌨️ 快捷键说明

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