📄 default.asp

📁 进销存软件源代码
💻 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/ReportBD.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/grid.js"></script>
<script src="/client/cblib.js"></script>
<script src="/client/print.js"></script>
<%
dim szSQL

szSQL="SELECT [nv].[Code] AS [编码], [nv].[Pr] AS [品名],[nv].[st] AS [仓库] ,SUM([nv].[Quantity]) AS [数量],SUM([nv].[UpNum]) AS [上限],SUm([nv].[DownNum]) AS [下限]" &_
     " FROM(SELECT [biCorperation].[ID] AS [Cor],[biStock].[ID] AS [St],[biProduct].[Code] AS [Code],[biProduct].[Title] AS [Pr],[biProduct].[Nvarchar1] AS [Spec],SUM([resProductStock].[Quantity]) AS [Quantity],0 AS [UpNum],0 AS [DownNum]" &_
     " FROM [resProductStock],[biStockUpDown],[biStock],[biProduct],[biCorperation]" &_
     " WHERE [biStockUpDown].[AccountID]="& AccountID &" AND [resProductStock].[Stock]=[biStockUpDown].[Code] AND [resProductStock].[ProductID]=[biStockUpDown].[Nvarchar1] AND [resProductStock].[AccountID]=[biStockUpDown].[AccountID] AND [biStock].[ID]=[biStockUpDown].[Code] AND [biProduct].[ID]=[biStockUpDown].[Nvarchar1] AND [biCorperation].[ID]=[biStockUpDown].[AccountID]" &_
     " GROUP BY [biCorperation].[ID],[biStock].[ID],[biProduct].[Code],[biProduct].[Title],[biProduct].[Nvarchar1] UNION " &_
     " SELECT [biCorperation].[ID] AS [Cor],[biStock].[ID] AS [St],[biProduct].[Code] AS [Code],[biProduct].[Title] AS [Pr],[biProduct].[Nvarchar1] AS [Spec],0 AS [Quantity],SUM([biStockUpDown].[Int1]) AS [UpNum],SUM([biStockUpDown].[Int2]) AS [DownNum]" &_
     " FROM [biStockUpDown],[biStock],[biProduct],[biCorperation]" &_
     " WHERE [biStockUpDown].[AccountID]="& AccountID &" AND [biStock].[ID]=[biStockUpDown].[Code] AND [biProduct].[ID]=[biStockUpDown].[Nvarchar1] AND [biCorperation].[ID]=[biStockUpDown].[AccountID]" &_
     " GROUP BY [biCorperation].[ID],[biStock].[ID],[biProduct].[Code],[biProduct].[Title],[biProduct].[Nvarchar1]) AS [nv]" &_
     " GROUP BY [nv].[Cor],[nv].[St],[nv].[Code],[nv].[Pr],[nv].[Spec]" &_
     " HAVING SUM([nv].[Quantity])>SUM([nv].[UpNum]) OR SUM([nv].[Quantity])< SUm([nv].[DownNum])"

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 = Nothing
Response.Write "</script>" & VBCrLf
%>
<LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script><BODY>
<Table>
<tr><td><div align=center id=sTitle><font size=4><b><u>库　存　上　下　限</u></b></font></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</Table>
<div>&nbsp;<input type=button value="预览" onClick=displayPrint(sTitle,sTime,16,1)>　<input type=button value="打印" onClick=displayPrint(sTitle,sTime,16,0)></div>

</BODY>
<script>
function ecbDetail(eo,szEvent,x,y){
	if (szEvent=='MOUSECLICK'){
	}
}

function getGridWidth(titleText){
	switch(titleText){
	    case '编码':
			return 80;
			break;
		case '品名':
			return 180;
			break;
		case '规格':
			return 100;
			break;
		case '仓库':
			return 80;
			break;
		case '上限':
			return 50;
			break;
		case '下限':
			return 50;
			break;				
		default:
			return 80;
	}
}

function getGridNumeric(titleText){
	switch(titleText){
		case '上限':
			return 1;
			break;
		case '下限':
			return 1;
			break;		
		default:
			return 0;
	}
}

function getGridAlign(titleText){
	switch(titleText){
		case '上限':
			return 'right';
			break;
		case '下限':
			return 'right';
			break;
		default:
			return '';
	}
}

function getGridTotal(titleText){
	switch(titleText){
		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,20,gridCols,'100%','',0,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 + -