📄 azssxmjsmx.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim rs, ips,itxtsjss,zdmc,mzh,sql
set rs=server.CreateObject("adodb.recordset")
function funFromMb(lsh,mbid,nrid,sl,rzks,lrr,jsr)
' Response.Write lsh&","&mbid&","&nrid&","&sl&","&rzks&","&lrr
if trim(lsh)="" or trim(mbid)="" or trim(nrid)="" or trim(sl)="" or trim(rzks)="" or trim(lrr)="" or trim(jsr)="" then
exit function
end if
dim comm2
set comm2=server.CreateObject("adodb.command")
comm2.ActiveConnection=conn
comm2.CommandType=4
comm2.CommandText="proc_MBCF_JS"
comm2.Parameters("@lsh")=lsh
comm2.Parameters("@mbid")=mbid
comm2.Parameters("@nrid")=nrid
comm2.Parameters("@sl")=sl
comm2.Parameters("@rzks")=rzks
comm2.Parameters("@lrr")=lrr
comm2.Parameters("@jsr")=jsr
comm2.Execute
set comm2=nothing
end function
qlsh=""
qlsh=Request.Form("txtLSH")
if trim(qlsh)="" then qlsh=Request.QueryString("lsh")
if trim(qlsh)="" then qlsh=0
mzh=Request.QueryString("mzh")
if Request.Form("pdid")="JS" then '有参数则修改处方状态+2
ssql="select isnull(sum(a.je-a.ytje),0) as cfje from mz_tcflr a where cfid in ( " & Request.Form("txtstr") & ") and cfzt in (0) "
'Response.Write ssql
'Response.End
rs.Open ssql,conn
if not rs.EOF then
QFJE=cdbl(RS("cfje"))
else
QFJE=0
end if
rs.Close
ssql=" select max(syje) as syje,MAX(YBSYJE) AS YBSYJE from mz_tbr a,mz_tbrls b where a.blh=b.blh and b.lsh='" & txtlsh & "'"
rs.open ssql,conn
if not rs.EOF then
ye=cdbl(rs("syje"))+cdbl(rs("YBsyje"))
else
ye=0
end if
rs.Close
if ye<qfje then
Response.Write "<script language=vbscript >"&chr(10)
Response.Write "msgbox ""病人金额不足,不能接收！"",64,""提示"" "&chr(10)
Response.Write "</script>"&chr(10)
else
ssql="update mz_tcflr set cfzt=3,jssj='" & now & "',jsr='" & trim(session("yhid")) & "' " & _
"where cfid in ( " & Request.Form("txtstr") & ") and cfzt in (0,1) "
conn.Execute ssql
'ssql="update mz_tcflr set cfzt=3,jssj='" & now & "',jsr='" & trim(session("yhid")) & "' " & _
'"where cfid in ( " & Request.Form("txtstr") & ") and cfzt in (1) "
'conn.Execute ssql
end if
END IF
IF Request.Form("pdid")="QX" THEN
vlrid="0"
for each intLRID in Request("chk")
if isnumeric(intLRID) then
vlrid=vlrid&","&clng(intLRID)
end if
next
'------------
'-----------
maxi=Request.Form("hidmaxi")
maxj=Request.Form("hidmaxj")
if trim(maxi)="" then maxi=0
if trim(maxj)="" then maxj=0
for j=1 to maxj
for i=0 to maxi
intLRID= Request("chk"&clng(j)&"c"&clng(i))
if isnumeric(intLRID) then
vlrid=vlrid&","&clng(intLRID)
end if
next
next
if len(vlrid)>1 then
ssql=" update mz_tcflr set cfzt=0,jssj=null,jsr=null where cfzt in (3) and cfid in ( " & vlrid & ") and jsr="&session("yhid")
conn.Execute ssql
end if
end if
if Request.Form("pdid")="DEL" then
vlrid="0"
for each intLRID in Request("chk")
if isnumeric(intLRID) then
vlrid=vlrid&","&clng(intLRID)
end if
next
'------------
'-----------
maxi=Request.Form("hidmaxi")
maxj=Request.Form("hidmaxj")
if trim(maxi)="" then maxi=0
if trim(maxj)="" then maxj=0
for j=1 to maxj
for i=0 to maxi
intLRID= Request("chk"&clng(j)&"c"&clng(i))
if isnumeric(intLRID) then
vlrid=vlrid&","&clng(intLRID)
end if
next
next
if len(vlrid)>1 then
ssql=" delete mz_tcflr where cfzt<4 and cfid in ( " & vlrid & ") and lrr="&session("yhid")
conn.Execute ssql
end if
end if
if trim(Request.Form("pdid"))="zjxm" then
if clng(Request.Form("txtxmlxid"))=-1 then
'lsh,mbid,nrid,sl,rzks,lrr
funFromMb Request.Form("txtlsh"),Request.Form("txtxmid"),Request.Form("txtnrid"), Request.Form("txtsl"),session("rzks"),session("yhid"),session("yhid")
else
sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy,sfbc,jsr,jssj)" & _
"values("&Request.Form("txtlsh")&","& Request.Form("txtxmlxid") & ", " & Request.Form("txtxmid") & ",0,1,0,0,"&session("rzks")&","&Request.Form("txtdj")&","&Request.Form("txtsl")&","&Request.Form("txtje")&",0,0,3,"&session("yhid")&",'"&now&"',0,1,"&session("yhid")&",'"&now()&"')"
conn.Execute sqlstr
end if
end if
hzxm=""
mzh=""
hzxb=""
sflx=""
syje=0
YBSYJE=0
HZYLSYJE=0
sflxmc=""
if clng(qlsh)=0 then
sql="select SYJE,YBSYJE,HZYLSYJE ,b.xm,b.xb,b.csrq,a.sflx,a.mzh,sflxmc from mz_tbr a,mz_tbrxx b,ggzd_tsflx c"
sql=sql&" where a.blh=b.blh and a.sflx=c.sflxid and a.mzh='"&mzh&"'"
rs.Open sql,conn,3,1
if rs.RecordCount >0 then
hzxm=rs("xm")
mzh=rs("mzh")
hzxb=rs("xb")
hznl=computage(rs("csrq"))
sflx=rs("sflx")
syje=rs("syje")
YBSYJE=rs("YBSYJE")
HZYLSYJE=rs("HZYLSYJE")
sflxmc=rs("sflxmc")
end if
rs.Close
else
sqlys="select b.xm,a.ghsj,a.sflx,c.syje,c.YBSYJE,c.HZYLSYJE,d.xm as hzxm,d.xb,d.csrq,c.mzh,ksmc,sflxmc from mz_tbr c, mz_tbrls a,ggzd_tgzry b,mz_tbrxx d,ggzd_tks k,ggzd_tsflx s where c.blh=a.blh and s.sflxid=a.sflx and d.blh=c.blh and a.ys=b.ryid and k.ksid=a.ghks and a.lsh="&qlsh
rs.Open sqlys,conn,3,1
if rs.RecordCount>0 then
ksmc=rs("ksmc")
hzxm=rs("hzxm")
mzh=rs("mzh")
hzxb=rs("xb")
hznl=computage(rs("csrq"))
qys=rs("xm")
qghsj=rs("ghsj")
sflx=rs("sflx")
syje=rs("syje")
YBSYJE=rs("YBSYJE")
HZYLSYJE=rs("HZYLSYJE")
sflxmc=rs("sflxmc")
end if
rs.Close
end if
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=JavaScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<SCRIPT LANGUAGE=javascript>
<!--
function selectAll(zid)
{
var obj,i;
obj=document.all.item('chk');
if(obj==null) return;
if(obj.length==null)
{
if (obj.name=='chk'+zid)
obj.checked=true;
return;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
{
if (obj(i).name=='chk'+zid)
obj(i).checked=true;
}
}
}
function funallsel()
{
var obj,i;
obj=document.all.item('chk');
if(obj==null) return;
if(obj.length==null)
{
obj.checked=true;
return;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
obj(i).checked=true;
}
}
//-->
</SCRIPT>
</HEAD>
<BODY TOPMARGIN=0 LEFTMARGIN=0 >
<FORM action="" method=POST id=form1 name=form1>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=qlsh%>">
<INPUT type="hidden" id=txtmzh name=txtmzh value="<%=mzh%>">
<TABLE BORDER=1 bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=0 CELLPADDING=0 style="HEIGHT: 20px; WIDTH:100%">
<tr bgcolor="<%=trBGCOLOR%>" bordercolorlight=#000000 bordercolordark=#ffffff>
<td nowrap align="middle" nowrap style='cursor:hand' LANGUAGE=javascript onclick=funallsel()><font color=blue>全选</font> <font color="<%=tableHFONTCOLOR%>">项目名称</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">单位</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">数量</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">单价</font></td>
<td nowrap align="middle" nowrap><font color="<%=tableHFONTCOLOR%>">金额</font></td>
<%
sqlstr="select cfid,xmmc,dw,sl,dj,je,lsh,cfzt,rzks,zmc,zid,lx from view_mzxmjsxx where cfzt in(3,7) "
sqlstr=sqlstr&" and lsh='" &qlsh& "' and RZKS =" & SESSION("RZKS") &" order by zid desc"
'Response.Write sqlstr
'set RS=conn.Execute(sqlstr)
zmc=""
ai=0
maxi=0
bgcolor="#6495ed"
'#f0e68c
j=0
rs.Open sqlstr,conn,3,1
i=1
do while not RS.eof
if clng(rs("zid"))<>-1 then'--有分组项目
if clng(ai)>clng(maxi) then maxi=ai
if trim(zid)<>trim(rs("zid")) then
if clng(j) mod 2=0 then
bgcolor="#6495ed"
else
bgcolor="#3cb371"
end if
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff' bgcolor='"&bgcolor&"' >"
Response.Write "<Td colspan=5 style='cursor:hand' onclick=javascript:selectAll('"&rs("zid")&"')>"
Response.Write "<font color=black><b>*"&rs("zmc")&"↓↓</b></font></td></tr>"
ai=0
j=clng(j)+1
end if
zid=trim(rs("zid"))
Response.Write "<TR bgcolor='"&bgcolor&"'><TD nowrap><INPUT type=checkbox id=chk name='chk"&rs("zid")&"' title='"&rs("lx")&"' value=" & rs("CFID") & ">"
Response.Write rs("XMMC")
Response.Write "</td><td ALIGN=RIGHT nowrap>"
Response.Write rs("SL")
Response.Write "</td><td nowrap>"
Response.Write rs("dw")
Response.Write "</td><td align=right nowrap>"
Response.Write formatnumber(rs("DJ"),2,-1)
Response.Write "</td><td align=right nowrap>"
Response.Write formatnumber(rs("JE"),2,-1)
Response.Write "</td></tr>"
ai=clng(ai)+1
else '--无分组项目
Response.Write "<tr><td nowrap ><INPUT type=checkbox id=chk name=chk value=" & RS("cfid") & " title='"&rs("lx")&"'>"
Response.Write RS("xmmc")&"</td><td align=center nowrap>"
Response.Write RS("dw")&"</td><td align=right nowrap>"
Response.Write RS("sl")& "</td><td align=right nowrap>"
Response.Write formatnumber(RS("dj"),2,-1)&"</td><td align=right nowrap>"
Response.Write formatnumber(RS("je"),2,-1)&"</td></tr>"
i=cint(i)+1
end if
RS.movenext
loop
Zsxi=i
RS.close
conn.Close
set conn=nothing
'end if
%>
</TABLE>
</form>
</BODY>
</HTML>
<SCRIPT LANGUAGE=javascript>
<!--
function funsetvalue(obj,val)
{
if(parent.document.getElementById(obj)==null) return;
parent.document.getElementById(obj).value=val;
}
funsetvalue('txtkye','<%=formatnumber(syje,2,-1)%>');
funsetvalue('txtnhye','<%=formatnumber(HZYLSYJE,2,-1)%>');
funsetvalue('txtgrzhye','<%=formatnumber(YBSYJE,2,-1)%>');
//funsetvalue('txtYPQF','<%=formatnumber(ypje,2,-1)%>');
//funsetvalue('txtXMQF','<%=formatnumber(xmje,2,-1)%>');
//funsetvalue('txtCLQF','<%=formatnumber(clje,2,-1)%>');
//funsetvalue('txtQF','<%=formatnumber(cdbl(clje)+cdbl(ypje)+cdbl(clje),2,-1)%>');
//funsetvalue('iPS','<%=iPS%>');
funsetvalue('txtlsh','<%=qlsh%>');
funsetvalue('txtsflx','<%=sflxmc%>');
funsetvalue('txtjzks','<%=ksmc%>');
funsetvalue('txtys','<%=qys%>');
funsetvalue('txtmzh','<%=mzh%>');
funsetvalue('txtbrxm','<%=hzxm%>');
funsetvalue('txtxb','<%=hzxb%>');
funsetvalue('txtnl','<%=hznl%>');
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -