📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
'Variable Declare
dim eBD, x, bdid

bdid=0
if IsNumeric(GetForm("ID")) then
	bdid=Clng(GetForm("ID"))
end if

dim TotalCount, iCount, Amount, debitAmount, creditAmount, TaxAmount
TaxAmount = 0
iCount = 0
Amount = 0
debitAmount = 0
creditAmount = 0
TotalCount=CLng(GetForm("Detail_rows"))
'End

'eboReg
eboReg 1,"UserID","nvarchar1","","cbRSDirect"
eboReg 1,"Date","BillDate","","cbRSDateCheck"
eboReg 1,"Memo","BillMemo","","cbRSDirect"
eboReg 1,"Attachment","Int1","","cbRSIntNull"

eboReg 1, "Amount", "Amount", "", "cbLocalVariable"
eboReg 1, "TaxAmount", "TaxAmount", "", "cbLocalVariable"
eboReg 1,"AccountID","AccountID","","cbLocalVariable"
eboReg 1,"Owner","Owner","","cbLocalVariable"
eboReg 1,"NULL","NULL","","cbRSBalanceCheck"			'平衡检查

eboReg 2,"Detail_0_","BillListMemo","","cbRSListDirect"
eboReg 2,"Detail_1_","ProductID","","cbRSListSubjectCheck"

eboReg 2,"Detail_6_","Currency3","","cbRSListCurrencyZero"	'当前币种借方
eboReg 2,"Detail_7_","Currency4","","cbRSListCurrencyZero"	'当前币种贷方

eboReg 2,"Detail_6_","Currency1","","cbRSListDebit"		'本币借方并计算汇率
eboReg 2,"Detail_7_","Currency2","","cbRSListCredit"	'本币贷方并计算汇率

eboReg 2,"NULL","Int1","","cbRSListDebitOrCredit"		'借贷方

eboReg 2,"Detail_8_","bigint1","","cbRSListPaymentCheck"'结算方式
eboReg 2,"Detail_10_","Nvarchar1","","cbRSListDirect"	'票据号码

eboReg 2,"Detail_5_","Quantity","","cbRSListCurrencyZero"

eboReg 2, "TaxAmount", "TaxPrice", "", "cbListLocalVariable"
eboReg 2, "TaxAmount", "TaxRate", "", "cbListLocalVariable"
'End

function cbRSBalanceCheck(fun, eboitem, rs, rsList)
	if debitAmount<>creditAmount then Err.Raise 10000,"cbFunBalanceCheck","借贷方不平!"
end function

function cbRSListDebitOrCredit(fun, eboitem, rs, rsList)
	Select Case fun
		Case EBO_SET
			if rsList("Currency1")=0 then
				if rsList("Currency2")=0 then
					Err.Raise 10000,"cbListDebitOrCredit","条目无效!"
				else
					rsList(eboitem.FieldName)=1
				end if
			else
				if rsList("Currency2")=0 then
					rsList(eboitem.FieldName)=0
				else
					Err.Raise 10000,"cbListDebitOrCredit","条目无效!"
				end if
			end if
	End Select
end function

function cbRSListDebit(fun, eboitem, rs, rsList)
	dim CurrencyString
	cbRSListCurrencyZero fun, eboitem, rs, rsList
	debitAmount=debitAmount+rsList(eboitem.FieldName)
end function

function cbRSListCredit(fun, eboitem, rs, rsList)
	dim CurrencyString
	cbRSListCurrencyZero fun, eboitem, rs, rsList
	creditAmount=creditAmount+rsList(eboitem.FieldName)
end function

function bdSaveTitle(bdType, bdTableName, rsBD)
	eboSet 1, rsBD, nothing
end function

function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
	if iCount < TotalCount then
		eboSet 2, rsBD, rsBDList
		'Calculate Amount
		rsBDList("Price")=0
		rsBDList("Quantity")=0
		Amount=Amount+rsBDList("Price")*rsBDList("Quantity")
		'End
		iCount = iCount + 1
		bdSaveList = 0
	else
		bdSaveList = -1
	end if
end function

if TotalCount<2 then err.raise 10000,"Voucher.Save", "凭证条目不足！"

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdSave(bdid, CLng(bdType), me)
if CStr(x)="0" then err.raise 10000,"Voucher.Save", eBD.GetLastError()
set eBD = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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