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

-

Browse Source
This commit is contained in:
rrene
2023-10-31 17:31:45 -07:00
parent e217ffa5f0
commit 59a87ec043
1 changed files with 2 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -25,7 +25,6 @@ Partial Class Contabilidad_ContabilidadElectronica
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
InicializaValores() InicializaValores()
@@ -62,7 +61,6 @@ Partial Class Contabilidad_ContabilidadElectronica
DdlEjercicio.DataBind() DdlEjercicio.DataBind()
End If End If
DdlEjercicio.SelectedValue = NowADS().Year.ToString DdlEjercicio.SelectedValue = NowADS().Year.ToString
DdlPeriodo.SelectedValue = NowADS().Month.ToString DdlPeriodo.SelectedValue = NowADS().Month.ToString
@@ -85,10 +83,8 @@ Partial Class Contabilidad_ContabilidadElectronica
GeneraBalanza() GeneraBalanza()
End If End If
End Sub End Sub
Private Sub GeneraCatalogo() Private Sub GeneraCatalogo()
Dim FechaF As Date = 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 Dim DtCuentas As New DataTable
@@ -107,14 +103,12 @@ Partial Class Contabilidad_ContabilidadElectronica
End If End If
If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
Dim Str As New StringBuilder Dim Str As New StringBuilder
'CABECERA 'CABECERA
Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>") 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("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue) Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue) Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -148,7 +142,6 @@ Partial Class Contabilidad_ContabilidadElectronica
'FIN 'FIN
Str.Append("</catalogocuentas:Catalogo>") Str.Append("</catalogocuentas:Catalogo>")
'GUARDA ARHIVO '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 = 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" 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.Write(info, 0, info.Length)
fs.Close() fs.Close()
'DESCARGA XML 'DESCARGA XML
Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile() Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile()
@@ -203,7 +195,7 @@ Partial Class Contabilidad_ContabilidadElectronica
'CABECERA 'CABECERA
Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>") 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("RFC=""{0}"" ", UsuarioActual.Empresa.RFC)
Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue) Str.AppendFormat("Mes=""{0}"" ", DdlPeriodo.SelectedValue)
Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue) Str.AppendFormat("Anio=""{0}"" ", DdlEjercicio.SelectedValue)
@@ -254,8 +246,6 @@ Partial Class Contabilidad_ContabilidadElectronica
fs.Write(info, 0, info.Length) fs.Write(info, 0, info.Length)
fs.Close() fs.Close()
'DESCARGA XML 'DESCARGA XML
Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile() Dim DescargaZIP As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile()
@@ -270,8 +260,6 @@ Partial Class Contabilidad_ContabilidadElectronica
End If End If
End Sub End Sub
#End Region #End Region