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

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-07-14 13:27:02 -07:00
parent 31485f0b6f
commit b5df89c74a
11 changed files with 14988 additions and 5723 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -37,21 +37,31 @@ Partial Class Contabilidad_ContabilidadElectronica
'TxtFechaI.Text = String.Format("01/01/{0}", Now.Year)
'TxtFechaI.Text = Now.ToShortDateString
If Not UsuarioActual.Empresa.UsaContabilidad Then
BtnGenerar.Enabled = False
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
'If Not UsuarioActual.Empresa.UsaContabilidad Then
' BtnGenerar.Enabled = False
' Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
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
objconta.Dispose()
DdlEjercicio.DataBind()
Else
DdlEjercicio.DataSource = Nothing
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
ObjConta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlPeriodo.SelectedValue = Now.Month.ToString
@@ -82,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
@@ -95,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()