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