📄 caiwu_listshow.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(82)
VPage = Request("VPage")
CaiWu_User = Request("CaiWu_User")
CaiWu_WUser = Request("CaiWu_WUser")
CaiWu_State = Request("CaiWu_State")
CaiWu_YSign = Request("CaiWu_YSign")
CaiWu_Kind = Request("CaiWu_Kind")
InOut = Request("InOut")
CaiWu_Path = Request("CaiWu_Path")
CaiWu_PSort = Request("CaiWu_PSort")
CaiWu_PSign = Request("CaiWu_PSign")
CaiWu_HTimeS = Request("CaiWu_HTimeS")
CaiWu_HTimeE = Request("CaiWu_HTimeE")
CaiWu_CTimeS = Request("CaiWu_CTimeS")
CaiWu_CTimeE = Request("CaiWu_CTimeE")
VDesc = Request("VDesc")
VNum = Request("VNum")
StrWhere = ""
StrWhere = StrWhere & "CaiWu_User=" & CaiWu_User & "&"
StrWhere = StrWhere & "CaiWu_WUser=" & CaiWu_WUser & "&"
StrWhere = StrWhere & "CaiWu_State=" & CaiWu_State & "&"
StrWhere = StrWhere & "CaiWu_YSign=" & CaiWu_YSign & "&"
StrWhere = StrWhere & "CaiWu_Kind=" & CaiWu_Kind & "&"
StrWhere = StrWhere & "InOut=" & InOut & "&"
StrWhere = StrWhere & "CaiWu_Path=" & CaiWu_Path & "&"
StrWhere = StrWhere & "CaiWu_PSort=" & CaiWu_PSort & "&"
StrWhere = StrWhere & "CaiWu_PSign=" & CaiWu_PSign & "&"
StrWhere = StrWhere & "CaiWu_HTimeS=" & CaiWu_HTimeS & "&"
StrWhere = StrWhere & "CaiWu_HTimeE=" & CaiWu_HTimeE & "&"
StrWhere = StrWhere & "CaiWu_CTimeS=" & CaiWu_CTimeS & "&"
StrWhere = StrWhere & "CaiWu_CTimeE=" & CaiWu_CTimeE & "&"
StrWhere = StrWhere & "VDesc=" & VDesc & "&"
StrWhere = StrWhere & "VNum=" & VNum & "&"
YWhere = ""
If Len(CaiWu_User)>0 Then YWhere = YWhere & "CaiWu_User=" & CaiWu_User & " And "
If Len(CaiWu_WUser)>0 Then YWhere = YWhere & "CaiWu_WUser='" & CaiWu_WUser & "' And "
If Mid(session("SessAdminPOP"),92,1)="0" Then
YWhere = YWhere & "(CaiWu_WUser='" & LgData("Admin_User") & "' Or CaiWu_WUser='') And "
End If
If CaiWu_State <> "11" Then YWhere = YWhere & "CaiWu_State='" & CaiWu_State & "' And "
If Mid(session("SessAdminPOP"),86,1) = 0 Then YWhere = YWhere & "CaiWu_State <> '作废' And "
If Len(CaiWu_YSign)>0 Then YWhere = YWhere & "CaiWu_YSign='" & CaiWu_YSign & "' And "
If CaiWu_Kind <> "11" Then YWhere = YWhere & "CaiWu_Kind='" & CaiWu_Kind & "' And "
If InOut <> "11" Then
If InOut = "收入" Then
YWhere = YWhere & "CaiWu_Sum>0 And "
ElseIf InOut = "支出" Then
YWhere = YWhere & "CaiWu_Sum<0 And "
End If
End If
If Len(CaiWu_Path)>0 Then YWhere = YWhere & "CaiWu_Path='" & CaiWu_Path & "' And "
If CaiWu_PSort <> "11" Then YWhere = YWhere & "CaiWu_PSort='" & CaiWu_PSort & "' And "
If CaiWu_PSign <> "11" Then YWhere = YWhere & "CaiWu_PSign='" & CaiWu_PSign & "' And "
If Len(CaiWu_HTimeS)>0 Then YWhere = YWhere & "CaiWu_HTime > #" & CaiWu_HTimeS & " 0:0:0# And "
If Len(CaiWu_HTimeE)>0 Then YWhere = YWhere & "CaiWu_HTime < #" & CaiWu_HTimeE & " 23:59:59# And "
If Len(CaiWu_CTimeS)>0 Then YWhere = YWhere & "CaiWu_CTime > #" & CaiWu_CTimeS & " 0:0:0# And "
If Len(CaiWu_CTimeE)>0 Then YWhere = YWhere & "CaiWu_CTime < #" & CaiWu_CTimeE & " 23:59:59# And "
If Len(YWhere)>0 Then YWhere = Left(YWhere,Len(YWhere)-5)
YWhere = YWhere & " Order By CaiWu_HTime"
If VDesc = "1" Then YWhere = YWhere & " Desc"
AyData = Conn.TurnPage("EfangCaiWu",YWhere,"*",VPage,VNum)
'Response.Write AyData(2) & "<br>" : Response.End
%>
<html>
<head>
<title>财务组合查询-搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="财务组合查询">
</form>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">财务管理>> 财务操作 >> <b></b><b></b><b>财务组合查询</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<tr align="right">
<td height="30" colspan="9" class="DataGroup"><a href="CaiWu_ListShow.asp?CaiWu_User=&CaiWu_WUser=&YeWu_WUSer_Pick=&CaiWu_State=11&CaiWu_YSign=&CaiWu_Kind=%BB%E3%BF%EE%C8%EB%D5%CA&CaiWu_Path=&patha=&InOut=11&CaiWu_HTimeS=2005-1-1&CaiWu_HTimeE=2005-1-11&CaiWu_PSort=11&CaiWu_CTimeS=&CaiWu_CTimeE=&CaiWu_PSign=11&VDesc=1&VNum=20" class=commonface><font color="#FF0000">汇款入帐</font></a> | <a href="CaiWu_ListShow.asp?CaiWu_State=11&CaiWu_Kind=%CD%CB%BF%EE%B3%F6%D5%CA&InOut=11&CaiWu_HTimeS=2005-1-1&CaiWu_HTimeE=2005-1-11&CaiWu_PSort=11&CaiWu_PSign=11&VDesc=1&VNum=20" class=commonface >退款出帐</a> | <a href="CaiWu_ListShow.asp?CaiWu_State=11&CaiWu_YSign=&CaiWu_Kind=%CD%CB%BF%EE%C8%EB%BB%A7&InOut=11&CaiWu_HTimeS=2005-1-1&CaiWu_HTimeE=2005-1-11&CaiWu_PSort=11&CaiWu_PSign=11&VDesc=1&VNum=20" class=commonface >退款入户</a> |
<a href="CaiWu_ListShow.asp?CaiWu_State=11&CaiWu_YSign=&CaiWu_Kind=%D2%B5%CE%F1%BF%DB%BF%EE&InOut=11&CaiWu_HTimeS=2005-1-1&CaiWu_HTimeE=2005-1-11&CaiWu_PSort=11&CaiWu_CTimeS=&CaiWu_CTimeE=&CaiWu_PSign=11&VDesc=1&VNum=20" class=commonface><font color="#FF0000">业务扣款</font></a> | <a href="CaiWu_ListShow.asp?CaiWu_State=11&CaiWu_Kind=%D3%C5%BB%DD%B7%B5%BF%EE&InOut=11&CaiWu_HTimeS=2005-1-1&CaiWu_HTimeE=2005-1-11&CaiWu_PSort=11&CaiWu_PSign=11&VDesc=1&VNum=20" class=commonface >优惠返款</a> | <a href="CaiWu_XYUser.asp" class=commonface >信用额度 </a><font color="#000000">| </font><a href="CaiWu_List.asp" class=commonface>组合查询</a></td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td height="30" colspan="9">共 <%=AyData(1)%> 条 第 <%=AyData(3)%> 页/共 <%=AyData(2)%> 页 <a href="?VPage=1&<%=StrWhere%>" class="CommonFace">首页</a>
<a href=?VPage=<%=AyData(3)-1%>&<%=StrWhere%> class="CommonFace">上一页</a>
<a href=?VPage=<%=AyData(3)+1%>&<%=StrWhere%> class="CommonFace">下一页</a>
<a href=?VPage=<%=AyData(2)%>&<%=StrWhere%> class="CommonFace">未页</a></td>
</tr>
<tr align="center">
<th width="26" nowrap class="DataListHeader" height="26">序号</th>
<th width="68" nowrap class="DataListHeader" height="26">会员帐号</th>
<th width="82" nowrap class="DataListHeader">入帐类型</th>
<th width="72" nowrap class="DataListHeader">付款途径</th>
<th width="79" nowrap class="DataListHeader">付款时间</th>
<th width="55" nowrap class="DataListHeader">专员</th>
<th width="47" nowrap class="DataListHeader">状态</th>
<th nowrap class="DataListHeader" width="55">加款人 </th>
<th nowrap class="DataListHeader" width="52">金额</th>
<%
Set YeWuData = AyData(0)
XuNum = (AyData(3)-1)*VNum
Count=0
Do while not YeWuData.EOF And Count<Clng(VNum)
%>
<tr align="center">
<td width="26" align="center" nowrap class="DataListGrid" height="26"> <%
XuNum = XuNum + 1
Response.Write XuNum
%> </td>
<td width="68" align="center" nowrap class="DataListGrid" height="26" title=""><a href=User_Upd.asp?User=<%=YeWuData("CaiWu_User")%> class="CommonFace"><%=YeWuData("CaiWu_User")%></a></td>
<td width="82" align="center" nowrap class="DataListGrid" title="<%
If YeWuData("CaiWu_Kind") = "业务扣款" Then
Response.Write "业务编号：" & YeWuData("CaiWu_YSign") & vbcrlf
Response.Write "业务名称："
Response.Write Conn.QueryItem("EfangYeWu","YeWu_Name","YeWu_Sign='" & YeWuData("CaiWu_YSign") & "'")
End If
%>"><%=YeWuData("CaiWu_Kind")%></td>
<td width="72" align="center" nowrap class="DataListGrid" title=""> <%=YeWuData("CaiWu_Path")%></td>
<td width="79" align="center" nowrap class="DataListGrid" title="入款时间：<%=YeWuData("CaiWu_CTime")%>
付款时间：<%=YeWuData("CaiWu_HTime")%>"> <%=Efang.DateTime("y-m-d",YeWuData("CaiWu_HTime"))%></td>
<td width="55" align="center" nowrap class="DataListGrid" title=""> <a href=SysUser_Upd.asp?Admin_User=<%=YeWuData("CaiWu_WUser")%> class="CommonFace"><%=YeWuData("CaiWu_WUser")%></a></td>
<td width="47" align="center" nowrap class="DataListGrid"> <%=YeWuData("CaiWu_State")%></td>
<td align="center" nowrap class="DataListGrid" width="55" title="审核人：<%=YeWuData("CaiWu_AuditUser")&vbcrlf%>作废人：<%=YeWuData("CaiWu_DelAUser")%>"><%
If Len(YeWuData("CaiWu_AddUser")) = 0 Then
Response.Write "客户"
Else
Response.Write YeWuData("CaiWu_AddUser")
End If
%></td>
<td align="center" nowrap class="DataListGrid" width="52" title="成本金额：<%=YeWuData("CaiWu_CBen")%>"><a href="CaiWu_Upd.asp?CaiWu_ID=<%=YeWuData("CaiWu_ID")%>" class="CommonFace">
<b><%
Response.Write YeWuData("CaiWu_Sum")
if YeWuData("CaiWu_State") <> "作废" then
TmTotal = TmTotal + YeWuData("CaiWu_Sum")
TmCBen = TmCBen + YeWuData("CaiWu_CBen")
end if
%></b></a></td>
</tr>
<%
Count = Count + 1
YeWuData.movenext
Loop
Set YeWuData=Nothing
%>
<tr align="center">
<td height="26" colspan="7" align="right" bgcolor="#FFFFFF">合计：</td>
<td bgcolor="#FFFFFF" colspan="2"> <%
Response.Write FormatNumber(TmTotal,2,True,False,False)
%></td>
</tr>
<% If Mid(session("SessAdminPOP"),91,1)=1 And CaiWu_Kind="业务扣款" Then %>
<tr align="center">
<td height="26" colspan="7" align="right" bgcolor="#FFFFFF">成本合计：</td>
<td bgcolor="#FFFFFF" colspan="2"> <%
Response.Write TmCBen
%> </td>
</tr>
<tr align="center">
<td height="26" colspan="7" align="right" bgcolor="#FFFFFF">合计毛利润：</td>
<td bgcolor="#FFFFFF" colspan="2"> <%
Response.Write abs(TmTotal) - abs(TmCBen)
%> </td>
</tr>
<%End If%>
</table>
</div></td>
</tr>
</table>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -