📄 caigou_fulist.asp

📁 have playing search print and many very good contcent
💻 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 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,allfukuan
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)
allfukuan = AllKuan(cc_id)
%>
        <table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
          <tr> 
            <td height="30" colspan="6" 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="6" class=forumrow>&nbsp;</td>
          </tr>
          <tr> 
            <td colspan="2" class=forumrow> <div align="center">采购单号</div></td>
            <td width="21%" class=forumrow> <div align="center"></div>
              <div align="center">此次付款</div></td>
            <td width="14%" 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_fk,cc2_yf,cc2_mone
Dim all_yifu,all_feiyong
Set cc2=Conn.Execute("Select FuKuan,FeiYong,Mone From [CaiGouFuKuan] Where Cai_ID='"&cc_id&"'")
If cc2.Eof Then
Response.Write "<tr><td colspan=5>没有任何记录!</td></tr>"
Else
Do While Not cc2.Eof
cc2_fk = cc2(0)
cc2_yf = cc2(1)
cc2_mone = cc2(2)
all_yifu = all_yifu + cc2_fk
all_feiyong=all_feiyong+cc2_yf
%>
          <tr> 
            <td height="30" colspan="2" class=forumrow><div align="center"><%=cc_id%></div></td>
            <td class=forumrow> <div align="center"></div>
              <div align="center"><%=cc2_fk%></div></td>
            <td class=forumrow><div align="center"><%=allfukuan-all_yifu%></div></td>
            <td class=forumrow><div align="center"><%=cc2_yf%></div></td>
            <td class=forumrow><div align="center"><%=cc2_mone%></div></td>
          </tr>
          <%
cc2.MoveNext
Loop
End if
cc2.Close
Set cc2=Nothing
End if
cc.Close
Set cc=Nothing
%>
          <tr> 
            <td width="6%" height="30" class=forumrow>合计：</td>
            <td colspan="5" class=forumrow><div align="right">采购款：<%=allfukuan%> 
                已付：<%=all_yifu%> 应付：<%=allfukuan-all_yifu%> 费用：<%=all_feiyong%> 
                物流：<%=cc_wl%> 运费：<%=cc_fy%> </div></td>
          </tr>
          <tr> 
            <td colspan="6" class=forumrow> <div align="center"></div></td>
          </tr>
          <tr> 
            <td height="25" colspan="6" class=forumrow><a href="#" onClick="javascript:window.print();"><strong>打印票据</strong></a> 
              <a href="#" onclick="javascript:printpreview();"><strong>打印预览</strong></a></td>
          </tr>
        </table>
        <%End Sub%>
      </td>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -