?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include virtual="/Server/SqlReport.asp" -->
<!-- #include virtual="/Server/ReportBD.asp" -->
<!-- #include virtual="/Server/rawdata.asp" -->
<!-- #include virtual="/Server/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><title></title></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>
<script src="/client/cblib.js"></script>
<script src="/client/print.js"></script>
<%
dim eBP,y
Set eBP = Server.CreateObject("NaFine.Privilege")
y=eBP.PrivilegeTest(0,Clng(1014),8,me)
if CStr(y)<>"0" then err.raise 10000,"InStock.Open", eBP.GetLastError()
dim defaultPrintRows
defaultPrintRows = 40
function GetPrintRows(iRows,defaultPrintRows)
if iRows > defaultPrintRows then
GetPrintRows = defaultPrintRows
else
GetPrintRows = iRows
end if
end function
function SQLWhereOR(szField,szServerSideName,iTotalCount)
dim i, szWhere
szWhere = "("
for i = 0 to iTotalCount-1
if i > 0 then szWhere = szWhere & " OR "
szWhere = szWhere & szField & "=" & GetForm(szServerSideName & i)
next
szWhere = szWhere & ")"
SQLWhereOR=szWhere
end function
dim siCount
siCount=CLng(GetForm("sDetail_rows"))
dim ssSelect, ssGroupBy, SzSQL
dim szSelect, szFrom, szWhere, szGroupBy, szWhereOther,szWherehk
szWhere=" [vt].[isDeleted]=0 AND [vt].[AuditID]<>0 AND [biStock].[ID]<>[biStock].[ParentID] AND [biStock].[AccountID]<>1"
szWherehk= " [biBackMoney].[isDeleted]=0 AND [biStock].[ID]<>[biStock].[ParentID] AND [biStock].[AccountID]<>1 "
dim j
ssSelect=" [nv].[倉庫] AS [倉庫], "
ssGroupBy=", [nv].[倉庫]"
RptStock szSelect, szFrom, szWhere, szGroupBy
if siCount>0 then
SqlWhereAdd szWhere, SQLWhereOR("[vt].[Stock]","sDetail_0_",siCount)
SqlWhereAdd szWherehk, SQLWhereOR("[vt].[Stock]","sDetail_0_",siCount)
end if
szWherehk = replace(szWherehk,"vt","biBackMoney")
if len(szSelect)<>0 then szSelect=szSelect & ", "
if len(szFrom)<>0 then szFrom=", " & szFrom
if len(szWhere)<>0 then szWhere="AND " & szWhere
if len(szWherehk)<>0 then szWherehk="AND " & szWherehk
if len(szGroupBy)<>0 then szGroupBy=szGroupBy & ", "
dim szCgrkTj,szXsckTj,szQcTj
dim szSQLxs,szSQLzx,szSQLth,szSQLhk
szSQLxs = "SELECT "& szSelect &" [vt].[AccountID],sum([vl].[TaxAmount]*[vl].[Currency3]*[vl].[Currency1]*(1-[vt].[Currency1])+[vl].[TaxAmount]*[vl].[Currency2]*(1-[vl].[Currency1])) AS xsAmount,SUM(vl.Quantity) AS xsQu,0 AS thAmount,0 AS thQu,0 as hkAmount" &_
" FROM [BdOutStock] AS [vt],[BdOutStockList] AS [vl] "& szFrom &_
" WHERE [vt].[BillType]=1 AND [vt].[ID]=[vl].[ID]" & szWhere &_
" GROUP BY "& szGroupBy & "[vt].[AccountID]"
szSQLth = "SELECT "& szSelect &" [vt].[AccountID],0 AS xsAmount,0 AS xsQu,sum([vl].[Currency1]) AS thAmount,SUM([vl].[Quantity]) AS thQu,0 as hkAmount" &_
" FROM [BdSaleUnTread] AS [vt],[BdSaleUnTreadList] AS [vl] "& szFrom &_
" WHERE [vt].[BillType]=52 AND [vt].[ID]=[vl].[ID]" & szWhere &_
" GROUP BY "& szGroupBy & "[vt].[AccountID]"
szSQLhk = "SELECT "& szSelect &" [biBackMoney].[AccountID],0 AS xsAmount,0 AS xsQu,0 AS thAmount,0 AS thQu,SUM([biBackMoney].[MoneyAmount]) AS hkAmount" &_
" FROM [biBackMoney] "& szFrom &_
" WHERE [biBackMoney].[Stock]=[biStock].[ID] " & szWherehk &_
" GROUP BY "& szGroupBy & "[biBackMoney].[AccountID]"
szSQL="( "& szSQLxs &" UNION " & szSQLth & " UNION " & szSQLhk & " )"
szSQL="SELECT "& ssSelect &"'' AS [備注], SUM([nv].[xsAmount]) AS [銷售金額], SUM([nv].[xsQu]) AS [銷售數(shù)量],SUM([nv].[thAmount]) AS [銷售退貨金額],SUM([nv].[thQu]) AS [銷售退貨數(shù)量], SUM([nv].[hkAmount]) AS [回款額],SUM(([nv].[xsAmount]+[nv].[thAmount])-[nv].[hkAmount]) AS [余額]" &_
" FROM "& szSQL &" AS [nv]" &_
" GROUP BY [nv].[AccountID]"& ssGroupBy
eboReg 1, "gridCols", "iCols", "", "cbLocalVariable"
eboReg 1, "gridRows", "iRows", "", "cbLocalVariable"
eboReg 2, "gridTilte_", "szTitle", "", "cbLocalVariable"
dim iCols,iRows, szTitle, szValue
dim i,rs
Response.Write "<script>" & VBCrLf
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open szSQL,Conn,1,1
IData2d 0,1iCols=rs.Fields.CountiRows=rs.RecordCount defaultPrintRows = GetPrintRows(iRows,defaultPrintRows)
eboGet 1, nothing, nothingIData2d 1,2for i=0 to rs.Fields.Count-1
szTitle=rs.Fields.Item(i).Name eboGet 2, nothing, nothing
next
rawGet rs
Set rs = Nothing
Response.Write "</script>" & VBCrLf
%>
<LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script><BODY>
<tr><td><div id=sTitle align=center><font size=5><b><u>查 看 應(yīng) 收 帳</u></b></font></div></td></tr>
<tr><td><div id=sTime>查詢時間：<% Response.Write FormatDateTime(now(),1) %></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</Table>
<div> <input type=button value="預(yù)覽" onClick=displayPrint(sTitle,sTime,<%=defaultPrintRows%>,1)> <input type=button value="打印" onClick=displayPrint(sTitle,sTime,<%=defaultPrintRows%>,0)></div>
</BODY>
<script>
function ecbDetail(eo,szEvent,x,y){
if (szEvent=='MOUSECLICK'){
}
}
function getGridWidth(titleText){
switch(titleText){
case '子公司':
return 100;
break;
case '產(chǎn)品名稱':
return 160;
break;
case '規(guī)格':
return 100;
break;
default:
return 80;
}
}
function getGridNumeric(titleText){
switch(titleText){
case '期初庫存':
return 1;
break;
case '期初金額':
return;
break;
case '入庫數(shù)量':
return 1;
break;
case '入庫金額':
return 1;
break;
case '出庫數(shù)量':
return 1;
break;
case '出庫金額':
return 1;
break;
case '庫存數(shù)量':
return 1;
break;
case '庫存金額':
default:
return 0;
}
}
function getGridAlign(titleText){
switch(titleText){
case '期初庫存':
return 'right';
break;
case '期初金額':
return 'right'
break;
case '入庫數(shù)量':
return 'right';
break;
case '入庫金額':
return 'right';
break;
case '出庫數(shù)量':
return 'right';
break;
case '出庫金額':
return 'right';
break;
case '庫存數(shù)量':
return 'right';
break;
case '庫存金額':
return 'right';
break;
default:
return '';
}
}
function getGridTotal(titleText){
switch(titleText){
case '期初庫存':
return 1;
break;
case '期初金額':
return 1;
break;
case '入庫數(shù)量':
return 1;
break;
case '入庫金額':
return 1;
break;
case '出庫數(shù)量':
return 1;
break;
case '出庫金額':
return 1;
break;
case '庫存數(shù)量':
return 1;
break;
case '庫存金額':
return 1;
break;
default:
return 0;
}
}
function makeGrid(indata){
var gridCols=parseInt(indata.item('gridCols'));
var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,40,gridCols,'100%','',1,testUndefine,IRAWDataEnd(),ecbDetail);
gDetail.title[0].text='№';
for (var i=0;i<gridCols;i++){
gDetail.title[i+1].text=indata.item('gridTilte_'+i);
gDetail.title[i+1].width=getGridWidth(indata.item('gridTilte_'+i));
gDetail.title[i+1].isNumeric=getGridNumeric(indata.item('gridTilte_'+i));
gDetail.title[i+1].formAlign=getGridAlign(indata.item('gridTilte_'+i));
gDetail.title[i+1].isTotal=getGridTotal(indata.item('gridTilte_'+i));
}
gDetail.calcTotal();
gDetail.refreshAll();
return gDetail
}
var gDetail=makeGrid(IDataEnd());
</script>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -