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

11
Bancos/PopIECompras.aspx.vb
View File

@@ -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