Li piar codigo de prueba SMS - OS, poder hacer la cancelación de una OS/Pedido. cuando la OS no esté como finalizada.
This commit is contained in:
@@ -6556,21 +6556,7 @@ Namespace Modelos
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ObjFactura.TipoDocto = "Ped" Then
|
|
||||||
If Not RealizarDevolucionAlmacen.Contiene(1, 2) AndAlso TieneAlmacen Then
|
|
||||||
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
|
|
||||||
ErrorCancelar = True
|
|
||||||
MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'If RealizarDevolucionAlmacen = 2 AndAlso TieneAlmacen Then
|
|
||||||
' If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
|
|
||||||
' ErrorCancelar = True
|
|
||||||
' MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
|
|
||||||
' End If
|
|
||||||
'End If
|
|
||||||
|
|
||||||
'CANCELA CONTRATOS
|
'CANCELA CONTRATOS
|
||||||
If Not ErrorCancelar Then
|
If Not ErrorCancelar Then
|
||||||
|
|||||||
Reference in New Issue
Block a user