From 13a2aaa2fe92a49e71dd1009f005577bb67abbd6 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 7 Jul 2021 18:57:44 -0700
Subject: [PATCH] Importe en NC desde catalogo de autorizaciones

---
 Ventas/CatAutorizacionLimites.aspx    | 10 +++++--
 Ventas/CatAutorizacionLimites.aspx.vb | 41 +++++++++++++++++----------
 2 files changed, 34 insertions(+), 17 deletions(-)

diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx
index b71f4c61e..905fde3d2 100644
--- a/Ventas/CatAutorizacionLimites.aspx
+++ b/Ventas/CatAutorizacionLimites.aspx
@@ -38,8 +38,7 @@
                     </div>
                     <div class="titlefiltros  caption" style="margin-top: -8px;">
                         <ul class="list-inline" style="font-size: 12px;">
-                            <li>Estatus:              
-                                
+                            <li>Estatus:   
                                 <asp:DropDownList AppendDataBoundItems="true" ID="DdlEstatus" runat="server" Width="200px" DataTextField="Nombre" DataValueField="CveDispositivosGrupos" CssClass="form-control input-sm select2me">
                                     <asp:ListItem Selected="True" Value="-1" Text="Todos"></asp:ListItem>
                                     <asp:ListItem Value="0" Text="Solicitada"></asp:ListItem>
@@ -48,6 +47,13 @@
                                     <asp:ListItem Value="3" Text="Rechazada"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
+                            <li>Cliente:              
+                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteFiltro" Width="200px" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            </li>
+                            <li>Vendedor:
+                                <asp:DropDownList ID="DdlVendedorFiltro" CssClass="form-control marginFixRow select2me" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="200px">
+                                </asp:DropDownList>
+                            </li>
                         </ul>
                     </div>
                 </div>
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb
index 0b450106d..916b3e41e 100644
--- a/Ventas/CatAutorizacionLimites.aspx.vb
+++ b/Ventas/CatAutorizacionLimites.aspx.vb
@@ -27,21 +27,38 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlCliente.setEsWebService(True)
+            DdlClienteFiltro.setEsWebService(True)
         Else
             DdlCliente.setEsWebService(False)
             DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
             DdlCliente.DataBind()
             DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlClienteFiltro.setEsWebService(False)
+            DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClienteFiltro.DataBind()
+            DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
 
+        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedorFiltro.DataBind()
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
         UpModal.Update()
     End Sub
     Private Sub CargaDatos()
+        Dim CveCliente As Integer = -1
+        If DdlClienteFiltro.SelectedValue.ToEntero() <= 0 Then
+            CveCliente = -1
+        Else
+            CveCliente = DdlClienteFiltro.SelectedValue.ToEntero()
+        End If
+
         Dim ObjGral As New ClsVentas
-        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, -1, -1, CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then
+        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then
             GvDatos.DataSource = ObjGral.DtResultados
         End If
         ObjGral.Dispose()
@@ -78,24 +95,18 @@ Partial Class Ventas_CatAutorizacionLimites
         ltlMotititulo.Text = "Agregar autorización"
        UpModal.Update()
         RegistraScript("$('#DModal').modal()")
    End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
-        If DdlTipoDocto.SelectedValue = "Ing" AndAlso DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then
+        If DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then
             Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
         Dim CveEstatus As Integer = 1
         Dim TipoDocto As String = DdlTipoDocto.SelectedValue
-        Dim CveTipoAutorizacion As Integer = -1
+        Dim CveTipoAutorizacion As Integer = DdlTipoAutorizacion.SelectedValue.ToEntero()
 
-        Select Case TipoDocto
-            Case "Ing"
-                CveTipoAutorizacion = DdlTipoAutorizacion.SelectedValue.ToEntero()
-            Case "Egs"
-                CveTipoAutorizacion = -1
-        End Select
 
         Dim ObjPS As New ClsVentas
-        If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveAutorizacion, TipoDocto) Then
+        If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto) Then
             RegistraScript("$('#DModal').modal('hide')")
             Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -166,7 +177,6 @@ Partial Class Ventas_CatAutorizacionLimites
 
         CargaDatos()
     End Sub
-
     Protected Sub LnkRechazar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
 
@@ -204,11 +214,12 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString()
         Select Case TipoDocto
             Case "Ing"
-                DivAutorizacion.Visible = True
-                DivImporte.Visible = True
+                If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then
+                    DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2"))
+                End If
             Case "Egs"
-                DivAutorizacion.Visible = False
-                DivImporte.Visible = False
+                'QUITAR LA DE VENCIMIENTO
+                DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2"))
         End Select
         UpModal.Update()
     End Sub