<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
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,ServiceOrdCoName,ServiceOrdCoPhone,StretcherMoney=isnull((select top 1 StretcherMoney from DispatchOrd where DispatchOrdState not in (10) and ServiceOrdIDDt=ServiceOrdID),0),InvoiceMoney=isnull((select sum(InvoiceMoney) InvoiceDataInvoiceData from InvoiceData where AuditStatus<>4 and ServiceOrderIDPK=ServiceOrdID),0) 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")
|
ServiceOrdCoName = rs("ServiceOrdCoName")
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone")
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice")
|
ServiceOrdTraPaidPrice = rs("ServiceOrdTraPaidPrice")
|
StretcherMoney = rs("StretcherMoney")
|
InvoiceMoney = rs("InvoiceMoney") '已申请开票金额
|
if Invoice="1" then
|
PaidMoney = ServiceOrdTraTxnPrice+StretcherMoney-InvoiceMoney
|
else
|
PaidMoney = ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice+StretcherMoney
|
end if
|
if ServiceOrdPtName="" then ServiceOrdPtName="无患者姓名"
|
end if
|
rs.close()
|
end if
|
|
if ServiceOrdID<>"" then
|
webJson="{""result"":1,""ServiceOrdID"":"&ServiceOrdID&",""ServiceOrdPtName"":"""&ServiceOrdPtName&""",""ServiceOrdCoName"":"""&ServiceOrdCoName&""",""ServiceOrdCoPhone"":"""&ServiceOrdCoPhone&""",""PaidMoney"":"&PaidMoney&"}"
|
else
|
webJson="{""result"":2}"
|
end if
|
|
Response.Write webJson
|
Response.End
|
%>
|
