From e57ad43d9b807a22797a5db0b3ca80d0c2100aae Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 12 Aug 2021 07:47:52 -0700
Subject: [PATCH] =?UTF-8?q?--=20.vb=20-=20cambio=20de=20decimal=20a=20doub?=
 =?UTF-8?q?le=20--=20asp.=20visual=20la=20vinculaci=C3=B3n=20de=20AF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx    |  4 ++--
 Compras/Compras.aspx.vb | 14 +++++++++-----
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index a9acdcb77..74bee1337 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2112,7 +2112,7 @@
                                                     <asp:TemplateField>
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Visible="false" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>
-                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px" Visible="true"></asp:TextBox>
+                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="80px" Visible="true"></asp:TextBox>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
                                                             <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
 
@@ -2129,7 +2129,7 @@
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left">
                                                         <ItemTemplate>
-                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
+                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
                                                                 <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                                                 <asp:ListItem Text="Preventivo" Value="1"></asp:ListItem>
                                                                 <asp:ListItem Text="Correctivo" Value="2"></asp:ListItem>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 92f035df3..3b1420f59 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -12467,16 +12467,18 @@ Partial Class Compras_Compras
         dr.ItemArray = dr1.ItemArray
 
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
-        dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
-        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
+        dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDecimal
+        dr1("Importe") = dr1("Total")
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDecimal * dr1("Total").ToString.ToDecimal, 6)
         TmpDT.AcceptChanges()
 
 
         dr("CveActivoFijo") = 0
         dr("CodAF") = ""
-        dr("Cantidad") = Cantidad.ToDouble
-        dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
-        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
+        dr("Cantidad") = Cantidad.ToDecimal
+        dr("Total") = dr("PU").ToString.ToDecimal * Cantidad.ToDecimal
+        dr("Importe") = dr("Total")
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * dr("Total").ToString.ToDecimal, 6)
 
         TmpDT.Rows.InsertAt(dr, Index + 1)
 
@@ -12602,6 +12604,8 @@ Partial Class Compras_Compras
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
 
+        If ImporteAjuste = 0 Then Exit Sub
+
         Dim Amortizacion As Decimal = 0
         If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
             Amortizacion = LblAmortizacion.Text.ToDecimal