From 5166e6df4a2b04f690fdb901a5e62250287c0667 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 23 Jun 2020 17:38:11 -0700
Subject: [PATCH] Validar almacen en pedidos de la E72

---
 App_Code/Modelos.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index a09a7d7e1..dd42bdcb9 100644
--- 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