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,Num
Num="JHL01203"
szPageTotalName=""
szTotalName="合计"
szRMBTotalName="合计金额（大写）"
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,"&nbsp;","","",""
eboReg 20,"&nbsp;","","",""
eboReg 20,"文件编号","Num","align=right","cbLocalVariable"

eboReg 20,"生产批号","nvarchar1","","cbRSDirect"
eboReg 20,"合同号","Nvarchar3","","cbRSDirect"
eboReg 20,"&nbsp;","","",""


eboReg 20,"客户名称","Nvarchar4","","cbRSDirect"
eboReg 20,"下单时间","DateTime1","","cbRSDateToText"
eboReg 20,"&nbsp;","","",""


eboReg 20,"完成时间","BillDate","","cbRSDateToText"
eboReg 20,"总件数","bigint1","","cbRSDirect"
eboReg 20,"&nbsp;","","",""

eboReg 20,"备注","BillMemo","","cbRSDirect"



eboReg 30,"编码","ProductID","","cbRSListProductToCode"
eboReg 30,"品名","ProductID","","cbRSListProductToTitle"
eboReg 30,"色名","ProductID","","cbRSListProductToColorName"
eboReg 30,"色号","ProductID","","cbRSListProductToColor"
eboReg 30,"纱批号","Nvarchar4","","cbRSListDirect"

eboReg 30, "针型", "ProductID", "", "cbRSListProductToPinType"
eboReg 30, "组织", "Nvarchar1", "", "cbRSListDirect"
eboReg 30, "纱支", "ProductID", "", "cbRSListProductToYarnBranch"
eboReg 30, "原料", "ProductID", "", "cbRSListProductToMaterial"

eboReg 30, "数量", "Int1", "", "cbRSListDirect"
eboReg 30, "每色小计", "Int2", "", "cbRSListDirectErr"
eboReg 30, "每款小计", "Int3", "", "cbRSListDirectErr"
eboReg 30, "备注", "Memo1", "", "cbRSListDirect"

function cbRSListDirectErr(fun, eboitem, rs, rsList) '单据条目-保存字符串
	Select Case fun
		Case EBO_GET
			if rsList(eboitem.FieldName)=0 then
				cbRSListDirectErr=""
			else
				cbRSListDirectErr=rsList(eboitem.FieldName)
			end if
		
	End Select
end function

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,"制单","Owner","width=34%","cbRSUserToText"
eboReg 51,"审核","","width=33%",""
eboReg 51,"批准","","width=33%",""


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, 3
	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 And (iCount Mod iLinePerPage <> 0) then
		for i=(iCount Mod iLinePerPage) to iLinePerPage-1
			eboRpt2DBlank 30
		next
		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>