Estado Resultados Subproyectos
This commit is contained in:
Rakcsle Supertramp
@@ -394,7 +394,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
|
||||
Else
|
||||
DtDatosMes = Nothing
|
||||
@@ -481,6 +481,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
Private Sub SumaTotales()
|
||||
'Llena Lb´s Totales
|
||||
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
|
||||
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
|
||||
LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
@@ -569,7 +570,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
|
||||
Else
|
||||
DtDatosMesH = Nothing
|
||||
@@ -714,13 +715,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
End Sub
|
||||
|
||||
Private Sub SumaTotalesMesH()
|
||||
'Llena Lb´s Totales
|
||||
'*********************************************************************************
|
||||
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
''Llena Lb´s Totales
|
||||
''*********************************************************************************
|
||||
'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
|
||||
LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -811,7 +812,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
|
||||
Else
|
||||
DtDatosAnualH = Nothing
|
||||
@@ -1015,13 +1016,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
End Sub
|
||||
|
||||
Private Sub SumaTotalesAnualH()
|
||||
'Llena Lb´s Totales
|
||||
'*********************************************************************************
|
||||
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
''Llena Lb´s Totales
|
||||
''*********************************************************************************
|
||||
'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
|
||||
LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -1279,38 +1280,42 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
|
||||
Next
|
||||
|
||||
Row.Item("Nombre") = "Resultados del Ejercicio:"
|
||||
Row.Item("Nombre") = "Totales:"
|
||||
'Row.Item("ImporteActual") = TotalActual.ToString
|
||||
'Row.Item("PorcentajeActual") = "100.00"
|
||||
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
|
||||
'Row.Item("PorcentajeAcumulado") = "100.00"
|
||||
'Row.Item("CtaMayor") = -1
|
||||
Row.Item("CtaMayor") = -2
|
||||
|
||||
DTTotalesSubProyectoH.Rows.Add(Row)
|
||||
|
||||
End If
|
||||
|
||||
DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH)
|
||||
DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH)
|
||||
|
||||
|
||||
GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
|
||||
GvIngresosSubProyectoH.DataBind()
|
||||
|
||||
GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
|
||||
GvGastosSubProyectoH.DataBind()
|
||||
'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
|
||||
'GvGastosSubProyectoH.DataBind()
|
||||
|
||||
GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
|
||||
GvTotalesSubProyectoH.DataBind()
|
||||
'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
|
||||
'GvTotalesSubProyectoH.DataBind()
|
||||
|
||||
UpDatosSubProyectoH.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SumaTotalesSubProyectoH()
|
||||
'Llena Lb´s Totales
|
||||
'*********************************************************************************
|
||||
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
''Llena Lb´s Totales
|
||||
''*********************************************************************************
|
||||
'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
|
||||
'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
|
||||
|
||||
LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
|
||||
'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -1318,7 +1323,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
|
||||
If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
|
||||
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
|
||||
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
|
||||
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
|
||||
@@ -1327,6 +1332,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
|
||||
'e.Row.CssClass = "SubTotales3"
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
|
||||
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
|
||||
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
e.Row.ControlStyle.Font.Size = 13
|
||||
End If
|
||||
|
||||
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
|
||||
@@ -1342,6 +1352,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
||||
|
||||
Reference in New Issue
Block a user