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

-

Browse Source
This commit is contained in:
rrene
2021-07-14 21:43:45 -07:00
parent 0d9fd0e77b cd8d8d482d
commit 409f2063cb
11 changed files with 14984 additions and 5728 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -42,27 +42,26 @@ Partial Class Contabilidad_ContabilidadElectronica
' Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
'If ObjConta.GetEjercicios() Then
' DdlEjercicio.DataSource = ObjConta.DtResultados
'Else
Dim ClsConta As New ClsContabilidad
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = ClsConta.DtResultados
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim objconta As New ClsContabilidad
If objconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = objconta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ClsConta.Dispose()
objconta.Dispose()
DdlEjercicio.DataBind()
'End If
'ObjConta.Dispose()
Else
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConpaq.GetEjercicios() Then
DdlEjercicio.DataSource = ObjConpaq.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ObjConpaq.Dispose()
DdlEjercicio.DataBind()
End If
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlPeriodo.SelectedValue = Now.Month.ToString
@@ -93,12 +92,21 @@ 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 DtCuentas As New DataTable
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim objconta As New ClsContabilidad
If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DtCuentas = objconta.DtResultados
End If
objconta.Dispose()
Else
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConpaq.GetCuentasElectronica(MinFecha, FechaF) Then
DtCuentas = ObjConpaq.DtResultados
End If
ObjConpaq.Dispose()
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConpaq.GetCuentasElectronica(MinFecha, FechaF) Then
DtCuentas = ObjConpaq.DtResultados
End If
ObjConpaq.Dispose()
If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
@@ -106,24 +114,33 @@ 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_1/CatalogoCuentas CatalogoCuentas_1_1.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_1/CatalogoCuentas""")
'DETALLES
For Each Dr As DataRow In DtCuentas.Rows
Str.Append("<catalogocuentas:Ctas ")
Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup"))
Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta"))
Str.AppendFormat("Desc=""{0}"" ", Dr("Desc"))
Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("SubCtaDe"))
Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel"))
Str.AppendFormat("Natur=""{0}"" ", Dr("Natur"))
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Str.AppendFormat("CodAgrup=""{0}"" ", Dr("AgrupadorSAT").ToString)
Str.AppendFormat("NumCta=""{0}"" ", Dr("Codigo").ToString)
Str.AppendFormat("Desc=""{0}"" ", Dr("Nombre").ToString)
Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("CodigoPadre").ToString)
Str.AppendFormat("Nivel=""{0}"" ", "")
Str.AppendFormat("Natur=""{0}"" ", Dr("Tipo").ToString)
Else
Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup").ToString)
Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
Str.AppendFormat("Desc=""{0}"" ", Dr("Desc").ToString)
Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("SubCtaDe").ToString)
Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel").ToString)
Str.AppendFormat("Natur=""{0}"" ", Dr("Natur").ToString)
End If
Str.Append("/>")
Next
DtCuentas.Dispose()