📄 default.asp

📁 进销存软件源代码
💻 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(1005),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


dim iListWidth,szFrom,szSQL,szSQL1,szSQL2, sRadio
dim siCount,piCount,datefrom,dateto,memo,eboRegiCount,sc,szSelect,szGroupBy
eboRegiCount=0

datefrom=GetForm("DateFrom")
dateto=GetForm("DateTo")

if IsDate(datefrom) then
	datefrom=DateSerial(year(datefrom), month(datefrom), day(datefrom))
else
	err.Raise 10000, "BuyPlanReport", "请输入正确的起始日期！" 
end if

if IsDate(dateto) then
	dateto=DateSerial(year(DateTo), month(DateTo), day(DateTo))
elseif dateto="" then
	dateto=DateSerial(year(Now()), month(Now()), day(Now()))
else
	err.Raise 10000, "BuyPlanReport", "请输入正确的结束日期！"
end if
dateto=DateADD("d",1,dateto)

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
	
	SQLWhereOR=szWhere
end function

dim szWhere

szSQL="SELECT [vt].[ID] AS [单据编号],[vt].[DateTime1] AS [开始时间], [vt].[DateTime2] AS [结束时间],[biProduct].[Code] AS [商品编号],[biProduct].[Title] AS [商品名称],[vl].[Nvarchar3] AS [需求客户]," &_
	"[vl].[Int1] AS [36#],[vl].[Int2] AS [38#],[vl].[Int3] AS [40#],[vl].[Int4] AS [42#],[vl].[Int5] AS [44#],[vl].[Int6] AS [46#],[vl].[Int7] AS [48#],[vl].[Int8] AS [50#],[vl].[Bigint1] AS [合计数量]" &_
	" FROM [BdSalePlan] AS [vt], [BdSalePlanList] AS [vl], [biProduct]" &_
	" WHERE [vt].[BillType]=3 AND [vt].[ID]=[vl].[ID] AND [biProduct].[ID] =[vl].[ProductID] AND [vt].[AccountID]=" & session("AccountID") &_
	" AND (([vt].[DateTime1] >= '" & DateFrom & "' AND [vt].[DateTime1] <= '" & DateTo & "') OR ([vt].[DateTime2] >= '" & DateFrom & "' AND [vt].[DateTime1] <= '" & DateFrom &"' AND [vt].[DateTime2] <= '" & DateTo & "'))"


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>
<Table>
<tr><td><div id=sTitle align=center><font size=4><b><u>销　售　计　划　完　成　情　况　表</u></b></font></div></td></tr>
<tr><td><div id=sTime>查询时间：<%=FormatDatetime(DateFrom,1)%>　—　<%=FormatDatetime(DateAdd("d",-1,DateTo),1)%></div></td></tr>
<tr><td><div id=SelectArea></div></td></tr>
</Table>
<div>&nbsp;<input type=button value="预览" 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 50;
			break;
		case '完成时间':
			return 50;
			break;
		case '子公司':
			return 100;
			break;
		case '品名':
			return 160;
			break;
		case '规格':
			return 100;
			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,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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -