From 1ae9e9cf62058adc4fea8463523765a4493968b4 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Jun 2025 15:17:50 -0700 Subject: [PATCH] - cambios --- Contabilidad/ContabilidadElectronica.aspx.vb | 14 +++++------- Contabilidad/RepBalanzaComprobacion.aspx | 2 +- Contabilidad/RepBalanzaComprobacion.aspx.vb | 23 ++++++++++++-------- 3 files changed, 21 insertions(+), 18 deletions(-) diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index e3e1494bf..754ea4974 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -2,7 +2,6 @@ Option Strict On Imports Extensiones -Imports System Imports System.IO Imports System.Security.Cryptography Imports System.Security.Cryptography.X509Certificates @@ -10,7 +9,6 @@ Imports System.Text Imports System.Xml Imports System.Xml.Xsl Imports System.Data -Imports CrystalDecisions.Web Imports DocumentFormat.OpenXml.Wordprocessing Imports Org.BouncyCastle.Asn1 Imports Org.BouncyCastle.Tls.Crypto.Impl @@ -274,12 +272,12 @@ Partial Class Contabilidad_ContabilidadElectronica objconta.Dispose() If DtCuentas IsNot Nothing Then - Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD") - Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA") - 'If Deudor <> Acreedor Then - ' Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError) - ' Exit Sub - 'End If + Dim Deudor As Decimal = DtCuentas.SUM("SaldoFCargo", "CveCuenta is null") 'tomo los datos del acumulado de la balanza + Dim Acreedor As Decimal = DtCuentas.SUM("SaldoFAbono", "CveCuenta is null") 'tomo los datos del acumulado de la balanza + If Deudor <> Acreedor Then + Alert(String.Format("los Saldos Actuales no cuadran. {0}-{1}", Deudor, Acreedor), TipoMensaje.MsgError) + Exit Sub + End If End If Else Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx index 3cec952cb..8cedf3845 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx +++ b/Contabilidad/RepBalanzaComprobacion.aspx @@ -186,7 +186,7 @@ - + diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index ed2233a4c..c8b5a5d7e 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -11,8 +11,6 @@ Imports System.IO Imports System.Drawing Imports System.Web.Services - - Partial Class Contabilidad2_RepBalanzaComprobacion Inherits ClsPaginas @@ -193,6 +191,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'Acomoda Deudor y Acreedor If e.Row.DBCampo("CveTipo") = "1" Then e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero) + e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right") e.Row.FCLabel("LbSaldoActual").Text = " " End If @@ -211,19 +210,25 @@ Partial Class Contabilidad2_RepBalanzaComprobacion End If 'Total general - If e.Row.DBCampo("Id") = "" Then - + If e.Row.DBCampo("CveCuenta") = "" Then e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Size = 9 e.Row.ControlStyle.Height = 30 e.Row.FCLabel("LbNombre").Text = "Sumas Iguales" - e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}
{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero) - e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero - e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero + e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right") + e.Row.FCLabel("LbSaldoInicial").Style.Add("white-space", "pre") + e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}
{1}", e.Row.DBCampo("SaldoICargo").FormatoNumero, e.Row.DBCampo("SaldoIAbono").FormatoNumero) + e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").FormatoNumero + e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").FormatoNumero e.Row.FCLabel("LbSaldoActual").Visible = True - e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}
{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero) + e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}
{1}", e.Row.DBCampo("SaldoFCargo").FormatoNumero, e.Row.DBCampo("SaldoFAbono").FormatoNumero) + e.Row.FCHyperLink("HLSaldoActual").Visible = False Else - If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto) + If ModoImpresion Then + e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text + Else + e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto) + End If End If End If End Sub