From e4775f2aa8073b179f79fc98baca7cf40bc0473f Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 9 Jan 2020 18:00:33 -0700 Subject: [PATCH] -parametro complementaria --- Bancos/ConciliacionesBancarias.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index f84d6bdb4..6e71943d2 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -613,6 +613,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) Dim SaldoFinalContabilidad As Double = 0 + Dim SaldoFinalContabilidadComplementaria As Double = 0 If DdlCuenta.SelectedValue.ToEntero > 0 Then Dim CveCuenta As Integer = 0 Dim CveCuentaComplementaria As Integer = 0 @@ -636,7 +637,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx If CveCuentaComplementaria > 0 Then If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then If ObjConta.DtResultados.Rows.Count > 1 Then - SaldoFinalContabilidad += ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble + SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble End If End If End If @@ -644,6 +645,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx End If params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero))) + params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero))) params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero)) If Imagen.Exists Then