📄 amztxmdown.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
if session("yhid")="" then Response.Redirect "../../index.htm"
tkid=request("txttkid")
yzid= request("txtyzid") '增加医嘱id
je=request("txtje") '增加单价
sl=request("txtsl") '增加数量
xzsl=request("txtxysl")' '修改数量
xgdj=request("txtxtdj") '修改单价
xmmc=request("txtxmmc") '修改项目名称
sLSH=request("txtlsh")
set rs=server.CreateObject ("adodb.recordset")
if request("txtxms")="txm" then
sql="select c.cfid from mz_tcflr c,mz_tcftk k where k.cfid=c.cfid and k.tkzt=0 and c.lsh= "&request("txtlsh")&" and c.cfid="&yzid
rs.open sql,conn
if rs.EOF and rs.BOF then
conn.Execute "insert into mz_tcftk (cfid,lrsj,lrr,sl,je,tkr) values("&yzid&",'"&now()&"',"&session("yhid")&","&sl&","&je&","&session("yhid")&")"
else
Response.Write "<script language=vbscript>"&chr(10)
Response.Write "msgbox ""该项目已经在退款栏目中！"",""16"",""提示"""&chr(10)
Response.Write "</script>"
end if
rs.Close
end if
if request("txtxms")="xg" then
conn.Execute " update mz_tcftk set sl="&xzsl&",je="&csng(xgdj)*csng(xzsl)&" where tkid="&tkid
end if
if request("txtxms")="sc" then
for each itempid in Request.Form("chk")
if not isnull(itempid) then
conn.Execute "delete from mz_tcftk where tkzt=0 and TKID="&itempid
end if
next
end if
if request("txtxms")="sh" then
dim strcon
strcon="("
for each itempid in Request.Form("chk")
strcon=strcon&itempid&","
next
strcon=strcon&"0)"
if strcon<>"(0)" then
'rs.Open "select count(mz_tcflr.cfid) from mz_Tcflr,mz_Tcftk where mz_Tcflr.cfid=mz_Tcftk.cfid and mz_Tcftk.tkid in "&strcon&" and mz_Tcflr.cfzt in (3,7) and mz_tcflr.jsr<>"&session("yhid"),conn
'if rs(0)<>0 then
' Response.Write "<script language=vbscript>"&chr(10)
' Response.Write "msgbox ""有项目己接收，你将不能审核！"",64,""提示"""&chr(10)
' Response.Write "</script>"&chr(10)
'end if
conn.Execute "update mz_tcftk set tkzt=1,tksj='"&now&"',shr="&session("yhid")&" from mz_Tcflr where tkzt=0 and mz_Tcflr.cfid=mz_Tcftk.cfid and TKID in "&strcon & " and mz_Tcftk.CFid not in (select cfid from yb_tcf where djlsh0 is not null and lsh=" & slsh & ")"
' rs.close
'Response.Write "update mz_tcftk set tkzt=1,tksj='"&now&"',shr="&session("yhid")&" from mz_Tcflr where tkzt=0 and mz_Tcflr.cfid=mz_Tcftk.cfid and TKID in "&strcon & " and mz_Tcftk.CFid not in (select cfid from yb_tcf where djlsh0 is not null and lsh=" & slsh & ")"
end if
end if
%>
<SCRIPT LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){
src.style.cursor = 'hand';
src.bgColor = clrOver;
}
function mouseout(src,clrIn) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
//-->
</SCRIPT>
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<body leftmargin=0 topmargin=0 >
<FORM action="" method=POST id=form1 name=form1>
<INPUT type="hidden" id=txtxtdj name=txtxtdj><INPUT type="hidden" id=txtyzid name=txtyzid>
<INPUT type="hidden" id=txtdj name=txtdj>
<INPUT type="hidden" id=txtje name=txtje>
<INPUT type="hidden" id=txtsl name=txtsl>
<INPUT type="hidden" id=txtxmmc name=txtxmmc>
<INPUT type="hidden" id=txtxms name=txtxms>
<INPUT type="hidden" id=txtxysl name=txtxysl>
<INPUT type="hidden" id=txttkid name=txttkid>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=sLSH%>">
<table align="center" border="1" cellPadding="0" cellSpacing="0" width="100%" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr bgcolor="<%=trBGCOLOR%>">
<td align=middle><font color="<%=tableHFONTCOLOR%>">退款状态</td>
<td align=middle><font color="<%=tableHFONTCOLOR%>">项目名称</td>
<td align=middle><font color="<%=tableHFONTCOLOR%>">数量</td>
<td align=middle><font color="<%=tableHFONTCOLOR%>">金额</td>
<td align=middle><font color="<%=tableHFONTCOLOR%>">录入时间 </td>
<%
if request("txtlsh")<>"" then
sql="select * from VIEW_MZCFTK where (cfzt=1 or rzks="&session("rzks")&") and lsh="&request("txtlsh") & " order by tkzt,lrsj"
'Response.Write sql
rs.Open sql,conn
while not rs.EOF
'if cint(rs("fpydy"))=0 then
Response.Write "<tr> "
'else
' Response.Write "<tr bgcolor='ffff00'> "
'end if
select case cint(rs("tkzt"))
case 0
Response.Write "<td width=60><INPUT type='checkbox' id=chk name=chk value="&rs("tkid")&">录入"
case 1
Response.Write "<td width=40 align=center>审核"
case else
Response.Write "<td width=40 align=center>作废"
end select
Response.Write "</td><td width=200>" & rs("xmmc")&"</td><td width=50 align=right>"
Response.Write rs("sl")
Response.Write "</td><td width=60 align=right>"
Response.write formatnumber(rs("JE"),2,-1)
Response.Write "</td><td width=160>"
Response.write rs("lrsj")
Response.Write "</td></tr>"
rs.MoveNext
wend
end if
%>
</TABLE>
</FORM>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -