validar cotizaciones

2019-10-24 17:23:30 -07:00
parent 265c5df32f
commit 2ab4e03b35
2 changed files with 2 additions and 2 deletions
--- a/LogMail.txt
+++ b/LogMail.txt
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2882,7 +2882,7 @@ Partial Class OC
        Promocion = TxtPromocion.Text.Trim

        Try
-            If ChkCotizacion.Checked AndAlso gvCotizaciones.Rows.Count > 0 Then
+            If ChkCotizacion.Checked AndAlso gvCotizaciones.Rows.Count > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
                Dim CveProveedor = -1
                Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
                Dim IdPoliza = -1