?? checkrkthjz.asp
字號:
<%
set conn=server.CreateObject("adodb.connection")
set rs=server.createobject("adodb.recordset")
set rsrkph=server.CreateObject("adodb.recordset")
conn.open application("dsn")
%>
<%
tj=request("tj")
qname=request("qname")
if tj="rkthid" 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_rkth_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
sql="select * from tab_rkth_main rt inner join tab_rkthjz_main jz on rt.rkthid=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 (ws.value-bcjk.value<0)
{alert("結款金額不能大于未付金額！")
bcjk.focus()
bcjk.select()
return false}
ye.value=ws.value-bcjk.value
jkjsr.focus()
jkjsr.select()
if (bcjk.value=="")
{ alert("請輸入結賬金額！");bcjk.focus();return;}
if(isNaN(bcjk.value)){
alert("請輸入有效的結賬金額！");bcjk.focus();return;
}
}
function k2()
{
if (event.keyCode==13)
{jkjsr.focus()
jkjsr.select()}
}
function send()
{
myform.hjkdate.value=jkdate.value
myform.hbcjk.value=bcjk.value
myform.hye.value=ye.value
myform.hthph.value=thph.value
myform.hkhname.value=khname.value
myform.hjkczy.value=jkczy.value
myform.hjkjsr.value=jkjsr.value
myform.submit()
}
function res()
{bcjk.value="0";
jkjsr.value="";
ye.value=ws.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">退貨票號：</td>
<td width="165" height="20"> <%=rsrkph("rkthid")%> <input name="thph" type="hidden" id="thph" value="<%=rsrkph("rkthid")%>"> </td>
<td width="89" height="20">品種數：</td>
<td width="196" height="20"> <input name="sl" type="text" readonly="yes" value="<%=rsrkph("pzs")%>" size="15"> </td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="22"> 供應商全稱：</td>
<td width="165" height="22"> <%=rsrkph("gysname")%> <input name="khname" type="hidden" id="khname" value="<%=rsrkph("gysname")%>"> </td>
<td width="89" height="22"> 應 收：</td>
<td width="196" height="22"> <input name="ys" type="text" readonly="yes" value="<%=rsrkph("je")%>" size="15"> </td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="23">實 收：</td>
<td width="165" height="23"> <input name="ss" type="text" readonly="yes" value="<%=rsrkph("je")-rsrkph("ws")%>" size="15">(元)</td>
<td width="89" height="23">未 收：</td>
<td width="196" height="23"> <input name="ws" type="text" id="ws" value="<%=rsrkph("ws")%>" size="15" readonly="yes">(元)<% session("ws")=rsrkph("ws") %> </td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="20">退貨日期：</td>
<td width="165" height="20"> <input name="thdate" type="text" readonly="yes" id="thdate" value="<%=rsrkph("rtdate")%>" size="20"> </td>
<td width="89" height="20">操 作 員：</td>
<td width="196" height="20"> <input name="czy" type="text" readonly="yes" value="<%=rsrkph("czy")%>" size="15"> </td>
</tr>
<tr bgcolor="#ccE3FF">
<td width="117" height="20">結算方式：</td>
<td width="165" height="20"> <input name="jsfs" type="text" readonly="yes" value="<%=rsrkph("jsfs")%>" size="15"> </td>
<td width="89" height="20">經 手 人：</td>
<td width="196" height="20"> <input name="jsr" type="text" readonly="yes" value="<%=rsrkph("jsr")%>" size="15"> </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">結款日期：</td>
<td height="18" width="168"> <input name="jkdate" type="text" value="<%=now()%>" size="20" readonly="yes"> </td>
<td height="18" width="69">操 作 員：</td>
<td height="18" width="171"> <input name="jkczy" type="text" value="<%=session("name")%>" size="20" readonly="yes"> </td>
</tr>
<tr bgcolor="#ccE3FF">
<td height="18" width="70"> 本次結款：</td>
<td height="18" width="168"> <input name="bcjk" type="text" value="0" size="20" onblur="k1()"> </td>
<td height="18" width="69"> 余 額：</td>
<td height="18" width="171"> <input name="ye" type="text" disabled=".t." value=<%=session("ws") %> size="15">(元)</td>
</tr>
<tr bgcolor="#ccE3FF">
<td height="18" width="70">經 手 人： </td>
<td height="18" colspan="3"> <input name="jkjsr" type="text" value="" size="20" onKeyUp="ti()"> </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="rkthjzok.asp" method="post" name="myform">
<input type="hidden" name="hjkdate">
<input type="hidden" name="hbcjk">
<input type="hidden" name="hye">
<input type="hidden" name="hthph">
<input type="hidden" name="hkhname">
<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 + -