fix:优化广交集团的函数

wzp

2025-05-14 a023d5daed320eb4dbf6cfb8c28529d41cf5f9c3

fix:优化广交集团的函数

 admin_save.gds

@@ -3493,7 +3493,7 @@
    End If

    rs.close()

End If

'Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)

Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)



'更新提成数据

Call EntourageDKP_Money_C2(DispatchOrdID)


 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