📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include file="../Common.asp" --><!-- #include virtual="/Server/eboRpt.asp" --><!-- #include virtual="/Server/cblib.asp" --><%
dim iCurPage, iMaxPage, iLinePerPage, iFontSize, iOLECmd
dim szSQLBD, szSQLBDList
iCurPage = 0

if Request("Preview")="1" then
	iOLECmd=7
else
	iOLECmd=6
end if

dim szRMBTotalName,szRMBTotal,szPageTotalName, szTotalName, szPrintPage
szPageTotalName=""
szTotalName="合计"
szRMBTotalName="合计金额（大写）"
iLinePerPage = 10
iFontSize = 12

dim TotalCurrency3, TotalCurrency4

eboReg 10,"<img src=""/Image/ebLogoPrint.GIF"">","","width=34%",""
eboReg 10,"","AccountID","width=33% align=center","cbRSCorpToText"
eboReg 10,"","","width=33%",""

eboReg 11,"<font size=5><b><u>记　帐　凭　证</u></b></font>","","align=center",""

eboReg 20,"编号","ID","","cbRSDirect"
eboReg 20,"自编号","nvarchar1","","cbRSDirect"
eboReg 20,"日期","BillDate","","cbRSDateToText"
eboReg 20,"附件数","Int1","","cbRSDirect"
eboReg 20,"备注","BillMemo","","cbRSDirect"

eboReg 30,"摘要","BillListMemo","width=22%","cbRSListDirect"
eboReg 30,"编码","ProductID","width=12%","cbRSListSubjectToCode"
eboReg 30,"科目","ProductID","width=36%","cbRSListSubjectToTitle"
eboReg 30,"借方金额","Currency3","width=15% align=right","cbRSListDirect"
eboReg 30,"贷方金额","Currency4","width=15% align=right","cbRSListDirect"


eboReg 41,"合计","","colspan=3",""
eboReg 41,"","TotalCurrency3","align=right","cbLocalVariable"
eboReg 41,"","TotalCurrency4","align=right","cbLocalVariable"

eboReg 42,"金额（大写）","","",""
eboReg 42,"","szRMBTotal","colspan=4","cbLocalVariable"

eboReg 50,"打印时间：" & formatdatetime(now),"","width=34% ",""
eboReg 50,"","szPrintPage","width=33% align=center","cbLocalVariable"	'第n页，共n页
eboReg 50,"【e商NetPOWER】","","width=33% align=right",""

eboReg 51,"主管","","width=20% ",""
eboReg 51,"制单","Owner","width=20% ","cbRSUserToText"
eboReg 51,"审核","Auditor","width=20% ","cbRSUserToText"
eboReg 51,"出纳","","width=20% ",""
eboReg 51,"经办","","width=20% ",""

dim eBD,x,bdid,iCount,iTotalCount
iCount=0

bdid=0
if IsNumeric(request("ID")) then
	bdid=request("ID")
end if

function rptPageStart(rsBD, rsBDList)
	iCurPage=iCurPage+1
	szPrintPage = "第"&iCurPage&"页，共"&iMaxPage&"页"
	response.write "<table width=100% height=100% title=bdPage border=0><tr><td class=no align=center valign=middle>"
	eboRpt 10, rsBD, rsBDList, 3
	eboRpt 11, rsBD, rsBDList, 2
	eboRpt 20, rsBD, rsBDList, 2
	eboRpt2DStart 30

	TotalCurrency3=0
	TotalCurrency4=0
end function

function rptPageEnd(rsBD, rsBDList)
	szRMBTotal=GetRMB_Upcase(TotalCurrency3)
	eboRpt2D 41, rsBD, rsBDList
	eboRpt2D 42, rsBD, rsBDList
	eboRpt2DEnd
	eboRpt 50, rsBD, rsBDList, 5
	eboRpt 51, rsBD, rsBDList, 5
	response.write "</td></tr></table>"
end function

function bdOpenTitle(bdType, bdTableName, rsBD)
	bdOpenTitle=0
end function

function bdOpenList(bdType, bdTableName, rsBD, rsBDList)
	dim i
	if iCount=0 then
		iTotalCount=rsBDList.RecordCount
		iMaxPage = Int((iTotalCount+iLinePerPage-1)/iLinePerPage)
	end if
	if iCount Mod iLinePerPage = 0 then rptPageStart rsBD,rsBDList
	
	eboRpt2D 30, rsBD, rsBDList
	TotalCurrency3=TotalCurrency3+rsBDList("Currency3")
	TotalCurrency4=TotalCurrency4+rsBDList("Currency4")
	iCount = iCount + 1
	
	if iCount Mod iLinePerPage = 0 then rptPageEnd rsBD,rsBDList
	if iCount=iTotalCount then
		rptPageEnd rsBD,rsBDList
	end if
	bdOpenList = 0
end function
%><HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>打印</title>
<style type="text/css">
td {font-size: <%=iFontSize%>px;border-style:solid; border-color:#000000;border-left-width:0px;border-right-width:1px;border-top-width:0px;border-bottom-width:1px;}
.no {border-style:solid;border-width:0px}
</style><script>
function start(){
	try{printWB.ExecWB(<%=iOLECmd%>,1);}catch(e){}
	window.close();
}
</script>
</head><object id="printWB" style="display:none" width=0 height=0 classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2" VIEWASTEXT></object><body topmargin=0 leftmargin=0 onload="start()"><%
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdOpen(bdid, Clng(bdType), me)
if CStr(x)="0" then err.raise 10000,"OutStock.Print", eBD.GetLastError()
set eBD = Nothing
%></BODY>
</HTML>
⌨️ 快捷键说明

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