diff --git a/OC/OC.aspx b/OC/OC.aspx
index 43cf81b0b..fb4310c97 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -227,6 +227,12 @@
                                                     OnSelectedIndexChanged="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                                 </asp:DropDownList>
+
+                                                <asp:RequiredFieldValidator ID="RfvDdlSubProyectoGral" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoGral" Display="None" 
+                                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyectoGral" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyectoGral" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
                                             </div>
                                         </div>
                                     </ContentTemplate>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index bc28ee13c..6c0f04f57 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3200,7 +3200,16 @@ Partial Class OC_OC
             End If
 
 
-            If OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
+            Dim tCveSubProyectoVal As Integer = -1
+            If ModalidadSubProyectoGeneral Then
+                tCveSubProyectoVal = DdlSubProyectoGral.SelectedValue.ToEntero
+                If tCveSubProyectoVal <= 0 Then
+                    tCveSubProyectoVal = GetCveSubProyectoDetalles()
+                End If
+            End If
+
+
+            If OC.UpdateOrdenCompra(tCveSubProyectoVal, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                     LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero,
                                     DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1),
                                     Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto,
@@ -9969,9 +9978,9 @@ Partial Class OC_OC
 
         If Respuesta Then
             If Recargar Then
-                Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}  CveMovmiento: {CveMovimiento}", TipoMensaje.MsgInformacion, "window.location.reload();")
+                Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}", TipoMensaje.MsgInformacion, "window.location.reload();")
             Else
-                Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}  CveMovmiento: {CveMovimiento}", TipoMensaje.MsgInformacion)
+                Alert($"Movimiento Guardado Correctamente Folio:{FolioMto}", TipoMensaje.MsgInformacion)
             End If
 
         End If