📄 checkrkjz.asp
字号:
<%
set conn=server.CreateObject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open application("dsn")
%>
<%
tj=request("tj")
qname=request("qname")
if tj="rkid" then
str=left(qname,6)
slen=len(qname)
if slen<>13 then
response.Write "<div align=center><font color=red>您的输入错误！请重新核对入库票号!</font></div>"
response.end
end if
else
sql="select gysname from tab_ruku_main where gysname='"&qname&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write "<div align=center><font color=red>您输入的供应商不存在</font></div>"
response.end()
end if
end if
session("tj")=tj
session("qname")=qname
set rsrkph=server.CreateObject("adodb.recordset")
sql="select * from tab_ruku_main rk inner join tab_rkjz_main jz on rk.rkid=jz.ID where "&session("tj")&" = '"&session("qname")&"' and whether='否'"
rsrkph.open sql,conn,1,3
if rsrkph.eof then
response.write "<div align=center><font color=red>账目已结清!</font></div>"
response.end
end if%>
<html>
<head>
<script language="javascript">
function k1()
{if (wf.value-bcjk.value<0)
{alert("结款金额不能大于未付金额！")
bcjk.focus()
bcjk.select()
return false}
ye.value=wf.value-bcjk.value
jkjsr.focus()
jkjsr.select()
if (bcjk.value=="")
{ alert("请输入结账金额！");bcjk.focus();return;}
if(isNaN(bcjk.value)){
alert("请输入有效的结账金额！");bcjk.focus();return;
}
}
function send()
{
myform.hjkdate.value=jkdate.value
myform.hbcjk.value=bcjk.value
myform.hye.value=ye.value
myform.hrkph.value=rkph.value
myform.hgysname.value=gysname.value
myform.hjkczy.value=jkczy.value
myform.hjkjsr.value=jkjsr.value
myform.submit()
}
function res()
{bcjk.value="0";
jkjsr.value="";
ye.value=wf.value;
bcjk.select();
}
function ti()
{if (event.keyCode==13)
{send()}}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="97%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#9CA6C6" bordercolordark="#CCE3FF">
<tr bgcolor="#ccE3FF">
<td width="117" height="20"><div align="left">入库票号：</div></td>
<td width="165" height="20"> <div align="left"> <%=rsrkph("rkid")%>
<input name="rkph" type="hidden" id="rkph" value="<%=rsrkph("rkid")%>">
</div></td>
<td width="89" height="20"><div align="left">品 种 数：</div></td>
<td width="196" height="20"> <div align="left">
<input name="sl" type="text" readonly="yes" value="<%=rsrkph("pzs")%>" size="15">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="22"> <div align="left">供应商全称：</div></td>
<td width="165" height="22"> <div align="left"> <%=rsrkph("gysname")%>
<input name="gysname" type="hidden" id="gysname" value="<%=rsrkph("gysname")%>">
</div></td>
<td width="89" height="22"> <div align="left">应 付：</div></td>
<td width="196" height="22"> <div align="left">
<input name="ys" type="text" readonly="yes" value="<%=rsrkph("je")%>" size="15">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="23"><div align="left">实 付：</div></td>
<td width="165" height="23"> <div align="left">
<input name="ss" type="text" readonly="yes" value="<%=(rsrkph("je")-rsrkph("wf"))%>" size="15">
</div></td>
<td width="89" height="23"><div align="left">未 付：</div></td>
<td width="196" height="23"> <div align="left">
<input name="wf" type="text" readonly="yes" value="<%=rsrkph("wf")%>" size="15">
<% session("wf")=rsrkph("wf") %>
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="20"><div align="left">入库日期：</div></td>
<td width="165" height="20"> <div align="left">
<input name="xsdate" type="text" disabled=".t." value="<%=rsrkph("rkdate")%>" size="21">
</div></td>
<td width="89" height="20"><div align="left">操 作 员：</div></td>
<td width="196" height="20"> <div align="left">
<input name="czy" type="text" disabled=".t." value="<%=rsrkph("czy")%>" size="15">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="20"><div align="left">结算方式：</div></td>
<td width="165" height="20"> <div align="left">
<input name="jsfs" type="text" disabled=".t." value="<%=rsrkph("jsfs")%>" size="15">
</div></td>
<td width="89" height="20"><div align="left">经 手 人：</div></td>
<td width="196" height="20"> <div align="left">
<input name="jsr" type="text" disabled=".t." value="<%=rsrkph("jsr")%>" size="15">
</div></td>
</tr>
</table><br>
<table width="97%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#9CA6C6" bordercolordark="#CCE3FF">
<tr bgcolor="#ccE3FF">
<td height="18" width="70"><div align="left">结款日期：</div></td>
<td height="18" width="168"> <div align="left">
<input name="jkdate" type="text" value="<%=now()%>" size="20" readonly="yes">
</div></td>
<td height="18" width="69"><div align="left">操 作 员：</div></td>
<td height="18" width="171"> <div align="left">
<input name="jkczy" type="text" value="<%=session("name")%>" size="20" readonly="yes">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td height="18" width="70"> <div align="left">本次结款：</div></td>
<td height="18" width="168"> <div align="left">
<input name="bcjk" type="text" value="0" size="20" onblur="k1()">
</div></td>
<td height="18" width="69"> <div align="left">余 额：</div></td>
<td height="18" width="171"> <div align="left">
<input name="ye" type="text" readonly="yes" value=<%=session("wf") %> size="15">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td height="18" width="70"><div align="left">经 手 人： </div></td>
<td height="18" colspan="3"> <div align="left">
<input name="jkjsr" type="text" size="20" onKeyUp="ti()">
</div></td>
</tr>
<tr bgcolor="#ccE3FF">
<td height="27" colspan="4"><div align="center">
<input name="subb" type="button" class="btn_grey" id="subb" onclick="send()" value="确定">
<input name="Submit2" type="button" class="btn_grey" onclick="res()" value="取消">
</div></tr>
</table>
<form action="rkjzok.asp" method="post" name="myform">
<input type="hidden" name="hjkdate">
<input type="hidden" name="hbcjk">
<input type="hidden" name="hye">
<input type="hidden" name="hrkph">
<input type="hidden" name="hgysname">
<input type="hidden" name="hjkczy">
<input type="hidden" name="hjkjsr">
</form>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -