-parametro complementaria

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