?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cblib.asp" --><!-- #include file="../Common.asp" --><HTML>
<HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script src="/Client/ebComm.js"></script></HEAD>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY></BODY>
<%
sysdefinedGet = EBO_GETTOSERVER
'eboReg
eboReg 1,"RootID","RootID","","cbRSDirect"
eboReg 1,"ParentID","ID","","cbRSDirect"
eboReg 1,"Custom","Organization","","cbRSDirect"
eboReg 1,"AccountID","AccountID","","cbRSDirect"
eboReg 1,"Stock","Stock","","cbRSDirect"
eboReg 1,"Operator","Operator","","cbRSDirect"
eboReg 1,"VIP","bigint2","","cbRSDirect"
eboReg 1,"StockOp","bigint1","","cbRSDirect"
eboReg 1,"Owner","Owner","","cbRSDirect"
eboReg 1,"Date","UpdateDate","","cbRSDateToText"
eboReg 1,"Memo","BillMemo","","cbRSDirect"
eboReg 1,"Amount","Amount","","cbRSDirect"
eboReg 1,"TaxAmount","TaxAmount","","cbRSDirect"
eboReg 2,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 2,"Detail_3_","Price","","cbRSListDirect"
eboReg 2,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 2,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 2,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 2,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 2,"Detail_10_","Amount","","cbRSListDirect"
eboReg 2,"Detail_11_","TaxAmount","","cbRSListDirect"
eboReg 11,"RootID","RootID","","cbRSDirect"
eboReg 11,"ParentID","ParentID","","cbRSDirect"
eboReg 11,"AccountID","Organization","","cbRSDirect"
eboReg 11,"Custom","AccountID","","cbRSDirect"
eboReg 11,"Stock","Stock","","cbRSDirect"
eboReg 11,"Operator","Operator","","cbRSDirect"
eboReg 11,"StockOp","bigint1","","cbRSDirect"
eboReg 11,"VIP","bigint2","","cbRSIntNull"
eboReg 11,"Owner","Owner","","cbRSDirect"
eboReg 11,"Date","BillDate","","cbRSDateCheck"
eboReg 11,"Memo","BillMemo","","cbRSDirect"
eboReg 11,"Amount","Amount","","cbRSDirect"
eboReg 11,"TaxAmount","TaxAmount","","cbRSDirect"
eboReg 12,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 12,"Detail_3_","Price","","cbRSListDirect"
eboReg 12,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 12,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 12,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 12,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 12,"Detail_10_","Amount","","cbRSListDirect"
eboReg 12,"Detail_11_","TaxAmount","","cbRSListDirect"
eboReg 21,"RootID","RootID","","cbRSDirect"
eboReg 21,"ParentID","ParentID","","cbRSDirect"
eboReg 21,"Custom","Organization","","cbRSDirect"
eboReg 21,"AccountID","AccountID","","cbRSDirect"
eboReg 21,"Stock","Stock","","cbRSDirect"
eboReg 21,"Operator","Operator","","cbRSDirect"
eboReg 21,"StockOp","bigint1","","cbRSDirect"
eboReg 21,"VIP","bigint2","","cbRSIntNull"
eboReg 21,"Owner","Owner","","cbRSDirect"
eboReg 21,"Date","BillDate","","cbRSDateCheck"
eboReg 21,"Memo","BillMemo","","cbRSDirect"
eboReg 21,"Amount","Amount","","cbRSDirect"
eboReg 21,"TaxAmount","TaxAmount","","cbRSDirect"
eboReg 22,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 22,"Detail_3_","Price","","cbRSListDirect"
eboReg 22,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 22,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 22,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 22,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 22,"Detail_10_","Amount","","cbRSListDirect"
eboReg 22,"Detail_11_","TaxAmount","","cbRSListDirect"
'End
dim szErrorOut
szErrorOut=""
dim cTotalAmount, iCount, TotalCount, ParentID
cTotalAmount = 0
iCount = 0
TotalCount = 0
'***********************************************************************************
function bdAuditTitle(bdType, szTableName, rsBD)
rsBD("Cost") = cTotalAmount
rsBD("Auditor") = Owner
ParentID = rsBD("ParentID")
IData2d 0,1
eboGet 1, rsBD, nothing
bdAuditTitle=0
end function
function bdAuditList(bdType, szTableName, rsBD, rsBDList)
rsBDList("AuditCost")=rsBDList("Price")
rsBDList("AuditQuantity")=rsBDList("Quantity")
cTotalAmount=cTotalAmount+CCur(rsBDList("Amount"))
eboGet 2, rsBD, rsBDList
TotalCount=TotalCount+1
bdAuditList=0
end function
dim eboGroup
function bdSaveTitle(bdType, bdTableName, rsBD)
IData2d 0,eboGroup
eboSet eboGroup, rsBD, nothing
end function
function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
if iCount < TotalCount then
eboSet eboGroup+1, rsBD, rsBDList
iCount = iCount + 1
bdSaveList = 0
else
bdSaveList = -1
end if
end function
'***********************************************************************************
dim x,bdid,eBD
bdid=0
x=0
if IsNumeric(request("ID")) then
bdid=request("ID")
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
IData2d 1,2
x = eBD.bdAudit(bdid, CLng(bdType), me)
if CStr(x)="0" then err.raise 10000,"SaleOrderSCC.Audit", eBD.GetLastError()
eboGroup=11
if x<>0 and CStr(ParentID)="0" then
IData2d 1,eboGroup+1
x = eBD.bdSave(0, CLng(13), me)
if CStr(x)="0" then err.raise 10000,"SaleOrderSCC.Audit", eBD.GetLastError()
x=1
end if
iCount=0
eboGroup=21
if x<>0 then
IData2d 1,eboGroup+1
x = eBD.bdSave(0, CLng(14), me)
if CStr(x)="0" then err.raise 10000,"SaleOrderSCC.Audit", eBD.GetLastError()
x=1
end if
set eBD = Nothing
end if
%>
<script>
IClient('data','<%=x%>');
IClient('end','');
</script>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -