From 7a5060f7ce72ca3c82129fc0ed3e8ab2638c9b01 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 26 Jan 2022 13:40:59 -0700
Subject: [PATCH] =?UTF-8?q?mejoras=20en=20autorizaciones=20de=20cr=C3=A9di?=
 =?UTF-8?q?to?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/CatAutorizacionLimites.aspx    | 13 +++++++++----
 Ventas/CatAutorizacionLimites.aspx.vb |  6 ++++++
 Ventas/Ventas.aspx.vb                 |  4 +---
 3 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx
index af813da4f..1b989eed8 100644
--- a/Ventas/CatAutorizacionLimites.aspx
+++ b/Ventas/CatAutorizacionLimites.aspx
@@ -67,15 +67,20 @@
                 EmptyDataText="No se encontraron autorizaciones" ToolTip=""
                 CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None">
                 <Columns>
+                    <asp:TemplateField HeaderText="Tipo " ItemStyle-Width="5%">
+                        <ItemTemplate>
+                            <asp:Label ID="LblTipo" Text='<%# Eval("TipoDocumento") %>' runat="server"></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField DataField="TipoAutorizacionTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                     <asp:HyperLinkField DataTextField="NombreComercial" Target="_blank" HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
                     <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-Width="15%" />
                     <asp:BoundField DataField="Importe" ItemStyle-Width="15%" HeaderText="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Credito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Crédito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                     <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                     <asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:BoundField DataField="TipoAutorizacionTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
-                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="Dias Vencidos" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
-                    <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                    
+                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="D.Venc" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />                    
                     <asp:HyperLinkField DataTextField="FacturaAplicada" Target="_blank" HeaderText="Factura" DataNavigateUrlFields="CveVentaAplicada" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb
index 5a3c9de21..bcf73786a 100644
--- a/Ventas/CatAutorizacionLimites.aspx.vb
+++ b/Ventas/CatAutorizacionLimites.aspx.vb
@@ -153,6 +153,12 @@ Partial Class Ventas_CatAutorizacionLimites
                 e.Row.FCLinkButton("LnkAutorizar").Visible = False
                 e.Row.FCLinkButton("LnkRechazar").Visible = False
             End If
+            If e.Row.DBCampo("TipoDocumento") = "Ingreso" Then
+                e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success"
+            Else
+                e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning"
+            End If
+
             'If e.Row.DBCampo("Estatus") = "True" Then
             '    e.Row.Cells(1).ForeColor = Drawing.Color.Green
             '    e.Row.Cells(1).Font.Bold = True
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2c2af90e1..71fc88e46 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26939,9 +26939,7 @@ Partial Class Ventas
     Protected Sub BtnAplicarNC_Click(sender As Object, e As EventArgs)
         'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
             Dim Verificacion As Boolean = False
-
             If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs
                 Verificacion = True
             Else
@@ -26954,7 +26952,7 @@ Partial Class Ventas
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
                             Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
-                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                            If ImporteAutorizacion > TxtNCImporte.Text.ToDecimal Then
                                 Verificacion = True
                             End If
                         End If