AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- pago resico

Browse Source
This commit is contained in:
rrene
2022-02-25 07:41:23 -07:00
parent 9ff118a262
commit 7aa832b57a
2 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Bancos/PopIECompras.aspx.vb
View File

@@ -635,7 +635,7 @@ Partial Class Bancos_PopIECompras
CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
SerieFolio = dr("SerieFolio").ToString SerieFolio = dr("SerieFolio").ToString
TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDecimal 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 CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
@@ -1908,7 +1908,11 @@ Partial Class Bancos_PopIECompras
ElseIf MovimientoPagar.ConceptoRetISR = 2 Then ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
funcionalidad = 317 funcionalidad = 317
ConceptoContable = 243 ConceptoContable = 243
ElseIf MovimientoPagar.ConceptoRetISR = 3 Then
funcionalidad = 348
ConceptoContable = 327
End If End If
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
ImporteMX = ImporteMovimiento ImporteMX = ImporteMovimiento
@@ -1951,6 +1955,9 @@ Partial Class Bancos_PopIECompras
ElseIf MovimientoPagar.ConceptoRetISR = 2 Then ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
funcionalidad = 318 funcionalidad = 318
ConceptoContable = 244 ConceptoContable = 244
ElseIf MovimientoPagar.ConceptoRetISR = 3 Then
funcionalidad = 348
ConceptoContable = 328
End If End If
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago

14
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1172,6 +1172,9 @@ Partial Class Bancos_ProveedoresAbonar
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
funcionalidad = 317 funcionalidad = 317
ConceptoContable = 243 ConceptoContable = 243
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then
funcionalidad = 348
ConceptoContable = 328
End If End If
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 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 ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
funcionalidad = 318 funcionalidad = 318
ConceptoContable = 244 ConceptoContable = 244
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then
funcionalidad = 348
ConceptoContable = 328
End If End If
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -1229,8 +1235,8 @@ Partial Class Bancos_ProveedoresAbonar
ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago) ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra) importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero) ImporteMovimiento = ImporteMovimiento.RoundSQL
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero) importeMX = importeMX.RoundSQL
TipoCambioGeneral = TipoCambioPago TipoCambioGeneral = TipoCambioPago
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
@@ -1272,8 +1278,8 @@ Partial Class Bancos_ProveedoresAbonar
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
importeMX = ImporteMovimiento * tipoCambioCompra importeMX = ImporteMovimiento * tipoCambioCompra
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero) ImporteMovimiento = ImporteMovimiento.RoundSQL
importeMX = Math.Round(importeMX, 2) importeMX = importeMX.RoundSQL
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
Else Else