?? 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,szTableName,DateFrom, DateTo,subject,CorpCheck
dim SubjectNameSubjectName=CStr(GetForm("SubjectText"))
corpCheck=GetForm("corpCheck")
dim szAccountID,szSubject,ciCount
ciCount=CLng(GetForm("ChildDetail_rows"))
if len(GetForm("subject"))>0 then subject=CStr(GetForm("subject")) else err.Raise 10000,"SubjectCheck","會計科目未填！"
function SQLAccountIDOR(szField,szServerSideName,iTotalCount)
dim i, szAccountID
szAccountID = " "
for i = 0 to iTotalCount-1
if i > 0 then szAccountID = szAccountID & " OR "
szAccountID = szAccountID & szField & "=" & GetForm(szServerSideName & i)
next
SQLAccountIDOR=szAccountID
end function
dim szAccountID
if ciCount=0 then
szAccountID="AND [vt].[AccountID] IN (SELECT [vl].[ProductID] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl] WHERE [vt].[ID]=[vl].[ID] AND [vt].[Bigint1]=" & Owner & ")" & " AND [vt].[IsDeleted]=0"
else
szAccountID=SQLAccountIDOR("[vt].[AccountID]","childDetail_0_",ciCount)
szAccountID="AND (" & szAccountID & ")" & " AND [vt].[IsDeleted]=0"
end if
szSubject=" AND [bis].[ID]="& subject
if len(GetForm("DateFrom"))>0 then
DateFrom=CDate(GetForm("DateFrom"))
datefrom = DateSerial(year(datefrom), month(datefrom), day(datefrom))
datefrom = GetDateString(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)
dateto = GetDateString(dateto)
else
DateTo=Now()
dateto = DateSerial(year(dateto), month(dateto), day(dateto))
dateto = DateAdd("d", 1, dateto)
dateto = GetDateString(dateto)
end if
szSQL="SELECT [ID] AS [憑證號], [BillDate] AS [憑證填寫時間], [Memo] AS [摘要], [Mark] AS [余額], [Debit] AS [借方], [Credit] AS [貸方]" &_
"FROM (" &_
" SELECT DISTINCT 0 AS [Order] , NULL AS [ID], 0 AS [Serial], [Code] AS [Code], [Title] AS [Title], NULL AS [BillDate], '期初余額' AS [Memo], [Mark] AS [Mark], SUM([Debit]) AS [Debit], SUM([Credit]) AS [Credit]" &_
" FROM (" &_
" SELECT DISTINCT [bis].[Code] AS [Code], [bis].[Title] AS [Title], [bis].[int1] AS [Mark], SUM([vl].[Quantity]*(1-[bis].[int1])) AS [Debit], SUM([vl].[Quantity]*[bis].[int1]) AS [Credit]" &_
" FROM [bdFirstBalance] AS [vt], [bdFirstBalanceList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID]" &_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" UNION" &_
" SELECT DISTINCT [bis].[Code] AS [Code], [bis].[Title] AS [Title], [bis].[int1] AS [Mark], SUM([vl].[Currency1]) AS [Debit], SUM([vl].[Currency2]) AS [credit]" &_
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[AuditID]<>0 AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID] AND [vt].[UpdateDate]<'"& DateFrom &"'"&_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" ) AS [nvFirst]" &_
" GROUP BY [Code], [Title], [Mark]" &_
" UNION" &_
" SELECT 1 AS [Order], [vl].[ID] AS [ID], [vl].[Serial] AS [Serial], [bis].[Code] AS [Code], [bis].[Title] AS [Title], [vt].[BillDate] AS [BillDate], [vl].[BillListMemo] AS [Memo], [bis].[int1] AS [Mark], [vl].[Currency1] AS [Debit], [vl].[Currency2] AS [credit]" &_
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[AuditID]<>0 AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID] AND [vt].[UpdateDate]>='"& DateFrom &"' AND [vt].[UpdateDate]<'"& DateTo &"'"&_
" UNION" &_
" SELECT DISTINCT 2 AS [Order], NULL AS [ID], 0 AS [Serial], [bis].[Code] AS [Code], [bis].[Title] AS [Title], NULL AS [BillDate], '本期發生額' AS [Memo], [bis].[int1] AS [Mark], SUM([vl].[Currency1]) AS [Debit], SUM([vl].[Currency2]) AS [credit]" &_
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[AuditID]<>0 AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID] AND [vt].[UpdateDate]>='"& DateFrom &"' AND [vt].[UpdateDate]<'"& DateTo &"'"&_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" UNION" &_
" SELECT DISTINCT 3 AS [Order] , Null AS [ID], 0 AS [Serial], [Code] AS [Code], [Title] AS [Title], NULL AS [BillDate], '期末余額' AS [Memo], [Mark] AS [Mark], SUM([Debit]) AS [Debit], SUM([Credit]) AS [Credit]" &_
" FROM (" &_
" SELECT DISTINCT [bis].[Code] AS [Code], [bis].[Title] AS [Title], [bis].[int1] AS [Mark], SUM([vl].[Quantity]*(1-[bis].[int1])) AS [Debit], SUM([vl].[Quantity]*[bis].[int1]) AS [Credit]" &_
" FROM [bdFirstBalance] AS [vt], [bdFirstBalanceList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID]" &_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" UNION" &_
" SELECT DISTINCT [bis].[Code] AS [Code], [bis].[Title] AS [Title], [bis].[int1] AS [Mark], SUM([vl].[Currency1]) AS [Debit], SUM([vl].[Currency2]) AS [credit]" &_
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[AuditID]<>0 AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID] AND [vt].[UpdateDate]<'"& DateFrom &"'"&_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" UNION" &_
" SELECT DISTINCT [bis].[Code] AS [Code], [bis].[Title] AS [Title], [bis].[int1] AS [Mark], SUM([vl].[Currency1]) AS [Debit], SUM([vl].[Currency2]) AS [credit]" &_
" FROM [bdVoucher] AS [vt], [bdVoucherList] AS [vl], [biSubject] AS [bis]" &_
" WHERE "& szAccountID & szSubject &" AND [vt].[AuditID]<>0 AND [vt].[ID]=[vl].[ID] AND [vl].[ProductID]=[bis].[ID] AND [vt].[UpdateDate]>='"& DateFrom &"' AND [vt].[UpdateDate]<'"& DateTo &"'"&_
" GROUP BY [bis].[Code], [bis].[Title], [bis].[int1]" &_
" ) AS [nvEnd]" &_
" GROUP BY [Code], [Title], [Mark]" &_
" ) AS [nv]" &_
" ORDER BY [Code], [Order], [BillDate]"
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 rsSet rs = NothingResponse.Write "</script>" & VBCrLf
%>
<LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script><BODY>
<table>
<tr><td><div align="center"><font size=5><b><u>查 看 明 細 帳</u></b></font></div></td></tr>
<tr><td><div>科目名稱：<%=SubjectName%><br>會計期間：<%=FormatDatetime(DateFrom,1)%>－<%=FormatDatetime(DateAdd("d",-1,DateTo),1)%></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</table>
</BODY>
<script>
function ecbDetail(eo,szEvent,x,y){
if (szEvent=='MOUSECLICK'){
}
}
function getGridWidth(titleText){
switch(titleText){
case '余額':
return 40;
break;
case '憑證號':
return 60;
break;
case '單據填寫時間':
return 100;
break;
case '摘要':
return 280;
break;
default:
return 120;
}
}
function getGridNumeric(titleText){
switch(titleText){
case '借方':
return 1;
break;
case '貸方':
return 1;
break;
default:
return 0;
}
}
function getGridAlign(titleText){
switch(titleText){
case '余額':
return 'center';
break;
case '借方':
return 'right';
break;
case '貸方':
return 'right';
break;
default:
return '';
}
}
function getGridTotal(titleText){
switch(titleText){
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.data[i][2]=='期末余額'){
if (gDetail.data[i][3]==0){
gDetail.data[i][4]=gDetail.data[i][4]-gDetail.data[i][5];
gDetail.data[i][5]=0;
}
else if (gDetail.data[i][3]==1){
gDetail.data[i][4]=0;
gDetail.data[i][5]=gDetail.data[i][5]-gDetail.data[i][4];
}
}
if (gDetail.data[i][3])
gDetail.data[i][3]='借方';
else
gDetail.data[i][3]='貸方';
}
}
}
gDetail.calcTotal();
gDetail.refreshAll(1,0);
return gDetail
}
var gDetail=makeGrid(IDataEnd());
</script>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -