-- parametro de moneda en acreedoressaldos

App_Code/ClsMovimientos.vb

@@ -1258,7 +1258,7 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-    Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1266,7 +1266,8 @@ Public Class ClsMovimientos
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
         End With
 
         Try

Bancos/PopIECompras.aspx.vb

@@ -798,7 +798,7 @@ Partial Class Bancos_PopIECompras
     Protected Sub CargaAcreedores(Optional CveMoneda As Integer = 1)
         Dim ObjMov As New ClsMovimientos
 
-        If ObjMov.GetAcreedoresSaldos(-1, UsuarioActual.CveEmpresa) Then
+        If ObjMov.GetAcreedoresSaldos(-1, CveMoneda, UsuarioActual.CveEmpresa) Then
             DtAcreedores = ObjMov.DtResultados.FiltraParametros($"CveProveedor > 0 AND CveMoneda = {CveMoneda}")
             DdlAcreedor.DataSource = DtAcreedores
             DdlAcreedor.DataBind()

Compras/Compras.aspx.vb

@@ -2557,6 +2557,7 @@ Partial Class Compras_Compras
                 TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
                 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
+                If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
                 LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
 
                 If UsuarioActual.Empresa.UsaAC Then
@@ -3279,7 +3280,7 @@ Partial Class Compras_Compras
     Protected Sub CargaAcreedores()
         Dim ObjMov As New ClsMovimientos
 
-        If ObjMov.GetAcreedoresSaldos(-1, UsuarioActual.CveEmpresa) Then
+        If ObjMov.GetAcreedoresSaldos(-1, -1, UsuarioActual.CveEmpresa) Then
             DtAcreedores = ObjMov.DtResultados.FiltraParametros("CveProveedor > 0")
             DdlAcreedor.DataSource = DtAcreedores
             DdlAcreedor.DataBind()

Compras/eFacturas.aspx

@@ -81,7 +81,7 @@
             </li>
 
              <li>                 
-                <asp:LinkButton ID="LnkRegistarFactura" runat="server" OnClick="LnkRegistarFactura_Click"  ><i class="fa fa-plus-square-o"></i>  Registar Compras</asp:LinkButton>
+                <asp:LinkButton ID="LnkRegistarFactura" runat="server" OnClick="LnkRegistarFactura_Click"  Visible="false" ><i class="fa fa-plus-square-o"></i>  Registar Compras</asp:LinkButton>
             </li>