?? default.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 + -