?? 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, iCount, Amount, iCols, bdid
iCols = 11
iCount = 0
Amount = 0
bdid=0
if IsNumeric(request("ID")) then
bdid=request("ID")
end if
'End
'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1,"UserID","nvarchar1","","cbRSDirect"
eboReg 1,"Source","Organization","","cbRSDirect"
eboReg 1,"SourceText","Organization","","cbRSCorpToText"
eboReg 1,"Stock","Stock","","cbRSDirect"
eboReg 1,"StockText","Stock","","cbRSStockToText"
eboReg 1,"Operator","Operator","","cbRSDirect"
eboReg 1,"OperatorText","Operator","","cbRSOperatorToText"
eboReg 1,"SetMoney","bigint1","","cbRSDirect"
eboReg 1,"SetMoneyText","bigint1","","cbRSPaymentToTitle"
eboReg 1,"AccAnt","Int2","","cbRSDirect"
eboReg 1,"AccAntText","Int2","","cbRSDirect"
eboReg 1,"Owner","Owner","","cbRSUserToText"
eboReg 1,"Auditor","Auditor","","cbRSUserToText"
eboReg 1,"Date","BillDate","","cbRSDateToText"
eboReg 1, "NoteCode", "nvarchar2", "", "cbRSDirect"
eboReg 1,"Memo","BillMemo","","cbRSDirect"
eboReg 1,"Amount","TaxAmount","","cbRSDirect"
eboReg 2,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 2,"Detail_1_","ProductID","","cbRSListProductToCode"
eboReg 2,"Detail_2_","ProductID","","cbRSListProductToTitle"
eboReg 2,"Detail_3_","Price","","cbRSListDirect"
eboReg 2,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 2,"Detail_5_","Amount","","cbRSListDirect"
eboReg 2,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 2,"Detail_7_","ProductID","","cbRSListProductToSpec"
eboReg 2,"Detail_8_", "TaxPrice", "", "cbRSListDirect"
eboReg 2,"Detail_9_", "TaxRate", "", "cbRSListDirect"
eboReg 2,"Detail_10_", "TaxAmount", "", "cbRSListDirect"
eboReg 3,"Detail_rows","iCount","","cbLocalVariable"
eboReg 3,"Detail_cols","iCols","","cbLocalVariable"
'End
function cbRSListIDToProductToCode(fun, eboitem, rs, rsList)
dim szSQL,rsCheck
if IsNull(rsList(eboitem.FieldName)) then
cbRSListIDToProductToCode=""
exit function
end if
szSQL="SELECT [biProduct].[Code] FROM [biProduct],[resProductStock] WHERE [biProduct].[InfoType]=2 AND [biProduct].[ID]=[resProductStock].[ProductID] AND [resProductStock].[ID]=" & CStr(rsList(eboitem.FieldName))
rsCheck=Conn.Execute(szSQL)
cbRSListIDToProductToCode=rsCheck("Code")
set rsCheck = nothing
end function
function cbRSListIDToProductToTitle(fun, eboitem, rs, rsList)
dim szSQL,rsCheck
if IsNull(rsList(eboitem.FieldName)) then
cbRSListIDToProductToTitle=""
exit function
end if
szSQL="SELECT [biProduct].[Title] FROM [biProduct],[resProductStock] WHERE [biProduct].[InfoType]=2 AND [biProduct].[ID]=[resProductStock].[ProductID] AND [resProductStock].[ID]=" & CStr(rsList(eboitem.FieldName))
rsCheck=Conn.Execute(szSQL)
cbRSListIDToProductToTitle=rsCheck("Title")
set rsCheck = nothing
end function
function cbRSListIDToProductToSpec(fun, eboitem, rs, rsList)
dim szSQL,rsCheck
if IsNull(rsList(eboitem.FieldName)) then
cbRSListIDToProductToSpec=""
exit function
end if
szSQL="SELECT [biProduct].[Nvarchar1] FROM [biProduct],[resProductStock] WHERE [biProduct].[InfoType]=2 AND [biProduct].[ID]=[resProductStock].[ProductID] AND [resProductStock].[ID]=" & CStr(rsList(eboitem.FieldName))
rsCheck=Conn.Execute(szSQL)
cbRSListIDToProductToSpec=rsCheck("Nvarchar1")
set rsCheck = nothing
end function
function bdOpenTitle(bdType, bdTableName, rsBD)
eboGet 1, rsBD, nothing
IData2d 1,2
end function
function bdOpenList(bdType, bdTableName, rsBD, rsBDList)
eboGet 2, rsBD, rsBDList
iCount = iCount + 1
bdOpenList = 0
end function
response.write "<script>"&vbcrlf
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdOpen(bdid, Clng(bdType), me)
if CStr(x)="0" then err.raise 10000,"BuyDraw.Load", eBD.GetLastError()
set eBD = Nothing
IData2d 0,3
eboGet 3, nothing, nothing
response.write "</script>"&vbcrlf
%>
</BODY>
<script>
IClient('data',IDataEnd());
IClient('end','');
</script>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -