?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<!-- #include virtual="/Server/SqlReport.asp" -->
<!-- #include virtual="/Server/ReportRes.asp" -->
<!-- #include virtual="/Server/rawdata.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/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>
<script src="/client/print.js"></script><%
dim szSQL,szSelect,szFrom,szWhere,szGroupBy,szTableName
szTableName="resProductStock"
dim sc,pc,msc,msiCount,childc,siCount,piCount,childiCount,serachdate,vc,viCount
sc=CLng(GetForm("stockCheck"))
pc=CLng(GetForm("productCheck"))
vc=CLng(GetForm("venderCheck"))
childc=CLng(GetForm("childCheck"))
msc=CLng(GetForm("mStockCheck"))
siCount=CLng(GetForm("sDetail_rows"))
piCount=CLng(GetForm("pDetail_rows"))
viCount=CLng(GetForm("vDetail_rows"))
childiCount=CLng(GetForm("childDetail_rows"))
msiCount=CLng(GetForm("mSDetail_rows"))
serachdate=GetForm("Date")
if IsDate(serachdate) then
serachdate = DateSerial(year(serachdate), month(serachdate), day(serachdate))
serachdate = DateAdd("d", 1, serachdate)
end if
dim SQLString
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
function SQLStock(szField,szServerSideName)
dim i, szStockWhere,szSQL1,RootID,ParentID,ID,rsCheck
i=0
szSQL1="SELECT * FROM [biStock] WHERE ID=" & GetForm(szServerSideName & i)
rsCheck=Conn.Execute(szSQL1)
ID=rsCheck("ID")
RootID=rsCheck("RootID")
ParentID=rsCheck("ParentID")
set rsCheck = nothing
if CStr(RootID) = CStr(ID) Then
SQLStock=szField &" IN (SELECT ID FROM [biStock] WHERE RootID="&ID&")"
else
SQLStock=szField &" IN (SELECT ID FROM [biStock] WHERE ParentID="&ID&" OR ID="&ID&")"
end if
end function
szFrom = "FROM ["&szTableName&"] AS [res], [biCorperation]"
szWhere = "WHERE (([res].[AccountID]=" & AccountID &" AND [biCorperation].[ID]=" & AccountID &") OR ([res].[AccountID]=[biCorperation].[ID] AND [biCorperation].[ParentID]="&AccountID&"))"
if childc=1 or childiCount>0 then
if childc=0 then
RptChild nothing, szFrom, szWhere, nothing
else
RptChild szSelect, szFrom, szWhere, szGroupBy
end if
if childiCount>0 then SqlWhereAdd szWhere, SQLWhereOR("[res].[AccountID]","childDetail_0_",childiCount)
end if
if sc=1 or siCount>0 then
if sc=0 then
RptStock nothing, szFrom, szWhere, nothing
else
RptStock szSelect, szFrom, szWhere, szGroupBy
end if
if siCount>0 then SqlWhereAdd szWhere, SQLStock("[res].[Stock]","sDetail_0_")
end if
if msc=1 or msiCount>0 then
if msc=0 then
if pc=0 then RptStockmStock nothing, szFrom, szWhere, nothing else RptStockmStock2 nothing, szFrom, szWhere, nothing
else
if pc=0 then RptStockmStock szSelect, szFrom, szWhere, szGroupBy else RptStockmStock2 szSelect, szFrom, szWhere, szGroupBy
end if
if msiCount>0 then SqlWhereAdd szWhere, SQLWhereOR("[biProductClass].[ID]","mSDetail_0_",msiCount)
end if
if vc=1 or viCount>0 then
if vc=0 then
RptStockVender nothing, szFrom, szWhere, nothing
else
RptStockVender szSelect, szFrom, szWhere, szGroupBy
end if
if viCount>0 then SqlWhereAdd szWhere, SQLWhereOR("[res].[Vender]","vDetail_0_",viCount)
end if
if pc=1 or piCount>0 then
if pc=0 then
RptProduct nothing, szFrom, szWhere, nothing
else
RptProduct szSelect, szFrom, szWhere, szGroupBy
end if
if piCount>0 then SqlWhereAdd szWhere, SQLWhereOR ("[res].[ProductID]","pDetail_0_",piCount)
end if
SqlSelectAdd szSelect, "Sum([res].[Quantity]) AS [數量],Sum([res].[Price]*[res].[Quantity]) AS [售價金額],Sum([res].[TaxInPrice]*[res].[Quantity]) AS [含稅進價金額],Sum([res].[InPrice]*[res].[Quantity]) AS [無稅進價金額]"
if isDate(serachdate) then
SqlWhereAdd szWhere, "[res].[CreateDate]<='"&GetDateString(GetDateString(serachdate))&"' AND ([res].[UpdateDate]>'"&GetDateString(serachdate)&"' OR [res].[IsDeleted]=0)"
else
SqlWhereAdd szWhere, "[res].[IsDeleted]=0"
end if
szSQL="SELECT DISTINCT " & szSelect & szFrom & szWhere
if len(szGroupBy)>0 then szSQL=szSQL & " GROUP BY " & szGroupBy
eboReg 1, "gridCols", "iCols", "", "cbLocalVariable"
eboReg 2, "gridTilte_", "szTitle", "", "cbLocalVariable"
dim iCols, 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.Count
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 = NothingResponse.Write "</script>" & VBCrLf
%>
<LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script><BODY>
<Table>
<tr><td><div id=sTitle align=center><font size=5><b><u>庫 存 報 表</u></b></font></div></td></tr>
<tr><td><div id=sTime>查詢時間：<%if len(serachdate)=0 then Response.Write "現在" else Response.Write FormatDateTime(DateAdd("d",-1,serachdate),1)%></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</Table>
<div> <input type=button value="預覽" onClick=displayPrint(sTitle,sTime,25,1)> <input type=button value="打印" onClick=displayPrint(sTitle,sTime,25,0)></div>
</BODY>
<script>
function ecbDetail(eo,szEvent,x,y){
if (szEvent=='MOUSECLICK'){
}
}
function getGridWidth(titleText){
switch(titleText){
case '子公司':
return 100;
break;
case '倉庫':
return 70;
break;
case '品名':
return 160;
break;
case '供應商':
return 160;
break;
case '規格':
return 100;
break;
case '含稅進價金額':
return 110;
break;
case '無稅進價金額':
return 110;
break;
default:
return 80;
}
}
function getGridNumeric(titleText){
switch(titleText){
case '數量':
return 1;
break;
case '金額':
return 1;
break;
case '毛利':
return 1;
break;
case '成本':
return 1;
break;
case '單價':
return 1;
break;
case '售價金額':
return 1;
break;
case '含稅進價金額':
return 1;
break;
case '無稅進價金額':
return 1;
break;
default:
return 0;
}
}
function getGridAlign(titleText){
switch(titleText){
case '數量':
return 'right';
break;
case '金額':
return 'right';
break;
case '毛利':
return 'right';
break;
case '成本':
return 'right';
break;
case '毛利率':
return 'right';
break;
case '單價':
return 'right';
break;
case '售價金額':
return 'right';
break;
case '含稅進價金額':
return 'right';
break;
case '無稅進價金額':
return 'right';
break;
default:
return '';
}
}
function getGridTotal(titleText){
switch(titleText){
case '數量':
return 1;
break;
case '金額':
return 1;
break;
case '毛利':
return 1;
break;
case '成本':
return 1;
break;
case '單價':
return 1;
break;
case '售價金額':
return 1;
break;
case '含稅進價金額':
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,18,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>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -