From 18c7a44d2e9db3f4a5322389c3ee94468cce4de1 Mon Sep 17 00:00:00 2001
From: wzp <2040239371@qq.com>
Date: 星期二, 06 五月 2025 10:10:06 +0800
Subject: [PATCH] feat: 新增获取状态写入库，供广交集团的接口使用
---
inc/function.gds | 23 ++++++++++++++++++++++-
1 files changed, 22 insertions(+), 1 deletions(-)
diff --git a/inc/function.gds b/inc/function.gds
index 1f3deef..97e0a14 100644
--- a/inc/function.gds
+++ b/inc/function.gds
@@ -2929,7 +2929,28 @@
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