<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
if isDepartment("0302")=0 then
|
Response.Redirect "/"
|
Response.End()
|
end If
|
|
searchTXT=SafeRequest(trim(Request("searchTXT")))
|
OrdState=SafeRequest(Request("OrdState"))
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
PaidMoneyID=SafeRequest(Request("PaidMoneyID"))
|
OrdType=SafeRequest(Request("OrdType"))
|
UnitNameID=SafeRequest(Request("UnitNameID"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
If OrdState="" Then OrdState=0
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" Then
|
OrdClassName="未审核"
|
ElseIf OrdClassList="1" Then
|
OrdClassName="已审核"
|
Else
|
OrdClassName="全部"
|
End If
|
If OrdType="" Then OrdType=1
|
If OrdDateType="" Then OrdDateType=4
|
If OrdDateType="0" then
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=Date()
|
OrdDateEnd=Date()&" 00:00"
|
ElseIf OrdDateStart<>"" And OrdDateEnd="" Then
|
OrdDateEnd=OrdDateStart
|
ElseIf OrdDateStart="" And OrdDateEnd<>"" Then
|
OrdDateStart=OrdDateEnd
|
End If
|
If Cdate(OrdDateStart)>Cdate(OrdDateEnd) Then
|
OrdDateStart1=OrdDateStart
|
OrdDateStart=OrdDateEnd
|
OrdDateEnd=OrdDateStart1
|
End if
|
If OrdDateStart=OrdDateEnd Then
|
OrdDateStart=FORMATDATETIME(OrdDateStart,vbShortDate)
|
OrdDateTypeName=OrdDateStart
|
OrdDateTypeName1=OrdDateTypeName
|
OrdDateEnd=FORMATDATETIME(OrdDateEnd,vbShortDate)&" 23:59:59"
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&"'"
|
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType>=1 and vtitle='OrdDateType' and vID="&OrdDateType
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrdDateTypeName = rs("vtext")
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType = rs("vOrder2")
|
Else
|
OrdDateType=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="请选择需要操作的单据"
|
elseif SMT="2" then
|
SystemMessageTXT="单据状态错误或重复提交"
|
elseif SMT="23" then
|
SystemMessageTXT="费用单审核完成!!"
|
elseif SMT="24" then
|
SystemMessageTXT="费用单反审核完成!!"
|
elseif SMT="25" then
|
SystemMessageTXT="费用单作废完成!!"
|
elseif SMT="6" then
|
SystemMessageTXT="受理单号/结算方式/结算金额不可为空!!"
|
elseif SMT="7" then
|
SystemMessageTXT="新建费用单完成!!"
|
elseif SMT="8" then
|
SystemMessageTXT="单据退款重复!!"
|
end if
|
end if
|
|
|
'时间段列表
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrdDateType' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdDateTypes = OrdDateTypes & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdDateTypes = left(OrdDateTypes,len(OrdDateTypes)-1)
|
OrdDateTypesPS = SPLIT(OrdDateTypes,"|")
|
|
'单据类型表列
|
If OrdType="1" Then
|
OrdTypeName="收款单(正常单)"
|
PaidMoneyTitle="结算"
|
ElseIf OrdType="2" Then
|
OrdTypeName="收款单(特殊单)"
|
PaidMoneyTitle="结算"
|
ElseIf OrdType="3" Then
|
OrdTypeName="退款单"
|
PaidMoneyTitle="退款"
|
ElseIf OrdType="4" Then
|
OrdTypeName="作废单"
|
PaidMoneyTitle="结算"
|
OrdClassList="2"
|
OrdClassName="全部"
|
Else
|
OrdTypeName="全部"
|
PaidMoneyTitle="结算"
|
End If
|
OrdTypes = "5,全部|1,收款单(正常单)|2,收款单(特殊单)|3,退款单|4,作废单|"
|
OrdTypes = left(OrdTypes,len(OrdTypes)-1)
|
OrdTypesPS = SPLIT(OrdTypes,"|")
|
|
'单据状态表列
|
OrdClassTypes = "2,全部|0,未审核|1,已审核|"
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
|
'结算方式表列
|
If PaidMoneyID="" Or PaidMoneyID="0" Then
|
PaidMoneyName="全部"
|
PaidMoneyID=0
|
End If
|
PaidMoneyTypes = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vtitle='PaidMoneyType' and vType>0 order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
ClassName=rs("vtext")
|
vType=rs("vType")
|
If vType>1 Then
|
vTypeTXT=""
|
For I = 2 to vType
|
vTypeTXT=vTypeTXT&"--"
|
Next
|
ClassName=vTypeTXT&ClassName
|
End If
|
If CInt(PaidMoneyID)=rs("vID") Then PaidMoneyName = ClassName
|
PaidMoneyTypes = PaidMoneyTypes & rs("vID") &","& ClassName & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
PaidMoneyTypes = left(PaidMoneyTypes,len(PaidMoneyTypes)-1)
|
PaidMoneyTypesPS = SPLIT(PaidMoneyTypes,"|")
|
|
'公司列表
|
If UnitNameID<>"" Then
|
Response.Cookies("CAME")("UnitNameID")=UnitNameID
|
ElseIf UnitNameID="" And Request.Cookies("CAME")("UnitNameID")<>"" Then
|
UnitNameID=Request.Cookies("CAME")("UnitNameID")
|
End If
|
UnitNameName="全部"
|
UnitNames = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vType>=0 and vtitle='UnitName' order by vType desc,vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
UnitName=rs("vtext")
|
If rs("vType")=0 Then UnitName=UnitName&"(停用)"
|
UnitNames = UnitNames & rs("vID") &","& UnitName & "|"
|
If UnitNameID=CStr(rs("vID")) Then UnitNameName = UnitName
|
rs.movenext
|
Loop
|
rs.close()
|
UnitNames = left(UnitNames,len(UnitNames)-1)
|
UnitNamesPS = SPLIT(UnitNames,"|")
|
|
If OrdState<>"0" then
|
OrdListName = ServiceOrdStateA(OrdState)&"查询"
|
Else
|
OrdListName = OrdTypeName&"查询"
|
End If
|
|
'分公司名称列表
|
sql="select ServiceBranch,case when UnitShort='微信小程序' then '广州' else UnitShort END as UnitShort from IntroducerUnitData where ServiceBranch<>'' and UnitID<>32"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
UnitNameList = UnitNameList & rs("ServiceBranch") &","& rs("UnitShort") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
UnitNameList = left(UnitNameList,len(UnitNameList)-1)
|
UnitNameListPS = SPLIT(UnitNameList,"|")
|
|
If OrdState<>"0" then
|
OrdListName = ServiceOrdStateA(OrdState)&"查询"
|
Else
|
OrdListName = OrdTypeName&"查询"
|
End If
|
|
page_URL="&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT&"&PaidMoneyID="&PaidMoneyID&"&OrdType="&OrdType&"&UnitNameID="&UnitNameID
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="Dispatch_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5><span id="right_Menu" style="display: none;">[<a onclick="JavaScript:JS_left_Menu2('1');" style="color: #ffffff;">显示菜单</a>] </span><%If searchTXT<>"" then%>费用单查询 <%=searchTXT%><%else%><%=OrdDateTypeName1&" "&OrdListName%><%End if%></h5>
|
<ul class="links">
|
<%If isDepartment("030202")=1 Then%><li><a onclick="javascript:PaidMoneyCreate.style.display='block';">新建</a></li><%End If%>
|
<%If isDepartment("030204")=1 Then%><li><a onClick="form1_AP_1()">审核</a></li><%End If%>
|
<%If isDepartment("030204")=1 Then%><li><a onClick="form1_AP_0()">反审</a></li><%End If%>
|
<%If isDepartment("030203")=1 Then%><li><a onClick="form1_AP_2()">作废</a></li><%End If%>
|
<%If isDepartment("0302")=1 Then%><li><a HREF="PaidMoney_List_csv.gds?h_menu1_1=2<%=page_URL%>">导出</a></li><%End If%>
|
<script LANGUAGE="javascript">
|
//审核
|
function form1_AP_1(){
|
var PaidMoneyIDobj = document.getElementsByName("PaidMoneyID");
|
var num = 0;
|
var PayNum = 0;
|
var id = '';
|
for (var i = 0; i < PaidMoneyIDobj.length; i++) {
|
if (PaidMoneyIDobj[i].checked){
|
num++;
|
id=PaidMoneyIDobj[i].value;
|
Mono=document.getElementById("PaidMoneyMono_"+id).value;
|
if (Mono.indexOf("[线上退款]")>=0){PayNum++;}
|
}
|
}
|
if (PayNum>0 && num>1){
|
alert("线上退款审核每次只能处理一单");
|
}else if (PayNum>0 && num==1){
|
<%If isDepartment("030209")=1 Then%>
|
if(confirm("确定审核并发起线上退款？"))
|
{
|
var ToPaidMoney = 1;
|
PaidMoneyTypeName=document.getElementById("PaidMoneyTypeName_"+id).innerHTML;
|
PayID=Mono.substr(0,Mono.indexOf("[线上退款]"));
|
PaidMoney=document.getElementById("PaidMoney_"+id).innerHTML.substr(1);
|
ToPayID=Mono.substr(Mono.indexOf("收款编号:")+5);
|
$.ajax({
|
type: "POST",
|
dataType:'json',
|
url: "Search_PaidMoney.gds",
|
data: {
|
PaidMoneyID:ToPayID,
|
SearchType:"1"
|
},
|
success:function(data){
|
console.log(data);
|
if (data!=''){
|
if (data.result==1){
|
ToPaidMoney=data.PaidMoney;
|
if (PaidMoneyTypeName=="微信支付"){
|
//微信支付退款
|
PaidMoneyRefundURL="https://api.966120.com.cn/weixin/jingnei/example/refund.php?ReturnID=list&PaidMoneyID="+id+"&transaction_id="+PayID+"&total_fee="+(ToPaidMoney*100)+"&refund_fee="+(-PaidMoney*100);
|
//console.log(PaidMoneyRefundURL);
|
window.location.replace(PaidMoneyRefundURL);
|
}else if (PaidMoneyTypeName=="支付宝"){
|
//支付宝退款
|
PaidMoneyRefundURL="https://api.966120.com.cn/alipay/wappay/refund.php?ReturnID=list&PaidMoneyID="+id+"&WIDtrade_no="+PayID+"&total_fee="+ToPaidMoney+"&WIDrefund_amount="+(-PaidMoney)+"&WIDout_request_no="+id
|
window.location.replace(PaidMoneyRefundURL);
|
}
|
}
|
}
|
}
|
});
|
}
|
<%else%>
|
alert("缺少在线退款审核权");
|
<%end if%>
|
}else{
|
if(confirm("确定审核所选费用单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value="34"
|
document.form1.PaidMoney_Check.value="1"
|
form1.submit();
|
}
|
}
|
|
}
|
|
//反审核
|
function form1_AP_0(){
|
if(confirm("确定反审核所选费用单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value="34"
|
document.form1.PaidMoney_Check.value="0"
|
form1.submit();
|
}
|
}
|
//作废
|
function form1_AP_2(){
|
if(confirm("确定作废所选费用单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value="34"
|
document.form1.PaidMoney_Check.value="-1"
|
form1.submit();
|
}
|
}
|
|
//新建字典-关闭上传窗口
|
function JS_PaidMoneyCreateClose()
|
{
|
PaidMoneyCreate.style.display="none";
|
}
|
//新建字典-保存
|
function JS_PaidMoneyCreateSave()
|
{
|
form2.submit();
|
}
|
//受理单调单查询
|
function JS_PaidMoneySearch()
|
{
|
ServiceOrdNo=document.form2.ServiceOrdNo.value;
|
window.HiddenFrame.location.replace('Search_ServiceOrd.gds?ServiceOrdNo='+ServiceOrdNo);
|
}
|
//显示受理单数据
|
function JS_PaidMoneyData(ServiceOrdID,ServiceOrdPtName,PaidMoney)
|
{
|
document.form2.ServiceOrdPtName.value=ServiceOrdPtName;
|
document.form2.PaidMoney.value=PaidMoney;
|
document.form2.ServiceOrdID.value=ServiceOrdID;
|
}
|
//选择修改
|
function form1_Paid_Edit(id){
|
if (document.getElementById('Show_PaidMoneyMono_'+id).style.display=="none")
|
{
|
document.getElementById('Show_PaidMoneyMono_'+id).style.display='';
|
document.getElementById('Edit_PaidMoneyMono_'+id).style.display='none';
|
}
|
else
|
{
|
document.getElementById('Show_PaidMoneyMono_'+id).style.display='none';
|
document.getElementById('Edit_PaidMoneyMono_'+id).style.display='';
|
}
|
|
|
}
|
</script>
|
<div class="dialogJ dialogJfix dialogJshadow" id="PaidMoneyCreate" style="width: 370px; right: 300px; top: 150px;display:none;">
|
|
<div class="dialogJtitle">
|
<a href="javascript:JS_PaidMoneyCreateClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt" id="EditPhotoTXT">新建费用单</span>
|
</div>
|
<form id="form2" name="form2" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="35">
|
<input name="searchTXT" type="hidden" value="<%=searchTXT%>">
|
<input name="ServiceOrdID" type="hidden" value="">
|
<input name="page" type="hidden" value="<%=acc1%>">
|
<input name="OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdType" type="hidden" value="<%=OrdType%>">
|
<input name="PaidMoneyTimestamp" id="PaidMoneyTimestamp" type="hidden" value="<%=ToUnixTime(now(),+8)%>">
|
<div class="dialogJcontent">
|
<div class="dialogJbody" id="dialogJbody" style="height: 210px;">
|
<div class="modify-album-name">
|
<span>受理单号：</span>
|
<input id="ServiceOrdNo" name="ServiceOrdNo" type="text" value="<%=ServiceOrdID_TXT%>" style="width: 165px;" maxlength="99/"><input type="button" style="text-indent:initial;" class="dialogJbtn first-child" onclick="JS_PaidMoneySearch()" value="调单">
|
</div>
|
<div class="modify-album-name">
|
<span>患者姓名：</span>
|
<input id="ServiceOrdPtName" name="ServiceOrdPtName" class="valid" type="text" value="" maxlength="99/" readonly="true">
|
</div>
|
<div class="modify-album-name">
|
<span><%=PaidMoneyTitle%>方式：</span>
|
<select name="PaidMoneyType" id="PaidMoneyType" style="padding: 5px 0 5px 8px;">
|
<option value="">请选择</option>
|
<%sql="select vID,vtext from dictionary where vtitle='PaidMoneyType' and vType>=1 order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof%>
|
<option value="<%=rs("vID")%>"><%=rs("vtext")%></option>
|
<%rs.movenext
|
Loop
|
rs.close()%>
|
</select>
|
</div>
|
<div class="modify-album-name">
|
<span><%=PaidMoneyTitle%>金额：</span>
|
<input id="vMono" name="PaidMoney" type="text" value="" maxlength="99/">
|
</div>
|
<div class="modify-album-name">
|
<span><%=PaidMoneyTitle%>备注：</span>
|
<input id="vMono" name="PaidMoneyMono" type="text" value="" maxlength="99/">
|
</div>
|
</div>
|
</div>
|
</form>
|
<div class="dialogJanswers">
|
<input type="button" class="dialogJbtn first-child" onclick="JS_PaidMoneyCreateSave()" value="确定">
|
<input type="button" class="dialogJbtn" onclick="JS_PaidMoneyCreateClose()" value="取消">
|
</div>
|
</div>
|
<li>
|
<div class="search">
|
<div id="Date_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdDateType()">
|
<span class="select-content" style="width: 46px;" id="OrdDateType_span">期间：<%=OrdDateTypeName%></span><span class="arrow" id="Date_arrow"></span>
|
</div>
|
<div id="Date_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 65px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 35px;">
|
<div class="jspContainer" style="width: 63px;">
|
<div style="padding: 0px; top: 0px; width: 63px;">
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_<%=vID%>')" onclick="JS_OrdDateTypeJump2('<%=vID%>','期间：<%=vtext%>')" id="OrdDateType_<%=vID%>" class="list-option<%if vID=OrdDateType then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
<span title="自定义" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_0')" onclick="JS_OrdDateTypeCreateOpen()" id="OrdDateType_0" name="OrdDateType" class="list-option">自定义</span>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<%if isDepartment("070109")=1 then%>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="公司" '菜单名称
|
DownMenuNameID="UnitNameID" '菜单ID
|
DownMenuOldName=UnitNameName '默认值名称
|
DownMenuOldID=UnitNameID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;" id="<%=DownMenuNameID%>_span"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(UnitNamesPS)
|
UnitNamesPS1=SPLIT(UnitNamesPS(z),",")
|
vID=UnitNamesPS1(0)
|
vtext=UnitNamesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump2('<%=DownMenuNameID%>','<%=vID%>','<%=DownMenuName&"："&vtext%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<%End If%>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="单据类型" '菜单名称
|
DownMenuNameID="OrdType" '菜单ID
|
DownMenuOldName=OrdTypeName '默认值名称
|
DownMenuOldID=OrdType '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;" id="<%=DownMenuNameID%>_span"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(OrdTypesPS)
|
OrdTypesPS1=SPLIT(OrdTypesPS(z),",")
|
vID=OrdTypesPS1(0)
|
vtext=OrdTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump2('<%=DownMenuNameID%>','<%=vID%>','<%=DownMenuName&"："&vtext%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
|
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="单据状态" '菜单名称
|
DownMenuNameID="OrdClassList" '菜单ID
|
DownMenuOldName=OrdClassName '默认值名称
|
DownMenuOldID=OrdClassList '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;" id="<%=DownMenuNameID%>_span"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump2('<%=DownMenuNameID%>','<%=vID%>','<%=DownMenuName&"："&vtext%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName=PaidMoneyTitle&"方式" '菜单名称
|
DownMenuNameID="PaidMoneyID" '菜单ID
|
DownMenuOldName=PaidMoneyName '默认值名称
|
DownMenuOldID=PaidMoneyID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;" id="<%=DownMenuNameID%>_span"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(PaidMoneyTypesPS)
|
PaidMoneyTypesPS1=SPLIT(PaidMoneyTypesPS(z),",")
|
vID=PaidMoneyTypesPS1(0)
|
vtext=PaidMoneyTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump2('<%=DownMenuNameID%>','<%=vID%>','<%=DownMenuName&"："&vtext%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
<input id="DownMenuTime" type="hidden" value="">
|
</li>
|
<div class="search">
|
<form action="?" method="post">
|
<input name="OrdState" id="Menu_OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" id="Menu_OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
|
<input name="UnitNameID" id="Menu_UnitNameID" type="hidden" value="<%=UnitNameID%>">
|
<input name="OrdType" id="Menu_OrdType" type="hidden" value="<%=OrdType%>">
|
<input name="PaidMoneyID" id="Menu_PaidMoneyID" type="hidden" value="<%=PaidMoneyID%>">
|
<input name="OrdClassType" id="Menu_OrdClassType" type="hidden" value="<%=OrdClassType%>">
|
|
<input name="OrdDateType" id="Menu_OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdDateStart" id="Menu_OrdDateStart" type="hidden" value="<%=OrdDateStart%>">
|
<input name="OrdDateEnd" id="Menu_OrdDateEnd" type="hidden" value="<%=OrdDateEnd%>">
|
<div class="input">
|
<input type="text" id="searchTXT" name="searchTXT" value="<%=searchTXT%>" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
</div>
|
</form>
|
</div>
|
</ul>
|
</div>
|
<div class="dialogJ dialogJfix dialogJshadow" id="OrdDateTypeCreate" style="width: 440px;right: 80px; top: 150px;height:80px ;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_OrdDateTypeCreateClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt" id="EditPhotoTXT">请选择时间段</span>
|
</div>
|
<div class="dialogJcontent" style="margin-left: 5px;margin-right:5px;">
|
<div class="input" style="float:left;margin-top: 10px;margin-left: 5px;">
|
期间：
|
<input type="text" id="OrdDateStart" name="OrdDateStart" class="date" style="width:138px;" value="<%=OrdDateStart%>">
|
至
|
<input type="text" id="OrdDateEnd" name="OrdDateEnd" class="date" style="width:138px;" value="<%=OrdDateEnd%>">
|
<input type="button" class="dialogJbtn first-child" onclick="JS_OrdDateJump()" value="查询">
|
</div>
|
</div>
|
</div>
|
<script type="text/javascript">
|
//时间表列显示下拉菜单
|
function JS_OrdDateType(){
|
if (Date_container.className!="select-container select-container-show-list"){
|
Date_container.className="select-container select-container-show-list";
|
Date_arrow.className="arrow arrow-up";
|
Date_list.style.display="block";
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
}
|
}
|
//时间表列指针移动到下拉菜单
|
function JS_OrdDateTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
document.getElementById("OrdDateType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdDateType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//自定义时间-打开窗口
|
function JS_OrdDateTypeCreateOpen()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="block";
|
}
|
//自定义时间-关闭窗口
|
function JS_OrdDateTypeCreateClose()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="none";
|
}
|
//时间类表列转跳
|
function JS_OrdDateJump(id){
|
var OrdDateStart=document.getElementById("OrdDateStart").value;
|
var OrdDateEnd=document.getElementById("OrdDateEnd").value;
|
window.location.href='?OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&PaidMoneyID=<%=PaidMoneyID%>&OrdType=<%=OrdType%>&OrdDateType=0&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd+'&searchTXT='+document.getElementById("searchTXT").value;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
window.location.href='?OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&PaidMoneyID=<%=PaidMoneyID%>&OrdType=<%=OrdType%>&OrdDateType='+id+'&searchTXT='+document.getElementById("searchTXT").value;
|
}
|
|
//单据类型显示下拉菜单
|
function JS_OrdClassType(){
|
if (OrdClass_container.className!="select-container select-container-show-list"){
|
OrdClass_container.className="select-container select-container-show-list";
|
OrdClass_arrow.className="arrow arrow-up";
|
OrdClass_list.style.display="block";
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
}
|
}
|
//单据类型指针移动到下拉菜单
|
function JS_OrdClassTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
%>
|
document.getElementById("OrdClassType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdClassType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//时间表列转跳
|
function JS_OrdClassTypeJump(id){
|
window.location.href='?OrdState=<%=OrdState%>&OrdDateType=<%=OrdDateType%>&PaidMoneyID=<%=PaidMoneyID%>&OrdType=<%=OrdType%>&OrdClassList='+id+'&searchTXT='+document.getElementById("searchTXT").value;
|
}
|
|
</script>
|
<!-- end box / title -->
|
<%
|
acc1=request("page")
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
if searchTXT<>"" Then
|
searchSql=" and PaidMoneyTime "&SqlOrdDateType&" "
|
If OrdClassList="0" Then
|
searchSql=searchSql&" and PaidMoney_AP_Check=0 "
|
ElseIf OrdClassList="1" Then
|
searchSql=searchSql&" and PaidMoney_AP_Check=1 "
|
End If
|
|
If Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
|
searchSql=" and (ServiceOrdID in (select ServiceOrdID from ServiceOrder where ServiceOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"') or DispatchOrdIDDt in (select DispatchOrdID from DispatchOrd where DispatchOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"'))"
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" and (ServiceOrdID="&Right(searchTXT,10)&" or DispatchOrdIDDt="&Right(searchTXT,10)&") "
|
ElseIf (Len(searchTXT)=8 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Right(searchTXT,6))) Or (Len(searchTXT)=6 And IsNumeric(Right(searchTXT,6))) Then
|
searchSql=" and PaidMoney.id="&Right(searchTXT,6)&" "
|
Else
|
sql="select OA_User_ID from OA_User where OA_Name='"&searchTXT&"'"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
searchSql=searchSql&" and PaidMoneyOaID="&rs(0)
|
Else
|
searchSql=" and (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or PaidMoneyMono like '%"&searchTXT&"%') "
|
End If
|
rs.close()
|
End if
|
else
|
searchSql=" and PaidMoneyTime "&SqlOrdDateType&" "
|
If OrdClassList="0" Then
|
searchSql=searchSql&" and PaidMoney_AP_Check=0 "
|
ElseIf OrdClassList="1" Then
|
searchSql=searchSql&" and PaidMoney_AP_Check=1 "
|
End If
|
If OrdType="1" Then
|
searchSql=searchSql&" and PaidMoney>0 and vType>=1 and ServiceOrdType in (select vID from dictionary where (vType=1 and vID<>7) and vtitle='ServiceOrderType') "
|
ElseIf OrdType="2" Then
|
searchSql=searchSql&" and PaidMoney>0 and vType>=1 and ServiceOrdType in (select vID from dictionary where (vType=2 or vID=7) and vtitle='ServiceOrderType') "
|
ElseIf OrdType="3" Then
|
searchSql=searchSql&" and PaidMoney<0 "
|
ElseIf OrdType="4" Then
|
searchSql=searchSql&" and PaidMoney_AP_Check=-1 "
|
End If
|
If PaidMoneyID<>"" And PaidMoneyID<>"0" Then
|
searchSql=searchSql&" and PaidMoneyType="&PaidMoneyID&" "
|
End If
|
end If
|
|
'人员列表
|
sql="select vID,vtext from dictionary where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
|
rs.open sql,objConn,1,1
|
i=0
|
EntourageIDs=""
|
do while not rs.Eof
|
EntourageID = rs("vID")
|
EntourageName= rs("vtext")
|
EntourageNames=EntourageNames&","&EntourageName
|
EntourageIDs=EntourageIDs&","&EntourageID
|
i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
EntourageNamePS = SPLIT(EntourageNames,",")
|
EntourageIDPS = SPLIT(EntourageIDs,",")
|
|
sql="select PaidMoney.*,vtext,ServiceOrdPtName,ServiceOrdClass,ServiceOrdID,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdPtOutHosp,ServiceOrdPtInHosp,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo,DispatchOrd_OAName from dictionary,PaidMoney LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID LEFT JOIN DispatchOrd on DispatchOrdIDDt=DispatchOrdID where vtitle='PaidMoneyType' and vType>=1 and vID=PaidMoneyType "&searchSql&" and ServiceOrdClass in ('"&OrdClassListSql&"') order by PaidMoneyTime desc"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table" style="overflow:auto">
|
<form id="form1" name="form1" action="" method="post">
|
<input name="admin_save" type="hidden" value="34">
|
<input name="PaidMoney_Check" type="hidden" value="">
|
<input name="searchTXT" type="hidden" value="<%=searchTXT%>">
|
<input name="page" type="hidden" value="<%=acc1%>">
|
<input name="OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdType" type="hidden" value="<%=OrdType%>">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<th class="selected"><input type="checkbox" class="checkall" /></th>
|
<th>单据编号</th>
|
<th>收款日期</th>
|
<th>受理单号</th>
|
<th>相关调度单</th>
|
<th>所属公司</th>
|
<th>出车人员</th>
|
<th>金额</th>
|
<th><%=PaidMoneyTitle%>方式</th>
|
<th><%=PaidMoneyTitle%>备注</th>
|
<th>开单人</th>
|
<th>审核</th>
|
<th>审核人</th>
|
<th>审核日期</th>
|
<th class="last">转出/转入医院</th>
|
</tr>
|
</thead>
|
<tbody>
|
|
<%i=1
|
do while not rs.Eof and i<=QuantityInt
|
PaidMoneyID = rs("id") '费用单号
|
PaidMoneyClass = rs("PaidMoneyClass") '单据类型
|
ServiceOrdID = rs("ServiceOrdID") '对应服务单号
|
ServiceOrdClass = rs("ServiceOrdClass") '对应服务单类型
|
DispatchOrdIDDt = rs("DispatchOrdIDDt") '对应调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '对应调度单类型
|
ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名
|
PaidMoney = rs("PaidMoney") '金额
|
PaidMoneyType = rs("PaidMoneyType") '结算方式ID
|
PaidMoneyTypeName = rs("vtext") '结算方式
|
PaidMoneyMono = rs("PaidMoneyMono") '收款备注(收款类型和结算账号等)
|
PaidMoneyTime = rs("PaidMoneyTime") '开单/收款时间
|
PaidMoneyOaID = rs("PaidMoneyOaID") '开单人/收款人ID
|
|
PaidMoney_AP_Check= rs("PaidMoney_AP_Check") '审核状态(0未审核,1已审核)
|
PaidMoney_AP_ID = rs("PaidMoney_AP_ID") '审核人员ID
|
PaidMoney_AP_Time = rs("PaidMoney_AP_Time") '审核时间
|
|
DispatchOrd_OAName= rs("DispatchOrd_OAName")
|
|
ServiceOrdPtOutHosp=rs("ServiceOrdPtOutHosp") '转出医院
|
If IsNumeric(ServiceOrdPtOutHosp) And ServiceOrdPtOutHosp<>"" And Len(ServiceOrdPtOutHosp)<10 then
|
sql="select vtext from dictionary where vType=1 and vtitle='HospName' and vID="&ServiceOrdPtOutHosp
|
rsDt.open sql,objConn,1,1
|
If not rsDt.Eof Then
|
ServiceOrdPtOutHospTXT=rsDt("vtext")
|
Else
|
ServiceOrdPtOutHospTXT=ServiceOrdPtOutHosp
|
End If
|
rsDt.close()
|
Else
|
ServiceOrdPtOutHospTXT=ServiceOrdPtOutHosp
|
End If
|
If ServiceOrdPtOutHospTXT="0" Then ServiceOrdPtOutHospTXT=""
|
|
ServiceOrdPtInHosp= rs("ServiceOrdPtInHosp") '转入医院ID
|
If IsNumeric(ServiceOrdPtInHosp) And ServiceOrdPtInHosp<>"" And Len(ServiceOrdPtInHosp)<10 then
|
sql="select vtext from dictionary where vType=1 and vtitle='HospName' and vID="&ServiceOrdPtInHosp
|
rsDt.open sql,objConn,1,1
|
If not rsDt.Eof Then
|
ServiceOrdPtInHospTXT=rsDt("vtext")
|
Else
|
ServiceOrdPtInHospTXT=ServiceOrdPtInHosp
|
End If
|
rsDt.close()
|
Else
|
ServiceOrdPtInHospTXT=ServiceOrdPtInHosp
|
End If
|
If ServiceOrdPtInHospTXT="0" Then ServiceOrdPtInHospTXT=""
|
|
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3) '服务单编号
|
If DispatchOrdIDDt<>"0" Then
|
DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号
|
DispatchOrdURL = "DispatchOrder.gds?DispatchOrdID="&DispatchOrdIDDt&"&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList&"&h_menu1_1=1"
|
Else
|
DispatchOrdNo = "--"
|
DispatchOrdURL = "#"
|
End If
|
|
If not isnull(PaidMoney_AP_Time) And PaidMoney_AP_Time<>"" Then PaidMoney_AP_Time=FORMATDATETIME(PaidMoney_AP_Time,vbShortDate)
|
i=i+1
|
|
%>
|
<tr style="white-space: nowrap;">
|
<td class="selected"><input type="checkbox" id="PaidMoneyID_<%=PaidMoneyID%>" name="PaidMoneyID" onclick="javascript:form1_Paid_Edit('<%=PaidMoneyID%>')" value="<%=PaidMoneyID%>"/></td>
|
<td class="category"><A HREF="ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1" target="_blank"><%=PaidMoneyClass&PaidMoneyID%></A></td>
|
<td class="category"><%=FORMATDATETIME(PaidMoneyTime,vbShortDate)%></td>
|
<td class="category"><A HREF="ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1" target="_blank"><%=ServiceOrdNo%></A></td>
|
<td class="category"><A HREF="<%=DispatchOrdURL%>" target="_blank"><%=DispatchOrdNo%></A></td>
|
<td class="category">
|
<%for z = 0 to UBOUND(UnitNameListPS)
|
UnitNameListPS1=SPLIT(UnitNameListPS(z),",")
|
vID=UnitNameListPS1(0)
|
vtext=UnitNameListPS1(1)
|
If UnitNameListPS1(0)=ServiceOrdClass Then
|
Response.Write UnitNameListPS1(1)
|
End If
|
next%>
|
</td>
|
<td class="category category2" style="text-align: left;line-height: 13px;">
|
<%
|
If DispatchOrd_OAName<>"" Then
|
DispatchOrd_OANamePS = SPLIT(DispatchOrd_OAName,",")
|
for j = 0 to UBOUND(DispatchOrd_OANamePS)
|
Response.Write DispatchOrd_OANamePS(j)&"<br>"
|
Next
|
End If
|
'for j = 1 to UBOUND(EntourageIDPS)
|
' EntourageID = EntourageIDPS(j)
|
' EntourageName = EntourageNamePS(j)
|
' EntourageOAName=EntourageOANameA(EntourageID,DispatchOrdIDDt,"UserNameList")
|
' If EntourageOAName<>"" Then Response.Write Replace(EntourageOAName,"EntourageName","（"&EntourageName&"）")&"<br>"
|
'Next
|
'If EntourageName_aid1<>"" Then Response.Write EntourageName_aid1&"（外援人员）<br>"
|
'If EntourageName_aid2<>"" Then Response.Write EntourageName_aid2&"（外援人员）<br>"
|
%>
|
</td>
|
<td class="category" id="PaidMoney_<%=PaidMoneyID%>"><%=MoneyCheck(PaidMoney,1)%></td>
|
<td class="category" id="PaidMoneyTypeName_<%=PaidMoneyID%>"><%=PaidMoneyTypeName%></td>
|
<td class="category" id="Show_PaidMoneyMono_<%=PaidMoneyID%>" style="min-width:250px;"><%=PaidMoneyMono%></td>
|
<td class="category" id="Edit_PaidMoneyMono_<%=PaidMoneyID%>" style="display:none;"><input id="PaidMoneyMono_<%=PaidMoneyID%>" name="PaidMoneyMono_<%=PaidMoneyID%>" class="small" style="width:250px;text-align: center;" value="<%=PaidMoneyMono%>" type="text"></td>
|
<td class="category"><%=OAUser(PaidMoneyOaID,"UserName")%></td>
|
<td class="category"><%=AP_Check_A(PaidMoney_AP_Check)%></td>
|
<td class="category"><%=OAUser(PaidMoney_AP_ID,"UserName")%></td>
|
<td class="category"><%=PaidMoney_AP_Time%></td>
|
<td class="category category2 last left" style="line-height: 13px;"><span style='color: #E91E63;'><%=ServiceOrdPtOutHospTXT%></span><br><span style='color: #4CAF50;'><%=ServiceOrdPtInHospTXT%></span></td>
|
</tr>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
<%for j=i to 20%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
<!-- pagination -->
|
<div class="pagination pagination-left">
|
<div class="results">
|
<%
|
ShowingLeast = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1>=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif i=2 or i=acc2-1 then
|
acc4=acc4&",0"
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if acc4SP(i)="0" then%>
|
<li class="separator">...</li>
|
<%elseif acc1=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%><%=page_URL%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if acc1>=acc2 then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</form>
|
</div>
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
