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