📄 f_xsfy.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'以下为传过来的值
hth=request("hth")
zcbj=request("zcbj")
'由合同号找出对应的费用
set rsht=server.Createobject("adodb.Recordset")
mysql="select * from F_tblcontract2 where contractnum='"&hth&"'"
rsht.open mysql,pubconn,1
htzj=rsht("TotalPrice")
xsfy=rsht("SaleMoney")
ybfy=rsht("SendMoney")
gcfy=rsht("EngineeMoney")
fwfy=rsht("ServerEatMoney")
xslr=rsht("xslr")
rsht.close
set rsht=nothing
'以下为本表单取得的值
xsfy1=request("xsfy")
ybfy1=request("ybfy")
gcfy1=request("gcfy")
fwfy1=request("fwfy")
xslr1=request("xslr")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub xsfy_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.xsfy.value,"Num",window.event.keyCode)
end sub
sub ybfy_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.ybfy.value,"Num",window.event.keyCode)
end sub
sub fwfy_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.fwfy.value,"Num",window.event.keyCode)
end sub
sub gcfy_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.gcfy.value,"Num",window.event.keyCode)
end sub
sub xsfy_onkeyup
if document.form1.htzj.value="" then
htzj=0
else
htzj=eval(document.form1.htzj.value)
end if
if document.form1.zcbj.value="" then
zcbj=0
else
zcbj=eval(document.form1.zcbj.value)
end if
'msgbox zcbj
if document.form1.xsfy.value="" then
xsfy=0
else
xsfy=eval(document.form1.xsfy.value)
end if
if document.form1.ybfy.value="" then
ybfy=0
else
ybfy=eval(document.form1.ybfy.value)
end if
if document.form1.gcfy.value="" then
gcfy=0
else
gcfy=eval(document.form1.gcfy.value)
end if
if document.form1.fwfy.value="" then
fwfy=0
else
fwfy=eval(document.form1.fwfy.value)
end if
document.form1.xslr.value=htzj-zcbj-xsfy-ybfy-gcfy-fwfy
end sub
sub ybfy_onkeyup
if document.form1.htzj.value="" then
htzj=0
else
htzj=eval(document.form1.htzj.value)
end if
if document.form1.zcbj.value="" then
zcbj=0
else
zcbj=eval(document.form1.zcbj.value)
end if
if document.form1.xsfy.value="" then
xsfy=0
else
xsfy=eval(document.form1.xsfy.value)
end if
if document.form1.ybfy.value="" then
ybfy=0
else
ybfy=eval(document.form1.ybfy.value)
end if
if document.form1.gcfy.value="" then
gcfy=0
else
gcfy=eval(document.form1.gcfy.value)
end if
if document.form1.fwfy.value="" then
fwfy=0
else
fwfy=eval(document.form1.fwfy.value)
end if
document.form1.xslr.value=htzj-zcbj-xsfy-ybfy-gcfy-fwfy
end sub
sub gcfy_onkeyup
if document.form1.htzj.value="" then
htzj=0
else
htzj=eval(document.form1.htzj.value)
end if
if document.form1.zcbj.value="" then
zcbj=0
else
zcbj=eval(document.form1.zcbj.value)
end if
if document.form1.xsfy.value="" then
xsfy=0
else
xsfy=eval(document.form1.xsfy.value)
end if
if document.form1.ybfy.value="" then
ybfy=0
else
ybfy=eval(document.form1.ybfy.value)
end if
if document.form1.gcfy.value="" then
gcfy=0
else
gcfy=eval(document.form1.gcfy.value)
end if
if document.form1.fwfy.value="" then
fwfy=0
else
fwfy=eval(document.form1.fwfy.value)
end if
document.form1.xslr.value=htzj-zcbj-xsfy-ybfy-gcfy-fwfy
end sub
sub fwfy_onkeyup
if document.form1.htzj.value="" then
htzj=0
else
htzj=eval(document.form1.htzj.value)
end if
if document.form1.zcbj.value="" then
zcbj=0
else
zcbj=eval(document.form1.zcbj.value)
end if
if document.form1.xsfy.value="" then
xsfy=0
else
xsfy=eval(document.form1.xsfy.value)
end if
if document.form1.ybfy.value="" then
ybfy=0
else
ybfy=eval(document.form1.ybfy.value)
end if
if document.form1.gcfy.value="" then
gcfy=0
else
gcfy=eval(document.form1.gcfy.value)
end if
if document.form1.fwfy.value="" then
fwfy=0
else
fwfy=eval(document.form1.fwfy.value)
end if
document.form1.xslr.value=htzj-zcbj-xsfy-ybfy-gcfy-fwfy
end sub
</script>
<body bgcolor="#FFFFFF" >
<%
'以下为保存处理
If request("bc")="保存" then
set rsht=server.Createobject("adodb.Recordset")
mysql="select * from F_tblcontract2 where contractnum='"&hth&"'"
rsht.open mysql,pubconn,1,3
rsht("SaleMoney")=xsfy1
rsht("SendMoney")=ybfy1
rsht("EngineeMoney")=gcfy1
rsht("ServerEatMoney")=fwfy1
rsht("xslr")=xslr1
rsht.update
%>
<script LANGUAGE="javaSCRIPT">
<!--
setTimeout("history.go(-1)",10);
-->
</script>
<%end if %>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font>
<font size="2">销售费用</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form action="" method="post" name="form1" >
<table border=1 cellspacing=0 bgcolor="#F7F4E5" 目 width="236" align="center">
<input type="hidden" name="zcbj" value="<%=zcbj%>">
<input type="hidden" name="hth" value="<%=hth%>">
<tr>
<td align="right" width="74" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
合同总价
</td>
<td width="152" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="htzj" size="20" readonly style="background-color: #edefef" value="<%=htzj%>"> </td>
</tr>
<tr>
<td align="right" width="74" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">销售费用</td>
<td width="152" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="xsfy" size="20" value="<%=xsfy%>" ></td>
</tr>
<tr>
<td align="right" width="74" height="28" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">运保费用</td>
<td width="152" height="28" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="ybfy" size="20" value="<%=ybfy%>" ></td>
</tr>
<tr>
<td align="right" width="74" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" >工程费用</td>
<td width="152" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="gcfy" size="20" value="<%=gcfy%>" ></td>
</tr>
<tr>
<td align="right" width="74" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">服务费用</td>
<td width="152" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="fwfy" size="20" value="<%=fwfy%>" ></td>
</tr>
<tr>
<td align="right" width="74" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">销售利润</td>
<td width="152" height="23" valign="middle" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<input type="text" name="xslr" size="20" value="<%=xslr%>" readonly style="background-color: #edefef"></td>
</tr>
</table>
<p align="center">
<input type="submit" name="bc" value="保存"class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<a href="javascript:close()">关闭</a> <a href="f_fkjd.asp?hth=<%=hth%>&zcbj=<%=zcbj%>">付款进度</a>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -