From a023d5daed320eb4dbf6cfb8c28529d41cf5f9c3 Mon Sep 17 00:00:00 2001
From: wzp <2040239371@qq.com>
Date: 星期三, 14 五月 2025 09:37:30 +0800
Subject: [PATCH] fix:优化广交集团的函数
---
inc/function.gds | 53 +++++++++++++++++++++++++++++++----------------------
1 files changed, 31 insertions(+), 22 deletions(-)
diff --git a/inc/function.gds b/inc/function.gds
index 97e0a14..3a1cf97 100644
--- a/inc/function.gds
+++ b/inc/function.gds
@@ -2885,6 +2885,36 @@
Function Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
If ServiceOrdID<>"" Then
sysUnix=ToUnixTime(now(),+8)
+
+ ' 鏂板鑾峰彇鐘舵�佸啓鍏ュ簱锛屼緵骞夸氦闆嗗洟鐨勬帴鍙ｄ娇鐢ㄣ��
+ sql = "select ServiceOrdTraTxnPrice from ServiceOrder where ServiceOrdID=" & ServiceOrdID
+ rs.open sql, objConn, 1, 1
+
+ If Not rs.Eof Then
+ ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice")
+
+ If ServiceOrdState = "4" Or ServiceOrdState = "5" Then
+ msg = "鏃犳晥鍙栨秷"
+ ElseIf ServiceOrdTraTxnPrice > 0 And ServiceOrdState <> "4" And ServiceOrdState <> "5" Then
+ ' msg = "宸叉姤浠� " & ServiceOrdTraTxnPrice
+ msg = "宸叉姤浠�"
+ Else
+ msg = "鏈姤浠�"
+ End If
+
+ If DispatchOrdState <> "" Then
+ msg = DispatchOrdStateA(DispatchOrdState)
+ End If
+
+ ' 鎻掑叆鏁版嵁鍒� A_OrderStatus 琛�
+ sql = "INSERT INTO [came].[dbo].[A_OrderStatus] ([serviceOrdID], [msg], [updateTime], [flag]) " & _
+ "VALUES (" & ServiceOrdID & ", '" & msg & "', GETDATE(), 0)"
+ objConn.Execute sql
+ End If
+
+ rs.close()
+
+
If ServiceOrdUnitID="2" Then '鍖绘姢閫氬钩鍙�
url="http://www.emtsos.com/emtApi.do" '//瀹氫箟瑕佽幏鍙栨簮浠ｇ爜鐨勭綉鍧�锛屼竴鑸槸閫氳繃鍙橀噺浼犻�掕繃鏉�
sql="select ServiceOrdTraTxnPrice from ServiceOrder where ServiceOrdID="&ServiceOrdID
@@ -2929,28 +2959,7 @@
End If
rs.close()
Else
- '//鏂板鑾峰彇鐘舵�佸啓鍏ュ簱锛屼緵骞夸氦闆嗗洟鐨勬帴鍙ｄ娇鐢ㄣ��
- sql="select ServiceOrdTraTxnPrice from ServiceOrder where ServiceOrdID="&ServiceOrdID
- rs.open sql,objConn,1,1
- If not rs.Eof Then
- ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
- If ServiceOrdState="4" Or ServiceOrdState="5" Then
- msg="鏃犳晥鍙栨秷"
- ElseIf ServiceOrdTraTxnPrice>0 And ServiceOrdState<>"4" And ServiceOrdState<>"5" Then
- msg="宸叉姤浠� "&ServiceOrdTraTxnPrice
- 'msg="宸叉姤浠�"
- Else
- msg="鏈姤浠�"
- End If
-
- If DispatchOrdState<>"" Then msg=DispatchOrdStateA(DispatchOrdState)
-
- ' 鎻掑叆鏁版嵁鍒� A_OrderStatus 琛�
- sql = "INSERT INTO [came].[dbo].[A_OrderStatus] ([serviceOrdID], [msg], [updateTime], [flag]) " & _
- "VALUES (" & ServiceOrdID & ", '" & msg & "', GETDATE(), 0)"
- objConn.Execute sql
- End If
- rs.close()
+
End If
End If
End Function
--
Gitblit v1.9.1