From b5093f8dc85e884b3d4b8731d7c05b3a923709e5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 24 Sep 2021 16:08:46 -0700
Subject: [PATCH] Validacion de limite de credito, en CrearAPartirDe y
 facturacion de cotizaciones

---
 Ventas/Ventas.aspx.vb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4ec3cd682..9e33a2d45 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6216,7 +6216,7 @@ Partial Class Ventas
         Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
 
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta <= 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") AndAlso EsCreaApartirDe)) Then
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
@@ -6234,6 +6234,7 @@ Partial Class Ventas
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                 LnkPedido2SinFacturar.Visible = False
                 LnkCotizaciones.Visible = False
+                BtnsFacturar.Visible = False
             End If
             UPCondicionesPago.Update()
             'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
@@ -6311,6 +6312,7 @@ Partial Class Ventas
                                 If Opcion > 0 Then
                                     If Opcion = 1 Then
                                         BtnEmitirImprimir.Visible = False
+                                        BtnsFacturar.Visible = False
                                     End If
                                     If Alertas Then Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 Else
@@ -6387,7 +6389,7 @@ Partial Class Ventas
         End If
 
         'Puede hacer pedido
-        If Me.CveVenta <= 0 Then
+        If CveVenta <= 0 Then
             If Not UsuarioActual.TienePermisoProceso(177) Then
                 If DdlTipoComprobante.Items.FindByValue("Pd2") IsNot Nothing Then
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
@@ -18142,7 +18144,7 @@ Partial Class Ventas
 
     End Sub
     Private Sub SetPermisos()
-        If CveVenta < 1 Then
+        If CveVenta < 1 OrElse EsCreaApartirDe Then
             'Puede cotizar
             If Not UsuarioActual.TienePermisoProceso(59) Then
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot"))
@@ -23101,7 +23103,7 @@ Partial Class Ventas
                 RequiereAlmacenDestino = True
                 DdlAlmacenAsignado.Items.Clear()
                 DdlAlmacenAsignado.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-                DdlAlmacenAsignado.SelectedValue = "-1"
+                DdlAlmacenAsignado.SelectedValueExist("-1")
                 DdlAlmacenAsignado.DataBind()
                 DdlAlmacenAsignado.Items.Insert(0, New ListItem("Almacen", DbRowVenta("CveAlmacenTraspasoOrigen").ToString()))
                 DdlAlmacenAsignado.SelectedValueExist(DbRowVenta("CveAlmacenTraspasoOrigen").ToString())
@@ -29831,6 +29833,8 @@ Partial Class Ventas
         GvPS.Columns(17).Visible = True
         GvPS.Columns(18).Visible = True
 
+        SetPermisos()
+
         CambiaTipoDocto()
         CambiaSucursalGeneral(RecargarPartidas:=False)
         CargaAnticipos(CveCliente)