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