From abb8acb5c7b7f13c24280bb4e443e0db6fbb266c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 31 Oct 2023 12:33:28 -0700
Subject: [PATCH] =?UTF-8?q?cambio=20a=20versi=C3=B3n=201.3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index 7c2a2e4b8..e8803f9f3 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -90,7 +90,7 @@ Partial Class Contabilidad_ContabilidadElectronica
 
 
     Private Sub GeneraCatalogo()
-        Dim FechaF = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate.LastDayOfMonth
+        Dim FechaF As Date = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate.LastDayOfMonth
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
@@ -114,14 +114,14 @@ Partial Class Contabilidad_ContabilidadElectronica
 
             'CABECERA
             Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
-            Str.Append("<catalogocuentas:Catalogo xsi:schemaLocation=""www.sat.gob.mx/esquemas/ContabilidadE/1_1/CatalogoCuentas/CatalogoCuentas_1_1.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.1"" ")
             Str.AppendFormat("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
             Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
             Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
             Str.AppendFormat("Sello=""{0}"" ", "123")
             Str.AppendFormat("noCertificado=""{0}"" ", "123")
             Str.AppendFormat("Certificado=""{0}"" ", "1234567890")
-            Str.Append("xmlns:catalogocuentas=""www.sat.gob.mx/esquemas/ContabilidadE/1_1/CatalogoCuentas"">")
+            Str.Append("xmlns:catalogocuentas=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/CatalogoCuentas"">")
 
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
@@ -180,8 +180,8 @@ Partial Class Contabilidad_ContabilidadElectronica
     End Sub
 
     Private Sub GeneraBalanza()
-        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate
-        Dim FechaF = FechaI.LastDayOfMonth
+        Dim FechaI As Date = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate
+        Dim FechaF As Date = FechaI.LastDayOfMonth
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
@@ -202,7 +202,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_1/BalanzaComprobacion/BalanzaComprobacion_1_1.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.1"" ")
             Str.AppendFormat("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
             Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
             Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -213,7 +213,7 @@ Partial Class Contabilidad_ContabilidadElectronica
             Str.AppendFormat("Sello=""{0}"" ", "123")
             Str.AppendFormat("noCertificado=""{0}"" ", "123")
             Str.AppendFormat("Certificado=""{0}"" ", "1234567890")
-            Str.Append("xmlns:BCE=""www.sat.gob.mx/esquemas/ContabilidadE/1_1/BalanzaComprobacion"">")
+            Str.Append("xmlns:BCE=""www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion"">")
 
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows