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 - 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 @@ + + + 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)