RepRazonesfiznacieras
This commit is contained in:
Oscar Irigoyen
@@ -35,6 +35,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
Tab.ActiveTabIndex = 0
|
||||
|
||||
CargaEjercicios()
|
||||
|
||||
@@ -50,25 +51,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
|
||||
|
||||
Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If Tab.TabIndex = 0 Then 'Balance General
|
||||
|
||||
End If
|
||||
|
||||
If Tab.ActiveTabIndex = 1 Then 'Estado de Resultados
|
||||
|
||||
End If
|
||||
|
||||
If Tab.ActiveTabIndex = 2 Then 'Ratios
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
UpFiltros.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
@@ -146,12 +128,102 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
|
||||
|
||||
#Region "ESTADO RESULTADOS"
|
||||
#Region "ESTADO BALANCE GENERAL"
|
||||
|
||||
|
||||
|
||||
Private Sub CargaDatosBalanceGeneral()
|
||||
|
||||
LnkExportar.Visible = False
|
||||
GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
|
||||
|
||||
Dim FechaI = New Date(DdlEjercicio.SelectedValue.ToEntero, 1, 1)
|
||||
Dim FechaF = New Date(DdlEjercicio2.SelectedValue.ToEntero, 1, 1)
|
||||
|
||||
|
||||
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
|
||||
|
||||
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
Dim dtTemp As New DataTable
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
dtTemp = objFinanzas.DtResultados
|
||||
|
||||
GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
|
||||
GvBalanceGeneral.DataSource = dtTemp
|
||||
|
||||
If dtTemp.Rows.Count > 0 Then
|
||||
' LnkExportar.Visible = True
|
||||
End If
|
||||
|
||||
Else
|
||||
GvBalanceGeneral.DataSource = Nothing
|
||||
End If
|
||||
|
||||
objFinanzas.Dispose()
|
||||
GvBalanceGeneral.DataBind()
|
||||
|
||||
UpBalanceGeneral.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
|
||||
|
||||
For index = 2 To Gv.Columns.Count - 1
|
||||
CType(Gv.Columns(index), BoundField).DataField = Nothing
|
||||
Gv.Columns(index).Visible = False
|
||||
Next
|
||||
UpBalanceGeneral.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvBalanceGeneralMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
|
||||
Dim index = 1
|
||||
|
||||
|
||||
For index = 1 To dt.Columns.Count - 5
|
||||
CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
|
||||
Gv.Columns(index + 4).Visible = True
|
||||
|
||||
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
|
||||
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Protected Sub GvBalanceGeneral_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.DataKey("Tipo").ToEntero = 1 Then
|
||||
e.Row.Font.Bold = True
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("Tipo").ToEntero = 3 Then
|
||||
e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
|
||||
e.Row.Attributes.Add("style", "border-top: 1px solid #000;")
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("Tipo").ToEntero = 4 Then
|
||||
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "ESTADO RESULTADOS"
|
||||
|
||||
|
||||
|
||||
Private Sub CargaDatosEstadoResultados()
|
||||
|
||||
|
||||
@@ -170,7 +242,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
Dim dtTemp As New DataTable
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
|
||||
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
dtTemp = objFinanzas.DtResultados
|
||||
|
||||
GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
|
||||
@@ -227,6 +299,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
If e.Row.DataKey("Tipo").ToEntero = 3 Then
|
||||
e.Row.FCLabel("LblNombre").Text = $" {e.Row.FCLabel("LblNombre").Text}"
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
|
||||
If e.Row.DataKey("Tipo").ToEntero = 4 Then
|
||||
@@ -266,7 +339,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Dim objFinanzas As New ClsFinanzas
|
||||
|
||||
|
||||
If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, 12) Then
|
||||
If objFinanzas.GetRazonesFinancierasRatiosRep(FechaI, FechaF, -1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero) Then
|
||||
DTRatios = objFinanzas.DtResultados
|
||||
|
||||
GVRatiosMostrarColumnas(DTRatios, GVRatios)
|
||||
@@ -297,26 +370,15 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
End Sub
|
||||
|
||||
Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
|
||||
Dim index = 3
|
||||
Dim index = 4
|
||||
|
||||
|
||||
For index = 3 To dt.Columns.Count - 2
|
||||
For index = 4 To dt.Columns.Count - 2
|
||||
CType(Gv.Columns(index + 1), BoundField).DataField = dt.Columns(index + 1).ColumnName
|
||||
'CType(Gv.Columns(index + 1), BoundField).DataFormatString = "{0:P2}"
|
||||
Gv.Columns(index + 1).Visible = True
|
||||
CType(Gv.Columns(index + 1), BoundField).HeaderText = dt.Columns(index + 1).ColumnName
|
||||
Next
|
||||
|
||||
'Dim Count As Integer = 1
|
||||
'For Each GvColumn As DataGridViewColumn In GVRatios.Columns
|
||||
|
||||
|
||||
' GvColumn.Width = If(Count = 1, 300, 75)
|
||||
|
||||
' Count = Count + 1
|
||||
'Next
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -342,20 +404,23 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
|
||||
|
||||
For x = 1 To DTRatios.Columns.Count - 2
|
||||
|
||||
'If e.Row.Cells(x).Text.ToDecimal = 0 Then
|
||||
' e.Row.Cells(x).Text = ""
|
||||
'Else
|
||||
If EsPorcentaje Then
|
||||
e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###.00")}%"
|
||||
e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
|
||||
Else
|
||||
e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
|
||||
End If
|
||||
'End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
If e.Row.DataKey("Formula").Trim().Length > 0 Then
|
||||
|
||||
'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
|
||||
e.Row.Attributes.Add("data-html", "true")
|
||||
e.Row.Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.Attributes.Add("data-placement", "top")
|
||||
e.Row.Attributes.Add("title", $"{e.Row.DataKey("Formula").Trim()}")
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -365,12 +430,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "DESCARGA EXCEL"
|
||||
|
||||
|
||||
@@ -426,5 +485,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user