📄 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
%><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%>';
</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>

<body leftmargin="0" topmargin="20">
<input type=hidden id=ID>
<table border=0 cellpadding=0 cellspacing=0 width=100%><tr>
<tr height="18" align="center"><td><%=bdTitle%></td></tr>
<tr height="18"><td></td></tr>
<tr><td align=center><table border=0 cellpadding=0 cellspacing=0><tr valign="top">
	<td><div id=bdZiCan></div></td>
	<td><div id=bdFuZai></div></td>
</table></td></tr>
<tr><td></td></tr>
<tr><td align="center">搜索科目：<input type=hidden id=subject><input size=20 id=subjectText>&nbsp;<input type=button value="搜索" onclick="subjectClick(this,subject,subjectText)">　<input type=button value="按科目映射导入期初库存" style="width:140px" onClick="loadFISClick()"></td></tr>
<tr><td></td></tr>
<tr align=center><td>期初日期：<input id=FirstDate size=20>　备注：<input id="Memo" size=30></td></tr>
<tr><td></td></tr> 
<tr align="center"><td><input type=button value="保存" onClick="saveClick(this)">　　<input type=button value="取消" onClick="resetClick()"></td></tr>
</table>
<iframe id=bdSelectArea width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe></td></tr></table>
<iframe id=bdSelectArea2 width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe></TD></TR></TABLE>
<iframe id=bdLoadSave width=300 height=300 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<div id=bdPanel width=100 height=60 style="position:absolute; display:none; border:1 solid #000000">
<div id=bdPanelMemo><input id=txtMemo size=30 OnFocus="this.select()" OnKeyPress="EnterKeyDo(panelMemoModify)">&nbsp;<input type=button value="确定" onclick="panelMemoModify()">&nbsp;<input type=button value="删除" onclick="panelDelete()"></div>
<div id=bdPanelNumeric><input id=txtNumeric size=10 OnFocus="this.select()" OnKeyPress="EnterKeyDo(panelNumericModify)">&nbsp;<input type=button value="确定" onclick="panelNumericModify()"></div>
</div>
</body>
<script>
var detZiCan,detFuZai;

function EnterKeyDo(doFun){if (window.event.keyCode==13)doFun();}

var objdetail,iPanelx=0,iPanely=0;
bdPanel.style.left=0;
bdPanel.style.top=0;
bdPanel.style.backgroundColor=document.bgColor;

function panelShow(idCtrl,idPanel,idChild,dir){
	var coll=idPanel.all.tags('div');
	for (i=0;i<coll.length;i++){
		if (coll(i)==idChild)
			coll(i).style.display='block';
		else
			coll(i).style.display='none';
	}
	idPanel.style.display='block';
	var rect=idCtrl.getBoundingClientRect();
	var rectPanel=idPanel.getBoundingClientRect();
	switch(dir){
		case 1:
			idPanel.style.left=rect.right-(rectPanel.right-rectPanel.left);
			idPanel.style.top=idCtrl.getBoundingClientRect().top;
			break;
		case 2:
			idPanel.style.left=rect.left;
			idPanel.style.top=rect.bottom;
			break;
		case 3:
			idPanel.style.left=rect.right-rectPanel.right-rectPanel.left;
			idPanel.style.top=rect.bottom;
			break;
		default:
			idPanel.style.left=rect.left;
			idPanel.style.top=rect.top;
	}
	idPanel.style.left=parseInt(idPanel.style.left)+document.body.scrollLeft;
	idPanel.style.top=parseInt(idPanel.style.top)+document.body.scrollTop;
}

