From ff856516da7ebdb6a024408b609a8aadf8a22002 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 8 Oct 2019 11:41:00 -0700
Subject: [PATCH] Tipo Docto ingresos en surtir garantia

---
 Contratos/Contrato.aspx.vb           | 20 ++++++++++----------
 Inventarios/RecepcionEntrega.aspx.vb |  2 +-
 2 files changed, 11 insertions(+), 11 deletions(-)

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