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

Ventas/ClientesAbonar.aspx.vb

@@ -652,6 +652,32 @@ Partial Class Ventas_ClientesAbonar
 
     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 GvCxC.Rows
+
+            If gvRowVal.FCCheckBox("Chk").Checked Then
+                If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").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 Not TxtImporte.Text.ToDecimal > 0 Then
             Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
             Exit Sub