diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8480b35d7..505f3cb3d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6,7 +6,6 @@ Imports System.Xml
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
-Imports System.IO
 Imports System.Threading.Tasks
 Imports Newtonsoft.Json
 Imports Extensiones
@@ -20748,14 +20747,16 @@ Partial Class Compras_Compras
     Public Function ValidaPresupuesto(Opcion As Integer, Optional ValCveSubProyecto As Integer = -1, Optional ValSubProyecto As String = "", Optional ValCveClasificacion As Integer = -1, Optional ValClasificacion As String = "",
                                       Optional ValCveTipoGasto As Integer = -1, Optional ValTipoGasto As String = "", Optional ValImporte As Decimal = 0) As Boolean
 
+
         Dim respuesta As Boolean = False
 
-        If DdlTipoComprobante.SelectedValue <> "Fac" Then
-            Return True
-        End If
 
         If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
 
+            If Opcion = 1 Or OCVinculada Or DdlTipoComprobante.SelectedValue <> "Fac" Then
+                Return True
+            End If
+
             Dim ObjCon As New ClsContratos
             Dim CvePresupuesto As Integer = 0
             Dim Autorizado As Double = 0
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a2c0bd2bb..c9e87ca28 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -15,14 +15,14 @@ Partial Class Inventarios_EntregaAlmacen
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-    Private Property CveVentaAD As Integer
-        Get
-            Return CType(ViewState("CveVentaAD"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("CveVentaAD") = value
-        End Set
-    End Property
+    'Private Property CveVentaAD As Integer
+    '    Get
+    '        Return CType(ViewState("CveVentaAD"), Integer)
+    '    End Get
+    '    Set(value As Integer)
+    '        ViewState("CveVentaAD") = value
+    '    End Set
+    'End Property
     Private Property DtDatos As DataTable
         Get
             Return CType(ViewState("DtDatos"), DataTable)
@@ -468,14 +468,14 @@ Partial Class Inventarios_EntregaAlmacen
 #Region "  CARGA PARAMETROS - EXCLUSIVO USO AD  "
     Private Sub CargaParametrosAD()
 
-        CveVentaAD = -1
+        'CveVentaAD = -1
 
         'If UsuarioActual.CveUsuario <> 100 Then
         '    Exit Sub
         'End If
 
         If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then
-            CveVentaAD = Request("CveVenta").ToEntero()
+            'CveVentaAD = Request("CveVenta").ToEntero()
             CargaVentaPorSurtir(Request("CveVenta").ToEntero())
             'LbSurtida.Visible = True
             'LbSurtida.Text = "SOLO MODO VISUAL"
@@ -611,7 +611,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         Dim CveOS As Integer = GvRow.DataKey("CveOS").ToEntero
 
-        CveVentaAD = -1
+        'CveVentaAD = -1
 
         If Boton.CommandArgument.ToEntero() > 0 Then
             TimmerRefresh.Enabled = False
@@ -634,7 +634,7 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Sub
     Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
-        CveVentaAD = -2
+        'CveVentaAD = -2
         CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero())
     End Sub
     Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1)
@@ -692,7 +692,8 @@ Partial Class Inventarios_EntregaAlmacen
 
                     EsDevolucionVenta = drE("EsDevolucionVenta").ToString().ToEntero()
                     TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
-                    TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
+                    'TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
+                    TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0), 1, 2)
 
                     If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
                         TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx
index 2a72d4efd..ab915fb3e 100644
--- a/OS/Asignaciones.aspx
+++ b/OS/Asignaciones.aspx
@@ -229,9 +229,16 @@
                                         </asp:TemplateField>
                                         <asp:TemplateField ItemStyle-Width="60px" HeaderText="Hora Servicio">                                            
                                             <ItemTemplate>
-                                                 <asp:Literal ID="LtlHoraServicio" runat="server" Visible="false" Text='<%# Eval("HoraCita", "{0:t}")%>'> ></asp:Literal>
-                                                <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false" Visible="false" SelectedTimeFormat="TwentyFour" Width="60px" Height="20px" CssClass="test" >
-                                                </cc1:TimeSelector>
+                                                <table style="width:58px!important">
+                                                    <tr>
+                                                        <td style="width:58px!important">
+                                                             <asp:Literal ID="LtlHoraServicio" runat="server" Visible="false" Text='<%# Eval("HoraCita", "{0:t}")%>'> ></asp:Literal>
+                                                            <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false" Visible="false" SelectedTimeFormat="TwentyFour" Width="60px" Height="20px" CssClass="test" >
+                                                            </cc1:TimeSelector>
+                                                        </td>
+                                                    </tr>
+                                                </table>
+                                                 
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <%--11--%>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 1eafe3727..05494dc3e 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -465,7 +465,7 @@ Partial Class OS_OrdenesServicios
                 DvTxtEpisodioModal.Visible = True
                 DvTxtFolioRemisionModal.Visible = True
 
-                If CveOS > 0 And TipoEstatus >= 3 Then
+                If CveOS > 0 And TipoEstatus >= 2 Then
                     DdlUsuarioAtendio.Enabled = True
                     DVUsuarioAtendio3.Visible = True
                 End If