?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/common.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include virtual="/Server/SqlReport.asp" -->
<!-- #include virtual="/Server/ReportRes.asp" -->
<!-- #include virtual="/Server/rawdata.asp" -->
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script><title></title></HEAD>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cblib.js"></script><%
dim szSQL,szSelect,szFrom,szWhere,szGroupBy,szTableName,DateFrom, DateTo,subjectLong,CorpCheck
if len(GetForm("DateFrom"))>0 then
DateFrom=CDate(GetForm("DateFrom"))
datefrom = DateSerial(year(datefrom), month(datefrom), day(datefrom))
else
err.Raise 10000,"DateFromCheck","起始日期未填！"
end if
if len(GetForm("DateTo"))>0 then
DateTo=CDate(GetForm("DateTo"))
dateto = DateSerial(year(dateto), month(dateto), day(dateto))
dateto = DateAdd("d", 1, dateto)
else
DateTo=Now()
dateto = DateSerial(year(dateto), month(dateto), day(dateto))
dateto = DateAdd("d", 1, dateto)
end if
corpCheck=GetForm("corpCheck")
dim iMaxLv,rsCheck,SubjectLevel,Code,Lv(9),subject
if len(GetForm("subject"))>0 then subject=Cstr(GetForm("subjectText"))
if len(GetForm("Code"))>0 then Code=Cstr(GetForm("Code"))
subjectLong=4
iMaxLv=9
szSQL="SELECT * FROM [biAccountInfo] WHERE [InfoType]=15 AND AccountID=(SELECT RootID FROM [biCorperation] WHERE ID=" & AccountID & ")"
rsCheck=Conn.Execute(szSQL)
Lv(0)=0
for i=1 to iMaxLv
Lv(i)=rsCheck("Int"&i)+Lv(i-1)
next
SubjectLevel=0
for i = 1 to iMaxLv
if len(Code)=Lv(i) then
SubjectLevel=i
exit for
end if
next
subjectLong=Lv(SubjectLevel+1)
dim szSQLCode,szSQLAccountID
szSQLAccountID=" AND [vt].[AccountID]="& AccountID &" AND [vt].[IsDeleted]=0"
if corpCheck=1 then szSQLAccountID=" AND ([vt].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE ID=" & AccountID & ") OR [vt].[AccountID]="& AccountID &") AND [vt].[IsDeleted]=0"
szSQLCode=""
if len(Code) then szSQLCode=" AND SUBSTRING([bis].[Code],1,"& Lv(SubjectLevel) &")='"& Code &"'"
szSQl="SELECT DISTINCT [all].[Code] AS [科目編碼], [all].[Title] AS [科目名稱], SUM([all].[Amount]) AS [期初余額], SUM([all].[Debit]) AS [借方發(fā)生額], SUM([all].[Credit]) AS [貸方發(fā)生額], [all].[Mark] AS [余額], SUM([all].[Last]) AS [期末余額]" & _
" FROM (" &_
"SELECT DISTINCT [nv1].[Code] AS [Code], [biSubject].[Title] AS [Title], SUM([nv1].[Amount]) AS [Amount], SUM([nv1].[Debit]) AS [Debit], SUM([nv1].[Credit]) AS [Credit], [nv1].[Mark] AS [Mark], SUM([nv1].[Last]) AS [Last]" & _
" FROM (" & _
" SELECT SUBSTRING([bis].[Code],1,"& subjectLong &") AS [Code], [bis].[int1] AS [Mark], SUM([vl].[Quantity]) AS [Amount], 0 AS [Debit], 0 AS [Credit], SUM([vl].[Quantity]) AS [Last]" & _
" FROM [bdFirstBalance] AS [vt], [bdFirstBalanceList] AS [vl], [biSubject] AS [bis] " & _
" WHERE [vt].[ID]=[vl].[ID] "& szSQLAccountID &" AND [vl].[ProductID]=[bis].[ID]" & szSQLCode & _
" GROUP BY [Code], [bis].[int1]" & _
" ) AS [nv1], [biSubject]" & _
" WHERE [nv1].[Code]=[biSubject].[Code] AND ([biSubject].[AccountID]="& AccountID &" OR [biSubject].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE [ID]="& AccountID &"))" &_
" GROUP BY [nv1].[Code], [nv1].[Mark], [biSubject].[Title]" & _
" UNION " &_
"SELECT DISTINCT [nv2].[Code] AS [科目編碼], [biSubject].[Title] AS [科目名稱], SUM([nv2].[Amount]) AS [期初余額], SUM([nv2].[Debit]) AS [借方發(fā)生額], SUM([nv2].[Credit]) AS [貸方發(fā)生額], [nv2].[Mark] AS [余額], SUM([nv2].[Last]) AS [期末余額]" & _
" FROM (" & _
" SELECT SUBSTRING([bis].[Code],1,"& subjectLong &") AS [Code], [bis].[int1] AS [Mark], SUM(POWER(-1,[bis].[int1])*([vl].[Currency1]-[vl].[Currency2])) AS [Amount], 0 AS [Debit], 0 AS [credit], SUM(POWER(-1,[bis].[int1])*([vl].[Currency1]-[vl].[Currency2])) AS [Last]" & _
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis] " & _
" WHERE [vt].[ID]=[vl].[ID] AND [vt].[AuditID]<>0 "& szSQLAccountID &" AND [vl].[ProductID]=[bis].[ID]" & szSQLCode & " AND [vt].[UpdateDate]<'"&GetDateString(DateFrom)&"'" & _
" GROUP BY [Code], [bis].[int1]" & _
" ) AS [nv2], [biSubject]" & _
" WHERE [nv2].[Code]=[biSubject].[Code] AND ([biSubject].[AccountID]="& AccountID &" OR [biSubject].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE [ID]="& AccountID &"))" &_
" GROUP BY [nv2].[Code], [nv2].[Mark], [biSubject].[Title]" & _
" UNION " &_
"SELECT DISTINCT [nv3].[Code] AS [科目編碼], [biSubject].[Title] AS [科目名稱], SUM([nv3].[Amount]) AS [期初余額], SUM([nv3].[Debit]) AS [借方發(fā)生額], SUM([nv3].[Credit]) AS [貸方發(fā)生額], [nv3].[Mark] AS [余額], SUM([nv3].[Last]) AS [期末余額]" & _
" FROM (" & _
" SELECT SUBSTRING([bis].[Code],1,"& subjectLong &") AS [Code], [bis].[int1] AS [Mark], 0 AS [Amount], SUM([vl].[Currency1]) AS [Debit], SUM([vl].[Currency2]) AS [credit], SUM(POWER(-1,[bis].[int1])*([vl].[Currency1]-[vl].[Currency2])) AS [Last]" & _
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis] " & _
" WHERE [vt].[ID]=[vl].[ID] AND [vt].[AuditID]<>0 "& szSQLAccountID &" AND [vl].[ProductID]=[bis].[ID]" & szSQLCode & " AND [vt].[UpdateDate]>='"&GetDateString(DateFrom)&"' AND [vt].[UpdateDate]<'"&GetDateString(DateTo)&"'" & _
" GROUP BY [Code], [bis].[int1]" & _
" ) AS [nv3], [biSubject]" & _
" WHERE [nv3].[Code]=[biSubject].[Code] AND ([biSubject].[AccountID]="& AccountID &" OR [biSubject].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE [ID]="& AccountID &"))" &_
" GROUP BY [nv3].[Code], [nv3].[Mark], [biSubject].[Title]" & _
") AS [All]" &_
"GROUP BY [all].[Code],[all].[Title],[all].[Mark]" &_
"ORDER BY [all].[Code]"
eboReg 1, "gridCols", "iCols", "", "cbLocalVariable"
eboReg 2, "gridTilte_", "szTitle", "", "cbLocalVariable"
dim iCols, szTitle, szValue
dim i,rs
Response.Write "<script>" & VBCrLf
Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1
IData2d 0,1iCols=rs.Fields.Count
eboGet 1, nothing, nothingIData2d 1,2for i=0 to rs.Fields.Count-1
szTitle=rs.Fields.Item(i).Name eboGet 2, nothing, nothing
next
rawGet rs
Set rs = NothingResponse.Write "</script>" & VBCrLf
%>
<BODY>
<table>
<tr><td><div align="center"><font size=5><b><u>查 看 總 帳</u></b></font></div></td></tr>
<tr><td><div>科目名稱：<%=subject%><br>會計期間：<%=FormatDatetime(DateFrom,1)%>－<%=FormatDatetime(DateAdd("d",-1,DateTo),1)%></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</table>
</BODY>
<script>
var subject='<%=subject%>';
function ecbDetail(eo,szEvent,x,y){
if (szEvent=='MOUSECLICK'){
}
}
function getGridWidth(titleText){
switch(titleText){
case '科目名稱':
return 180;
break;
case '余額':
return 60;
break;
default:
return 80;
}
}
function getGridNumeric(titleText){
switch(titleText){
case '期初余額':
return 1;
break;
case '借方發(fā)生額':
return 1;
break;
case '貸方發(fā)生額':
return 1;
break;
case '期末余額':
return 1;
break;
default:
return 0;
}
}
function getGridAlign(titleText){
switch(titleText){
case '余額':
return 'center';
break;
case '期初余額':
return 'right';
break;
case '借方發(fā)生額':
return 'right';
break;
case '貸方發(fā)生額':
return 'right';
break;
case '期末余額':
return 'right';
break;
default:
return '';
}
}
function getGridTotal(titleText){
switch(titleText){
case '期初余額':
if (subject.length>0) return 1;
break;
case '借方發(fā)生額':
return 1;
break;
case '貸方發(fā)生額':
return 1;
break;
case '期末余額':
if (subject.length>0) return 1;
break;
default:
return 0;
}
}
function makeGrid(indata){
var gridCols=parseInt(indata.item('gridCols'));
var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,20,gridCols,'100%','',1,testUndefine,IRAWDataEnd(),ecbDetail);
gDetail.title[0].text='№';
for (var i=0;i<gridCols;i++){
gDetail.title[i+1].text=indata.item('gridTilte_'+i);
gDetail.title[i+1].width=getGridWidth(indata.item('gridTilte_'+i));
gDetail.title[i+1].isNumeric=getGridNumeric(indata.item('gridTilte_'+i));
gDetail.title[i+1].formAlign=getGridAlign(indata.item('gridTilte_'+i));
gDetail.title[i+1].isTotal=getGridTotal(indata.item('gridTilte_'+i));
}
gDetail.calcTotal();
gDetail.refreshAll();
if (gDetail.data.length!=0){
for (var i=0;i<gDetail.data.length;i++){
for (var j=0;j<gDetail.data[i].length;j++){
if (gDetail.title[j].text=='余額'){
if (gDetail.data[i][j-1]==0) gDetail.data[i][j-1]='借方';
if (gDetail.data[i][j-1]==1) gDetail.data[i][j-1]='貸方';
}
}
}
}
gDetail.calcTotal();
gDetail.refreshAll(1,0);
return gDetail
}
var gDetail=makeGrid(IDataEnd());
</script>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -