From 4bf9e2b3207d706c9d5b4123c335e45ef283a042 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Thu, 6 Feb 2020 19:59:37 -0700
Subject: [PATCH] -- ocultar boton de devoluci[on, deshechado

---
 Ventas/Ventas.aspx    |  6 +-----
 Ventas/Ventas.aspx.vb | 23 +++++++++++------------
 vwd.webinfo           |  4 ++++
 3 files changed, 16 insertions(+), 17 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 4a65d41f7..90e82e337 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -211,11 +211,7 @@
 
 
             <%--INICIA: CANCELAR - NC - DEVOLUCION [OLD]--%>
-
-            <li>
-                <asp:LinkButton ID="LkDevolucion" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Devolución"
-                    data-toggle="confirmation" data-popout="true" data-original-title="¿Aplicar Devolución?" data-btn-ok-label="si" Visible="false" />
-            </li>
+                       
             <%--<li>
                 <asp:LinkButton ID="LkNotaCredito" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Nota de crédito"
                     data-toggle="confirmation" data-popout="true" data-original-title="¿Aplicar Nota de crédito?" data-btn-ok-label="si" Visible="false" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8f8f11141..28f8d9005 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3544,7 +3544,6 @@ Partial Class Ventas
                             If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
                                 If UsuarioActual.TienePermisoProceso(264) Then
-                                    LkDevolucion.Visible = True
                                     InicializaAplicaDevolucion()
                                 End If
                             End If
@@ -7694,7 +7693,9 @@ Partial Class Ventas
 
 
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
-        ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+        'si es cancelacion, debe de conservar el folio actual
+        If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+
         'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
         ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
         ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
@@ -13876,6 +13877,12 @@ Partial Class Ventas
                             If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then
                                 EsValido = True
                             End If
+                        Else
+                            'valida sino tiene promocion la clasificacion
+                            If DtPromociones.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero}").Rows.Count > 0 Then
+                                ''falta aplicar si tiene promocion
+                            End If
+
                         End If
                     End If
 
@@ -16264,12 +16271,7 @@ Partial Class Ventas
         Response.Redirect(url)
 
     End Sub
-    Private Sub BtnGenerarNC_Click(sender As Object, e As EventArgs) Handles LkDevolucion.Click
 
-        Dim url As String = String.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=0", CveVenta)
-        Response.Redirect(url)
-
-    End Sub
     'Private Sub LkNotaCreditoC_Click(sender As Object, e As EventArgs) Handles LkNotaCredito.Click
 
     '    Dim url As String = String.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=2", CveVenta)
@@ -16405,6 +16407,7 @@ Partial Class Ventas
         DdlMetodoPago33.Enabled = True
         DdlFormaPago33.Enabled = True
         UPCondicionesPago.Update()
+        If Me.PermiteCredito Then RBLPago.Enabled = True
 
         ModalidadEdicion = True
 
@@ -21410,7 +21413,6 @@ Partial Class Ventas
 
         'LIMPIA ACCIONES
         HLOrdendeCompra.Visible = False
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
@@ -21537,7 +21539,7 @@ Partial Class Ventas
 #Region "   APLICA DEVOLUCION   "
     Private Sub InicializaAplicaDevolucion()
         If Not UsuarioActual.CveUsuario = 100 Then
-            If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
+            If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 140, 141, 146) Then
                 Exit Sub
             End If
         End If
@@ -21547,7 +21549,6 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = True
         Dim SeEsconde As Boolean = False
         Dim ObjVenta As New ClsVentas
@@ -21726,7 +21727,6 @@ Partial Class Ventas
         BtnEmitir.Visible = False
 
         'REINICIALIZA ACCIONES
-        LkDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
         ImgDownCancelacion.Visible = False
@@ -23372,7 +23372,6 @@ Partial Class Ventas
         BtnGenerarOS.Visible = False
         BtnsFacturar.Visible = False
         HLOrdendeCompra.Visible = False
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
diff --git a/vwd.webinfo b/vwd.webinfo
index 07746b18a..de9866feb 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -5,6 +5,10 @@
 <VisualWebDeveloper>
 
   <StartupServices>
+    
+  
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>
\ No newline at end of file