ingresos x comprobar. que ingore la validación de meses

Ventas/ClientesAbonar.aspx.vb

@@ -621,6 +621,9 @@ Partial Class Ventas_ClientesAbonar
             End If
         End If
 
+        If RblTipoPago.SelectedValue = "1" Then
+
+
             Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
 
@@ -650,16 +653,13 @@ Partial Class Ventas_ClientesAbonar
 
                     End If
                 End If
-
             Next
 
-
             If ValFechaDocumento Then
                 Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
+        End If
-
 
         If Not TxtImporte.Text.ToDecimal > 0 Then
             Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)