📄 amztxm.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim rs
set rs=server.CreateObject ("adodb.recordset")
icob=Request.Form("coblsh")
imzh=Request.Form("txtmzh")
%>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<base>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub btnTY_onclick
if form1.txttxmsl.value ="" then
msgbox "请输入退项目数量",64,"提示"
exit sub
end if
if cdbl(form1.txttxmsl.value)<=0 then
msgbox "请输入大于零的数字",64,"提示"
exit sub
end if
if cdbl(form1.txttxmsl.value) > cdbl(form1.txtsl.value) then
msgbox "可退数量应小于项目数量",64,"提示"
exit sub
end if
window.frazjh.form1.txtsl.value=form1.txttxmsl.value
window.frazjh.form1.txtdj.value=form1.txtdj.value
window.frazjh.form1.txtje.value=form1.txtje.value
window.frazjh.form1.txtxmmc.value=form1.txtxm.value
window.frazjh.form1.txtyzid.value=form1.txtyzid.value
window.frazjh.form1.txtxms.value="txm"
window.frazjh.form1.submit
End Sub
Sub btnSC_onclick
window.frazjh.form1.txttkid.value=form1.txttkid.value
window.frazjh.form1.txtxms.value="sc"
window.frazjh.form1.submit
window.upmenu.form1.submit
End Sub
Sub btnSh_onclick
if msgbox("你确定要审核项目吗？",64+vbokcancel,"提示")=vbok then
window.frazjh.form1.txttkid.value=form1.txttkid.value
window.frazjh.form1.txtxms.value="sh"
window.frazjh.form1.txtlsh.value=window.fraupmenu.form1.cmbghsj.value
'MSGBOX window.fraupmenu.form1.cmbghsj.value
window.frazjh.form1.submit
window.upmenu.form1.submit
end if
End Sub
Sub txttxmsl_onchange
form1.txtje.value =cdbl(form1.txttxmsl.value) *cdbl(form1.txtdj.value)
End Sub
-->
</script>
</head>
<body TOPMARGIN=0 LEFTMARGIN=0 >
<form action method="POST" id="form1" name="form1">
<input type="hidden" id="txttkid" name="txttkid">
<input type="hidden" id="txtyzid" name="txtyzid">
<input type="hidden" id="txtdj" name="txtdj">
<input type="hidden" id="txtsl" name="txtsl">
<input type="hidden" id="txtxtdj" name="txtxtdj">
<input type="hidden" id="txtxmlx" name="txtxmlx">
<table width='<%=session("screen_width")%>' height='<%=session("screen_height")%>' border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>门诊病人退款<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%></td><TD nowrap width="10%"> </td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()> </td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()> </td></tr>
<TR><TD nowrap colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr><td colspan="4">
<iframe id="fraupmenu" name="fraupmenu" frameborder="0" border="0" noresize width="100%" height="22" src="aMZTXMdk.asp">
</iframe> </td></tr>
<tr>
<td>医生
<input id="txtYS" name="txtYS" readOnly style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px ;COLOR: mediumblue; FONT-VARIANT: normal">
项目
<input type="text" id="txtxm" name="txtxm" style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 115px;COLOR: red;" readOnly>
数量
<input id="txttxmsl" name="txttxmsl" style="WIDTH: 35px" style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 36px ;COLOR: red;" >
金额
<input id="txtje" name="txtje" style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 36px ;COLOR: red;" readOnly>
<input class="buttons02" type="button" value="退项目" id="btnTY" name="btnTY" style="WIDTH: 60px"> </td>
</tr></table></td></tr>
<tr height=47%>
<td colspan=4>
<iframe id="upmenu" name="upmenu" frameborder="1" border="1" noresize width="100%" height="100%" src="aMZTXMup.asp">
</iframe>
</td>
</tr>
<tr height=6%>
<td colspan=4>
<input class="buttons02" type="button" value="删 除(S)" accesskey= id="btnSC" name="btnSC" style="LEFT: 60px; TOP: 1px ">
<!-- <input class="buttons02" type="button" value="退款审核(H)" accesskey=H id="btnSh" name="btnsh" style="LEFT: 60px; TOP: 1px ">-->
</td>
</tr>
<tr height=47%>
<td colspan=4>
<iframe id="frazjh" name="frazjh" frameborder="1" border="1" noresize width="100%" height="100%" color="#ffffff" src="aMZTXMdown.asp">
</iframe>
</td>
</tr>
<tr><td color=red><FONT color=red><b>注意：医保病人处方如已发送到医保中心，必须通知收费处用医保接口冲销后才能退款！！！</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -