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

-- ajustes

Browse Source
This commit is contained in:
rrene
2025-06-21 13:40:58 -07:00
parent 687e1560dd
commit 38dc69d1e8
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

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