?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" -->
<!-- #include file = "Common.asp" --><%
dim eBI,rs
dim biTitle, biIServerFun
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
if eBI.biGetDetailByType(Conn, CLng(biType), rs) = 1 then
biTitle = CStr(rs("InfoName"))
biIServerFun = CStr(rs("ISVRFUN"))
set rs = nothing
end if
set eBI = 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='<%=biIServerFun%>';
</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 leftmargin="0" topmargin="80">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
<tr><td width="100%">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
<tr><td width="100%">
<table border="1" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align=center colspan=6><%=biTitle%><input type="hidden" id="ID"></td>
</tr>
<TR>
<TD colspan=6>
倉庫：<input type=hidden id=bdhStock><input id=bdhStockText size=20>
<INPUT type="button" value="搜索" onclick="stockClick(this,bdhStockText,bdhStock)">
</TD>
<tr>
<td align=center colspan=2>編號</td>
<td><input type="text" id="UserID"></td>
<td align=center colspan=2>日期</td>
<td><input type="text" id="BillDate" size=15> <input type="button" value="↓" onClick="dateShow(BillDate)" id=button1 name=button1></td>
</tr>
<tr>
<td rowspan="3" width="25" align=center>出票人</td>
<td width="70" align=center>全稱</td>
<td width="130"><input type="text" id="OutName"></td>
<td rowspan="3" width="25" align=center>收款人</td>
<td width="70" align=center>全稱</td>
<td width="130"><input type="text" id="InName"></td>
</tr>
<tr>
<td align=center>帳號</td>
<td><input type="text" id="OutCode"></td>
<td align=center>帳號</td>
<td><input type="text" id="InCode"></td>
</tr>
<tr>
<td align=center>開戶銀行</td>
<td><input type="text" id="OutBank"></td>
<td align=center>開戶銀行</td>
<td><input type="text" id="InBank"></td>
</tr>
<tr>
<td colspan=2 align=center>金額</td>
<td colspan=4><input type="text" id="MoneyAmount">元</td>
</tr>
<tr>
<td colspan="2" align=center>票據種類</td>
<td><input type="text" id="BillType"></td>
<td colspan="2" align=center>票據張數</td>
<td><input type="text" id="BillAmount"></td>
</tr>
<tr>
<td colspan="2" align=center>備注</td>
<td colspan="4"><input type="text" id="Memo"></td>
</tr>
<tr>
<td colspan=6 width="100%" height="18" align="middle">
<input type="button" value="確定" onClick="saveClick(this)">
<input type="button" value="打開" onClick="openClick(this)">
<input type="button" value="取消" onClick="Reset()">
</td>
</tr>
</table>
</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=bdLoadSave width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</body>
<script>
var indata;
var wzjbutton;
function cbLoad(ifrid, fun, data){
if (fun=='data'){
indata=data;
eboSet();
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{
ID.value=data[0];
alert('保存成功！');
}
wzjbutton.disabled=false;
return;
}
wzjbutton.disabled=false;
}
function saveClick(obj){
obj.disabled=true;
wzjbutton=obj;
eboGet();
IServer(bdLoadSave,RootID+'.Save',outdata,cbSave);
outdata=new Array();
}
function cbOpen(ifrid, fun, data){
if (fun=='data'){
loadClick(data[0]);
return;
}
return defcbiFrame(ifrid, fun, data);
}
function openClick(obj){
obj.disabled=true;
followControl(UserID,getFrameElement(bdSelectArea));
IServer(bdSelectArea,RootID+'.Open','',cbOpen);
obj.disabled=false;
}
function Reset(){
var i;
for (i=0;i<_ebo.length;i++){
_ebo[i].id.value='';
}
}
function cbCommonSelect(ifrid, fun, data){
if (fun=='data'){
userSaveHidden.value=data[0];
userSaveCtrl.value=data[1];
return;
}
return defcbiFrame(ifrid, fun, data);
}
function stockClick(obj,idCtrl,idCtrlHidden){
obj.disabled=true;
followControl(idCtrl,getFrameElement(bdSelectArea));
userSaveCtrl=idCtrl;
userSaveHidden=idCtrlHidden;
IServer(bdSelectArea,'Stock.OpenChild','find='+escape(idCtrl.value),cbCommonSelect);
obj.disabled=false;
}
</script>
<script Title="eboReg">
eboReg('ID',ID,'',deftextproc);
eboReg('bdhStock',bdhStock,'',deftextproc);
eboReg('bdhStockText',bdhStockText,'',deftextproc);
eboReg('UserID',UserID,'',deftextproc);
eboReg('BillDate',BillDate,'',deftextproc);
eboReg('OutName',OutName,'',deftextproc);
eboReg('OutCode',OutCode,'',deftextproc);
eboReg('OutBank',OutBank,'',deftextproc);
eboReg('InName',InName,'',deftextproc);
eboReg('InCode',InCode,'',deftextproc);
eboReg('InBank',InBank,'',deftextproc);
eboReg('MoneyAmount',MoneyAmount,'',deftextproc);
eboReg('BillType',BillType,'',deftextproc);
eboReg('BillAmount',BillAmount,'',deftextproc);
eboReg('Memo',Memo,'',deftextproc);
</script>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -