📄 azsszjyp.asp
字号:
<%
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000001'", CONN
' STRREPLY=cstr(trim(RS("CSMC")))''''''
' RS.Close
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000002'", CONN
' STRREQUEST=cstr(trim(RS("CSMC")))'
' rs.Close
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000003'", CONN
' outtime=RS("CSMC") '''
' rs.Close
if trim(Request.Form("pdid1"))="4" then
IF trim(Request.Form("txtlsh"))<>"" then
' if trim(Request.Form("text"))<>"医保" then
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,rcs)" & _
"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()&"',1)"
' else
' sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,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,0,"&session("yhid")&",'"&now&"',1,"&session("yhid")&",'"&now()&"')"
' end if
conn.Execute sqlstr
END IF
end if
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
sub cmdok_onclick
zsszjxm.txtkye.value=parent.zssxmjs.txtkye.value
'zsszjxm.TXTGRZHYE.value=parent.zssxmjs.TXTGRZHYE.value
zsszjxm.TXTLSH.value=parent.zssxmjs.TXTLSH.value
zsszjxm.txtje.value =cdbl(zsszjxm.txtdj.value)*cdbl(zsszjxm.txtsl.value)
zsszjxm.pdid1.value=4 '增加医嘱项目
if len(zsszjxm.txtSL.value)=0 then
msgbox "请输入数字!",vbinformation,"提示"
zsszjxm.txtsl.focus
zsszjxm.txtSL.select
exit sub
end if
'msgbox zsszjxm.txtKCL.value
if cdbl(zsszjxm.txtSL.value)>cdbl(zsszjxm.txtKCL.value) then
msgbox "不可以大于库存量，请重输",vbinformation,"提示"
zsszjxm.txtsl.focus
zsszjxm.txtSL.select
exit sub
end if
strgrzhye=zsszjxm.txtgrzhye.value
if strgrzhye="" then
strgrzhye=0
else
if zsszjxm.txtfylx.value=0 then
strgrzhye=strgrzhye
else
if zsszjxm.txtfylx.value=1 then
strgrzhye=cdbl(strgrzhye)*0.85
else
strgrzhye=0
end if
end if
end if
if trim(zsszjxm.text.value) <>"公费" and trim(zsszjxm.text.value)<>"特约单位" then'如果是公费\特约单位将不进行提示
if (cdbl(zsszjxm.txtkye.value)+cdbl(strgrzhye)) <cdbl(zsszjxm.txtje.value) then
msgbox "该病人卡金额不够,请交费!",vbinformation,"提示"
exit sub
end if
end if
if msgbox ("金额是"&zsszjxm.txtje.value&",请确认。",vbyesno,"提示")=vbyes then
zsszjxm.text.value=parent.zssxmjs.txtlx.value
zsszjxm.txtybkh.value=parent.zssxmjs.txtmzh.value
zsszjxm.txtmzlsh.value=parent.zssxmjs.txtmzlsh.value
zsszjxm.txtblh.value=parent.zssxmjs.txtblh.value
zsszjxm.submit
end if
if zsszjxm.text.value <>"医保" then
parent.frmJSMX.zssxmjs.pdid.value=5
parent.frmJSMX.zssxmjs.txtlsh.value=zsszjxm.TXTLSH.value
parent.frmJSMX.zssxmjs.submit
parent.divtable.style.visibility="visible"
parent.table4.style.visibility="hidden"
end if
end sub
sub cmdquit_onclick
parent.divtable.style.visibility="visible"
parent.table4.style.visibility="hidden"
'parent.frmJSMX.zssxmjs.txtlsh.value=zsszjxm.txtLSH.value
'parent.frmJSMX.zssxmjs.submit
end sub
sub txtxmmc_onkeypress
IF window.event.keyCode =13 THEN
if trim(zsszjxm.txtxmmc.value) ="" then
msgbox "项目名称不能为空值",vbinformation,"提示"
zsszjxm.txtxmmc.focus
exit sub
end if
zsszjxm.pdid1.value =1
zsszjxm.txtsl.focus
zsszjxm.submit
END IF
end sub
sub txtsl_onkeypress
IF window.event.keyCode =13 THEN
zsszjxm.txtje.value =cdbl(zsszjxm.txtdj.value)*cdbl(zsszjxm.txtsl.value)
END IF
end sub
Sub txtsl_onchange '计算金额
zsszjxm.txtje.value =cdbl(zsszjxm.txtdj.value)*cdbl(zsszjxm.txtsl.value)
End Sub
Sub window_onload
' window.zsszjxm.txtxmmc.focus
End Sub
-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){
src.style.cursor = 'hand';
src.bgColor = clrOver;
}
function mouseout(src,clrIn) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
function fhjg(xmmc,fylx,xmid,dj,lxid,kcl) {
//window.alert(k);
zsszjxm.txtfylx.value =fylx;
zsszjxm.txtxmmc.value =xmmc;
zsszjxm.txtxmlxid.value =lxid;
zsszjxm.txtxmid.value =xmid;
zsszjxm.txtdj.value =dj;
zsszjxm.txtsl.value =1;
zsszjxm.txtje.value=dj;
zsszjxm.txtKCL.value=kcl;
//zsszjxm.txtdj.readOnly =false;
document.all("divzdid").style.visibility="hidden";
zsszjxm.txtsl.focus ();
}
-->
</script>
</HEAD>
<BODY>
<FORM action="" method=POST id=zsszjxm name=zsszjxm>
<p align=center>
<% lx=Request.Form("text")
txtkye=Request.Form("txtkye")
txtxmmc=Request.Form("txtxmmc")
dj=Request.Form("txtdj")
je=Request.Form("txtje")
sl=Request.Form("txtsl")
txtlsh=Request.Form("txtlsh")
txtxmlxid=Request.Form("txtxmlxid")
txtxmid=Request.Form("txtxmid")%>
<INPUT type="hidden" id=text name=text value="<%=lx%>">
<INPUT type="hidden" id=txtfylx name=txtfylx>
<!--<INPUT type="hidden" id=mzlsh0 name=mzlsh0><INPUT type="hidden" id=djlsh0 name=djlsh0><INPUT type="hidden" id=cardno name=cardno><INPUT type="hidden" id=crbcts name=crbcts>
<INPUT type="hidden" id=bckbcs name=bckbcs><INPUT type="hidden" id=bqbm00 name=bqbm00><INPUT type="hidden" id=sftsbz name=sftsbz><INPUT type="hidden" id=zhzfe0 name=zhzfe0>
<INPUT type="hidden" id=grzfe0 name=grzfe0><INPUT type="hidden" id=jjzfe0 name=jjzfe0>
<INPUT type="hidden" id=bcbxf0 name=bcbxf0>
<INPUT type="hidden" id=gwybz0 name=gwybz0>
<INPUT type="hidden" id=sfrq00 name=sfrq00>
<INPUT type="hidden" id=SFSJ00 name=SFSJ00>
<INPUT type="hidden" id=SFRXM0 name=SFRXM0>-->
<INPUT type="hidden" id=ghksmc name=ghksmc>
<INPUT type="hidden" id=sftsmz name=sftsmz>
<INPUT type="hidden" id=txtKCL name=txtKCL>
<INPUT type="hidden" id=txtzjfzxm name=txtzjfzxm>
<INPUT type="hidden" id=txtybkh name=txtybkh>
<INPUT type="hidden" id=txtmzlsh name=txtmzlsh>
<INPUT type="hidden" id=txtgrzhye name=txtgrzhye>
<INPUT type="hidden" id=txtblh name=txtblh value="<%=request("txtblh")%>">
<p align=center>
<%
txtkye=Request.Form("txtkye")
txtxmmc=Request.Form("txtxmmc")
dj=Request.Form("txtdj")
je=Request.Form("txtje")
sl=Request.Form("txtsl")
txtlsh=Request.Form("txtlsh")
txtxmlxid=Request.Form("txtxmlxid")
txtxmid=Request.Form("txtxmid")
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 bgcolor="#cce8d6" bordercolorlight=#000000 bordercolordark=#ffffff>
<TR bgcolor="#3399ff"><td align=center>增加附嘱非项目
</td></tr><tr><td>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 bgcolor="#cce8d6" bordercolorlight=#000000 bordercolordark=#ffffff>
<TR>
<TD nowrap align=right>药品名称</TD>
<TD>
<INPUT id=txtxmmc name=txtxmmc value="<%=txtxmmc%>">
</TD>
<TD nowrap align=right>单价</TD>
<TD><INPUT id=txtdj name=txtdj readonly ></TD>
</TR>
<TR>
<TD nowrap align=right>数量</TD>
<TD><INPUT id=txtsl name=txtsl value="<%=sl%>"></TD>
<TD nowrap align=right>金额</TD>
<TD><INPUT id=txtje name=txtje style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; " readonly value="<%=je%>"></TD>
</TR>
<TR>
<TD align=middle colspan=4><INPUT type="button" value="确定" id=cmdOK name=cmdok style="HEIGHT: 22px; WIDTH: 80px">
<INPUT type="button" value="返回" id=cmdquit name=cmdquit style="HEIGHT: 22px; WIDTH: 80px"></TD>
<TD align=middle colspan=2 ></TD>
</TR>
</TABLE>
</p>
<%
'if request("txtzjfzxm")="insert" then '''''''''''''''''''''''''''''医保项目插入
' mzlsh0=request("mzlsh0")
' djlsh0=request("djlsh0")
' bckbcs=request("bckbcs")
' cardno=request("cardno")
' ghksmc=request("ghksmc")
' bqbm00=request("bqbm00")
' sftsmz=request("sftsmz")
' sftsbz=request("sftsbz")
' zhzfe0=request("zhzfe0")
' grzfe0=request("grzfe0")
' jjzfe0=request("jjzfe0")
' gwybz0=request("gwybz0")
' if gwybz0 ="" then
' gwybz0=0
' end if
' bcbxf0=request("bcbxf0")
' sfrq00=request("sfrq00")
' SFSJ00=request("sfsj00")
' SFRXM0=request("sfrxm0")
' YJSF=1
'
' sql= "insert yb_Tmzsf (blh,lsh,mzlsh0,DJLSH0,CARDNO,BCKBCS,GHKSMC,BQBM00,SFTSMZ,"&_
' "SFTSBZ, ZHZFE0,GRZFE0,JJZFE0,GWYBZ0,BCBXF0,SFRQ00,SFSJ00,SFRXM0,YJSF ) "&_
' " values("&request("txtblh")&","&request("txtlsh")&",'"&mzlsh0&"','"&djlsh0&"','"&cardno&"',"&_
' ""&bckbcs&",'"&ghksmc&"','"&bqbm00&"','"&sftsmz&"','"&sftsbz&"',"&zhzfe0&","&_
' ""&grzfe0&","&jjzfe0&",'"&gwybz0&"','"&bcbxf0&"','"&sfrq00&"','"&sfsj00&"',"&_
' "'"&sfrxm0&"',"&yjsf&") "
' conn.Execute sql
' SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
' sql=" select max(cfid) as cfid from mz_tcflr where lsh="&request("txtlsh")
' rs.Open sql,conn
' strcfid=rs("cfid")
' rs.Close
' sql= " update mz_tcflr set cfzt=3 where cfid ="&strcfid
' conn.Execute sql
' end if
txtqdid=Request.Form("txtqdid")
lsh=Request.QueryString("lsh")
if trim(Request.Form("pdid1"))="1" then '临床诊断
set rszdid=server.CreateObject("adodb.recordset")
sqlcmd=" select top 100 fylx,lsj/hsgx as dj,lyks as rzks, yk_Typbm.ypid as xmid,lxid as xmlxid ,ypspm ,gg,ypdh ,yk_typdw.dwmc as xdw,yf_typkc.kcl*yk_typbm.hsgx as kcl,0 as djcdy from yk_typbm inner join yf_typkc on yf_typkc.ypid=yk_typbm.ypid inner join yk_typdw on yk_typbm.dw1=yk_typdw.dwid where yf_typkc.kcl>0 and lyks="&session("rzks")
select case LEFT(Request("txtxmmc"),1)
case "0","1","2","3","4","5","6","7","8","9"
sqlcmd = sqlcmd & " and ypdh LIKE '"& Request("txtxmmc") &"%' order by ypdh"
case "P","p"
sqlcmd = sqlcmd & " and yk_typbm.PYM LIKE '"& Request("txtxmmc") &"%' order by yk_typbm.pym"
case "W","w"
sqlcmd = sqlcmd & " and yk_typbm.WBM LIKE '"& Request("txtxmmc") &"%' order by yk_typbm.wbm"
case else
sqlcmd = sqlcmd & " and ypspm LIKE '%"& Request("txtxmmc") &"%' order by yk_typbm.ypspm"
end select
' Response.Write sqlcmd
Response.Write "<div id=divzdid style='visibility :visible'>"
Response.Write "<table border=1 cellspacing=0 style=' LEFT: 70px;POSITION: absolute; TOP: 110px'>"
Response.Write "<tr bgcolor=#00ffff><td>"
Response.Write "药品代号"
Response.Write "</td><td>"
Response.Write "药品名称"
Response.Write "</td><td>"
Response.Write "单价"
Response.Write "</td><td>"
Response.Write "数量"
Response.Write "</td></tr>"
dim sZDMC
' Response.Write sqlcmd
' sqlcmd="select * from ggzd_tgzry where 1=0"
rszdid.Open sqlcmd,conn,3,1
do while not rszdid.EOF
sZDMC=replace(rszdid("ypspm")," ","")
'xmmc,fylx,xmid,dj,lxid,kcl
Response.Write "<tr language=javascript onclick=fhjg('"& sZDMC &"'," & rszdid("fylx") & "," & rszdid("xmid") & "," & rszdid("dj") & "," & rszdid("xmlxid") &","&rszdid("kcl")&") onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#fffff0><td>"
' Response.Write "<tr><td>"
Response.Write rszdid("ypdh")
Response.Write "</td><td>"
Response.Write rszdid("ypspm")&"["&rszdid("gg")&"]"
Response.Write "</td><td align=right>"
Response.Write formatnumber(rszdid("dj"),2)
Response.Write "</td><td>"
Response.Write formatnumber(rszdid("kcl"),2)&rszdid("xdw")
Response.Write "</td></tr>"
rszdid.MoveNext
loop
rszdid.Close
set rszdid=nothing
Response.Write "</table>"
Response.Write "</div>"
END IF
%>
<INPUT type="hidden" id=txtkye name=txtkye value="<%=txtkye%>">
<INPUT type="hidden" id=pdid1 name=pdid1>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtghsj name=txtghsj>
<INPUT type="hidden" id=txtxmlxid name=txtxmlxid value="<%=txtxmlxid%>">
<INPUT type="hidden" id=txtxmid name=txtxmid value="<%=txtxmid%>">
</form>
</BODY>
<SCRIPT LANGUAGE=vbscript>
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -