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

ver el reporte

Browse Source
This commit is contained in:
rrene
2021-07-13 16:24:26 -07:00
parent b447e3c72d
commit 02715fc408
1 changed files with 23 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -37,19 +37,30 @@ Partial Class Contabilidad_ContabilidadElectronica
'TxtFechaI.Text = String.Format("01/01/{0}", Now.Year) 'TxtFechaI.Text = String.Format("01/01/{0}", Now.Year)
'TxtFechaI.Text = Now.ToShortDateString 'TxtFechaI.Text = Now.ToShortDateString
If Not UsuarioActual.Empresa.UsaContabilidad Then 'If Not UsuarioActual.Empresa.UsaContabilidad Then
BtnGenerar.Enabled = False ' BtnGenerar.Enabled = False
Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia) ' Alert("Este módulo requiere el uso de contabilidad", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If 'End If
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta.GetEjercicios() Then 'If ObjConta.GetEjercicios() Then
DdlEjercicio.DataSource = ObjConta.DtResultados ' DdlEjercicio.DataSource = ObjConta.DtResultados
Else 'Else
DdlEjercicio.DataSource = Nothing
End If Dim ClsConta As New ClsContabilidad
ObjConta.Dispose()
If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = ClsConta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
End If
ClsConta.Dispose()
DdlEjercicio.DataBind()
'End If
'ObjConta.Dispose()
DdlEjercicio.DataBind() DdlEjercicio.DataBind()