-- bloqueo de pago de fechas anteriores.

Ventas/PVCobranza.aspx.vb

@@ -4,6 +4,7 @@ Option Strict On
 Imports System.Data
 Imports System.IO
 Imports System.Net.Http
+Imports CrystalDecisions.CrystalReports.Engine
 Imports Extensiones
 Imports Modelos.Factura
 
@@ -457,6 +458,28 @@ Partial Class Ventas_PVCobranza
                 Else
                     e.Row.FCLinkButton("BtnPagar").Visible = False
                 End If
+            End If
+
+            If e.Row.DBCampo("Fecha") <> Now.ToShortDateString Then
+                e.Row.FCLinkButton("BtnPagar").Enabled = False
+                e.Row.FCLinkButton("BtnPagar").Text = "Cobrar"
+                'e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs default"
+                e.Row.FCLinkButton("BtnPagar").OnClientClick =
+                        "bootbox.dialog({" &
+                            "message: 'No se puede realizar un cobro a una remisión de días anteriores.<br/> Favor de cancelar la remisión y generarla con fecha actual. ', " &
+                            "className: 'header-yellow', " &
+                            "onEscape: function() {}, " &
+                            "title: '<i class=""fa fa-warning""></i> Advertencia', " &
+                            "buttons: { " &
+                                "success: { label: '', className: 'hide', callback: function() {} }, " &
+                                "danger: { label: '', className: 'hide', callback: function() {} }, " &
+                                "main: { label: 'Aceptar', className: 'yellow', callback: function() {} } " &
+                            "} " &
+                        "});" &
+                        "return false;"
+
+                'e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#3598dc")
+                'e.Row.CssClass = "blue-madison"
             End If
 
         End If