default.asp

进销存软件源代码

<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include file="../Common.asp" --><!-- #include virtual="/Server/eboRpt.asp" --><!-- #include virtual="/Server/cblib.asp" --><%
dim rsCheck,szSQL
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 = 40
iFontSize = 12

dim PageTotalAmount, PageTotalTaxAmount, PageTotalQuantity,TotalAmount, TotalTaxAmount,TotalTaxQuantity
dim PageTotalQuantity0,PageTotalQuantity1,PageTotalQuantity2,PageTotalQuantity3,PageTotalQuantity4,PageTotalQuantity6
dim PageTotalQuantity7,PageTotalQuantity8,PageTotalQuantity9,PageTotalQuantity10,PageTotalQuantity11
TotalAmount=0
TotalTaxAmount=0
TotalTaxQuantity=0

eboReg 10,"<font size=5><b><u>生产入库单</u></b></font>","","align=center",""

eboReg 20,"日期","BillDate","","cbRSDirect"
eboReg 20,"自编号","nvarchar1","","cbRSDirect"
eboReg 20,"库房","Stock","","cbRSStockToText"
eboReg 20,"备注","BillMemo","","cbRSDirect"

eboReg 30,"名称","Title","width=20%","cbRSListDirect"
eboReg 30,"货号","ProductID","width=7%","cbRSListProductToGoodsID"
eboReg 30,"颜色","Bigint2","width=15%","cbRSListProductToColorTitle"
eboReg 30,"单价","Currency1","width=8% align=right","cbRSListDirect"
eboReg 30,"080#","Quantity0","width=2% align=right","cbRSListDirect"
eboReg 30,"085#","Quantity1","width=2% align=right","cbRSListDirect"
eboReg 30,"090#","Quantity2","width=2% align=right","cbRSListDirect"
eboReg 30,"095#","Quantity3","width=2% align=right","cbRSListDirect"
eboReg 30,"100#","Quantity4","width=2% align=right","cbRSListDirect"
eboReg 30,"105#","Quantity6","width=2% align=right","cbRSListDirect"
eboReg 30,"110#","Quantity7","width=2% align=right","cbRSListDirect"
eboReg 30,"115#","Quantity8","width=2% align=right","cbRSListDirect"
eboReg 30,"120#","Quantity9","width=2% align=right","cbRSListDirect"
eboReg 30,"125#","Quantity10","width=2% align=right","cbRSListDirect"
eboReg 30,"000#","Quantity11","width=2% align=right","cbRSListDirect"
'eboReg 30,"00#","Quantity12","width=2% align=right","cbRSListDirect"
eboReg 30,"合计","QuantityAmount","width=10% align=right","cbRSListDirect"
eboReg 30,"金额","TaxAmount","width=6% align=right","cbRSListDirect"

eboReg 40,"本页小计","","colspan=4",""
eboReg 40,"数量","PageTotalQuantity0","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity1","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity2","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity3","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity4","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity6","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity7","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity8","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity9","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity10","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity11","align=right","cbLocalVariable"
eboReg 40,"数量","PageTotalQuantity","align=right","cbLocalVariable"
eboReg 40,"金额","PageTotalTaxAmount","align=right","cbLocalVariable"

eboReg 41,"合计","","colspan=15",""
eboReg 41,"","TotalTaxQuantity","align=right","cbLocalVariable"
eboReg 41,"","TotalTaxAmount","align=right","cbLocalVariable"

eboReg 42,"金额（大写）","","",""
eboReg 42,"","szRMBTotal","colspan=16","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,"制单","Owner","width=34%","cbRSUserToText"
eboReg 51,"审核","","width=33%",""
eboReg 51,"主管","","width=33%",""

eboReg 52,"发货人","","",""
eboReg 52,"保管员","","",""
eboReg 52,"收货人","","",""

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
	PageTotalQuantity0=0
	PageTotalQuantity1=0
	PageTotalQuantity2=0
	PageTotalQuantity3=0
	PageTotalQuantity4=0
	PageTotalQuantity6=0
	PageTotalQuantity7=0
	PageTotalQuantity8=0
	PageTotalQuantity9=0
	PageTotalQuantity10=0
	PageTotalQuantity11=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 52, rsBD, rsBDList, 4
	eboRpt 60, rsBD, rsBDList, 2
	response.write "</td></tr></table>"
end function

function bdOpenTitle(bdType, bdTableName, rsBD)
    dim rsCheck,szSQL
    dim x,szTableName
    dim rs
		Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
		x = eBD.bdGetDetailByType(Conn, CLng(bdType), rs)
		set eBD = Nothing
		if x=0 then
			szSQl = ""
		else
			szTableName = CStr(rs("TableName"))
		end if
		set rs = nothing
        szSQL="Select sum(bdlist.Quantity) as Quantity From "&szTableName&"List as bdlist where ID="&rsBD("ID")
		Set rsCheck=dbx.open(szSQL,3,4)
		TotalTaxQuantity=rsCheck("Quantity")
		set rsCheck=nothing
	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("QuantityAmount")
	PageTotalQuantity0=PageTotalQuantity0+rsBDList("Quantity0")
	PageTotalQuantity1=PageTotalQuantity1+rsBDList("Quantity1")
	PageTotalQuantity2=PageTotalQuantity2+rsBDList("Quantity2")
	PageTotalQuantity3=PageTotalQuantity3+rsBDList("Quantity3")
	PageTotalQuantity4=PageTotalQuantity4+rsBDList("Quantity4")
	PageTotalQuantity6=PageTotalQuantity6+rsBDList("Quantity6")
	PageTotalQuantity7=PageTotalQuantity7+rsBDList("Quantity7")
	PageTotalQuantity8=PageTotalQuantity8+rsBDList("Quantity8")
	PageTotalQuantity9=PageTotalQuantity9+rsBDList("Quantity9")
	PageTotalQuantity10=PageTotalQuantity10+rsBDList("Quantity10")
	PageTotalQuantity11=PageTotalQuantity11+rsBDList("Quantity11")
	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.bdOpen1(bdid, Clng(bdType), me)
if CStr(x)="0" then err.raise 10000,"MoveStock.Print", eBD.GetLastError()
set eBD = Nothing
%></BODY>
</HTML>