📄 financeview.asp

📁 一个比较完整的企业erp系统
💻 ASP
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
  if isLogin = false then
     Response.Write viewinfo("LoginC","","")
	 Response.end
  end if
Public title , indexDate
indexDate = SELVAR("thisDate"," ")
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<%
   Set c01 = new CL01
   fid = GetText("fid","G","number",1,10,0)
   SQL = "select * from incfinance where financeid = " & fid & ""
   Rs.Open(SQL),Conn,1,1
   if not Rs.eof then
      financeid = Rs("financeid")
	  ftypeid = Rs("ftypeid")
	  fName = Rs("fName")
	  fMoney = Rs("fMoney")
	  fRemark = Rs("fRemark")
	  intotime = Rs("intotime")
	  thisDate = Rs("thisDate")
	  aid = Rs("aid")
	  updatetime = Rs("updatetime")
	  uaid = Rs("uaid")
	  inorout = Rs("inorout")
	  title ="名称为：(" &  fName & ") 的记录"
	  supplierid = isNumber(Rs("supplierid"),"int",0)
	  SQL = "select Code,FullName,Linkman,LinkPhone from supplier where uid = " & supplierid & ""
	  Public ZD(3)
	  Call SAZD(SQL,ZD,"其他客商")
	  supplierCode = ZD(0)
	  TrunName_Phone = ZD(1) & " " & ZD(2) & " " & ZD(3)
   else
      title = "错误的记录"
   end if
   Rs.Close
 %>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>

<style>
html{min-width: 776px;}
fieldset {padding:3px;}
</style>
<script type = 'text/javascript'>
<!--
rv = Array("returnValue","parent.right") ;
window.returnValue = rv[1] ;
var supplier_ = null ;
function Opensupplier(sel) {
    supplier_ = window.showModalDialog('../supplier/selectsupplierlist.asp?identifyCode='+sel,'','dialogWidth:780px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
   if (supplier_!=null) {
       document.form.supplierCode.value = supplier_[0];
       document.form.supplierid.value = supplier_[1];
       document.form.TrunName_Phone.value = supplier_[2] + " " + supplier_[3] + " " + supplier_[4];
	 }
 }


//-->
</script>

<base target = '_self'>
</head>
<body style = 'border-style:none;margin:5px;background-color:buttonface;'>
<div style = 'text-align:center;'>
<table border = '1' style = 'width:100%;height:auto;' cellspacing = '0' cellpadding = '2' borderColorLight='#848284' borderColorDark='#eeeeee'>
 <form method='post' action="" name = 'form'>
 <input name = 'Options' type = 'hidden'/>
 <input name = 'financeid' type = 'hidden' value = '<%=fid%>'/>
 <tr>
   <td style = 'width:20%;text-align:right;'>名称：</td>
   <td><input type = 'text' style = 'width:150px;' name = 'fName' value = '<%=c01.HtmlF(fName)%>'/> 
   　</td>
 </tr>

 <tr>
   <td style = 'width:20%;text-align:right;'>类别：</td>
   <td>
   <%
     SQL = "select * from incfinancetype Order by ftypeArray Desc"
	 Response.Write financeType_(SQL,"ftypeid","",isNumber(ftypeid,"int",0))
   %>　所属：<select name = 'inorout' onchange = "javascript:if(this.value=='0'){inout1.innerHTML='<span style = \'color:red;\'>付款</span>';inout2.innerHTML='<input type =\'text\' style = \'width:38px;border-right:solid 0px #fff;\' name = \'supplierCode\' value = \'<%=supplierCode%>\'/><input type = \'button\' value = \'…\' style = \'border-left:solid 0px #fff;color:red;\' onclick = \'javascript:Opensupplier(1);\'><input type = \'text\' style = \'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;\' name = \'TrunName_Phone\' value = \'<%=TrunName_Phone%>\'/>';}if(this.value=='1'){inout1.innerHTML='<span style = \'color:blue;\'>收款</span>';inout2.innerHTML='<input type =\'text\' style = \'width:38px;border-right:solid 0px #fff;\' name = \'supplierCode\' value = \'<%=supplierCode%>\'/><input type = \'button\' value = \'…\' style = \'border-left:solid 0px #fff;color:blue;\' onclick = \'javascript:Opensupplier(0);\'><input type = \'text\' style = \'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;\' name = \'TrunName_Phone\' value = \'<%=TrunName_Phone%>\'/>';}">
               <option value = '0' <%=v1v2(inorout,0," style = 'color:red;' selected = 'selected' ","")%>>支出</option>
			   <option value = '1' <%=v1v2(inorout,1," style = 'color:red;' selected = 'selected' ","")%>>收入</option>
			 </select></td>
 </tr>

 <tr>
   <td style = 'width:20%;text-align:right;'>时间：</td>
   <td><input type = 'text' style = 'width:150px;' name = 'thisDate' value = '<%=c01.HtmlF(thisDate)%>' onfocus="setday(this)"  maxlength="10" readonly = 'true'/>
   </td>
 </tr>

  <tr>
   <td style = 'width:20%;text-align:right;' id = 'inout1'>
   
   <%=v1v2(inorout,0,"<span style = 'color:red;'>付款</span></td><td id = 'inout2'><input type ='text' style = 'width:38px;border-right:solid 0px #fff;' name = 'supplierCode' value = '" & supplierCode & "'/><input type = 'button' value = '…' style = 'border-left:solid 0px #fff;color:red;' onclick = 'javascript:Opensupplier(1);'><input type = 'text' style = 'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;' name = 'TrunName_Phone' value = '" & TrunName_Phone & "'/>","<span style = 'color:blue;'>收款</span></td><td id = 'inout2'><input type ='text' style = 'width:38px;border-right:solid 0px #fff;' name = 'supplierCode' value = '" & supplierCode & "'/><input type = 'button' value = '…' style = 'border-left:solid 0px #fff;color:blue;' onclick = 'javascript:Opensupplier(0);'><input type = 'text' style = 'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;' name = 'TrunName_Phone' value = '" & TrunName_Phone & "'/>")%>
   
   
   </td>
 </tr>

 <tr>
   <td style ='text-align:right;'>金额：</td>
   <td><input type = 'text' style = 'width:150px;' name = 'fMoney' onkeyup = "javascript:var FM = this.value ; if(isNaN(FM)) { this.value='';}" value = '<%=fMoney%>'/></td>
   <input type = 'hidden' name = 'supplierid' value = '<%=supplierid%>'/>
 </tr>

 <tr>
   <td style ='text-align:right;'>备注：</td>
   <td><textarea name="fRemark" style = 'width:100%;height:110px;'><%=c01.HtmlF(fRemark)%></textarea></td>
 </tr>

 <tr>
   <td colspan = '2' style = 'text-align:center;'>
   <input type="submit" value = ' 确定 ' onclick = "javascript:var FM = form.fMoney.value ; if(replace_(FM,' ','')==''){alert('请输入金额！　　');form.fMoney.focus();return false;}else{form.Options.value = 'update';}"/><input type="reset" value = ' 重置 '/><input type="button" value = ' 关闭 ' onclick = "javascript:window.close();"/>
   </td>
 </tr>
 </form>
</table>


<%
Options = trim(Request.Form("Options"))
if Options = "update" then

   ftypeid_ = GetText("ftypeid","P","number",1,10,0)'
   ftypeid_ = SelectZD("select ftypeid from incfinancetype where ftypeid = " & ftypeid_ & "",0)
   if ftypeid_ = 0 then
	  Response.Write viewinfo("alertBack","请选好类别！","")
	  Response.end
   end if
   thisDate = trim(Request.form("thisDate"))
   if not isDate(thisDate) then thisDate = indexDate
   SQL = "select * from incfinance where financeid = " & fid & ""
   Rs.Open(SQL),Conn,1,3
      Rs("fName") = htmlencode(GetText("fName","P","Str",1,255,"none"),"Y")'名称
	  Rs("ftypeid") = ftypeid_
      Rs("fMoney") = GetText("fMoney","P","number",1,10,0)'金额
      Rs("fRemark") = htmlencode(GetText("fRemark","P","Str",1,1000,"none"),"Y")'备注
	  Rs("thisDate") = thisDate
	  Rs("uaid") = Seuid_inc
	  Rs("updatetime") = now
	  Rs("inorout") = GetText("inorout","P","number",1,2,0)
	  Rs("supplierid") = GetText("supplierid","P","number",1,10,0)
	  Response.Write viewinfo("alertClose","修改成功！",SELVAR("FN",""))
   Rs.update
   Rs.Close
end if
ConnClose()
%>

</div>
</body>
</html>
⌨️ 快捷键说明

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