function ecbDetail(eo,szEvent,x,y){
	if (szEvent=='MOUSECLICK'){
		if (bdPanel.style.display=='block') return panelHide();
		iPanelx=eo.showpos+x;
		iPanely=y;
		if (iPanelx>=eo.data.length)return;
		//有数据
		switch(y){
			case 6:
			case 7:
				objdetail=eo;
				if (isNaN(parseFloat(eo.data[iPanelx][iPanely])))
					txtNumeric.value=''
				else
					txtNumeric.value=parseFloat(eo.data[iPanelx][iPanely]);
				panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelNumeric);
				txtNumeric.focus();
				break;
		}
	}
}
function panelHide(){bdPanel.style.display='none';}
function panelNumericModify(){
	panelHide();
	if (iPanelx<objdetail.data.length){
		if (isNaN(parseFloat(txtNumeric.value))){
			if (txtNumeric.value.length==0)
				objdetail.data[iPanelx][iPanely]='';
			else
				objdetail.data[iPanelx][iPanely]=0;
		}
		else
			objdetail.data[iPanelx][iPanely]=txtNumeric.value;
		objdetail.calcTotal();
		objdetail.refreshAll(1,0);
	}
}

function InitTitle(t){
var i=0;
t[i].text='№';
i++;
t[i].text='序号';
t[i].width=1;
i++;
t[i].text='编码';
t[i].width=60;
i++;
t[i].text='科目';
t[i].width=80;
i++;
t[i].text='科目类型';
t[i].width=60;
i++;
t[i].text='币种';
t[i].width=1;
i++;
t[i].text='方向';
t[i].width=1;
i++;
t[i].text='期初余额';
t[i].width=80;
t[i].isNumeric=1;
t[i].isTotal=1;
t[i].formAlign='right';
i++;
t[i].text='年初余额';
t[i].width=80;
t[i].isNumeric=1;
t[i].isTotal=1;
t[i].formAlign='right';
}
detZiCan = new ZYDGRID(new ZYDGRIDFORIEBUG(),bdZiCan,20,8,'100%','',1,testUndefine,testUndefine,ecbDetail);
detFuZai = new ZYDGRID(new ZYDGRIDFORIEBUG(),bdFuZai,20,8,'100%','',1,testUndefine,testUndefine,ecbDetail);
InitTitle(detZiCan.title);
InitTitle(detFuZai.title);
detZiCan.refreshAll();
detFuZai.refreshAll();

detZiCan.calcTotal=function(){
	var i, j, x;
		
	for (j=0;j<this.cols;j++){
		if (!this.title[j+1].isTotal)continue;
		this.title[j+1].formTotal=0;
		for (i=0;i<this.data.length;i++){
			try{x=parseFloat(this.data[i][j]);
			}catch(e){}
			if (!isNaN(x)){
				if (j==6 || j==7){
					if (parseInt(this.data[i][5]))
						this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal-x,2);
					else
						this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal+x,2);
				}
				else this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal+x,2);
			}
		}
	}
}

detFuZai.calcTotal=function(){
	var i, j, x;
		
	for (j=0;j<this.cols;j++){
		if (!this.title[j+1].isTotal)continue;
		this.title[j+1].formTotal=0;
		for (i=0;i<this.data.length;i++){
			try{x=parseFloat(this.data[i][j]);
			}catch(e){}
			if (!isNaN(x)){
				if (j==6 || j==7){
					if (parseInt(this.data[i][5]))
						this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal+x,2);
					else
						this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal-x,2);
				}
				else this.title[j+1].formTotal=fixFloat(this.title[j+1].formTotal+x,2);
			}
		}
	}
}

function fbdetailproc(method,ebo){
	switch (method){
		case EBO_GET:
			var a=0;
			for (var i=0;i<ebo.id.data.length;i++){
				for (var j=0;j<ebo.id.data[i].length;j++){
					if (ebo.id.data[i][6]!=0 || ebo.id.data[i][7]!=0){
						outdata[outdata.length]=ebo.serversidename+'_'+j+'_'+a;
						outdata[outdata.length]=ebo.id.data[i][j];
					}
				}
				if (ebo.id.data[i][6]!=0 || ebo.id.data[i][7]!=0) a++;
			}
			outdata[outdata.length]=ebo.serversidename+'_rows';
			outdata[outdata.length]=a;
			break;
		case EBO_SET:
			var rows=parseInt(indata.item('Detail_rows'));
			var cols=parseInt(indata.item('Detail_cols'));
			for (var i=0;i<rows;i++){
				if (indata.item('Switch_'+i)==ebo.userData){
					for (var s=0;s<ebo.id.data.length;s++){
						if (indata.item('Detail_'+0+'_'+i)==ebo.id.data[s][0]){
							ebo.id.data[s][6]=indata.item('Detail_'+6+'_'+i);
							ebo.id.data[s][7]=indata.item('Detail_'+7+'_'+i);
							break;
						}
					}
				}
			};
		default:
		break;
	}
	return (true);
}

