?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include virtual="/Server/Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
sysdefinedGet = EBO_GETTOSERVER
'Variable Declare
dim eBD, x, TotalCount, iCount, zero, Stock, CheckDate
zero=0
iCount = 0
TotalCount=0
Stock=unescape(request.form("Stock"))
CheckDate=unescape(request.form("CheckDate"))
'End
'eboReg
eboReg 1, "Stock", "Stock", "", "cbLocalVariable"
eboReg 1, "Date", "BillDate", "", "cbLocalVariable"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"
eboReg 2, "ProductID", "ProductID", "", "cbRSDirect"
eboReg 2, "Currency1", "Currency1", "", "cbRSDirect"
eboReg 2, "Amount", "Amount", "", "cbRSDirect"
eboReg 3, "zero", "Quantity", "", "cbListLocalVariable"
eboReg 3, "zero", "Price", "", "cbListLocalVariable"
eboReg 3, "Amount", "Amount", "", "cbRSListCurrencyZero"
eboReg 3, "ProductID", "ProductID", "", "cbRSListProductCheck"
eboReg 3, "Currency1", "Currency1", "", "cbRSListCurrencyZero"
eboReg 3, "zero", "Currency2", "", "cbListLocalVariable"
'End
function bdSaveTitle(bdType, bdTableName, rsBD)
eboSet 1, rsBD, nothing
end function
function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
dim szSQL2,rsCheck,ID
if iCount < TotalCount then
eboSet 3, rsBD, rsBDList
ID=rsBDList("ProductID")
szSQL2 = "SELECT [Currency2] AS TaxPrice FROM [biProduct] WHERE (AccountID=(SELECT RootID FROM [biCorperation] WHERE [ID]=" & AccountID & ") OR AccountID=" & AccountID & ") AND InfoType=2 AND [ID]="&ID&""
rsCheck=Conn.Execute(szSQL2)
rsBDList("TaxPrice")=rsCheck("TaxPrice")
set rsCheck=nothing
iCount = iCount + 1
bdSaveList = 0
else
bdSaveList = -1
end if
end function
dim rs, szSQL
szSQL="SELECT ProductID,SUM(Quantity) AS Currency1,SUM(Price*Quantity) AS Amount FROM [resProductStock] WHERE AccountID="& AccountID &" AND IsDeleted=0 AND Stock="& SQLInputParam(Stock) &" GROUP BY ProductID"Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1TotalCount= Int(rs.RecordCount)IData2d 1,2Do While Not rs.EOF eboGet 2, rs, nothing rs.MoveNextLoopSet rs = Nothing
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdSave(0, 9, me)
if CStr(x)="0" then err.raise 10000,"StockCheck.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 + -