From 4c4fdd75d42d20a75e018ade3c3f86969de47b79 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 9 Dec 2024 10:05:50 -0700
Subject: [PATCH] =?UTF-8?q?--=20validaci=C3=B3n=20adicional=20cuando=20es?=
 =?UTF-8?q?=20de=20una=20solo=20sucursal=20la=20OC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 2b6d48e9c..81e15d68b 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2748,6 +2748,13 @@ Partial Class OC_OC
             TieneError = True
         End If
 
+        If ModalidadSubProyectoGeneral Then
+            Dim t As Integer = DtDetalle.COUNT("CvePS", $"CveSubProyecto <> {DdlSubProyectoGral.SelectedValue}")
+            If t > 0 Then
+                Alert("Se tienen partidas de diferentes Sucursales.", TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+        End If
 
         'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
@@ -4054,12 +4061,10 @@ Partial Class OC_OC
                     e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
                     e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
                 End If
-
             Catch ex As Exception
 
             End Try
 
-
             If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
 
                 If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then