📄 azsszjxm.asp
字号:
<%
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
if trim(Request.Form("pdid1"))="4" then
IF trim(Request.Form("txtlsh"))<>"" 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)" & _
"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
%>
<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,"提示"
exit sub
end if
strgrzhye=0
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&",请确认。",vbquestion+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.table2.style.visibility="hidden"
'end if
end sub
sub cmdquit_onclick
parent.divtable.style.visibility="visible"
parent.table2.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
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(a,b,c,d,e) {
zsszjxm.txtfylx.value =e;
zsszjxm.txtxmmc.value =a;
zsszjxm.txtxmlxid.value =b;
zsszjxm.txtxmid.value =c;
zsszjxm.txtdj.value =d;
zsszjxm.txtsl.value =1;
// 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=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>
<%
txtqdid=Request.Form("txtqdid")
lsh=Request.QueryString("lsh")
if trim(Request.Form("pdid1"))="1" then
set rszdid=server.CreateObject("adodb.recordset")
rszdid.Open "select ggzd_txmbm.fylx, ggzd_txmbm.dj,ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc,ggzd_txmbm.xmdh,ggzd_txmbm.djcdy from ggzd_txmbm where (ggzd_txmbm.rzks=0 or ggzd_txmbm.rzks ="&session("rzks")&") and (ggzd_txmbm.pym LIKE 'p"& Request("txtxmmc") &"%' or ggzd_txmbm.wbm LIKE 'w"& Request("txtxmmc") &"%' or ggzd_txmbm.xmmc LIKE '"& Request("txtxmmc") &"%') and ggzd_txmbm.xmlxID not in (7,8) order by ggzd_txmbm.pym",conn,3 ' and ggzd_tfzxmbm.ksid='" & session("rzks") & "'
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
do while not rszdid.EOF
sZDMC=replace(rszdid("xmmc")," ","")
Response.Write "<tr language=javascript onclick=fhjg('"& sZDMC &"'," & rszdid("xmlxid") & "," & rszdid("xmid") & "," & rszdid("dj") & "," & rszdid("djcdy") & "," & rszdid("fylx") & ") onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#fffff0><td>"
Response.Write rszdid("xmdh")
Response.Write "</td><td>"
Response.Write rszdid("xmmc")
Response.Write "</td><td align=right>"
Response.Write formatnumber(rszdid("dj"),2)
Response.Write "</td><td>"
if rszdid("djcdy")=0 then
Response.Write "否"
else
Response.Write "是"
end if
Response.Write "</td></tr>"
rszdid.MoveNext
loop
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 + -