validar cotizaciones
This commit is contained in:
File diff suppressed because one or more lines are too long
@@ -2882,7 +2882,7 @@ Partial Class OC
|
|||||||
Promocion = TxtPromocion.Text.Trim
|
Promocion = TxtPromocion.Text.Trim
|
||||||
|
|
||||||
Try
|
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 CveProveedor = -1
|
||||||
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
|
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
|
||||||
Dim IdPoliza = -1
|
Dim IdPoliza = -1
|
||||||
|
|||||||
Reference in New Issue
Block a user