From 28ae2554d4f4f5392944a34cbc3d765412097670 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 14 Sep 2022 14:11:38 -0700
Subject: [PATCH] =?UTF-8?q?-=20mejoras,=20se=20visualiza=20el=20padre=20y?=
 =?UTF-8?q?=20el=20m=C3=B3dulo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb          | 1 +
 Sistemas/EmpresasModulos.aspx    | 4 ++--
 Sistemas/EmpresasModulos.aspx.vb | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5e4a0eedb..f2259d1e6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4829,6 +4829,7 @@ Partial Class Compras_Compras
                                 CompraActual.TC = TipoCambio
                                 CompraActual.Total = TxtTotal.Text.ToDecimal
                                 CompraActual.IVA = TxtIVA.Text.ToDecimal
+                                CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
                                 CompraActual.IEPS = TxtIEPS.Text.ToDecimal
                                 CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
                                 CompraActual.RetISR = TxtRetISR.Text.ToDecimal
diff --git a/Sistemas/EmpresasModulos.aspx b/Sistemas/EmpresasModulos.aspx
index 715365213..0ac3ba30f 100644
--- a/Sistemas/EmpresasModulos.aspx
+++ b/Sistemas/EmpresasModulos.aspx
@@ -41,7 +41,7 @@
             <table>
                 <tr>
                     <td>
-                        <asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Modulo" DataValueField="CveModulo" Height="200px" Width="200px" SelectionMode="Multiple"></asp:ListBox>
+                        <asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="200px" Width="250px" SelectionMode="Multiple"></asp:ListBox>
                     </td>
                     <td width="100px" align="center">
                         <asp:Button Text=">>" runat="server" ID="BtnAddTodos" ToolTip="Añadir Todos" OnClick="BtnAddTodos_Click" class="btn btn-primary" /><br />
@@ -53,7 +53,7 @@
                         <asp:Button Text="<<" runat="server" ID="BtnRemoveTodos" ToolTip="Quitar Todos" OnClick="BtnRemoveTodos_Click" class="btn btn-primary" />
                     </td>
                     <td>
-                        <asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Modulo" DataValueField="CveModulo" Height="200px" Width="200px" SelectionMode="Multiple"></asp:ListBox>
+                        <asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="200px" Width="250px" SelectionMode="Multiple"></asp:ListBox>
                     </td>
                 </tr>
             </table>
diff --git a/Sistemas/EmpresasModulos.aspx.vb b/Sistemas/EmpresasModulos.aspx.vb
index b88ea05c5..9124e8729 100644
--- a/Sistemas/EmpresasModulos.aspx.vb
+++ b/Sistemas/EmpresasModulos.aspx.vb
@@ -65,7 +65,7 @@ Partial Class Sistemas_EmpresasModulos
         End If
         ObjEmpresas.Dispose()
 
-        ListModulosEmpresa.DataSource = DtModulosEmpresa.FiltraParametros("", "Modulo")
+        ListModulosEmpresa.DataSource = DtModulosEmpresa.FiltraParametros("", "Padres")
         ListModulosEmpresa.DataBind()
     End Sub
 
@@ -80,7 +80,7 @@ Partial Class Sistemas_EmpresasModulos
             DtModulosDisponible.Rows.Remove(rowsToDelete(0))
         Next
 
-        ListModulosDisponible.DataSource = DtModulosDisponible.FiltraParametros("", "Modulo")
+        ListModulosDisponible.DataSource = DtModulosDisponible.FiltraParametros("", "Padres")
         ListModulosDisponible.DataBind()
     End Sub
 #End Region