📄 default.asp
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cblib.asp" --><!-- #include file="../Common.asp" -->
<% dim eBP,y
Set eBP = Server.CreateObject("NaFine.Privilege")
y=eBP.PrivilegeTest(1,Clng(1002),8,me)
if CStr(y)<>"0" then err.raise 10000,"User.Open", eBP.GetLastError()
dim szSQL,szFind,iListWidthiListWidth = 17 'ListWidth
dim dateFrom,dateTo,szWhere
dim Nvarchar1,Nvarchar6
dim szWhere1
dateFrom=GetForm("dateFrom")
dateTo=GetForm("dateTo")
Nvarchar1=GetForm("Nvarchar1")
Nvarchar6=GetForm("Nvarchar6")
szWhere=""
szWhere1=""
if isDate(dateFrom) then
dateFrom=DateSerial(year(dateFrom), month(dateFrom), day(dateFrom))
szWhere = szWhere & " AND [biSupplement].BillDate>='" & 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 [biSupplement].BillDate<='" & dateTo &"'"
else
DateTo=DateSerial(year(Now()), month(Now()), day(Now())) DateTo=DateADD("d",1,DateTo)
szWhere = szWhere & " AND [biSupplement].BillDate<='" & dateadd("d",1,date()) &"'"
end if
if Nvarchar1<>"" OR Nvarchar6<>"" then
szWhere=szWhere & " AND ("
szWhere1=")"
end if
if Nvarchar1<>"" then
szWhere = szWhere & " Nvarchar1 like '%" & Nvarchar1 & "%'"
end if
if Nvarchar6<>"" then
if Nvarchar1<>"" then
szWhere = szWhere & " OR Nvarchar6 like '%" & Nvarchar6 & "%'"
else
szWhere = szWhere & " Nvarchar6 like '%" & Nvarchar6 & "%'"
end if
end if
szWhere = szWhere & szWhere1
szSQL = "SELECT * FROM [biSupplement] " &_
"WHERE InfoType=" & biType & szWhere
%><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>
<script src="/client/print.js"></script><BODY><div id=sTitle align=center><font size=5><b><u>辅 料 库 信 息</u></b></font></div>
<div id=sTime>查询时间：<%if len(datefrom)=0 then Response.Write "系统启用" else Response.Write FormatDateTime(datefrom,1)%>—<%=FormatDateTime(DateAdd("d",-1,dateto),1)%></div>
<div id=SelectArea></div><div id=PageCtrlArea></div>
<div> <input type=button value="预览" onClick=displayPrint(sTitle,sTime,40,1) id=button1 name=button1> <input type=button value="打印" onClick=displayPrint(sTitle,sTime,40,0) id=button2 name=button2></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,'BackMoney.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=1; t[2].text='时间'; t[2].width=80; t[3].text='品名'; t[3].width=50; t[4].text='期初库存'; t[4].width=50; t[5].text='本期购入'; t[5].width=50; t[5].formAlign='right';
t[6].text='本期付出'; t[6].width=50; t[7].text='结余'; t[7].width=50; t[8].text='采购数量'; t[8].width=50; t[9].text='单价'; t[9].width=50; t[10].text='金额'; t[10].width=50; t[11].text='供应商'; t[11].width=50; t[12].text='电话'; t[12].width=50; t[13].text='应开票'; t[13].width=50; t[14].text='已开票'; t[14].width=100; t[15].text='已付'; t[15].width=50; t[16].text='余款'; t[16].width=50; t[17].text='备注'; t[17].width=100;}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()
'eboRegeboReg 1, "List_0_", "ID", "", "cbRSDirect"eboReg 1, "List_1_", "BillDate", "", "cbRSDateToText"eboReg 1, "List_2_", "Nvarchar1", "", "cbRSDirect"
eboReg 1, "List_3_", "Nvarchar2", "", "cbRSDirect"
eboReg 1, "List_4_", "Nvarchar3", "", "cbRSDirect"
eboReg 1, "List_5_", "Nvarchar4", "", "cbRSDirect"
eboReg 1, "List_6_", "Nvarchar5", "", "cbRSDirect"
eboReg 1, "List_7_", "BigInt1", "", "cbRSDirect"
eboReg 1, "List_8_", "Currency1", "", "cbRSDirect"
eboReg 1, "List_9_", "Currency2", "", "cbRSDirect"
eboReg 1, "List_10_", "Nvarchar6", "", "cbRSDirect"
eboReg 1, "List_11_", "Nvarchar7", "", "cbRSDirect"
eboReg 1, "List_12_", "Nvarchar8", "", "cbRSDirect"
eboReg 1, "List_13_", "Nvarchar9", "", "cbRSDirect"
eboReg 1, "List_14_", "Currency3", "", "cbRSDirect"
eboReg 1, "List_15_", "Currency4", "", "cbRSDirect"
eboReg 1, "List_16_", "MemoInfo", "", "cbRSDirect"'eboReg 1, "List_5_", "AuditID", "", "cbRSDirect"eboReg 2, "List_rows", "i", "", "cbLocalVariable"eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"'Enddim iPage,iRows,iMaxPageiMaxPage = 0iPage = GetLong(Request("Page"),1) 'default page posiRows = GetLong(Request("Rows"),10) 'default rowsdim eBD,rsdim i,x,szTableName'Set eBD = Server.CreateObject("eB3KCommon.BillDocument")'x = eBD.bdGetDetailByType(Conn, CLng(biType), rs)'set eBD = Nothing'if x=0 then' szSQl = ""'else' szTableName = CStr(rs("TableName"))'end if'set rs = nothingi = 0Response.Write "<script>" & VBCrLfif 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 = Nothingend ifIData2d 0,2eboGet 2, nothing, nothingResponse.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 + -