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

Local

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-09-21 10:56:13 -07:00
parent 8b2952198d
commit e5522d8787
1 changed files with 525 additions and 525 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -346,7 +346,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
If Tab.ActiveTabIndex = 0 Then If TAB.ActiveTabIndex = 0 Then
LiSubProyectoDdl.Visible = True LiSubProyectoDdl.Visible = True
LiSubProyectoLbl.Visible = True LiSubProyectoLbl.Visible = True
@@ -366,7 +366,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DVTri.Visible = False DVTri.Visible = False
End If End If
If Tab.ActiveTabIndex = 1 Then If TAB.ActiveTabIndex = 1 Then
LiSubProyectoDdl.Visible = True LiSubProyectoDdl.Visible = True
LiSubProyectoLbl.Visible = True LiSubProyectoLbl.Visible = True
@@ -391,7 +391,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
If Tab.ActiveTabIndex = 2 Then If TAB.ActiveTabIndex = 2 Then
ValidaEjercicios() ValidaEjercicios()
@@ -415,7 +415,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
If Tab.ActiveTabIndex = 3 Then If TAB.ActiveTabIndex = 3 Then
LiSubProyectoDdl.Visible = True LiSubProyectoDdl.Visible = True
LiSubProyectoLbl.Visible = True LiSubProyectoLbl.Visible = True
@@ -498,17 +498,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
TotalAnteriorMes = 0 TotalAnteriorMes = 0
'Mes 'Mes
If Tab.ActiveTabIndex = 0 Then If TAB.ActiveTabIndex = 0 Then
CargaDatosMes() CargaDatosMes()
End If End If
'MES HORIZONTAL 'MES HORIZONTAL
If Tab.ActiveTabIndex = 1 Then If TAB.ActiveTabIndex = 1 Then
CargaDatosMesH() CargaDatosMesH()
End If End If
'AÑO HORIZONTAL 'AÑO HORIZONTAL
If Tab.ActiveTabIndex = 2 Then If TAB.ActiveTabIndex = 2 Then
If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia) Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
@@ -518,7 +518,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If End If
'SUBPROYECTO 'SUBPROYECTO
If Tab.ActiveTabIndex = 3 Then If TAB.ActiveTabIndex = 3 Then
CargaDatosSubProyectoH() CargaDatosSubProyectoH()
End If End If
@@ -2058,14 +2058,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Private Sub Imprimir(Optional reporte As String = "PDF") Private Sub Imprimir(Optional reporte As String = "PDF")
If Tab.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then If TAB.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual") ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual")
ElseIf Tab.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then ElseIf TAB.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH) ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then ElseIf TAB.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH)
ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then ElseIf TAB.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)