From 102feb4887b2654b5c14f6d18240d5d27a61cd39 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Mar 2020 13:44:54 -0700
Subject: [PATCH] Descuento de NC en costo indirecto

---
 Compras/Compras.aspx    | 4 ++--
 Compras/Compras.aspx.vb | 8 ++++++++
 Inventarios/Fletes.aspx | 1 +
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 1b9b7f52a..b0c19e93b 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4937,8 +4937,8 @@
                                         <label class="col-md-2" style="margin-top: 5px;">Factura de:</label>
                                         <div class="col-md-6" align="center">
                                             <asp:RadioButtonList ID="RblFleteImportacionOpcion" CssClass="iradio_square-blue" runat="server" RepeatDirection="Horizontal" Width="100%">
-                                                <asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
-                                                <asp:ListItem Value="2">Gastos</asp:ListItem>
+                                            <%--    <asp:ListItem Value="1" Selected="True">Productos</asp:ListItem>
+                                                <asp:ListItem Value="2">Gastos</asp:ListItem>--%>
                                             </asp:RadioButtonList>
                                         </div>
                                     </div>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 378766459..f2811f6ab 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19089,6 +19089,7 @@ Partial Class Compras_Compras
     Private Sub CargaCombosFletesImportaciones()
         DdlFletes.Items.Clear()
         DdlImportaciones.Items.Clear()
+        RblFleteImportacionOpcion.Items.Clear()
 
         Dim ObjCompras As New ClsCompras
         If ObjCompras.GetImportaciones(-1, -1, -1, "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -19107,6 +19108,13 @@ Partial Class Compras_Compras
         DdlImportaciones.DataBind()
         DdlFletes.DataBind()
 
+        If DdlTipoComprobante.SelectedValue = "NC" Then
+            RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Gastos", "2"))
+        Else
+            RblFleteImportacionOpcion.Items.Insert(0, New ListItem("Productos", "1"))
+            RblFleteImportacionOpcion.Items.Insert(1, New ListItem("Gastos", "2"))
+        End If
+
     End Sub
 
     Private Sub LnkFletesImportaciones_Click(sender As Object, e As EventArgs) Handles LnkFletesImportaciones.Click
diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx
index eae300818..ca81061e9 100644
--- a/Inventarios/Fletes.aspx
+++ b/Inventarios/Fletes.aspx
@@ -140,6 +140,7 @@
                                         <Columns>
                                             <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
                                             <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
+                                            <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
                                             <asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />