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

-- contabilizable ret ISR

Browse Source
This commit is contained in:
rrene
2023-10-06 18:47:48 -07:00
parent 85dd6c1917
commit 94304d632e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsPaginas.vb
View File

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