diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1b094493c..f2cdf778c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7463,9 +7463,9 @@ Public Class ClsPaginas ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - Dim ContabilizableISR As Boolean = False - If UsuarioActual.CveEmpresa.Contiene(140, 7, 11, 12, 122, 145, 172, 173, 174) Then - ContabilizableISR = True + Dim ContabilizableISR As Boolean = True + If UsuarioActual.CveEmpresa.Contiene(13, 83, 141, 153, 154, 158) Then + ContabilizableISR = False End If Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True @@ -8471,7 +8471,7 @@ Public Class ClsPaginas PaginaDict.Add("/Bancos/RepCobradoPagadoDetalle.aspx".ToUpper(), -1) PaginaDict.Add("/Bancos/RepCobradoPagado.aspx".ToUpper(), 368) PaginaDict.Add("/Bancos/RepIngresosPorComprobar.aspx".ToUpper(), 381) - PaginaDict.Add("/Bancos/Documentos.aspx".ToUpper(), 319) + 'PaginaDict.Add("/Bancos/Documentos.aspx".ToUpper(), 319) PaginaDict.Add("/Bancos/RepCreditos.aspx".ToUpper(), 320) PaginaDict.Add("/Bancos/RepSaldosDAP.aspx".ToUpper(), 385) PaginaDict.Add("/Bancos/DepositosCaja.aspx".ToUpper(), 560)