print.asp

一个比较完整的企业erp系统

        <td>￥<%=formatNumber(nowpayment,2)%></td>
        <td>￥<%=formatNumber(elsePayment_,2)%></td>
        <td><a href = "javascript:SDD('<%=HOME_PATH%>sale/paymentinedList.asp?paymenttoid=<%=saleid
		   %>','paymentedto',600,350,'');">￥<%=formatNumber(nowinPayment_,2)%></a></td>
        <td <%=v1v2(nownoPayment_,0,""," style = 'background-color:red;color:#ffffff;' ")%>>￥<%=formatNumber(nownoPayment_,2)%></td>
        <td><%=SelectZD("select TrueName from admins where aid = " & intoaid & "","未知")%></td>
        <td><%=SelectZD("select TrueName from admins where aid = " & selectaid & "","未知")%><input type = 'checkbox' name = 'box_' style = 'visibility:hidden;height:10px;' value = '<%=saleid%>'/></td>


      </tr>

	  <%if seeThis = "XX" then%>
	  <tr>
	    <td></td>
		<td colspan = '13'>
		   <%
		     sRsSQL = "select * from salelist where saleid = " & saleid & " Order By salelistid desc"
		     sRs.Open(sRsSQL),Conn,1,1
			     if not sRs.eof then


	       %>
            <table style = 'width:100%;' border = '0' cellspacing = '3'>
			  <tr>
			    <td style = 'width:55%;text-align:center;' valign = 'top'>
				详细购买商品记录
				  <table style = 'width:100%;border-collapse: collapse;' bordercolor = '#cccccc' border = '1'>
				    <tr>
					  <td>序号</td>
					  <td>商品名</td>
					  <td>销售数量</td>
					  <td>售价</td>
					  <td>税率</td>
					  <td>总额</td>
                    </tr>


		   <%
				    sRsCount = sRs.RecordCount
				    for isRs = 1 to sRsCount
					    sRsSalelistid = sRs("salelistid")
					    sRsStockid = isNumber(sRs("stockid"),"int",0)
						sRsOutHow = sRs("outHow")
						sRsOutPrice = formatNumber(sRs("outPrice"),2)
						sRsShuilv = shuilvALL/sRsCount
						sRsAmount = sRs("Amount")
						sRsThisDate = sRs("thisDate")
						sRsAmountALL = formatNumber(sRsAmountALL+sRsAmount,2)
           %>

           <tr>
		     <td><%=sRsSalelistid%></td>
			 <td><%=SelectZD("select cName from stock where stockid = " & sRsStockid & "","未知")%></td>
			 <td><%=sRsOutHow%></td>
			 <td><%=sRsOutPrice%></td>
			 <td><%=formatNumber(sRsShuilv,2)%></td>
			 <td><%=formatNumber(sRsAmount,2)%></td>
		   </tr>


		   <%


				    sRs.movenext
				    next
		   %></table>
		   <div style = 'text-align:center;padding:5px;color:Red;'>总计：<%=sRsAmountALL%> + <span style = 'color:blue;'>(<%=sRsAmountALL & "×" & shuilvALL%>%)</span> = <%=formatNumber(sRsAmountALL+(sRsAmountALL*shuilvALL/100),2)%></div>
		   <%
				 else
				 end if
				 sRs.CLose()
				 sRsAmountALL = 0
				 shuilvALL = 0

		%></td>
		<td style = 'width:auto;text-align:center;' valign = 'top'>
		<%
		   paySQL = " select * from payment where paymenttoid = " & saleid & " and inorout = 1 Order By paymentid desc" 
		   sRs.Open(paySQL),Conn,1,1
		       if not sRs.eof then
		%>详细购后收款记录
				  <table style = 'width:100%;border-collapse: collapse;' bordercolor = '#cccccc' border = '1'>
				    <tr>
					  <td>序号</td>
					  <td>收款金额</td>
					  <td>收款时间</td>
					  <td>录入者</td>
					  <td>所选收款人</td>
					  <td>备注</td>
                    </tr>

		<%
			      pCount = sRs.RecordCount
				  for psRs = 1 to pCount
				  	  sRsPaymentid = sRs("paymentid")
			          sRsPaymoney = sRs("paymoney")
				      sRsPayDate = sRs("thisDate")
				      sRsRemark = sRs("Remark")

	     %>
		 
				    <tr>
					  <td><%=sRsPaymentid%></td>
					  <td><%=formatNumber(sRsPaymoney,2)%></td>
					  <td><%=sRsPayDate%></td>
					  <td><%=SelectZD("select TrueName from admins where aid = " & isNumber(sRs("intoaid"),"int",0) & "","未知")%></td>
					  <td><%=SelectZD("select TrueName from admins where aid = " & isNumber(sRs("selectaid"),"int",0) & "","未知")%></td>
					  <td><%=sRsRemark%></td>
                    </tr>

		 <%
		              sRsPaymoneyALL = sRsPaymoneyALL + sRsPaymoney
				      sRs.movenext
				  next
		%></table>
		<div style = 'padding:3px; text-align:center;color:blue;'>购后支付合计：<%=formatNumber(sRsPaymoneyALL,2)%></div>
		<%
			   else
			   end if
			   sRs.Close
			   sRsPaymoneyALL = 0
			   shuilvALL = 0

		 %>
		
		
		</td>
	   </tr>
	 </table>
					    
		
		
		</td>
	  </tr><%end if%>
<%

      Rs.movenext
	  next




%>
<%else%>
      <tr style = 'padding-left:3px;background-color:#ffffff;cursor: default;'>
        <td style = 'text-align:center;padding:0px;background-color:buttonface;'>0</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
<%
end if
Rs.Close
if trim(Request.Form("Searched")) = "Y" then Response.Redirect(LinkFile & "?" & LUrl)
%>
    </table>




<div style = 'text-align:center;padding:5px;' class  ='LinkA'><%=PageWrite%></div>
</form>
<fieldset style = 'width:100%;padding:8px;border:solid 1px #000000;'>
    <legend>相关信息 - 日期：<%=Dateinfo%> - 客户名关键字：<span style = 'color:blue;'>［<%=v1v2(key_ & supplierName,"","全部",key_ & supplierName)%>］</span></legend>
	<table style = 'width:100%;'>
	  <tr style = 'text-align:center;'>
	    <td style = 'width:33%;'>销售总额（含税价）：￥<%=formatNumber(outAmountshuilvALL,2)%></td>
        <td style = 'width:34%;'>已付总额（包含折减）：￥<%=formatNumber(nowPaymentALL,2)%></td>
        <td style = 'width:33%;'>欠款总额：￥<%=formatNumber(noPaymentALL,2)%></td>
	  </tr>
	</table>
</fieldset>
</div>

<%
Set sRs = Nothing
ConnClose()
%>


<table border='0' cellspacing='0' cellpadding='5' style='border-collapse: collapse;width:98%;' bordercolor='#000000' class = 'noprint'>
   <tr>
     <td style='text-align:center;' class='print'>
		<input  type="button" value="关闭本页" onclick='javascript:window.opener = null ; window.close();'>
		<input  type="button" value="打印本页" onclick='javascript:print();'>
		<!-- onclick="factory.printing.Print(false)"-->
		<input  type="button" value="页面设置" onclick="factory.printing.PageSetup()">
		<input type="button" value="打印预览" onclick="factory.printing.Preview()">

   </tr>
</table>

</body>
</html>