?? default.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="合計(jì)"
szRMBTotalName="合計(jì)金額（大寫）"
iLinePerPage = 25
iFontSize = 12
dim PageTotalAmount, PageTotalTaxAmount, PageTotalQuantity,TotalAmount, TotalTaxAmount
TotalAmount=0
TotalTaxAmount=0
eboReg 10,"<font size=5><b><u>采 購 定 單</u></b></font>","","align=center",""
eboReg 20,"供應(yīng)商","Organization","","cbRSCorpToText"
eboReg 20,"自編號","nvarchar1","","cbRSDirect"
eboReg 20,"計(jì)劃開始日期","DateTime1","","cbRSDateToText"
eboReg 20,"計(jì)劃結(jié)束日期","DateTime2","","cbRSDateToText"
eboReg 20,"日期","BillDate","","cbRSDateToText"
eboReg 20,"備注","BillMemo","","cbRSDirect"
eboReg 30,"編碼","ProductID","width=13%","cbRSListProductToCode"
eboReg 30,"名稱","ProductID","width=30%","cbRSListProductToTitle"
eboReg 30,"規(guī)格","ProductID","width=7%","cbRSListProductToSpec"
eboReg 30,"單價(jià)","TaxPrice","width=8% align=right","cbRSListDirect"
eboReg 30,"稅率","TaxRate","width=5% align=right","cbRSListDirect"
eboReg 30,"數(shù)量","Quantity","width=7% align=right","cbRSListDirect"
eboReg 30,"金額","TaxAmount","width=10% align=right","cbRSListDirect"
eboReg 30,"備注","BillListMemo","width=20%","cbRSListDirect"
eboReg 40,"本頁小計(jì)","","colspan=5",""
eboReg 40,"數(shù)量","PageTotalQuantity","align=right","cbLocalVariable"
eboReg 40,"金額","PageTotalTaxAmount","align=right","cbLocalVariable"
eboReg 40," ","","",""
eboReg 41,"合計(jì)","","colspan=6",""
eboReg 41,"","TotalTaxAmount","align=right","cbLocalVariable"
eboReg 41," ","","",""
eboReg 42,"金額（大寫）","","",""
eboReg 42,"","szRMBTotal","colspan=6","cbLocalVariable"
eboReg 42," ","","",""
eboReg 50,"打印時(shí)間：" & formatdatetime(now),"","width=34% ",""
eboReg 50,"","szPrintPage","width=33% align=center","cbLocalVariable" '第n頁，共n頁
eboReg 50,"【e商N(yùn)etPOWER】","","width=33% align=right",""
eboReg 51,"制單","Owner","","cbRSUserToText"
eboReg 51,"審核","Auditor","","cbRSUserToText"
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, 2
eboRpt 20, rsBD, rsBDList, 2
eboRpt2DStart 30
PageTotalAmount=0
PageTotalTaxAmount=0
PageTotalQuantity=0
end function
function rptPageEnd(rsBD, rsBDList)
eboRpt2D 40, rsBD, rsBDList
eboRpt2D 41, rsBD, rsBDList
eboRpt2D 42, rsBD, rsBDList
eboRpt2DEnd
eboRpt 50, rsBD, rsBDList, 4
eboRpt 51, rsBD, rsBDList, 4
eboRpt 60, rsBD, rsBDList, 2
response.write "</td></tr></table>"
end function
function bdOpenTitle(bdType, bdTableName, rsBD)
TotalAmount=rsBD("Amount")
TotalTaxAmount=rsBD("TaxAmount")
szRMBTotal=GetRMB_Upcase(TotalTaxAmount)
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
PageTotalAmount=PageTotalAmount+rsBDList("Amount")
PageTotalTaxAmount=PageTotalTaxAmount+rsBDList("TaxAmount")
PageTotalQuantity=PageTotalQuantity+rsBDList("Quantity")
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,"BuyPlan.Print", eBD.GetLastError()
set eBD = Nothing
%></BODY>
</HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -