<
Pagenum=55'specifies the number of print rows
%>



销售利润表打印

TD {字体大小：9pt；颜色：# 000000 }
{文字装饰：无}
答：悬停{颜色：# FF0000；文字装饰：derline }
打破前页突破：总是}



window.print（）



昏暗的hkey_root，hkey_path，hkey_key
hkey_root =hkey_current_user
hkey_path = 软件微软 Internet Explorer pagesetup
pagesetup_default（）函数
下次继续出错
集regwsh = CreateObject（wｓｃｒｉｐｔ。壳）
hkey_key = 头
regwsh.regwrite hkey_root + hkey_path + hkey_key，B页面的P / P
hkey_key =
regwsh.regwrite hkey_root + hkey_path + hkey_key，
端功能

<
kdname1 =装饰（请求（kdname1 ））
kdname2 =装饰（请求（kdname2 ））
关键词1 =装饰（请求（中））
关键词=装饰（请求（关键词））
如果中<> 然后
今天=中
其他的
如果kdname1 = 然后
今天=年份（日期（））月（日期（））
其他的
今天是kdname1 kdname2
最后如果
最后如果
%>


销售利润汇总表


<
StrSQL= select AutoID, sellautoid, productxili, ProductName, productsize, productnum, productdan, productjia, Chaoshi, Tiaoma, Youhui, Fukuan, moncount1, Gongshang, lirun1, username, indate, fudate from sell where officename='trim (request.cookies (Myoffice) and monthjie='0' (and) 'year (indate (=year) getdate (and)) month (indate) =month (getdate) Zhuofei is (and)) null order by AutoID desc
集RS1 = server.createobject（ADODB。记录集）
rs1.open StrSQL，Conn，1,1
%>


萨莱诺
商品名称（规格）
客户
数
单位
销售价格
%
购买价格
小计
利润
付款
销售日期


<
Moncount2=0
moncount5 = 0
而不是rs1.eof
%>

<
我pagenum = 1
如果不rs1.eof然后
如果修剪（RS1（付款））=欠款然后
moncount6 = CSng（RS1（lirun1 ））
moncount5 = moncount5 + moncount6
其他的
moncount3 = CSng（RS1（lirun1 ））
moncount2 = moncount2 + moncount3
最后如果
%>














<
rs1.movenext
最后如果
下一个
%>

<
如果不rs1.eof我= pagenum + 1然后添加分页标记
%>




销售和市场营销
商品名称（规格）
客户
数
单位
销售价格
%
购买价格
小计
利润
付款
销售日期

<
最后如果
环
rs1.close
集RS1 =没有
%>



现金利润： 然后%欠款利润： 然后毛利总%：


<
最后如果
conn.close
设置conn =没有
%>