| | |
|---|
| | | End If
|
|---|
| | | rs.close()
|
|---|
| | |
|
|---|
| | | If (ServiceOrdCoName<>"" Or submitOrdValue<>"1") And 1=2 Then '新订单第一步不提示(2024.8.5)
|
|---|
| | | If (ServiceOrdCoName<>"" Or submitOrdValue<>"1") Then
|
|---|
| | | If NC_OAIDs<>"" Then
|
|---|
| | | If Mid(NC_OAIDs,1,1)="," Then NC_OAIDs=Mid(NC_OAIDs,2)
|
|---|
| | | If Right(NC_OAIDs,1)="," Then NC_OAIDs=Mid(NC_OAIDs,1,Len(NC_OAIDs)-1)
|
|---|
| | |
|---|
| | | errcode=40503
|
|---|
| | | errmsg="服务单已取消"
|
|---|
| | | ElseIf Left(errcode,1)<>"4" Then
|
|---|
| | | sql="update ServiceOrder set ServiceOrdState=4,ServiceOrdPoints=0,ServiceOrd_AP_ID=0,ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason=9,ServiceOrdCancelReasonTXT='"&DELRemarks&"' where ServiceOrdID="&ServiceOrdID
|
|---|
| | | sql="update ServiceOrder set ServiceOrdState=4,ServiceOrdPoints=0,ServiceOrd_AP_ID=0,ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason=9,ServiceOrdOperationRemarks='',ServiceOrdCancelReasonTXT='"&DELRemarks&"' where ServiceOrdID="&ServiceOrdID
|
|---|
| | | objConn.Execute sql
|
|---|
| | | sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID&" and ToUserID="&UserID
|
|---|
| | | objConn.Execute sql
|
|---|
