From 7aa832b57af11b378ed680430512c42e0f04313f Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 25 Feb 2022 07:41:23 -0700 Subject: [PATCH] -- pago resico --- Bancos/PopIECompras.aspx.vb | 11 +++++++++-- Bancos/ProveedoresAbonar.aspx.vb | 14 ++++++++++---- 2 files changed, 19 insertions(+), 6 deletions(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 66ef491bf..3b4d46051 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -635,8 +635,8 @@ Partial Class Bancos_PopIECompras CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero SerieFolio = dr("SerieFolio").ToString TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDecimal - NombreProveedor = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor)) - + NombreProveedor = dr("RazonSocial").ToString 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor)) + CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero LtlTitulo.Text = "Cuentas por Pagar" @@ -1908,7 +1908,11 @@ Partial Class Bancos_PopIECompras ElseIf MovimientoPagar.ConceptoRetISR = 2 Then funcionalidad = 317 ConceptoContable = 243 + ElseIf MovimientoPagar.ConceptoRetISR = 3 Then + funcionalidad = 348 + ConceptoContable = 327 End If + If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago ImporteMX = ImporteMovimiento @@ -1951,6 +1955,9 @@ Partial Class Bancos_PopIECompras ElseIf MovimientoPagar.ConceptoRetISR = 2 Then funcionalidad = 318 ConceptoContable = 244 + ElseIf MovimientoPagar.ConceptoRetISR = 3 Then + funcionalidad = 348 + ConceptoContable = 328 End If If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index dc8dcf979..dc2e3754d 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1172,6 +1172,9 @@ Partial Class Bancos_ProveedoresAbonar ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then funcionalidad = 317 ConceptoContable = 243 + ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 328 End If If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then @@ -1214,6 +1217,9 @@ Partial Class Bancos_ProveedoresAbonar ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then funcionalidad = 318 ConceptoContable = 244 + ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 328 End If If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then @@ -1229,8 +1235,8 @@ Partial Class Bancos_ProveedoresAbonar ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago) importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero) - importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero) + ImporteMovimiento = ImporteMovimiento.RoundSQL + importeMX = importeMX.RoundSQL TipoCambioGeneral = TipoCambioPago If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1272,8 +1278,8 @@ Partial Class Bancos_ProveedoresAbonar ImporteMovimiento = gvr.DataKey("IVA").ToDecimal importeMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero) - importeMX = Math.Round(importeMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + importeMX = importeMX.RoundSQL If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" Else