📄 caigou_fuadd.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<!--#include file="Inc/Count2.asp"-->
<!--#include file="Inc/Print.asp"-->
<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
<BODY text="#000000">
<SCRIPT language=javascript>
function Chk(theForm)
{
if (theForm.selpayer.value == ""){
alert("请输入采购单编号!");
theForm.selpayer.focus();
return (false);
}else{
updated.style.display = '';
}
}
function chk2(theForm){
if (theForm.fukuan.value == ""){
alert("请输入此次付款!");
theForm.fukuan.focus();
return (false);
}
if (theForm.feiyong.value == ""){
alert("请输入费用!");
theForm.feiyong.focus();
return (false);
}
if (theForm.mone.value == ""){
alert("请输入备注!");
theForm.mone.focus();
return (false);
}
}
function CheckNum(){
if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false;
}
</SCRIPT>
<DIV id=overDiv style="Z-INDEX: 1; POSITION: absolute"></DIV>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
<TBODY>
<TR>
<FORM name="Form2" action="?action=go" method="post" onSubmit="return Chk(this);">
<th align=middle colSpan=6 height=25>
<select name="selpayer" id="selpayer">
<option value="" selected>请选择采购单编号</option>
<%
Dim dd
Set dd=Conn.Execute("Select Cai_ID From [CaiGou] Where Check_JiLi<>0 and Check_KuGuan<>0 and Check_CaiWu<>0")
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close
Set dd=Nothing
%>
</select><input type="submit" name="Submit" value=" 点 击 查 找 ">
添加采购付款单</th>
</FORM>
</TR>
<TR class=forumRow>
<td align=middle bgcolor="#f1f3f5">
<DIV id="updated" style="DISPLAY: none" align="center">
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="4">
<tr>
<td height="50"> <div align="center"><b>正在统计，请稍后...<b> <img height="15" alt="Laoding..." src="Image/loading.gif" width="150"></b></b></div></td>
</tr>
</table>
</DIV>
<%
If Request.QueryString("action") = "go" Then
Call HuiAdd
End if
Sub HuiAdd
DIm cc,cc_cwy,cc_id,cc_yf,cc_wl,cc_fy,cc_cjl,cc_ckg,cc_ccw
Dim cai_id,caikuan
cai_id = Request.Form("selpayer")
Set cc = Conn.Execute("Select CaiWuYuan,Cai_ID,YiFu,WuLiu,YunFei,Check_JiLi,Check_KuGuan,Check_CaiWu From [CaiGou] Where Cai_ID='"&cai_id&"'")
If cc.Eof Then
Response.Write "没有任何记录!"
Else
cc_cwy=cc(0)
cc_id=cc(1)
cc_yf=cc(2)
cc_wl=cc(3)
cc_fy=cc(4)
cc_cjl=cc(5)
cc_ckg=cc(6)
cc_ccw=cc(7)
caikuan = AllKuan(cc_id)
%>
<form name="form1" method="post" action="CaiGou_FuAdd2.asp" onSubmit="return chk2(this);">
<table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="30" colspan="9" class=forumrow>经手人：<%=User_Name(cc(0))%>
采购部主管：
<%
If cc(5)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(cc(5))
End if
%>
库管：
<%
If cc(6)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(cc(6))
End if
%>
财务部主管：
<%
If cc(7)=0 Then
Response.Write "未审批"
Else
Response.Write User_Name(cc(7))
End if
%>
</td>
</tr>
<tr>
<td height="12" colspan="9" class=forumrow> </td>
</tr>
<tr>
<td colspan="3" class=forumrow> <div align="center">采购单号</div></td>
<td width="12%" class=forumrow>
<div align="center">采购款</div></td>
<td width="12%" class=forumrow> <div align="center">已付</div></td>
<td width="9%" class=forumrow><div align="center">应付</div></td>
<td width="10%" class=forumrow id=upid>
<div align="center">此次付款</div></td>
<td width="8%" class=forumrow id=upid>
<div align="center">费用</div></td>
<td class=forumrow id=upid>
<div align="center">备注</div></td>
</tr>
<tr>
<td height="30" colspan="3" class=forumrow><div align="center"><%=cc_id%></div></td>
<td class=forumrow><div align="center"><%=caikuan%></div></td>
<td class=forumrow><div align="center"><%=cc_yf%></div></td>
<td class=forumrow><div align="center"><%=caikuan-cc_yf%></div></td>
<td class=forumrow><div align="center">
<input name="fukuan" type="text" id="fukuan" size="10" maxlength="12" onKeyPress="javascript:CheckNum();">
</div></td>
<td class=forumrow><div align="center">
<input name="feiyong" type="text" id="feiyong" onKeyPress="javascript:CheckNum();" size="10" maxlength="10">
</div></td>
<td class=forumrow><div align="center">
<input name="mone" type="text" id="mone" size="40" maxlength="60">
</div></td>
</tr>
<%
End if
cc.Close
Set cc=Nothing
%>
<tr>
<td width="7%" height="30" class=forumrow>合计：</td>
<td colspan="8" class=forumrow><div align="right">采购款：<%=caikuan%>
已付：<%=cc_yf%> 应付：<%=caikuan-cc_yf%> 物流：<%=cc_wl%> 运费：<%=cc_fy%>
</div></td>
</tr>
<tr>
<td colspan="9" class=forumrow> <div align="center">
<input name="yinfu" type="hidden" id="yinfu" value="<%=caikuan-cc_yf%>">
<input name="cai_id" type="hidden" id="cai_id" value="<%=cc_id%>">
<input type="submit" name="Submit2" value="提 交">
<input type="reset" name="Submit3" value="重置">
</div></td>
</tr>
<tr>
<td height="25" colspan="9" class=forumrow><a href="#" onClick="javascript:window.print();"><strong>打印票据</strong></a>
<a href="#" onclick="javascript:printpreview();"><strong>打印预览</strong></a></td>
</tr>
</table>
</form>
<%End Sub%>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -