From ce90f26df25f349735ae504820d4deda9b1744ff Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Mon, 17 Feb 2020 10:26:49 -0700
Subject: [PATCH] - redondeo iva y pago personal

---
 Bancos/PopIECompras.aspx.vb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 1ce79752d..83386cb47 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -617,8 +617,8 @@ Partial Class Bancos_PopIECompras
                     MovimientoPagar = New IEMovimiento
                     MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
                     MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
-                    MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal
-                    MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal
+                    MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL
+                    MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL
                     MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
                     MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
                     MovimientoPagar.Total = dr("Total").ToString.ToDecimal
@@ -2280,7 +2280,7 @@ Partial Class Bancos_PopIECompras
 
                                             Else
                                                 If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.IVADeducible * PorcentajePago
+                                                    ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago).RoundSQL
                                                     ImporteMX = ImporteMovimiento
                                                 ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
                                                     ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
@@ -2675,6 +2675,8 @@ Partial Class Bancos_PopIECompras
                                                 ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
                                                 ImporteMX = Math.Round(ImporteMX, 2)
                                                 TimpocambioGeneral = tipoCambioPago
+                                                IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero
+
                                             Else
                                                 ImporteMovimiento = 0
                                             End If
@@ -3146,7 +3148,7 @@ Partial Class Bancos_PopIECompras
 
                                 If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                                     If ObjMov.ValorPolizaDescuadre > 0 Then
-                                        'MsgError = ObjMov.MensajePolizaDescuadre
+                                        MsgError = ObjMov.MensajePolizaDescuadre
                                         GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                     End If
                                 End If