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

balanza electronica por via sig

Browse Source
This commit is contained in:
Hector
2021-07-29 10:11:48 -07:00
parent 89311bb4a2
commit e06e845d54
1 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -183,20 +183,26 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), DdlEjercicio.SelectedValue).ToDate
Dim FechaF = FechaI.LastDayOfMonth Dim FechaF = FechaI.LastDayOfMonth
Dim DtCuentas As New DataTable Dim DtCuentas As New DataTable
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) Dim objconta As New ClsContabilidad
If ObjConpaq.GetBalanzaElectronica(FechaI, FechaF) Then If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
DtCuentas = ObjConpaq.DtResultados DtCuentas = objconta.DtResultados
End If
objconta.Dispose()
Else
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConpaq.GetBalanzaElectronica(FechaI, FechaF) Then
DtCuentas = ObjConpaq.DtResultados
End If
ObjConpaq.Dispose()
End If End If
ObjConpaq.Dispose()
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("<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_1/BalanzaComprobacion/BalanzaComprobacion_1_1.xsd"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Version=""1.1"" ")
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)
@@ -212,11 +218,11 @@ Partial Class Contabilidad_ContabilidadElectronica
'DETALLES 'DETALLES
For Each Dr As DataRow In DtCuentas.Rows For Each Dr As DataRow In DtCuentas.Rows
Str.Append("<BCE:Ctas ") Str.Append("<BCE:Ctas ")
Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta")) Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni")) Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
Str.AppendFormat("Debe=""{0}"" ", Dr("Debe")) Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
Str.AppendFormat("Haber=""{0}"" ", Dr("Haber")) Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin")) Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
Str.Append("/>") Str.Append("/>")
Next Next
@@ -225,7 +231,6 @@ Partial Class Contabilidad_ContabilidadElectronica
'FIN 'FIN
Str.Append("</BCE:Balanza>") Str.Append("</BCE:Balanza>")
'GUARDA ARHIVO '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))) 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)))