var indata;
function cbLoad(ifrid, fun, data){
	if (fun=='data'){
		indata=data;
		eboSet();
		detZiCan.calcTotal();
		detFuZai.calcTotal();
		detZiCan.refreshAll(1,0);
		detFuZai.refreshAll(1,0);
		return;
	}
}
function stockClear(){
	var i;
	for (i=0;i<detZiCan.data.length;i++){
		if (detZiCan.data[i][1].substr(0,4)=='1243' && detZiCan.data[i][6]!=0){
			detZiCan.data[i][6]=0;
		}
	}
	detZiCan.calcTotal();
	detZiCan.refreshAll(1,0);
}

function cbLoadFIS(ifrid, fun, data){
	var oldID;
	if (fun=='data'){
		indata=data;
		oldID=ID.value;
		stockClear()
		eboSet();
		ID.value=oldID;
		detZiCan.calcTotal();
		detFuZai.calcTotal();
		detZiCan.refreshAll(1,0);
		detFuZai.refreshAll(1,0);
		return;
	}
}

function loadClick(){
	IServer(bdLoadSave,RootID+'.Load','',cbLoad);
}
function loadFISClick(){
	IServer(bdLoadSave,RootID+'.LoadFIS','subject='+subject.value,cbLoadFIS);
}


function cbSave(ifrid, fun, data){
	if (fun=='data'){
		if (isNaN(parseInt(data[0]))||parseInt(data[0])==0)
			alert('保存失败！');
		else{
			ID.value=data[0];
			alert('保存成功！');
		}
		return;
	}
}

function saveClick(obj){
	var i
	obj.disabled=true;
	eboGet();
	IServer(bdLoadSave,RootID+'.Save',outdata,cbSave);
	outdata=new Array();
	obj.disabled=false;
}

function cbOpen(ifrid, fun, data){
	if (fun=='data'){
		var rows=parseInt(data.item('Detail_rows'));
		var cols=parseInt(data.item('Detail_cols'));
		var obj;
		detZiCan.data.length=0;
		detFuZai.data.length=0;
		for (var i=0;i<rows;i++){
			if (data.item('Type_'+i)=='0')
				obj=detZiCan;
			else
				obj=detFuZai;
			var icount=obj.data.length
			obj.data[icount]=new Array();
			for (var j=0;j<cols;j++){
				obj.data[icount][j]=data.item('Detail_'+j+'_'+i);
			}
			obj.data[icount][j]=0;
			obj.data[icount][j+1]=0;
		}
		loadClick();
		detZiCan.refreshAll(1,0);
		detFuZai.refreshAll(1,0);
		return;
	}
	//return defcbiFrame(ifrid, fun, data);
}

function resetClick(){
	loadClick();
}

var userText,userHidden
function cbSubSelect(ifrid, fun, data){
	if (fun=='data'){
		userHidden.value=data[0];
		userText.value=data[2];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function subjectClick(obj,iHidden,iText){
	obj.disabled=true;
	userText=iText;
	userHidden=iHidden;
	followControl(userText,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,'Subject.Open','DisPlay=1&find='+userText.value,cbSubSelect);
	obj.disabled=false;
}

</script>
<script Title="eboReg">
eboReg('ID',ID,'',deftextproc);
eboReg('Date',FirstDate,'',deftextproc);
eboReg('Memo',Memo,'',deftextproc);
eboReg('ZiCan',detZiCan,'0',fbdetailproc);
eboReg('FuZai',detFuZai,'1',fbdetailproc);
IServer(bdSelectArea2,RootID+'.Open','',cbOpen);
</script>
</html>
<html></html>
⌨️ 快捷键说明

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