Validaciones fecha pago

Bancos/ProveedoresAbonar.aspx.vb

@@ -716,13 +716,27 @@ Partial Class Bancos_ProveedoresAbonar
         Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
 
-        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
+        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
 
         For Each gvRowVal As GridViewRow In GvCxP.Rows
 
             If gvRowVal.FCCheckBox("Chk").Checked Then
-                If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then
-                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") }  fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }<br/>")
+
+
+                Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+                Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+
+                Dim AnioFactura As Integer = FechaFactura.Year
+                Dim MesFactura As Integer = FechaFactura.Month
+
+                Dim AnioDocumento As Integer = FechaDocumento.Year
+                Dim MesDocumento As Integer = FechaDocumento.Month
+
+                If AnioFactura > AnioDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    ValFechaDocumento = True
+                ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
                     ValFechaDocumento = True
                 End If
 
@@ -735,6 +749,7 @@ Partial Class Bancos_ProveedoresAbonar
         End If
 
 
+
         If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
             Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
             Exit Sub