📄 azjxm.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<!--#include file=../../aickcz.asp-->
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<SCRIPT LANGUAGE=javascript>
<!--
function fypzd(xmid,xmmc,dj,rzks,djcdy,xmlxid,ps,hsgx) {//非药品字典
fzxm.style.visibility ='visible';
form1.txtxmmc.value =xmmc;
form1.txtsl.value=1;
form1.txtdj.value=dj;
form1.txtje.value =dj;
form1.txtxmlxid.value =xmlxid;
form1.txtxmid.value=xmid;
form1.txtrzks.value=rzks;
form1.txtps.value=ps;
form1.txthsgx.value=hsgx;
if (djcdy==1){
form1.txtdj.readOnly=false;
form1.txtje.readOnly=false;
}
form1.txtsl.focus();
}
function close(){
parent.divfzxm.style.posTop=-600;
parent.divfzxm.style.posLeft=-500;
parent.divfzxm.style.visibility='hidden';
}
function cmdqx_onclick() {
fzxm.style.visibility ='hidden';
}
function funJYKH()
{
var vkh;
vkh=dickhm('<%=yyxx%>');
// window.alert('<%=yyxx%>');
// window.alert(vkh);
// vkh='';
return vkh;
}
function cmdqd_onclick() {
var vkh;
vkh=new String(funJYKH());
if (vkh=='')
{ window.alert('请插入IC卡');
return;
}
if(form1.txtnrid.value=="" && form1.txtxmlxid.value=="-1")
{
window.alert("内部出错,请重试");
return;
}
if (form1.txtdj.value!="" || form1.txtsl.value!=""){
form1.txtje.value =form1.txtdj.value *form1.txtsl.value;
}
parent.frmJSMX.form1.txtsl.value=form1.txtsl.value;
parent.frmJSMX.form1.txtdj.value=form1.txtdj.value;
parent.frmJSMX.form1.txtje.value=form1.txtje.value ;
parent.frmJSMX.form1.txtxmlxid.value=form1.txtxmlxid.value;
parent.frmJSMX.form1.txtxmid.value=form1.txtxmid.value;
parent.frmJSMX.form1.txtrzks.value=form1.txtrzks.value;
parent.frmJSMX.form1.txtnrid.value=form1.txtnrid.value;
parent.frmJSMX.form1.txtps.value=form1.txtps.value;
parent.frmJSMX.form1.txthsgx.value=form1.txthsgx.value;
if (form1.txtje.value*1.5 >(parent.form1.txtkye.value+parent.form1.txtgrzhye.value)*1.5 )
{
window.alert ("不能增加项目，金额不足！请到收费处交费！" );//("金额不足！请到收费处交费！");
fzxm.style.visibility ='hidden';
}
else
{
fzxm.style.visibility ='hidden';
close();
parent.frmJSMX.form1.pdid.value="zjxm";
parent.frmJSMX.form1.submit();
parent.frmWJSMX.form1.submit();
}
}
var img1,img2;
img1="../../images/minusl.gif";
img2="../../images/plus.gif";
function tdonclick(id,max)
{
if(max<2) return;
var i;
for(i=1;i<=max;i++)
{
ShowOrHidde(id,i);
}
}
function ShowOrHidde(id,i)
{
if(window.document.getElementById('trid'+id+'f'+i)==null) return;
if(window.document.getElementById('trid'+id+'f'+i).style.display=='block')
{
window.document.getElementById('trid'+id+'f'+i).style.display='none';
window.document.getElementById('img'+id).src=img2;
}
else
{
window.document.getElementById('trid'+id+'f'+i).style.display='block';
window.document.getElementById('img'+id).src=img1;
}
}
function mbzd(id,max,mbid,xmmc)
{
var i;
var vnrid,ije,vt;
vnrid='0';
ije=0;
vt=''
for(i=0;i<=max;i++)
{
vt=getCheckValue(id,i);
if(vt!='')
{
vnrid=vnrid+','+vt;
vt=getCTDValue(id,i);
ije=parseFloat(ije)+parseFloat(vt);
}
}
fzxm.style.visibility ='visible';
form1.txtxmmc.value =xmmc;
form1.txtsl.value=1;
form1.txtdj.value=ije;
form1.txtje.value=ije;
form1.txtxmlxid.value =-1;
form1.txtxmid.value=mbid;
form1.txtnrid.value=vnrid;
form1.txtdj.readOnly=true;
form1.txtje.readOnly=true;
form1.txtsl.focus();
}
function getCheckValue(id,i)
{
if(window.document.getElementById('chk'+id+'f'+i)==null) return '';
if(window.document.getElementById('chk'+id+'f'+i).checked==true)
return window.document.getElementById('chk'+id+'f'+i).value;
return '';
}
function getCTDValue(id,i)
{
if(window.document.getElementById('ctd'+id+'f'+i)==null) return '0';
return window.document.getElementById('ctd'+id+'f'+i).innerText;
}
//-->
</SCRIPT>
<script language=javascript>
<!-- Begin
function setVariables() {
imgwidth=50;
imgheight=50;
if (navigator.appName == "Netscape")
{
horz=".left";
vert=".top";
docStyle="document.";
styleDoc="";
innerW="window.innerWidth";
innerH="window.innerHeight";
offsetX="window.pageXOffset";
offsetY="window.pageYOffset";
}
else
{
horz=".pixelLeft";
vert=".pixelTop";
docStyle="";
styleDoc=".style";
innerW="document.body.clientWidth";
innerH="document.body.clientHeight";
offsetX="document.body.scrollLeft";
offsetY="document.body.scrollTop";
}
}
function checkLocation() {
objectXY="fzxm";
var availableX=eval(innerW);
var availableY=eval(innerH);
var currentX=eval(offsetX);
var currentY=eval(offsetY);
//x=availableX-(imgwidth+400)+currentX;
x=0;
y=availableY-(imgheight+100)+currentY;
evalMove();
setTimeout("checkLocation()",10);
}
function evalMove() {
eval(docStyle + objectXY + styleDoc + horz + "=" + x);
eval(docStyle + objectXY + styleDoc + vert + "=" + y);
}
// End -->
</script>
<BODY leftmargin=0 topmargin=0 onload="setVariables(); checkLocation();"><FORM action="" method=POST id=form1 name=form1>
<INPUT type="hidden" id=txtxmlx name=txtxmlx ><INPUT type="hidden" id=txtxmlxid name=txtxmlxid ><INPUT type="hidden" id=txtxmid name=txtxmid >
<INPUT type="hidden" id=txtinput name=txtinput>
<INPUT type="hidden" id=txtypmc name=txtypmc>
<INPUT type="hidden" id=txtrzks name=txtrzks>
<INPUT type="hidden" id=txtxl name=txtxl>
<INPUT type="hidden" id=txtnrid name=txtnrid>
<INPUT type="hidden" id=txthsgx name=txthsgx>
<INPUT type="hidden" id=txtps name=txtps>
<TABLE WIDTH=380 BORDER=1 CELLSPACING=0 CELLPADDING=0>
<%
set rs=server.CreateObject("adodb.recordset")
ypmc=trim(Request("txtypmc"))
inputdata=trim(request("txtinput"))
txtxmlx=Request("txtxmlx")
txtxl=request("txtxl")
if txtxmlx="fyp" then
Response.Write"<tr bordercolorlight='#000000' bordercolordark='#ffffff' bgcolor='"&trBGCOLOR&"' >"
Response.Write "<TD width=16 nowrap > </TD>"
Response.Write "<TD width=220 align=center><a href=javascript:close()>×<font color='"&tableHFONTCOLOR&"'>项目名称</font></a></TD>"
Response.Write "<TD width=50 align=center><font color='"&tableHFONTCOLOR&"'>单价</font></TD>"
'Response.Write "<TD width=50 align=center><font color='"&tableHFONTCOLOR&"'>数量</font></TD>"
Response.Write "<TD width=50 align=center><font color='"&tableHFONTCOLOR&"'>备注</font></TD></TR>"
'Response.Write "<TD width=50 align=center><font color='"&tableHFONTCOLOR&"'></font></TD></TR>"
sqlcmd="select 1 as ps, xmid,xmmc,rzks,djcdy,xmlxid,dj,dw,cdw,cdj,cxmmc,csl,nrid,lbmc,zfblms,bgcolor,bz,mbid,1 as hsgx from view_XM_MB_MENU a where (a.rzks=0 or a.rzks ="&session("rzks")&") and "
sqlcmd=sqlcmd&" (a.pym LIKE '"& Request("txtypmc") &"%' or a.wbm LIKE '"& Request("txtypmc") &"%' or a.xmmc LIKE '"& Request("txtypmc") &"%'"
sqlcmd=sqlcmd&" or a.pym_bm LIKE '"& Request("txtypmc") &"%' or a.wbm_bm LIKE '"& Request("txtypmc") &"%' or a.xmmc_bm LIKE '"& Request("txtypmc") &"%' or a.xmdh LIKE '"& Request("txtypmc") &"%')"
sqlcmd=sqlcmd&" and a.xmlxID not in (7,8) and (rzks=0 or rzks="&session("rzks")&")"
sqlcmd=sqlcmd&" union all select 0 as ps, ypid as xmid,ypspm as xmmc,0 as rzks,0 as djcdy,lxid as xmlxid,lsj as dj,xdw as dw,'' as cdw,"
sqlcmd=sqlcmd&" 0 as cdj,'' as cxmmc,0 as csl, 0 as nrid ,lbmc,zfblms,bgcolor,'' as bz,0 as mbid,hsgx from view_YP_MB_MENU a where yfkc>0 and lyks="&session("rzks")
sqlcmd=sqlcmd&" and (a.pym LIKE '"& Request("txtypmc") &"%' or a.wbm LIKE '"& Request("txtypmc") &"%' or a.ypspm LIKE '"& Request("txtypmc") &"%'"
sqlcmd=sqlcmd&" or a.bmpym LIKE '"& Request("txtypmc") &"%' or a.bmwbm LIKE '"& Request("txtypmc") &"%' or a.ypdh LIKE '"& Request("txtypmc") &"%')"
'sqlcmd=sqlcmd&" union all select 2 as ps, ypid as xmid,ypspm as xmmc,0 as rzks,0 as djcdy,lxid as xmlxid,lsj as dj,xdw as dw,'' as cdw,"
' sqlcmd=sqlcmd&" 0 as cdj,'' as cxmmc,0 as csl, 0 as nrid ,lbmc,zfblms,bgcolor,'' as bz,0 as mbid,hsgx from view_CL_MB_MENU a where yfkc>0 and lyks="&session("rzks")
sqlcmd=sqlcmd&" order by ps desc, mbid desc "
'Response.Write sqlcmd
rs.Open sqlcmd,conn,3,1
dim zmc,i,j
zmc=""
i=0
j=1
if not rs.EOF then
do while not rs.EOF
if clng(rs("xmlxid"))=-1 then
if trim(zmc)<>trim(rs("xmmc")) then
i=cint(i)+1
j=50
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff' >"
Response.Write "<td colspan=1><img src='../../images/plus.gif' border='0' ALIGN='top' name='img"&clng(i)&"' id='img"&clng(i)&"' WIDTH='16' HEIGHT='16' onclick=javascript:tdonclick('"&clng(i)&"','"&clng(j)&"')></td>"
Response.Write "<Td colspan=6 style='cursor:hand' onmouseout=javascript:mouseout(this,'#ffffff') onmouseover=javascript:mouseover(this,'#ffff00')"
Response.Write " onclick=javascript:mbzd('"&clng(i)&"','"&clng(j)&"','"&rs("xmid")&"','"&rs("xmmc")&"')>"
Response.Write "<font color=red>"&rs("xmmc")&"</font></td></tr>"
j=1
end if
'-------------------------------
Response.Write "<TR bordercolorlight='#000000' bordercolordark='#ffffff'"
Response.write " id='trid"&clng(i)&"f"&clng(j)&"' name='trid"&clng(i)&"f"&clng(j)&"' style='display:none' bgcolor='"&rs("bgcolor")&"'>"
Response.Write "<td colspan=1><INPUT type=checkbox id=chk"&clng(i)&"f"&clng(j)&" name=chk"&clng(i)&"f"&clng(j)&" value='" & rs("nrid") & "' checked>"
response.write "<TD colspan=1 onclick=javascript:mbzd('"&clng(i)&"',50,'"&rs("xmid")&"','"&rs("xmmc")&"') "
Response.write " onmouseout=javascript:mouseout(this,'"&rs("bgcolor")&"') onmouseover=javascript:mouseover(this,'#ffff00') >"&rs("cxmmc")
response.write "<td nowrap>" &rs("csl")&"×"& rs("cdj")&"="&formatnumber(cdbl(rs("csl"))*cdbl(rs("cdj")),2,-1)
response.write "<td nowrap > " & rs("bz")
response.write "<td nowrap style='display:none' id='ctd"&clng(i)&"f"&clng(j)&"' name='ctd"&clng(i)&"f"&clng(j)&"' > " & formatnumber(cdbl(rs("csl"))*cdbl(rs("cdj")),2,-1)
Response.Write "</TR>"
j=cint(j)+1
'--------------------------------
zmc=trim(rs("xmmc"))
else'不从模板中取出
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff' bgcolor='"&rs("bgcolor")&"' "
Response.Write " onclick=javascript:fypzd('"&trim(rs("xmid"))& "','"&rs("xmmc")&"','"&rs("dj")&"','"&rs("rzks")&"','"&rs("djcdy")&"','"&rs("xmlxid")&"','"&rs("ps")&"','"&rs("hsgx")&"')"
Response.write " onmouseout=javascript:mouseout(this,'"&rs("bgcolor")&"') onmouseover=javascript:mouseover(this,'#ffff00') >"
Response.write "<TD> </td><td nowrap>"&trim(rs("xmmc"))
Response.write " </TD><TD nowrap>"&formatnumber(rs("dj"),2)&"/"&rs("dw")
' Response.write " </TD><TD > 1"
Response.write " </TD><TD nowrap> "&trim(rs("bz"))&" </TD></TR>"
end if
rs.MoveNext
loop
else
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff'><TD width=250 colspan=10><a href=javascript:close()>您输入的项目编码在系统中不存在！请重输！</TD>"
end if
rs.Close
end if
set rs=nothing
set conn=nothing
%>
</TABLE>
<DIV id="fzxm" style ="visibility:hidden;POSITION: absolute">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 bordercolorlight='#000000' bordercolordark='#ffffff' >
<TR bgcolor='<%=trBGCOLOR%>'><TD align=left><font color='<%=tableHFONTCOLOR%>'>项目名称</font></TD></TR>
<TR>
<TD bgcolor=#ffffff>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 bordercolorlight='#000000' bordercolordark='#ffffff' >
<TR>
<TD>项目名称</TD>
<TD><INPUT type="text" id=txtxmmc name=txtxmmc readonly></TD>
<TD>单价</TD>
<TD><INPUT type="text" id=txtdj name=txtdj readonly></TD>
</TR>
<TR>
<TD>数量</TD>
<TD><INPUT type="text" id=txtsl name=txtsl></TD>
<TD>金额</TD>
<TD><INPUT type="text" id=txtje name=txtje readonly></TD>
</TR>
<TR>
<Td align=center colspan=2><INPUT type="button" value="确定" class=buttons02 id=cmdqd name=cmdqx LANGUAGE=javascript onclick="return cmdqd_onclick()"></TD>
<TD align=center colspan=2><INPUT type="button" value="取消" class=buttons02 id=cmdqx name=cmdqx LANGUAGE=javascript onclick="return cmdqx_onclick()"></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</DIV>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -