📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include file = "../Common.asp" --><%
dim eBD,rs
dim bdTitle, bdIServerFun

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
if eBD.bdGetDetailByType(Conn, CLng(bdType), rs) = 1 then
	bdTitle = CStr(rs("BillName"))
	bdIServerFun = CStr(rs("ISVRFUN"))
	set rs = nothing
end if
set eBD = Nothing

dim AccountName
rs=Conn.Execute("SELECT [Title] FROM [biCorperation] WHERE [ID]="& AccountID)
AccountName=rs("Title")
set rs=nothing
%><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></HEAD>
<script>
var RootID='<%=bdIServerFun%>';
var AccountName='<%=AccountName%>';
</script>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>
<script src="/client/datectrl.js"></script>
<BODY>
<div id=bdMenu>
</div>

<div id=bdHead>
<TABLE>
<TR><TD align=center id=title></TD></TR>
<TR><TD>报表名称：<INPUT id=bdhID type=hidden><input id=bdhName size=20>&nbsp;<input type=button value="打开" onclick="openClick(this,bdhName,bdhID)">　　　<input type=button value="生成报表" onclick="actionClick(bdhID.value)"></TD></TR>
<TR><TD>会计期间１：<SELECT id=dateFrom1><OPTION>结帐时间</OPTION></SELECT>　—　<SELECT id=dateTo1><OPTION>结帐时间</OPTION></SELECT></TD></TR>
<TR><TD>会计期间２：<SELECT id=dateFrom2><OPTION>结帐时间</OPTION></SELECT>　—　<SELECT id=dateTo2><OPTION>结帐时间</OPTION></SELECT></TD></TR>
<TR><TD><div id=bdBodyDetail width=100%></div></TD></TR>
</TABLE>
</div>
<div>打印时间：<input id=sTime>&nbsp;<input type=button value="预览" onClick=displayPrint(bdhName,sTime,16,1)>　<input type=button value="打印" onClick=displayPrint(bdhName,sTime,16,0)></div>
<iframe id=bdSelectArea width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<iframe id=bdLoadSave width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</BODY>
<script>
<%
dim szSQL, biCheckDate
szSQL = "SELECT Date1 From [biAccCheck] WHERE AccountID="& AccountID &" AND IsDeleted=0"
Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1
do while not rs.EOF
	biCheckDate=rs("Date1")
	Response.Write "addAllSelect('"& FormatDatetime(biCheckDate,1) &"','"& FormatDatetime(biCheckDate,0) &"');"& VBCrLf
	rs.MoveNext
loop
set rs=nothing
%>
function displayPrint(title,time,page,v){
	outdata=new Array(5);
	outdata[0]=title.value;
	outdata[1]=time.value;
	outdata[2]=page;
	outdata[3]=v;
	outdata[4]=AccountName;
	window.open('../Print/default.htm','_blank');
}

function addAllSelect(Text,Value){
	addSelect(dateFrom1,Text,Value);
	addSelect(dateFrom2,Text,Value);
	addSelect(dateTo1,Text,Value);
	addSelect(dateTo2,Text,Value);
	
}

function addSelect(ID,Text,Value){
	var oOption = document.createElement("OPTION");
	oOption.text=Text;
	oOption.value=Value;
	ID.add(oOption);
}
addSelect(dateFrom1,'建帐','First')
addSelect(dateFrom2,'建帐','First')
addSelect(dateTo1,'年初数','FirstNum')

function ecbDetail(eo,szEvent,x,y){
}

function rptdetailproc(method,ebo){
	var i,j;
	switch (method){
		case EBO_GET:
			outdata[outdata.length]=ebo.serversidename+'_rows';
			outdata[outdata.length]=ebo.id.data.length;
			outdata[outdata.length]=ebo.serversidename+'_cols';
			outdata[outdata.length]=ebo.id.cols;
			outdata[outdata.length]=ebo.serversidename+'_height';
			outdata[outdata.length]=ebo.id.rows;
			outdata[outdata.length]=ebo.serversidename+'_width';
			outdata[outdata.length]=ebo.id.cols;
			i=0;
			for (j=0;j<ebo.id.cols;j++){
				outdata[outdata.length]=ebo.serversidename+'_'+(j+1)+'_0';
				outdata[outdata.length]=ebo.id.grid.rows(0).cells(j+1).width;
			}
			for (i=0;i<ebo.id.data.length;i++){
				for (j=0;j<ebo.id.data[i].length;j++){
					if (ebo.id.data[i][j] && String(ebo.id.data[i][j]).length>0){
						outdata[outdata.length]=ebo.serversidename+'_'+(j+1)+'_'+(i+1);
						outdata[outdata.length]=ebo.id.data[i][j];
					}
				}
			}
			break;
		case EBO_SET:
			var rows=parseInt(indata.item(ebo.serversidename+'_rows'));
			var cols=parseInt(indata.item(ebo.serversidename+'_cols'));
			var width=parseInt(indata.item(ebo.serversidename+'_width'));
			var height=parseInt(indata.item(ebo.serversidename+'_height'));
			makeGrid(width,height)
			ebo.id.data.length=0;
			for (j=0;j<gDetail.cols;j++){
				iWidth=indata.item(ebo.serversidename+'_'+(j+1)+'_0');
				if (!isNaN(parseInt(iWidth)))
					if (parseInt(iWidth)>0) gDetail.grid.rows(0).cells(j+1).width=iWidth;
			}
			for (i=0;i<rows;i++){
				ebo.id.data[i]=new Array();
				for (j=0;j<cols;j++){
					ebo.id.data[i][j]=indata.item(ebo.serversidename+'_'+(j+1)+'_'+(i+1));
				}
			}
			break;
		default:
			break;
	}
	return (true);
}
var data=new Array()
function fakeSort(){}

function makeGrid(x,y){
	bdBodyDetail.innerHTML='';
	if (x<1) x=10;
	if (y<1) y=10;
	if (y>50) y=50;
	if (x>20) x=20;
	gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),bdBodyDetail,y,x,'100%','',0,testUndefine,data,ecbDetail);
	gDetail.sort=fakeSort;
	for (var i=0;i<x;i++){
		gDetail.title[i+1].text=i+1;
		gDetail.title[i+1].width=80;
	}
	gDetail.refreshAll();
	eboReg('Detail',gDetail,'',rptdetailproc);
}

function cbLoad(ifrid, fun, data){
	if (fun=='data'){
		indata=data;
		eboSet();
		gDetail.refreshAll(1,0);
		return;
	}
}

var outdata=new Array;
function actionClick(id){
	eboGet();
	IServer(bdLoadSave,RootID+'.Action',outdata,cbLoad);
	outdata=new Array();
}

makeGrid(10,10);

function deftdproc(method,ebo){
	switch (method){
		case EBO_GET:
			outdata[outdata.length]=ebo.serversidename;
			outdata[outdata.length]=ebo.id.value;
			break;
		case EBO_SET:
			ebo.id.innerText=indata.item(ebo.serversidename);
			break;
		default:
			break;
	}
	return (true);
}

var userSaveCtrl, userSaveHidden;
function cbCommonSelect(ifrid, fun, data){
	if (fun=='data'){
		userSaveHidden.value=data[0];
		userSaveCtrl.value=data[1];
		if (bdhName.value=='资产负债表'){
			dateFrom1.disabled=true;
			dateFrom2.disabled=true;
		}
		else{
			dateFrom1.disabled=false;
			dateFrom2.disabled=false;
		}
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function openClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea,'AccountRpt.Open','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}
</script>
<script title=eboReg>
eboReg('ID',bdhID,'',deftextproc);
eboReg('Title',title,'',deftdproc);
eboReg('dateFrom1',dateFrom1,'',defselectproc);
eboReg('dateTo1',dateTo1,'',defselectproc);
eboReg('dateFrom2',dateFrom2,'',defselectproc);
eboReg('dateTo2',dateTo2,'',defselectproc);
eboReg('Detail',gDetail,'',rptdetailproc);
</script>
</HTML>
⌨️ 快捷键说明

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