📄 default.asp
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cbLib.asp" -->
<!-- #include file="../common.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></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>
<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
</BODY>
<script title=User>
function gridInit(t){
t[0].text='№';
t[1].text='序号';
t[1].width=1;
t[2].text='编码';
t[2].width=150;
t[3].text='名称';
t[3].width=120;
t[4].text='尺码';
t[4].width=100;
t[5].text='色号';
t[5].width=60;
t[6].text='税率';
t[6].width=40;
t[7].text='销价';
t[7].width=60;
t[7].formAlign='right';
t[8].text='数量';
t[8].width=60;
t[8].formAlign='right';
t[9].text='订货数量';
t[9].width=60;
t[9].formAlign='right';
t[10].text='已发数量';
t[10].width=60;
t[10].formAlign='right';
t[11].text='未发数量';
t[11].width=60;
t[11].formAlign='right';
t[12].text='确认';
t[12].width=60;
t[12].formAlign='center';
}
function ecbDetail(eo,szEvent,x,y){
if (szEvent=='MOUSECLICK'){
var data=new Array();
if (isNaN(x)) return;
if (x<0||x>gDetail.data.length) return;
data[0]=eo.data[x][0];
//Add your code here
//data[1]=eo.data[x][1];
//End
IClient('data',data);
IClient('end','');
}
}
</script>
<%
dim TaxRate,trSQL,trRS
trSQL="SELECT Currency1 FROM [biCorperation] WHERE AccountID="& AccountID
trRS=Conn.Execute(trSQL)
if isNull(trRS("Currency1")) then TaxRate=0 else TaxRate=trRS("Currency1")
dim SetSearchString()
function SearchString(str)
dim i,n,m,j,StrLen,SetStr
n=1
j=1
SetStr=ltrim(rtrim(str))
do
if instr(n,SetStr," ")=0 then exit do
n=instr(n,SetStr," ")+1
j=j+1
loop
redim SetSearchString(j)
n=1
for i =1 to j
if instr(n,SetStr," ")=0 then
StrLen=len(SetStr)
else
StrLen=instr(n,SetStr," ")-n
end if
SetSearchString(i)=rtrim(mid(SetStr,n,StrLen))
n=instr(n,SetStr," ")+1
next
end function
function GetAccountID1(StockID) '用于跨帐套生成取得仓库的帐套
dim szSQL,rsCheck
szSQL="SELECT AccountID FROM [biStock] WHERE ID=" & StockID
rsCheck=Conn.Execute(szSQL)
if isNull(rsCheck("AccountID")) then
err.Raise 10000,"MoveOut","此仓库不存在！"
else
GetAccountID1=rsCheck("AccountID")
end if
set rsCheck = nothing
end function
dim szSQL,szFind,iListWidth,Stock
iListWidth = 11 'ListWidth
szFind = Request("Find")
Stock = Request("Stock")
dim SQLWhere,j
SearchString(CStr(szFind))
SQLWhere=" AND ("
for j=1 to ubound(SetSearchString)
if j>1 then SQLWhere=SQLWhere & " AND"
SQLWhere=SQLWhere & " (SearchCode2 like '%" & szFind & "%' OR Title like '%" & SQLInputParam(SetSearchString(j)) & "%' OR Code like '%" & SQLInputParam(SetSearchString(j)) & "%' OR SearchCode1 like '%" & SQLInputParam(SetSearchString(j)) & "%')"
next
SQLWhere=SQLWhere & ")"
szSQL = "Select * From (SELECT ID,Code,Title,BigInt3,BigInt2,Currency3,Currency1,"& _
" IsNull((Select Sum(Quantity) as Quantity from resOrder Where AccountID="& GetAccountID1(Stock) &" and ParentID=0 and Stock='"& Stock &"'and ProductID=[BaseInfo].ID Group by ProductID),0) as OrderNum,"& _
" IsNull((Select Sum(-Quantity) From resOrder Where AccountID="& AccountID &" and Stock="& Stock &" AND Quantity<0 and ProductID=[BaseInfo].ID Group by ProductID),0) as SetNum,0 as GetNum "& _
" FROM [BaseInfo] WHERE Isdeleted=0 and AccountID=(SELECT RootID FROM [biCorperation] WHERE [ID]=" & AccountID & ") AND InfoType=" & biType &" "& SQLWhere &") as nv Where OrderNum<>0 or SetNum<>0"
szSQL = szSQL & " ORDER BY ID DESC"
'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Code", "", "cbRSDirect"
eboReg 1, "List_2_", "Title", "", "cbRSDirect"
eboReg 1, "List_3_", "BigInt3", "", "cbRSSpecToText"
eboReg 1, "List_4_", "BigInt2", "", "cbRSColorToText"
eboReg 1, "List_5_","Currency3","","cbFunCurrency"
eboReg 1, "List_6_","Currency1","","cbFunCurrency"
eboReg 1, "List_8_","OrderNum","","cbRSDirect"
eboReg 1, "List_9_","SetNum","","cbRSDirect"
eboReg 1, "List_10_","GetNum","","cbRSDirect"
eboReg 2, "List_rows", "i", "", "cbLocalVariable"
eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"
eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"
'End
dim iPage,iRows,iMaxPage
iMaxPage = 0
iPage = GetLong(Request("Page"),1) 'default page pos
iRows = GetLong(Request("Rows"),10) 'default rows
dim eBI,rs
dim i,x,szTableName
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biGetDetailByType(Conn, CLng(biType), rs)
set eBI = Nothing
if x=0 then
szSQl = ""
else
szTableName = CStr(rs("TableName"))
end if
set rs = nothing
i = 0
Response.Write "<script>" & VBCrLf
if szSQL <> "" then
szSQL=replace(szSQL,"[BaseInfo]","["&szTableName&"]")
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open szSQL,Conn,1,1
iMaxPage = Int((rs.RecordCount+iRows-1)/iRows)
if rs.RecordCount > 0 then rs.move iPage*iRows-iRows
IData2d 1,1
Do While Not rs.EOF And i < iRows
eboGet 1, rs, nothing
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing
end if
IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf
%>
<script>
var TaxRate=<%=TaxRate%>;
requestSet('Page','<%=iPage%>');
requestSet('Rows','<%=iRows%>');
var indata = IDataEnd();
var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,indata.item('List_rows'),12,'100%','',testUndefine,testUndefine,ecbDetail);
gridInit(gDetail.title);
var gPageCtrl = new ZYDPAGECTRL(new ZYDPAGECTRLFORIEBUG(),PageCtrlArea,request('Page'),indata.item('MaxPage'));
var evalString;
var nameArray=new Array(3);
nameArray[0]='rate';
nameArray[1]='price';
nameArray[2]='qty';
function mydetailproc(method,ebo){
switch (method){
case EBO_GET:
break;
case EBO_SET:
var i,j;
var rows=parseInt(indata.item(ebo.serversidename+'_rows'));
var cols=parseInt(indata.item(ebo.serversidename+'_cols'));
ebo.id.data.length=0;
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+'_'+i);
ebo.id.data[i][j-6]='<input type=text id="'+ebo.serversidename+'_rate_'+i+'" style="text-align: right" size=3 value="'+TaxRate+'" onfocus="select()" onkeydown="mypress(\''+i+'\',\''+ebo.serversidename+'\','+rows+',0)">';
ebo.id.data[i][j-5]='<input type=text id="'+ebo.serversidename+'_price_'+i+'" style="text-align: right" size=6 value="'+ebo.id.data[i][j-5]+'" onfocus="select()" onkeydown="mypress(\''+i+'\',\''+ebo.serversidename+'\','+rows+',1)">';
ebo.id.data[i][j-4]='<input type=text id="'+ebo.serversidename+'_qty_'+i+'" style="text-align: right" size=6 value=1 onfocus="select()" onkeydown="mypress(\''+i+'\',\''+ebo.serversidename+'\','+rows+',2)">';
ebo.id.data[i][j-1]=indata.item(ebo.serversidename+'_'+(j-3)+'_'+i)-indata.item(ebo.serversidename+'_'+(j-2)+'_'+i);
ebo.id.data[i][j]='<input type=button value="添加" onclick="btnAdd(\''+i+'\',\''+ebo.serversidename+'\')">';
}
if (i!=0)
evalString=ebo.serversidename+'_qty_0.focus();';
else
evalString='';
break;
default:
break;
}
return (true);
}
eboReg('List',gDetail,'',mydetailproc);
eboSet();
gDetail.refreshAll();
function mypress(ClickRow,ServerSideName,rows,ArrayID){
var QtyName,ClickNext;
switch (window.event.keyCode){
case 37://向左
if (ArrayID>0){
ArrayID=ArrayID-1;
QtyName=ServerSideName+'_'+nameArray[ArrayID]+'_'+ClickRow.toString();
eval(QtyName).focus();
}
break;
case 39://向右
if (ArrayID<nameArray.length-1){
ArrayID=ArrayID+1;
QtyName=ServerSideName+'_'+nameArray[ArrayID]+'_'+ClickRow.toString();
eval(QtyName).focus();
}
break;
case 13:
btnAdd(ClickRow,ServerSideName);
if (ClickRow<rows-1){
ClickNext=parseInt(ClickRow)+1;
QtyName=ServerSideName+'_'+nameArray[ArrayID]+'_'+ClickNext.toString();
eval(QtyName).focus();
}
else
gPageCtrl.btnPageDown_onclick();
break;
case 40://向下
if (ClickRow<rows-1){
ClickNext=parseInt(ClickRow)+1;
QtyName=ServerSideName+'_'+nameArray[ArrayID]+'_'+ClickNext.toString();
eval(QtyName).focus();
}
else
gPageCtrl.btnPageDown_onclick();
break;
case 38://向上
if (ClickRow>0){
ClickNext=parseInt(ClickRow)-1;
QtyName=ServerSideName+'_'+nameArray[ArrayID]+'_'+ClickNext.toString();
eval(QtyName).focus();
}
else
gPageCtrl.btnPageUp_onclick();
break;
case 27:
gPageCtrl.btnReturn_onclick();
break;
}
}
function btnAdd(clickID,ServerSideName){
var e,i,PriceNameText,price,QtyNameText,qty,data=new Array();
try{
RateNameText = ServerSideName+'_rate_'+clickID;
QtyNameText = ServerSideName+'_qty_'+clickID;
PriceNameText = ServerSideName+'_price_'+clickID;
i = parseInt(clickID);
if (isNaN(i)) return;
qty=parseFloat(eval(QtyNameText).value);
if (isNaN(qty)) return;
price=parseFloat(eval(PriceNameText).value);
if (isNaN(price)) return;
rate=parseFloat(eval(RateNameText).value);
if (isNaN(rate)) return;
if (i<0||i>gDetail.data.length) return;
data[0]=indata.item('List_0_'+i);
data[1]=indata.item('List_1_'+i);
data[2]=indata.item('List_2_'+i);
data[3]=indata.item('List_3_'+i);
data[4]=indata.item('List_4_'+i);
data[5]=rate;
data[6]=price;
data[7]=qty;
IClient('data',data);
}catch(e){return;}
}
function IClientSetSize(){
document.body.style.borderWidth=1;
document.body.style.borderColor='#000000';
document.body.style.borderStyle='solid';
IClient('setSize',new Array(document.body.scrollWidth+2,document.body.scrollHeight+2));
}
IClientSetSize();
eval(evalString);
</script>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -