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