⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 default.asp

📁 进销存软件源代码
💻 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"))
else
	DateTo=Now()	
end if

dateto = DateSerial(year(dateto), month(dateto), day(dateto))
dateto = DateAdd("d", 1, dateto)	

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 [借方发生额], SUM([all].[Credit]) AS [贷方发生额], [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 [借方发生额], SUM([nv2].[Credit]) AS [贷方发生额], [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 [借方发生额], SUM([nv3].[Credit]) AS [贷方发生额], [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 '借方发生额':
			return 1;
			break;		
		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;
		case '贷方发生额':
			return 'right';
			break;
		case '期末余额':
			return 'right';
			break;
		default:
			return '';
	}
}

function getGridTotal(titleText){
	switch(titleText){
		case '期初余额':
			if (subject.length>0) return 1;
			break;
		case '借方发生额':
			return 1;
			break;		
		case '贷方发生额':
			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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -