From b156b2f579417d403d13950a25750bc869f6b9ce Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 2 Dec 2019 14:08:09 -0700 Subject: [PATCH] Correciones de Empresa 120 Promotora Inmobiliaria --- AC/RepCambiosSituacionFinanciera.aspx | 6 +- AC/RepFlujoEfectivo.aspx.vb | 9 ++- AC/Reportes/RepSituacionFinanciera.rdlc | 77 ++++++++++++----------- Contabilidad2/RepFlujoEfectivo.aspx.vb | 9 ++- Empresas/Grales/Formatos/LibroDiario.rpt | Bin 245760 -> 245760 bytes 5 files changed, 61 insertions(+), 40 deletions(-) diff --git a/AC/RepCambiosSituacionFinanciera.aspx b/AC/RepCambiosSituacionFinanciera.aspx index b2568ea4c..84d924116 100644 --- a/AC/RepCambiosSituacionFinanciera.aspx +++ b/AC/RepCambiosSituacionFinanciera.aspx @@ -51,7 +51,11 @@
Ejercicio:
- + + + + +
diff --git a/AC/RepFlujoEfectivo.aspx.vb b/AC/RepFlujoEfectivo.aspx.vb index e95940390..7a36239a6 100644 --- a/AC/RepFlujoEfectivo.aspx.vb +++ b/AC/RepFlujoEfectivo.aspx.vb @@ -84,8 +84,13 @@ Partial Class AC_RepFlujoEfectivo 'OBTENEMOS TOTALES NETOS DE OPERACIONES PARA INSERTAR DIRECTO If DtDatos IsNot Nothing Then - TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble + If UsuarioActual.CveEmpresa.Contiene(120) Then + TotalActual = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteActual").ToString.ToDouble + TotalAnterior = DtDatos.FiltraParametros("Codigo = '040000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '050000000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble + Else + TotalActual = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteActual").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteActual").ToString.ToDouble + TotalAnterior = DtDatos.FiltraParametros("Codigo = '000040000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble - DtDatos.FiltraParametros("Codigo = '000050000000000000'").Rows(0)("ImporteAnterior").ToString.ToDouble + End If End If CargaGrid() diff --git a/AC/Reportes/RepSituacionFinanciera.rdlc b/AC/Reportes/RepSituacionFinanciera.rdlc index 6665a3008..25eb158bd 100644 --- a/AC/Reportes/RepSituacionFinanciera.rdlc +++ b/AC/Reportes/RepSituacionFinanciera.rdlc @@ -216,7 +216,7 @@ ImporteAnterior - =IIf(Parameters!CveEmpresa.Value = 48,False,True) + =IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,False,True)