📄 print.asp

📁 一个比较完整的企业erp系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<%
 Public title:title = "打印销售记录"
'Response.Expires = -1
'Response.ExpiresAbsolute = Now() - 1
'Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<html>
<head>
<title><%=title%></title><%
  if isLogin = false then
     Response.Write viewinfo("Logingo","","")
	 Response.end
  end if
%>
<script type='text/javascript'>
<!--
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
//-->
</script>

<meta http-equiv=content-type content="text/html; charset=gb2312">
<meta content="mshtml 6.00.2800.1528" name=generator>
<meta content=frontpage.editor.document name=progid></head>
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<style>
.bar{font:12px;color: #000000;border:1px solid buttonface;cursor:default;behavior:url(<%=HOME_PATH%>css/button.htc);}

.up1{ background-color: buttonface; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;color: #FF9900;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;padding: 1px }
.down1{ background-color: buttonface; border: 1 inset buttonhighlight;padding: 0;cursor:default; }
.tempA input {height:19px;}
.tempB { border-top:0px solid #ffffff;border-right:0px solid #ffffff;border-left:0px solid #ffffff;border-bottom:1px solid #848284;background-color:transparent;}
.tempC {border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;color: #FF9900;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;}

 tempD {border-top:solid 1px #fff;border-left:solid 1px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
 .tempE{border-style:none;height:15px;width:100%;}
.tempF {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.tr_tempF td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
</style>

<style type = 'text/css'>
.clicked { background-color:#08246B;color:#ffffff;border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.onover { background-color:#ffffff;border-left:1px solid #000;border-top:1px solid #000;border-bottom:1px solid #000;border-right:1px solid #000;line-height:17px;height:20px;text-align:center;}
.onout { background-color:transparent;border-left:1px solid #000;border-top:1px solid #000;border-bottom:1px solid #000;border-right:1px solid #000;line-height:17px;height:20px;text-align:center;}
.tr_clicked td{ background-color:#08246B;color:#ffffff;border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
@media print{ 
.noprint {display:none;}
}

</style>

<object id="factory" style="display:none" viewastext classid="clsid:1663ed61-23eb-11d2-b92f-008048fdd814" codebase="<%=PrintCabSite%>"></object>
</object><!--必须安装该控件-->

<script defer>
function window.onload(){
  factory.printing.header = ""         //自定义页眉
  factory.printing.footer = ""         //自定义页脚
  factory.printing.portrait = true     //true为纵向打印，flase为横向打印
  factory.printing.leftMargin = 0.75   //左页边距
  factory.printing.topMargin = 1.5     //上页边距
  factory.printing.rightMargin = 0.75  //右页边距
  factory.printing.bottomMargin = 1.5  //下页边距
  }
</script>














</head>
<body style = 'margin:0px;background-color:#ffffff;border-style:none;'>
<div style = 'text-align:center;' class = 'noprint'>



<%
Call DateSearch(DateStar,DateEnd,DateSQL,"ALL",Dateinfo)
     Rselsupplierid = GetText("selsupplierid","G","number",1,10,0)
	 key_ = trim(Request("key"))
	 keySQL = ""
     BadStr = " ~`!@#$%^&*()-_+=|\{}[]［］:;" & chr(34) & chr(39) & "<,>.?/"
     viewBadStr = ""
	 key__ = Check(BadStr,key_,viewBadStr,"0")
	 keyColor = v1v2(key_,"",""," style = 'color:red;' ")
	 if not key_ = "" then keySQL = " and supplierid in(select uid from supplier where FullName like '%" & key__ & "%') or supplierName like '%" & key__ & "%' "
	 if not Rselsupplierid = 0 then 
	    selsupplieridSQL = " and supplierid = " & Rselsupplierid & ""
		supplierName = SelectZD("select FullName from supplier where uid = " & Rselsupplierid & "","")
	 else 
	    selsupplieridSQL = ""
		supplierName = ""
	 end if
	 seeThis = trim(Request("seeXX"))
%>

	   <form method='post' action="<%=SELVAR("FN","?")%>" name = 'formSearch'>
	   <input type = 'hidden' name = 'Searched' value = 'Y'/>

         日期选择：
		 从
		 <input type = 'text' name="DateStar" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateStar%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;' <%=keyColor%>/>
		 到
         <input type = 'text' name="DateEnd" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateEnd%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;' <%=keyColor%>/>
<%SQL = "select * from supplier where utypeid in(select utypeid from usertype where uTypeSelect in(select utypeid from usertype where identifyCode = 0 )) Order by uid desc"%>
客户名：<%=SearchSupplier(Rs,SQL,Rselsupplierid,"selsupplierid","width:auto;")%>
<select name = "seeXX" >
<option value = 'XX' <%=v1v2(seeThis,"XX"," style = 'color:red;' selected = 'true' ","")%>>详细记录</option>
<option value = ''<%=v1v2(seeThis,""," style = 'color:red;' selected = 'true' ","")%>>主 记 录</option>
</option></select>

客户名关键字 <input <%=keyColor%> type="text" name="key" style = 'width:100px;' value = '<%=key_%>' style = 'border-left:1px solid #000;border-top:1px solid #000;border-bottom:1px solid #000;border-right:0px solid #000;line-height:17px;height:20px;'/><input type="button" value = '搜索' style = 'border:1px solid #000;line-height:17px;height:20px;' onclick="javascript:formSearch.submit();"/>
		 <span style = 'color:bule;'><%=Dateinfo%> 记录</span>

      </form>
</div>

   <form method='post' action="" name = 'form' id = 'form'>
   <input type = 'hidden' name = 'Options'/>
   <input type = 'hidden' name = 'Execute'/>


     <table cellpadding='0' cellspacing='0' style = 'width:100%;border-collapse: collapse;' bordercolor='#000000' border = '1' class = 'LinkA'>
       <tr style = 'text-align:center;'>
         <td style = 'width:35px;text-align:center;padding:0px;'>序号</td>
		 <td>销售号码</td>
		 <td>日期</td>
		 <td>客户</td>
		 <td>总价格</td>
		 <td>税率</td>
		 <td>含税价</td>
		 <td>折减</td>
		 <td>购时支付</td>
		 <td>购后支付</td>
		 <td>总支付</td>
		 <td>欠款</td>
		 <td>录入者</td>
		 <td>所选操作员</td>
      </tr>
<%
   Set sRs = Server.CreateObject("Adodb.RecordSet")
   LinkFile = SELVAR("FN","outhistory.asp")
   LUrl = "DateStar=" & DateStar & "&DateEnd=" & DateEnd & "&key=" & key_ & "&selsupplierid=" & Rselsupplierid & "&seeXX=" & seeThis
   SQL = "select * from sale where 1=1 " & DateSQL & keySQL & selsupplieridSQL & " Order by saleid Desc"
   'Response.Write SQL
   Rs.Open(SQL),Conn,1,1
      if not Rs.eof then
	  	 thisPageSize = 10
         PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
         for i_his = 1 to thisPageSize
		     if Rs.eof then exit for
                saleid = Rs("saleid")
				supplierid  = isNumber(Rs("supplierid"),"int",0)
				plNum  = Rs("plNum")
				saleNum  = Rs("saleNum")

				sale_supplierName = Rs("supplierName")
				sale_Linkman = Rs("Linkman")

				thisDate  = Rs("thisDate")
				ZJ = isNumber(Rs("ZJ"),"dec",0)'折减
				outtime  = Rs("outtime")
				Amount  = isNumber(Rs("Amount"),"dec",0)
				shuilvALL = isNumber(Rs("shuilvALL"),"dec",0)
				AmountshuilvALL = isNumber(Rs("AmountshuilvALL"),"dec",0)'含税价
				nowpayment  = isNumber(Rs("nowpayment"),"dec",0)'购时支付
				nopayment  = isNumber(Rs("nopayment"),"dec",0)
				intoaid  = isNumber(Rs("intoaid"),"int",0)
				selectaid  = isNumber(Rs("selectaid"),"int",0)

				elsePayment_ = SelectZD("select Sum(paymoney) from payment where paymenttoid = " & saleid & " and supplierid = " & supplierid & "",0)'别的支付
		        nownoPayment_ = (AmountshuilvALL-elsePayment_-ZJ-nowpayment) '现在欠款　
		        nowinPayment_ = (nowpayment + ZJ + elsePayment_)'总的支付

      outAmountALL = outAmountALL + Amount '总额（未含税）
	  outAmountshuilvALL = outAmountshuilvALL+AmountshuilvALL '总额（含税）
	  nowPaymentALL = nowPaymentALL + nowinPayment_ '总的支付
	  noPaymentALL = noPaymentALL + nownoPayment_ '最后欠款

%>				  
      <tr style = 'padding-left:3px;background-color:#ffffff;cursor: default;'>
        <td style = 'text-align:center;padding:0px;background-color:buttonface;'><%=saleid%></td>
        <td><a href = "javascript:WindowOpen('outview.asp?saleid=<%=saleid%>','outview',screen.availWidth-50,screen.availHeight-100,'');"><%=saleNum%></a></td>
        <td><%=thisDate%></td>
        <td><%=Replace(SelectZD("select FullName from supplier where uid = " & supplierid & "",sale_supplierName),key_,"<span style = 'color:red;'>" & key_ & "</span>")%></td>
        <td>￥<%=formatNumber(Amount,2)%></td>
        <td><%=shuilvALL%>%</td>
        <td>￥<%=AmountshuilvALL%></td>
        <td>￥<%=formatNumber(ZJ,2)%></td>
12 下一页
⌨️ 快捷键说明

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