From 3702d2fd7fc0aa7550dc66a787811e26dec29a30 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 25 Oct 2021 11:10:03 -0700 Subject: [PATCH] Validacion de creditos en facturacion de cotizaciones --- Ventas/Ventas.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 97c909b5e..4023313b1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6364,12 +6364,18 @@ Partial Class Ventas Else ' el cliente tiene crédito disponible, no tiene bloqueo DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("PA")) + Dim EsCotizacion As Boolean = False + If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then + EsCotizacion = True + End If If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) - + If EsCotizacion Then + DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización") + End If TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString End If