From 84cadf0c7a1278020a24170710c1debc041384c3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 28 Feb 2024 08:01:06 -0700
Subject: [PATCH 1/2] - mejoras

---
 Acumuladores/RepRecolecciones.aspx    | 12 +++---------
 Acumuladores/RepRecolecciones.aspx.vb | 12 ++++++++----
 2 files changed, 11 insertions(+), 13 deletions(-)

diff --git a/Acumuladores/RepRecolecciones.aspx b/Acumuladores/RepRecolecciones.aspx
index 41bc2c2c7..cec6b1743 100644
--- a/Acumuladores/RepRecolecciones.aspx
+++ b/Acumuladores/RepRecolecciones.aspx
@@ -13,14 +13,7 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UpAgregar">
-        <ContentTemplate>
-            <li>
-                <asp:LinkButton runat="server" ID="BtnAgregarTiposUso" data-toggle="tooltip" data-placement="left" title="Agregar Tipo de Uso" Text="<i class='fa fa-plus'></i> Agregar Uso"></asp:LinkButton>
-            </li>
-
-        </ContentTemplate>
-    </asp:UpdatePanel>
+    
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -78,6 +71,7 @@
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlEstatus" CssClass="select2me" runat="server">
                                     <asp:ListItem Text="Vigente" Value="0" Selected="True"></asp:ListItem>
+                                    <asp:ListItem Text="Clasificado" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Cerrado" Value="2"></asp:ListItem>
                                     <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
@@ -148,7 +142,7 @@
                                 </asp:TemplateField>
                                  <asp:TemplateField HeaderText="">
                                     <ItemTemplate>
-                                        <asp:HyperLink ID="HplR" runat="server" visible="false" AlternateText="Registrar" ToolTip="Registrar entrada" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-location-arrow'></i>" />
+                                        <asp:HyperLink ID="HplR" runat="server" Target="_blank" visible="false" AlternateText="Registrar" ToolTip="Registrar entrada" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-location-arrow'></i>" />
                                         <asp:HyperLink ID="HplEnt" runat="server" NavigateUrl='<%# Eval("CveMovimientoEntrada", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}") %>' CssClass="Texto" Text='<%# Eval("FolioEntrada") %>' />
                                     </ItemTemplate>
                                 </asp:TemplateField>
diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb
index 2e12087c5..a54114ae5 100644
--- a/Acumuladores/RepRecolecciones.aspx.vb
+++ b/Acumuladores/RepRecolecciones.aspx.vb
@@ -142,8 +142,10 @@ Partial Class Acumuladores_RepRecolecciones
         UpModalRecoleccion.Update()
     End Sub
     Private Function InitDTRecoleccion() As DataTable
+        Dim Columnaid = New DataColumn() With {.ColumnName = "CveEntregaAlmacenDetalle", .DataType = Type.GetType("System.Int32"), .AutoIncrement = True, .AutoIncrementSeed = 1, .AutoIncrementStep = 1}
+
         Dim DT As DataTable = New DataTable()
-        DT.Columns.Add("CveEntregaAlmacenDetalle", System.Type.[GetType]("System.Int32"))
+        DT.Columns.Add(Columnaid)
         DT.Columns.Add("CveEntregaAlmacen", System.Type.[GetType]("System.Int32"))
         DT.Columns.Add("CvePS", System.Type.[GetType]("System.Int32"))
         DT.Columns.Add("Cantidad", System.Type.[GetType]("System.Double"))
@@ -178,7 +180,6 @@ Partial Class Acumuladores_RepRecolecciones
     Protected Sub LnkModalAgregarPS_Click(ByVal sender As Object, ByVal e As EventArgs)
 
         Dim dRow As DataRow = DTRecoleccion.NewRow()
-        dRow("CveEntregaAlmacenDetalle") = -1
         dRow("CveEntregaAlmacen") = CveEntregaAlmacen
         dRow("CvePS") = DdlProducto2.SelectedValue.ToEntero()
         dRow("Cantidad") = TxtModalRecoleccionCantidad.Text.ToEntero()
@@ -186,7 +187,7 @@ Partial Class Acumuladores_RepRecolecciones
         dRow("CveUsuario") = UsuarioActual.CveUsuario
         dRow("FechaIng") = NowADS()
         dRow("CodigoPS") = DdlProducto2.SelectedItem.Text
-        dRow("Abreviatura") = DdlModalRecoleccionUnidad.SelectedItem.Text
+        dRow("Abreviatura") = If(DdlModalRecoleccionUnidad.SelectedItem IsNot Nothing, DdlModalRecoleccionUnidad.SelectedItem.Text, "")
         DTRecoleccion.Rows.Add(dRow)
 
         LimpiarControlesPS()
@@ -272,14 +273,17 @@ Partial Class Acumuladores_RepRecolecciones
 
         If Not ErrorMovInv Then
             ObjInventario.Commit()
-            GvR.DataBind()
+            GvModalPSRecoleccion.DataBind()
+
             DTRecoleccion.Clear()
+            RegistraScript("$('#DivModalRecoleccion').modal('hide');")
 
             Dim MensajeAlert As New StringBuilder
             MensajeAlert.Append("Se realizó con éxito el traspaso.")
             MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" class='Texto' target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
             'MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto'  href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
             Alert(MensajeAlert.ToString)
+            CargaDatos()
         Else
             ObjInventario.RollBack()
         End If

From d8fa4bd29a2f42b23ed551300deca350a07a1c8c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 28 Feb 2024 08:01:38 -0700
Subject: [PATCH 2/2] -- extension tobool

---
 App_Code/modExtensiones.vb             | 9 +++++++++
 Transportes/RepContratoDetalle.aspx.vb | 5 +----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 120c31636..47a330307 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -788,6 +788,15 @@ Namespace Extensiones
             DateTime.TryParseExact(Str, format, System.Globalization.CultureInfo.InvariantCulture, System.Globalization.DateTimeStyles.None, fecha)
             Return fecha
         End Function
+        <Runtime.CompilerServices.Extension()>
+        Public Function ToBool(Str As String) As Boolean
+            If Str <> "" Then
+                Str = HttpUtility.HtmlDecode(Str).Trim
+                Return CBool(Str)
+            Else
+                Return False
+            End If
+        End Function
 
         <Runtime.CompilerServices.Extension()>
         Public Function FormatoNumero(Str As String, Optional Decimales As Integer = 2) As String
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index f264985cc..008c30c2e 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -1,10 +1,7 @@
 Option Explicit On
 Option Strict On
 Imports System.Data
-Imports ADSNetLibrary.Helpers
-Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones
-Imports Extensiones.ModExtensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class RepContratoDetalle
@@ -132,7 +129,7 @@ Partial Class RepContratoDetalle
         LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
-        Dim Estatus As Boolean = Not LbEstatus.Text.ToBool
+        Dim Estatus As Boolean = Not CBool(LbEstatus.Text)
         Dim ObjTransportes As New ClsTransportes
         Try
             ObjTransportes.IniciaTransacSQL()