From e75e462991923e053cd0dcc0bc7b4aa3e75f8f72 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Jan 2023 23:59:03 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20extensi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/modExtensiones.vb    |  3 ++-
 Ventas/ClientesAbonar.aspx    |  3 +++
 Ventas/ClientesAbonar.aspx.vb | 20 ++++++++++----------
 3 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 06ff258ec..11f11fabf 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -3474,8 +3474,9 @@ Namespace Extensiones
 
         End Sub
         <Runtime.CompilerServices.Extension()>
-        Public Sub SelectedTextLikeIfExist(ByRef Rbl As DropDownList, ByRef Valor As String)
+        Public Sub SelectedTextLikeIfExist(Rbl As DropDownList, Valor As String)
             If Valor <> "" Then
+                Rbl.ClearSelection()
                 For Each item As ListItem In Rbl.Items
                     If item.Text.Contains(Valor) Then
                         item.Selected = True
diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index b296b6faa..ba7d5e7fc 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -684,6 +684,9 @@
                                 <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                             </div>                          
                         </ContentTemplate>
+                        <Triggers>
+                            <asp:PostBackTrigger ControlID="LnkDescargaFormato" />
+                        </Triggers>
                     </asp:UpdatePanel>
                 </div>
             </div>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index d078f30e8..46eeba02a 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2928,18 +2928,18 @@ Partial Class Ventas_ClientesAbonar
 
     End Sub
 
-    Public Sub SelectedTextLikeIfExist(ByRef Rbl As RadioButtonList, Value As String)
-        Try
+    'Public Sub SelectedTextLikeIfExist(ByRef Rbl As RadioButtonList, Value As String)
+    '    Try
 
-            For Each item As ListItem In Rbl.Items
-                If item.Value.Contains(Value) Then
-                    item.Selected = True
-                End If
-            Next
-        Catch ex As Exception
+    '        For Each item As ListItem In Rbl.Items
+    '            If item.Value.Contains(Value) Then
+    '                item.Selected = True
+    '            End If
+    '        Next
+    '    Catch ex As Exception
 
-        End Try
-    End Sub
+    '    End Try
+    'End Sub
 
     Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs)