Validar almacen en pedidos de la E72

2020-06-23 17:38:11 -07:00
parent 0c5fcc1e83
commit 5166e6df4a
1 changed files with 9 additions and 0 deletions
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4233,6 +4233,15 @@ Namespace Modelos
                Return Retorno
            End If

+            'VALIDACION DE PEDIDOS: SI ESTA ENTEGADO NO SE PUEDA CANCELAR
+            If UsuarioActual.CveEmpresa = 72 AndAlso ObjFactura.TipoDocto = "Ped" AndAlso TieneAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
+                Retorno.Mensaje = "El pedido no se puede cancelar debido ha que ya fue entregado."
+                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
+
+                Return Retorno
+            End If
+
+
            Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)

            Dim CancelacionFecha As Date