📄 check_cai.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<!--#include file="Inc/Count2.asp"-->
<!--#include file="Inc/Print.asp"-->
<%
Dim userdd
userdd = Manage_Level(adl)
%>
<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 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] Order By ID desc")
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,caifukuan
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)
caifukuan = AllKuan(cc_id)
If cc_cjl=0 Then
If userdd<>"采购经理" Then
Response.Write "<script language=javascript>alert('采购部经理还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
If cc_cjl<>0 and cc_ckg=0 Then
If userdd<>"采购经理" and userdd<>"库管" Then
Response.Write "<script language=javascript>alert('仓库部还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
If cc_cjl<>0 and cc_ckg<>0 and cc_ccw=0 Then
If userdd<>"采购经理" and userdd<>"库管" and userdd<>"财务员" Then
Response.Write "<script language=javascript>alert('财务部还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
%>
<form name="form1" method="post" action="Check_Cai2.asp?id=<%=cc_id%>">
<table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="30" colspan="7" 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="7" class=forumrow> </td>
</tr>
<tr>
<td colspan="2" class=forumrow> <div align="center"></div>
<div align="center">商品代码</div></td>
<td width="16%" class=forumrow><div align="center">名称</div></td>
<td width="12%" class=forumrow><div align="center">规格</div></td>
<td width="11%" class=forumrow> <div align="center">数量</div></td>
<td width="11%" class=forumrow><div align="center">购买单价</div></td>
<td width="40%" class=forumrow id=upid> <div align="center">备注</div></td>
</tr>
<%
Dim cc2,cc2_proid,cc2_sl,cc2_money,cc2_mone
Dim all_kuan
Set cc2=Conn.Execute("Select Cai_ID,Product_ID,Shuliang,Money,Mone From [CaiGou2] Where Cai_ID='"&cc_id&"'")
Do While Not cc2.Eof
cc2_proid = cc2(1)
cc2_sl = cc2(2)
cc2_money = cc2(3)
cc2_mone = cc2(4)
all_kuan = all_kuan+cc2_money
%>
<tr>
<td height="30" colspan="2" class=forumrow><div align="center"><%=cc2_proid%></div></td>
<td class=forumrow><div align="center"><%=Product(cc2_proid)%></div></td>
<td class=forumrow><div align="center"><%=Product_GuiGe(cc2_proid)%></div></td>
<td class=forumrow><div align="center"><%=cc2_sl%></div></td>
<td class=forumrow><div align="center"><%=cc2_money%></div></td>
<td class=forumrow><div align="center"><%=cc2_mone%></div></td>
</tr>
<%
cc2.MoveNext
Loop
cc2.Close
Set cc2=Nothing
End if
cc.Close
Set cc=Nothing
%>
<tr>
<td width="6%" height="30" class=forumrow>合计：</td>
<td colspan="6" class=forumrow><div align="right">采购款：<%=caifukuan%>
已付：<%=cc_yf%> 应付：<%=caifukuan-cc_yf%> 物流：<%=cc_wl%> 运费：<%=cc_fy%>
</div></td>
</tr>
<tr>
<td colspan="7" class=forumrow> <div align="center">
<input type="submit" name="Submit2" value="审 核">
</div></td>
</tr>
<tr>
<td height="25" colspan="7" 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 + -