📄 yyw_clinttab_change的备份.htm
字号:
<%'--------------------------------------------------------------------------
' Project: COLLAMBER网络办公系统
' Module : 总务管理
' By: imafar
' Discription: 资产管理列表演示-
'--------------------------------------------------------------------------%>
<%response.expiresabsolute=#jan 01,1980 00:00:00#
if session("userid")="" then
response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
response.write "<!--"&chr(13)
response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
response.write "//-->"&chr(13)
response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<html>
<head>
<title>资产管理列表演示-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>operation.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="/js/popwin.js">
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%
priv1=request("priv1")
priv2=request("priv2")
priv3=request("priv3")
priv4=request("priv4")
priv5=request("priv5")
priv6=request("priv6")
'priv7=request("priv7")
'priv8=request("priv8")
'priv9=request("priv9")
'priv10=request("priv10")
KEY_BEGIN=request("begin")
KEY_END=request("end")
KEY_TYPE=request("TYPE")
KEY_company_name=request("company_name")
'KEY_HT1=request("HT1")
'KEY_HT2=request("HT2")
KEY_HTCOUNT1=request("HTCOUNT1")
KEY_HTCOUNT2=request("HTCOUNT2")
KEY_RETURN1=request("RETURN1")
KEY_RETURN2=request("RETURN2")
KEY_USER=request("USER")
submitit=request("submitit")
if submitit<>"yes" then
priv1=1
priv2=1
priv3=1
priv4=1
priv5=1
priv6=1
'priv7=1
'priv8=1
'priv9=1
end if
'SqlWhere="YW_TABLE.clintid=contact_company.id AND YW_TABLE.YWYID=USERINFO.ID and yw_table.state='成功'"
SqlWhere="YW_TABLE.clintid=contact_company.id AND YW_TABLE.Creator_id=USERINFO.ID and clint_table.clintid = yw_table.clintid and yw_table.state='成功'"
'------------- TEXT 框 类型 ---------
If KEY_BEGIN <> "" Then '时间判断
if key_END <> "" THEN
SqlWhere=SqlWhere & " AND exchangedate > '" & KEY_BEGIN & "' AND exchangedate < '" & key_END &"'"
else
SqlWhere=SqlWhere & " AND exchangedate > '" & KEY_BEGIN & "'"
end if
else
if key_END <> "" THEN
sqlwhere=sqlwhere & " AND exchangedate < '" & key_END & "'"
else
'sqlwhere=sqlwhere & "and cp_quantity link '%'" & key_END & "%'"
end if
end if
'------------- SELECT 框 类型 ---------
If KEY_TYPE <> "" Then '类别筛选条件
if len(SqlWhere)>0 then
SqlWhere=sqlwhere &" and CONTACT_COMPANY.type='" & KEY_TYPE & "'"
else
SqlWhere=SqlWhere & " CONTACT_COMPANY.type='" & KEY_TYPE & "'"
end if
end if
'------------- TEXT 框 类型 ---------
If KEY_company_name <> "" Then '类别筛选条件
if len(SqlWhere)>0 then
SqlWhere=SqlWhere & " AND COMPANY_NAME like '%" & KEY_company_name & "%'"
else
SqlWhere=SqlWhere & " COMPANY_NAME like '%" & KEY_company_name & "%'"
end if
end if
'------------- TEXT 框 类型 ---------
If KEY_HTCOUNT1 <> "" Then '时间判断
if KEY_HTCOUNT2 <> "" THEN
Sqlht=Sqlht & " total_table.total > '" & KEY_HTCOUNT1 & "' AND total_table.total < '" & KEY_HTCOUNT2 &"'"
else
Sqlht=Sqlht & " total_table.total > '" & KEY_HTCOUNT1 & "'"
end if
else
if KEY_HTCOUNT2 <> "" THEN
Sqlht=Sqlht & " total_table.total < '" & KEY_HTCOUNT2 & "'"
else
'sqlwhere=sqlwhere & "and productsl link '%'" & key_END & "%'"
end if
end if
if Sqlht<> "" then Sqlht=" where " & Sqlht
response.write RETURN1
'------------- TEXT 框 类型 ---------
If KEY_RETURN1 <> "" Then '时间判断
if KEY_RETURN2 <> "" THEN
SqlQk=SqlQk & " total_table.total > '" & KEY_RETURN1 & "' AND total_table.total < '" & KEY_RETURN2 &"'"
else
SqlQk=SqlQk & " total_table.total > '" & KEY_RETURN1 & "'"
end if
else
if KEY_RETURN2 <> "" THEN
SqlQk=SqlQk & " total_table.total < '" & KEY_RETURN2 & "'"
else
'sqlwhere=sqlwhere & "and productsl link '%'" & key_END & "%'"
end if
end if
if SqlQk<> "" then SqlQk=" where " & SqlQk
'------------- TEXT 框 类型 ---------
If KEY_user <> "" Then '类别筛选条件
if len(SqlWhere)>0 then
SqlWhere=SqlWhere & " AND USERINFO.NAME like '%" & KEY_user & "%'"
else
SqlWhere=SqlWhere & " USERINFO.NAME like '%" & KEY_user & "%'"
end if
end if
Set oTBL = CreateObject("Amber.Table")
otbl.setconnection oCon
otbl.pagesize=10
'otbl.debugsql=true
'otbl.setsql "SELECT *,USERINFO.NAME AS UNAME,company_name,contact_company.type as C_type,sl*price as htprice,(kpprice-ysprice) as return1,exchangedate FROM contact_company,YW_TABLE , USERINFO",sqlWhere
if priv9="1" then
strSelect="SELECT USERINFO.NAME AS UNAME,exchangedate, company_name,contact_company.type as C_type,(YW_TABLE.kpprice-YW_TABLE.ysprice) as return1,YW_TABLE.sl*YW_TABLE.price as htprice FROM contact_company, USERINFO,YW_TABLE, (SELECT clintid FROM (SELECT clintid, SUM(sl * price) AS total FROM yw_table WHERE state = '成功' GROUP BY clintid) AS total_table " & Sqlht & ") AS clint_table "
else
strSelect="SELECT USERINFO.NAME AS UNAME,exchangedate, company_name,contact_company.type as C_type,(YW_TABLE.kpprice-YW_TABLE.ysprice) as return1,YW_TABLE.sl*YW_TABLE.price as htprice FROM contact_company, USERINFO,YW_TABLE, (SELECT clintid FROM (SELECT clintid, SUM(kpprice - ysprice) AS total FROM yw_table WHERE state = '成功' GROUP BY clintid) AS total_table " & Sqlqk & ") AS clint_table "
end if
otbl.setsql strSelect,sqlwhere
'response.write sqlwhere
otbl.tablestyle.stylestring=" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""0"" bordercolorlight=""#C1C1C1"" bordercolordark=""#FFFFFF"""
'----------- chaxun ----------------
otbl.querystring.add "priv1",priv1
otbl.querystring.add "priv2",priv2
otbl.querystring.add "priv3",priv3
otbl.querystring.add "priv4",priv4
otbl.querystring.add "priv5",priv5
otbl.querystring.add "priv6",priv6
'otbl.querystring.add "priv7",priv7
'otbl.querystring.add "priv8",priv8
'otbl.querystring.add "priv9",priv9
'otbl.querystring.add "priv10",priv10
otbl.querystring.add "begin", KEY_BEGIN
otbl.querystring.add "end", KEY_END
otbl.querystring.add "type", KEY_TYPE
otbl.querystring.add "company_name", KEY_company_name
otbl.querystring.add "HTCOUNT1", KEY_HTCOUNT1
otbl.querystring.add "HTCOUNT2", KEY_HTCOUNT2
otbl.querystring.add "RETURN1", RETURN1
otbl.querystring.add "RETURN2", RETURN2
otbl.querystring.add "USER", USER
otbl.querystring.add "submitit",submitit
'----------------------------------------
otbl.title.intable=true
otbl.title.style.stylestring="align=""center"""
oTBL.Header.Style.stylestring=" align=""center"" bgcolor=""#E3E2DB"""
if priv1="1" then otbl.addcolumn "company_name","公司名称","%&company_name%"," align=""center"" bgcolor=""#F4F3F0"""
if priv2="1" then otbl.addcolumn "C_type","业务类别","%&C_type%"," align=""center"" bgcolor=""#F4F3F0"""
if priv3="1" then otbl.addcolumn "UNAME","对应业务员","%&UNAME%"," align=""center"" bgcolor=""#F4F3F0"""
if priv4="1" then otbl.addcolumn "exchangedate","交易日期","%&exchangedate%"," align=""center"" bgcolor=""#F4F3F0"""
if priv5="1" then otbl.addcolumn "price","合同","%&htprice%"," align=""center"" bgcolor=""#F4F3F0"""
if priv6="1" then otbl.addcolumn "return","欠款","%&return1%"," align=""center"" bgcolor=""#F4F3F0"""
if priv1="1" then
otbl.cols("company_name").sort=true
otbl.cols("company_name").sortfield="company_name"
otbl.cols("company_name").statcaption="公司名称统计"
if priv9="1" then
otbl.cols("company_name").sumfield="htprice"
else
otbl.cols("company_name").sumfield="return1"
end if
end if
if priv2="1" then
otbl.cols("C_type").sort=true
otbl.cols("C_type").sortfield="C_type"
otbl.cols("C_type").sortfield2="contact_company.type"
otbl.cols("C_type").statcaption="业务类别统计"
if priv9="1" then
otbl.cols("C_type").sumfield="htprice"
else
otbl.cols("C_type").sumfield="return1"
end if
end if
if priv3="1" then
otbl.cols("UNAME").sort=true
otbl.cols("UNAME").sortfield="UNAME"
otbl.cols("UNAME").sortfield2="USERINFO.NAME"
otbl.cols("UNAME").statcaption="业务员统计"
if priv9="1" then
otbl.cols("UNAME").sumfield="htprice"
else
otbl.cols("UNAME").sumfield="return1"
end if
end if
if priv4="1" then
otbl.cols("exchangedate").sort=true
otbl.cols("exchangedate").sortfield="exchangedate"
otbl.cols("exchangedate").statcaption="交易日期统计"
if priv9="1" then
otbl.cols("exchangedate").sumfield="htprice"
else
otbl.cols("exchangedate").sumfield="return1"
end if
end if
if priv9="1" then
otbl.statcaption="按合同金额统计"
else
otbl.statcaption="按欠款金额统计"
end if
otbl.imagePath="/images/amber-table/002/"
oTBL.company=""
'otbl.statcaption="统计"
otbl.statTableStyle="width=100%"
'otbl.writetable
otbl.writereport
set otbl=nothing
%>
</body>
</html>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -