📄 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 CheckDate
CheckDate=Request("CheckDate")

dim bdID1,bdID2,szSQL,szCheck
szSQL="SELECT Bigint1,Bigint2,Bigint3 FROM [biAccCheck] WHERE AccountID=" & AccountID & " AND Date1='"& CheckDate &"' ORDER BY ID DESC" 
szCheck=Conn.Execute(szSQL)
if not isNUll(szCheck("Bigint1")) then bdID1=CLng(szCheck("Bigint1"))
if not isNUll(szCheck("Bigint2")) then bdID2=CLng(szCheck("Bigint2"))
if not isNUll(szCheck("Bigint3")) then bdID2=CLng(szCheck("Bigint3"))

function bdDelete(bdType, bdTableName, rsBD)
	bdDelete=0
end function

dim x,eBD,ssSQL
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
if bdID1>0 then
	ssSQL="UPDATE [bdVoucher] SET AuditID=0,IsDeleted=1 WHERE ID=" & bdID1
	Conn.Execute(ssSQL)
	'x = eBD.bdDelete(bdID1, 8, me)
	'if CStr(x)="0" then err.raise 10000,"AccCheck.UnCheck", eBD.GetLastError()
end if
if bdID2>0 then
	ssSQL="UPDATE [bdVoucher] SET AuditID=0,IsDeleted=1 WHERE ID=" & bdID2
	Conn.Execute(ssSQL)
	'x = eBD.bdDelete(bdID2, 8, me)
	'if CStr(x)="0" then err.raise 10000,"AccCheck.UnCheck", eBD.GetLastError()
end if
if bdID3>0 then
	ssSQL="UPDATE [bdVoucher] SET AuditID=0,IsDeleted=1 WHERE ID=" & bdID3
	Conn.Execute(ssSQL)
	'x = eBD.bdDelete(bdID2, 8, me)
	'if CStr(x)="0" then err.raise 10000,"AccCheck.UnCheck", eBD.GetLastError()
end if

set eBD = Nothing

szSQL="UPDATE [biAccCheck] SET IsDeleted=1 WHERE AccountID=" & AccountID & " AND Date1='"& CheckDate &"'"
Conn.Execute(szSQL)
if err.number<>0 then ree.raise 10000,"AccCheck.UnCheck","撤消失败"
x=1
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -