diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 42152cd32..8e01e82c8 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -1755,11 +1755,11 @@ Partial Class Contratos_Default
             Gv.Columns(3).Visible = False
             Gv.Columns(9).Visible = False
         End If
-        If (Gv.Rows.Count > 0) Then
-            Gv.UseAccessibleHeader = True
-            Gv.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestos();")
-        End If
+        'If (Gv.Rows.Count > 0) Then
+        '    Gv.UseAccessibleHeader = True
+        '    Gv.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestos();")
+        'End If
         UpGV.Update()
     End Sub
     Protected Sub BtnAutorizar_Click(sender As Object, e As EventArgs) Handles BtnAutorizar.Click
@@ -2020,11 +2020,11 @@ Partial Class Contratos_Default
         GvInsumos.DataSource = DtTemp
         DtSuministros = DtTemp
         GvInsumos.DataBind()
-        If (GvInsumos.Rows.Count > 0) Then
-            GvInsumos.UseAccessibleHeader = True
-            GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGVPresupuestosInsumos();")
-        End If
+        'If (GvInsumos.Rows.Count > 0) Then
+        '    GvInsumos.UseAccessibleHeader = True
+        '    GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGVPresupuestosInsumos();")
+        'End If
         UpGVInsumos.Update()
     End Sub
 
diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb
index 8bb30551f..eb89b8e82 100644
--- a/Inventarios/RecepcionEntrega.aspx.vb
+++ b/Inventarios/RecepcionEntrega.aspx.vb
@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
             '' TERMINA: APARTADOS
 
             ' COMIENZA: GARANTIAS
-            If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
+            If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
 
                 Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
                 Dim DtGarantias As DataTable = Nothing