-- corrección

Ventas/PVCobranza.aspx.vb

@@ -460,7 +460,7 @@ Partial Class Ventas_PVCobranza
                 End If
             End If
 
-            If e.Row.DBCampo("Fecha") <> Now.ToShortDateString Then
+            If e.Row.DBCampo("Fecha").ToDate.ToShortDateString <> Now.ToShortDateString Then
                 e.Row.FCLinkButton("BtnPagar").Enabled = False
                 e.Row.FCLinkButton("BtnPagar").Text = "Cobrar"
                 'e.Row.FCLinkButton("BtnPagar").CssClass = "btn btn-xs default"
@@ -831,7 +831,7 @@ Partial Class Ventas_PVCobranza
             End Try
 
             If MsgError = "" Then
-                If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=respFactura.CveVenta) Then
+                If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=CveVenta) Then
                     If ObjConta.ValorPolizaDescuadre > 0 Then
                         GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                     End If
@@ -896,7 +896,9 @@ Partial Class Ventas_PVCobranza
                         msBuild.AppendFormat("{0}", pdfNC)
                     End If
 
+
                     If respNC IsNot Nothing Then
+                        If respNC IsNot Nothing AndAlso respNC.Factura IsNot Nothing Then
                             For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
                                 msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
                                                     dr("CveIE").ToString,
@@ -905,7 +907,10 @@ Partial Class Ventas_PVCobranza
                                                     respNC.CveVenta,
                                                     respNC.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
                             Next
+                        End If
+
                     Else
+                        If respFactura IsNot Nothing AndAlso respFactura.Factura IsNot Nothing Then
                             For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
                                 msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
                                                 dr("CveIE").ToString,
@@ -915,19 +920,12 @@ Partial Class Ventas_PVCobranza
                                                 respFactura.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
                             Next
                         End If
-
+                    End If
 
                     If Not String.IsNullOrEmpty(MsgTimbrado) Then
                         msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
                     End If
 
-
-
-
-
-
-
-
                 Else
                     msBuild.Append($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>")
                 End If
@@ -948,7 +946,6 @@ Partial Class Ventas_PVCobranza
                     If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                         ImpresionDirectaPDF(CveVenta)
                     End If
-
                     LimpiarDatos()
 
                     CargaDatos()