Clientes se retiran campos CveMetodoPago, NumCtaPago, ConvenioCIE desde base de datos, Validacion fecha de pago no debe ser menor a factura, ProveedoresAbonar, ClientesAbonar, PooIEVentas, PopIECopmpras

Bancos/ProveedoresAbonar.aspx.vb

@@ -711,6 +711,30 @@ Partial Class Bancos_ProveedoresAbonar
 #Region "  GUARDAR  "
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+
+
+        Dim ValFechaDocumento As Boolean = False
+        Dim FoliosFechasValFechaDocumento As New StringBuilder
+
+        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de 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/>")
+                    ValFechaDocumento = True
+                End If
+
+            End If
+        Next
+
+        If ValFechaDocumento Then
+            Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
             Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
             Exit Sub