-- mejora en extensión

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

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>

Ventas/ClientesAbonar.aspx.vb

@@ -2928,18 +2928,18 @@ Partial Class Ventas_ClientesAbonar
 
     End Sub
 
-    Public Sub SelectedTextLikeIfExist(ByRef Rbl As RadioButtonList, Value As String)
+    'Public Sub SelectedTextLikeIfExist(ByRef Rbl As RadioButtonList, Value As String)
-        Try
+    '    Try
 
-            For Each item As ListItem In Rbl.Items
+    '        For Each item As ListItem In Rbl.Items
-                If item.Value.Contains(Value) Then
+    '            If item.Value.Contains(Value) Then
-                    item.Selected = True
+    '                item.Selected = True
-                End If
+    '            End If
-            Next
+    '        Next
-        Catch ex As Exception
+    '    Catch ex As Exception
 
-        End Try
+    '    End Try
-    End Sub
+    'End Sub
 
     Protected Sub LnkDescargaFormato_Click(sender As Object, e As EventArgs)