📄 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/IServer.js"></script>
<script src="/client/grid.js"></script>
<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
<div id=bdPanel width=100 height=60 style="position:absolute; display:none; border:1 solid #000000">
<div id=bdPanelProduct><input type=button value="查看" onclick="Look()"></div>
</BODY>
<script title=User>
var iPanelx
function cbSearch(ifrid, fun, data){
if (fun=='start')
ifrid.document.title=getMainTitle();
}
function Look(){
var newindow=window.open('', 'liwei','toolbar=no,directories=no menubar=no,scrollbars=yes,resizable=yes,location=no,width=780,heigth=550,left=0,top=46');
IServer(newindow,'MoveOutStock.SearchResult','id='+gDetail.data[iPanelx][0],cbSearch);
}
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.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 panelHide(){bdPanel.style.display='none';}
function gridInit(t){
t[0].text='№';
t[1].text='序号';
t[1].width=60;
t[2].text='时间';
t[2].width=90;
t[3].text='调出仓库';
t[3].width=100;
t[4].text='调入仓库';
t[4].width=100;
t[5].text='金额';
t[5].width=60;
t[5].formAlign='right';
}
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;
iPanelx=x
switch(y){
case 1:
case 2:
case 3:
case 4:
case 5:
panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelProduct,1);
break;
}
}
}
</script>
<%
dim eBP,y
Set eBP = Server.CreateObject("NaFine.Privilege")
y=eBP.PrivilegeTest(0,Clng(bdType),8,me)
if CStr(y)<>"0" then err.raise 10000,"MoveStock.Open", eBP.GetLastError()
dim szSQL,szFind,iListWidth
iListWidth = 5 'ListWidth
dim Stock2,Sex,dateFrom,dateTo,szWhere
Stock2=Cstr(GetForm("Stock2"))
dateFrom=GetForm("dateFrom")
dateTo=GetForm("dateTo")
szWhere=""
if Stock2 <> "" then
szWhere = szWhere & " AND A.Organization='" & Stock2 & "'"
else
szWhere = szWhere & ""
end if
if isDate(dateFrom) then
dateFrom=DateSerial(year(dateFrom), month(dateFrom), day(dateFrom))
szWhere = szWhere & " AND A.UpdateDate>='" & dateFrom & "'"
else
'dateFrom=0
'dateFrom = cdate(Request("dateFrom"))
szWhere = szWhere & ""
end if
if isDate(dateTo) then
dateTo=DateSerial(year(dateTo), month(dateTo), day(dateTo))
dateTo=dateadd("d",1,dateTo)
szWhere = szWhere & "AND A.UpdateDate<='" & dateTo &"'"
else
dateTo=DateSerial(year(now()), month(now()), day(now()))
dateTo=DateADD("d",1,dateTo)
dateTo = cdate(dateTo)
szWhere = szWhere & "AND A.UpdateDate<='" & dateTo &"'"
end if
szSQL = "SELECT B.ID,A.BillDate,A.Stock,A.Organization,A.Amount FROM [BdMoveInStock] A,[BdMoveOutStock] B WHERE A.BillType=45 AND B.BillType=43 AND A.AuditID=0 AND B.AuditID<>0 AND A.RootID=B.ID " & szWhere
'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "BillDate", "", "cbRSDateToText"
eboReg 1, "List_2_", "Stock", "", "cbRSStockToText"
eboReg 1, "List_3_", "Organization", "", "cbRSStockToText"
eboReg 1, "List_4_", "Amount", "", "cbRSDirect"
'eboReg 1, "List_5_", "AuditID", "", "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 eBD,rs
dim i,x,szTableName
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdGetDetailByType(Conn, CLng(bdType), rs)
set eBD = 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,"[BillDocument]","["&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>
requestSet('Page','<%=iPage%>');
requestSet('Rows','<%=iRows%>');
var indata = IDataEnd();
var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,indata.item('List_rows'),indata.item('List_cols'),'100%','',0,testUndefine,testUndefine,ecbDetail);
gridInit(gDetail.title);
var gPageCtrl = new ZYDPAGECTRL(new ZYDPAGECTRLFORIEBUG(),PageCtrlArea,request('Page'),indata.item('MaxPage'));
function mydetailproc(method,ebo){
if (method==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);
}
}
return (true);
}
eboReg('List',gDetail,'',mydetailproc);
eboSet();
gDetail.refreshAll();
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();
</script>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -