| | |
| | | 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
|
| | |
| | | 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
|