mejoras en autorizaciones de crédito

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="DiasVencidos" ItemStyle-Width="5%" HeaderText="D.Venc" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />                    
-                    <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                     <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%">

Ventas/CatAutorizacionLimites.aspx.vb

@@ -153,6 +153,12 @@ Partial Class Ventas_CatAutorizacionLimites
             If e.Row.DBCampo("CveEstatus") = "0" Then
                 e.Row.FCLabel("LblEstatus").CssClass = "badge badge-secondary"
                 e.Row.FCLinkButton("LnkAutorizar").Visible = True
+                e.Row.FCLinkButton("LnkRechazar").Visible = True
+            ElseIf e.Row.DBCampo("CveEstatus") = "1" Then
+                e.Row.FCLabel("LblEstatus").CssClass = "badge badge-success"
+                e.Row.FCLinkButton("LnkAutorizar").Visible = False
+                e.Row.FCLinkButton("LnkRechazar").Visible = True
+            ElseIf e.Row.DBCampo("CveEstatus") = "2" Then
                 e.Row.FCLabel("LblEstatus").CssClass = "badge badge-primary"
                 e.Row.FCLinkButton("LnkAutorizar").Visible = False
                 e.Row.FCLinkButton("LnkRechazar").Visible = False

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