<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<script language=javascript>
|
<%
|
searchTXT=trim(Request("ServiceOrdNo"))
|
ServiceOrdSearchTXT=trim(Request("ServiceOrdSearchTXT"))
|
Invoice=trim(Request("Invoice"))
|
|
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=" (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)&"') "
|
searchSql=searchSql&" or (ServiceOrdID in (select ServiceOrdIDDt 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=" ServiceOrdID="&Right(searchTXT,10)&" "
|
Else
|
'searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraStreet like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%') "
|
End if
|
|
|
i=0
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if searchSql<>"" and searchTXT<>"" then
|
sql="select ServiceOrdID,ServiceOrdPtName,ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice,StretcherMoney=isnull((select top 1 StretcherMoney from DispatchOrd where DispatchOrdState not in (10) and ServiceOrdIDDt=ServiceOrdID),0),OrdPoints=(select isnull(SUM(PaidMoney),0) from PaidMoney where (ServiceOrdIDDt=ServiceOrdID) and PaidMoney_AP_Check<>-1 and PaidMoneyType=9) from ServiceOrder where "&searchSql
|
elseif len(ServiceOrdSearchTXT)>0 then
|
sql="select CarID,CarLicense,CarModels,CarState from CarData where CarState>0 order by CarID"
|
else
|
sql=""
|
end if
|
|
if sql<>"" then
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
ServiceOrdID = rs("ServiceOrdID")
|
ServiceOrdPtName = rs("ServiceOrdPtName")
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice")
|
ServiceOrdTraPaidPrice = rs("ServiceOrdTraPaidPrice")
|
StretcherMoney = rs("StretcherMoney")
|
OrdPoints = rs("OrdPoints")
|
if Invoice="1" then
|
PaidMoney = ServiceOrdTraTxnPrice+StretcherMoney
|
else
|
PaidMoney = ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice+StretcherMoney
|
end if
|
if ServiceOrdPtName="" then ServiceOrdPtName="无患者姓名"
|
end if
|
rs.close()
|
if ServiceOrdID<>"" then
|
sql="select isnull(sum(InvoiceMoney),0) from InvoiceData where AuditStatus<>4 and ServiceOrderIDPK="&ServiceOrdID
|
rs.open Sql,objConn,1,1
|
PaidMoney=PaidMoney-rs(0)
|
rs.close()
|
end if
|
end if
|
|
if ServiceOrdID<>"" then
|
%>
|
parent.JS_PaidMoneyData('<%=ServiceOrdID%>','<%=ServiceOrdPtName%>',<%=PaidMoney%>);
|
<%else%>
|
parent.JS_PaidMoneyData('','受理单号错误',0);
|
<%end if%>
|
</script>
|
<%Response.End%>
|
