Validacion de creditos en facturacion de cotizaciones

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