From 1ce68427c1d414c39261a26bca710fbf4fd9a6e5 Mon Sep 17 00:00:00 2001
From: hzj <1831054011@qq.com>
Date: 星期四, 14 八月 2025 09:56:11 +0800
Subject: [PATCH] feat:新增旧单据编号搜索单据和修改福祉车价格计算
---
OrdSearch.gds | 19 +++++++++++++++++++
1 files changed, 19 insertions(+), 0 deletions(-)
diff --git a/OrdSearch.gds b/OrdSearch.gds
index 5753390..1b0db3e 100644
--- a/OrdSearch.gds
+++ b/OrdSearch.gds
@@ -45,6 +45,25 @@
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
ElseIf OrdSearchType="1" And Len(searchTXT)=5 And IsNumeric(searchTXT) Then
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Right("0"&Month(now()),2)&"-"&Mid(searchTXT,1,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
+ ElseIf Len(searchTXT)=14 And Mid(searchTXT,11,1)="-" Then
+ searchSql=" Old_ServiceOrdID_TXT='"&searchTXT&"' "
+ ' 濡傛灉閫氳繃Old_ServiceOrdID_TXT鎵惧埌璁板綍锛屽垯浣跨敤ServiceOrdID閲嶆柊鎼滅储
+ Set rsOld = Server.CreateObject("ADODB.Recordset")
+ rsOld.Open "select top 1 ServiceOrdID from ServiceOrder where " & searchSql, objConn, 1, 1
+ If Not rsOld.EOF Then
+ Dim foundServiceOrdID
+ foundServiceOrdID = rsOld("ServiceOrdID")
+ rsOld.Close
+ Set rsOld = Nothing
+ ' 浣跨敤鎵惧埌鐨凷erviceOrdID閲嶆柊鎼滅储
+ Response.Redirect "/ServiceOrder_List.gds?h_menu1_1=1&UnitNameID=0&OrdClassList=0&searchTXT="&foundServiceOrdID
+ Response.End()
+ Else
+ rsOld.Close
+ Set rsOld = Nothing
+ ' 鍘熸湁14浣嶇紪鍙锋媶鍒嗛�昏緫
+ 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)&"' "
+ End If
ElseIf 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)&"' "
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
--
Gitblit v1.9.1