From 2285cda25ff39b4acf4ea2e9e38283c4c6b998c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Dec 2023 12:40:16 -0700 Subject: [PATCH] =?UTF-8?q?--=20validacion=20y=20mensaje=20en=20la=20balan?= =?UTF-8?q?za=20para=20que=20est=C3=A9n=20cuadradas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/ContabilidadElectronica.aspx.vb | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index aa70c004f..6774efaa5 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -182,6 +182,15 @@ Partial Class Contabilidad_ContabilidadElectronica DtCuentas = objconta.DtResultados End If 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 + End If Else Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) If ObjConpaq.GetBalanzaElectronica(FechaI, FechaF) Then @@ -236,10 +245,12 @@ Partial Class Contabilidad_ContabilidadElectronica 'GUARDA ARHIVO ArchivoBalanza = Server.MapPath(String.Format("~/Empresas/{0}/ContabilidadElectronica/{1}{2}{3}BN.xml", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.RFC, DdlEjercicio.SelectedValue, DdlPeriodo.SelectedValue.PadLeft(2, "0"c))) + Dim tDir As String = Server.MapPath(String.Format("~/Empresas/{0}/ContabilidadElectronica", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.RFC)) 'SOBREESCRIBE - If System.IO.File.Exists(ArchivoBalanza) Then - System.IO.File.Delete(ArchivoBalanza) - End If + If Not System.IO.Directory.Exists(tDir) Then System.IO.Directory.CreateDirectory(tDir) + + 'SOBREESCRIBE + If System.IO.File.Exists(ArchivoBalanza) Then System.IO.File.Delete(ArchivoBalanza) Dim fs As FileStream = File.Create(ArchivoBalanza) Dim info As Byte() = New UTF8Encoding(True).GetBytes(Str.ToString)