📄 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>
<script src="/client/datectrl.js"></script>
<BODY>
<div id=bdMenu>
</div>

<div id=bdHead>
<INPUT type=hidden id=bdID>
<TABLE cellSpacing=1 cellPadding=1 width=100%>
<TR><TD colspan=3 align=center><%=bdTitle%></TD></TR>
<TR><TD width=50%>转换类型：<input id=bdhIOTypeText size=20>　<input type=button value="打开" onclick="openClick(this)">　<input type=button value="保存" onclick="saveClick(this)"></TD><TD width=25%>单据种类：<SELECT id=bdType><OPTION value=1>出库单</OPTION><OPTION value=15>入库单</OPTION></SELECT></TD>
<TD width=25%>日期：<input id=bdhDate size=18>&nbsp;<input type=button value="↓" onclick="dateShow(bdhDate)"></TD></TR>
<TR><TD colspan=3>备注：<input id=bdhMemo size=80></TD></TR>
</TABLE>
</div>

<div id=bdBodyDetail width=100%></div>
<br>
<div id=bdControl>
搜索科目：<input type=hidden id=subject><input size=20 id=subjectText>&nbsp;<input type=button value="搜索" onclick="subjectClick(this,subject,subjectText)">　科目方向：<SELECT id=Sub><OPTION value=0>借方</OPTION><OPTION value=1>贷方</OPTION></SELECT>　类型：<SELECT id=BillType><OPTION value=0>含税</OPTION><OPTION value=1>不含税</OPTION><OPTION value=2>税额</OPTION><OPTION value=3>成本</OPTION></SELECT>　转换方式：<SELECT id=Sel><OPTION value=0>汇总</OPTION><OPTION value=-1>按单转换</OPTION><OPTION value=2>按产品影射</OPTION><OPTION value=4>按客户影射</OPTION><OPTION value=5>按供应商影射</OPTION><OPTION value=101>按供应商（经销部）影射</OPTION></SELECT>　<input type=button value=添加 onClick="add()"></div>
<iframe id=bdSelectArea width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<iframe id=bdSelectArea2 width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<iframe id=bdLoadSave width=0 height=0 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=bdPanelProduct><input type=button value="删除" onclick="panelDelete()"></div>
</div>
</BODY>
<script>
function EnterKeyDo(doFun){if (window.event.keyCode==13)doFun();}

var gDetail,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();
	idPanel.style.left=rect.right-(rectPanel.right-rectPanel.left);
	idPanel.style.top=idCtrl.getBoundingClientRect().top;
}

function ecbDetail(eo,szEvent,x,y){
	if (szEvent=='MOUSECLICK'){
		if (bdPanel.style.display=='block') return panelHide();
		iPanelx=gDetail.showpos+x;
		iPanely=y;
		if (iPanelx>=gDetail.data.length)
			return;
		//有数据
		switch(y){
			case 0:
			case 1:
			case 2:
			case 3:
			case 4:
			case 5:
			case 6:
			case 7:
				panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelProduct,1);
				break;
			case 8:
				txtMemo.value=gDetail.data[iPanelx][iPanely];
				panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelMemo);
				txtMemo.focus();
				break;
		}
	}
}
function panelHide(){bdPanel.style.display='none';}
function panelDelete(){
	panelHide();
	gDetail.remove(iPanelx);
	gDetail.refreshAll(1,0);
}
function panelMemoModify(){
	panelHide();
	if (iPanelx<gDetail.data.length){
		gDetail.data[iPanelx][iPanely]=txtMemo.value;
		gDetail.refreshAll(1,0);
	}
}

gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),bdBodyDetail,6,9,'100%','',1,testUndefine,testUndefine,ecbDetail);
gDetail.title[0].text='№';
gDetail.title[1].text='序号';
gDetail.title[1].width=1;
gDetail.title[2].text='科目方向';
gDetail.title[2].width=100;
gDetail.title[3].text='序号';
gDetail.title[3].width=1;
gDetail.title[4].text='科目';
gDetail.title[4].width=130;
gDetail.title[5].text='序号';
gDetail.title[5].width=1;
gDetail.title[6].text='类型';
gDetail.title[6].width=100;
gDetail.title[7].text='序号';
gDetail.title[7].width=1;
gDetail.title[8].text='转换方式';
gDetail.title[8].width=130;
gDetail.title[9].text='摘要';
gDetail.title[9].width=250;
gDetail.refreshAll();

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

function loadClick(id){
	if (!isNaN(parseInt(id)) && parseInt(id)!=0)
		IServer(bdLoadSave,RootID+'.Load','ID='+id,cbLoad);
}

loadClick(request('ID'));

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

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

function cbOpen(ifrid, fun, data){
	if (fun=='data'){
		loadClick(data[0]);
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function openClick(obj){
	obj.disabled=true;
	followControl(bdhMemo,getFrameElement(bdSelectArea2));
	IServer(bdSelectArea2,RootID+'.Open','',cbOpen);
	obj.disabled=false;
}

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','find='+userText.value,cbSubSelect);
	obj.disabled=false;
}

function add(){
	if (subject.value==''){
		alert ('请选择科目！！');
		return;
	}
	gDetail.append(Sub.options[Sub.selectedIndex].value,Sub.options[Sub.selectedIndex].text,subject.value,subjectText.value,BillType.options[BillType.selectedIndex].value,BillType.options[BillType.selectedIndex].text,Sel.options[Sel.selectedIndex].value,Sel.options[Sel.selectedIndex].text,'');
	gDetail.refreshAll(1,0);
}

</script>
<script title=eboReg>
eboReg('ID',bdID,'',deftextproc);
eboReg('IOTypeText',bdhIOTypeText,'',deftextproc);
eboReg('Type',bdType,'',defselectproc);
eboReg('Date',bdhDate,'',deftextproc);
eboReg('Memo',bdhMemo,'',deftextproc);

eboReg('Detail',gDetail,'',defdetailproc);
</script>
</HTML>
⌨️ 快捷键说明

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