From 38dc69d1e83378257dfab74e729b63d373d5df17 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 21 Jun 2025 13:40:58 -0700 Subject: [PATCH] -- ajustes --- Contabilidad/RepBalanzaComprobacion.aspx.vb | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index c8b5a5d7e..675c620ff 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -6,7 +6,6 @@ Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms Imports ClosedXML.Excel -Imports Profact.TimbraCFDI40 Imports System.IO Imports System.Drawing Imports System.Web.Services @@ -434,12 +433,12 @@ Partial Class Contabilidad2_RepBalanzaComprobacion Dim ultimaFila As DataRow = DtDatos.Rows(DtDatos.Rows.Count - 1) - Dim LastSaldoID As Decimal = ultimaFila("SaldoID").ToString.ToDecimal - Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal - Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal - Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal - Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal - Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal + Dim LastSaldoID As Decimal = ultimaFila("SaldoICargo").ToString.ToDecimal + Dim LastTotalAbonos As Decimal = ultimaFila("Abonos").ToString.ToDecimal + Dim LastTotalCargos As Decimal = ultimaFila("Cargos").ToString.ToDecimal + Dim LastSaldoAD As Decimal = ultimaFila("SaldoFCargo").ToString.ToDecimal + Dim LastSaldoIA As Decimal = ultimaFila("SaldoIAbono").ToString.ToDecimal + Dim LastSaldoAA As Decimal = ultimaFila("SaldoFAbono").ToString.ToDecimal WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales" WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID