From 59a87ec043cff5478ddf8b3d56e42c2e8f38652b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Oct 2023 17:31:45 -0700
Subject: [PATCH] -

---
 Contabilidad/ContabilidadElectronica.aspx.vb | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 4817a0770..532a8f03e 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -25,7 +25,6 @@ Partial Class Contabilidad_ContabilidadElectronica
         End Set
     End Property
 #End Region
-
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             InicializaValores()
@@ -62,7 +61,6 @@ Partial Class Contabilidad_ContabilidadElectronica
             DdlEjercicio.DataBind()
         End If
 
-
         DdlEjercicio.SelectedValue = NowADS().Year.ToString
         DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
@@ -85,10 +83,8 @@ Partial Class Contabilidad_ContabilidadElectronica
             GeneraBalanza()
         End If
 
-
     End Sub
 
-
     Private Sub GeneraCatalogo()
         Dim FechaF As Date = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate.LastDayOfMonth
         Dim DtCuentas As New DataTable
@@ -107,14 +103,12 @@ Partial Class Contabilidad_ContabilidadElectronica
 
         End If
 
-
-
         If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
             Dim Str As New StringBuilder
 
             'CABECERA
             Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
-            Str.Append("<catalogocuentas:Catalogo xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/CatalogoCuentas/CatalogoCuentas_1_3.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.1"" ")
+            Str.Append("<catalogocuentas:Catalogo xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/CatalogoCuentas/CatalogoCuentas_1_3.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.3"" ")
             Str.AppendFormat("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
             Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
             Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -148,7 +142,6 @@ Partial Class Contabilidad_ContabilidadElectronica
             'FIN
             Str.Append("</catalogocuentas:Catalogo>")
 
-
             'GUARDA ARHIVO
             ' ArchivoCuentas = Server.MapPath(String.Format("~/Empresas/{0}/ContabilidadElectronica/{1}{2}{3}CT.xml", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.RFC, DdlEjercicio.SelectedValue, DdlPeriodo.SelectedValue.PadLeft(2, "0"c)))
             ArchivoCuentas = $"{UsuarioActual.Empresa.Ruta}/ContabilidadElectronica/{ UsuarioActual.Empresa.RFC}{DdlEjercicio.SelectedValue}{DdlPeriodo.SelectedValue.PadLeft(2, "0"c)}CT.xml"
@@ -163,7 +156,6 @@ Partial Class Contabilidad_ContabilidadElectronica
             fs.Write(info, 0, info.Length)
             fs.Close()
 
-
             'DESCARGA XML
             Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile()
 
@@ -203,7 +195,7 @@ Partial Class Contabilidad_ContabilidadElectronica
 
             'CABECERA
             Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
-            Str.Append("<BCE:Balanza xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion/BalanzaComprobacion_1_3.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.1"" ")
+            Str.Append("<BCE:Balanza xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion/BalanzaComprobacion_1_3.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.3"" ")
             Str.AppendFormat("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
             Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
             Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -254,8 +246,6 @@ Partial Class Contabilidad_ContabilidadElectronica
             fs.Write(info, 0, info.Length)
             fs.Close()
 
-
-
             'DESCARGA XML
             Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile()
 
@@ -270,8 +260,6 @@ Partial Class Contabilidad_ContabilidadElectronica
 
         End If
 
-
-
     End Sub
 
 #End Region