diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 6c0f04f57..2d2a45530 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2441,6 +2441,12 @@ Partial Class OC_OC
 #Region "  AGREGAR  "
     Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
 
+
+        If ModalidadSubProyectoGeneral And DdlSubProyectoGral.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe seleccionar una Sucursal", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'VALIDA CVEPS
         If DdlP2.SelectedValue().ToEntero <= 0 Then
             Alert("El campo <b>'Producto/Servicio'</b> es necesario, por favor seleccione uno.", TipoMensaje.MsgAdvertencia)
@@ -2507,6 +2513,16 @@ Partial Class OC_OC
             Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
             Dim CantidadVentaMinima As Decimal = DrPS("VentaMinima").ToString.ToDecimal
 
+            Dim CveSubProyectoVal As Integer = DdlSubProyecto.SelectedValue.ToString.ToEntero
+
+            If ModalidadSubProyectoGeneral Then
+                CveSubProyectoVal = DdlSubProyectoGral.SelectedValue.ToEntero
+                SubProyecto = DdlSubProyectoGral.SelectedItem.Text
+            End If
+
+
+
+
             If CantidadVentaMinima > 0 AndAlso TxtCant.Text.ToDecimal > 0 Then
                 If TxtCant.Text.ToDecimal Mod CantidadVentaMinima <> 0 Then
                     Alert(String.Format("El producto se vende solo en cantidades de <b>{0:####.####}</b>", CantidadVentaMinima))
@@ -2525,9 +2541,11 @@ Partial Class OC_OC
                 End If
             End If
 
+
+
             AddPS(TxtCant.Text.ToDecimal, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS,
                       CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto,
-                      DdlSubProyecto.SelectedValue.ToEntero, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer,
+                      CveSubProyectoVal, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer,
                       IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
                       DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR, CveCultivoCuadroDetalle:=DdlCultivosCuadro.SelectedValue.ToEntero, Cuadro:=DdlCultivosCuadro.SelectedItem.Text)
 
@@ -2965,9 +2983,16 @@ Partial Class OC_OC
                     TieneError = True
                 End If
 
+                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+                If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+
+                If tCveSubProyecto <= 0 Then
+                    tCveSubProyecto = GetCveSubProyectoDetalles()
+                End If
+
 
                 If Not TieneError Then ' AGREGAR REQUISICION
-                    If OC.AddOrdenCompra("REQ", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
+                    If OC.AddOrdenCompra("REQ", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CboE.SelectedValue.ToEntero, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
                                      LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
                                      RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal,
                                      RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim,
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bbc70e76d..1132fee58 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18459,7 +18459,7 @@ Partial Class Ventas
 
                 If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
 
-                TxtPrecio.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
+                TxtPrecio.Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere
 
                 If IsNumeric(TxtCantidad.Text.Trim) Then
                     LblTotalPS.Text = (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.ToDouble).ToString().FormatoNumero(2)
@@ -18715,7 +18715,7 @@ Partial Class Ventas
 
                         If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
 
-                        GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
+                        GvRow.FCTextBox("TxtPrecio").Text = PrecioSugerido.ToString("#,##0.####") ' que muestre hasta los 4 digitos si lo requiere
 
                     End If
                 End If