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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-02 17:56:41 -07:00
parent c77a860433 ebe0d84a6c
commit e6fdbe628e
3 changed files with 60 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsContabilidad.vb
View File

@@ -6311,7 +6311,7 @@ Public Class ClsContabilidad
#Region "ESTADO RESULTADOS HORIZONTAL" #Region "ESTADO RESULTADOS HORIZONTAL"
Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta2_EstadoResultadosMensual") DataAdapter("PA_Conta2_EstadoResultadosMensual")
@@ -6322,6 +6322,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor .Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With End With
@@ -6337,7 +6339,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal") DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
@@ -6348,6 +6350,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor .Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With End With
@@ -6364,7 +6368,7 @@ Public Class ClsContabilidad
End Function End Function
Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer) As Boolean Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal") DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
@@ -6375,6 +6379,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor .Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With End With
@@ -6413,7 +6419,7 @@ Public Class ClsContabilidad
SqlAdapter.Fill(DSet) SqlAdapter.Fill(DSet)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
Me.OnError("Ocurrió un error al obtener el Estado de resultados anual horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al obtener el Estado de resultados SubProyectos horizontal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno

41
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -767,16 +767,13 @@
<ajax:TabPanel ID="TabSubProyecto" runat="server" HeaderText="Sub Proyecto H."> <ajax:TabPanel ID="TabSubProyecto" runat="server" HeaderText="Sub Proyecto H.">
<ContentTemplate> <ContentTemplate>
<div class="col-md-12">
<asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
<table style="width: 100%;" class="table table-striped table-advance table-hover">
<tr>
<td width="100%" padding="0">
<asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true" <asp:GridView ID="GvIngresosSubProyectoH" runat="server" AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvIngresosSubProyectoH_RowDataBound" ShowHeaderWhenEmpty="true"
Style="margin-top: -10px; text-align: center;" GridLines="None"> CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
@@ -786,7 +783,7 @@
<HeaderTemplate> <HeaderTemplate>
<asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label> <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
</HeaderTemplate> </HeaderTemplate>
<HeaderStyle HorizontalAlign="Left" Width="400px" /> <HeaderStyle HorizontalAlign="Left" Width="291px" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" /> <asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -840,7 +837,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" /> <%--<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<br /> <br />
@@ -979,28 +976,12 @@
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </div>
</tr>
</table>
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
<table class="table table-striped table-hover Widthall" style="display: none">
<tr>
<td align="center">
<h4>Resultados del Ejercicio:</h4>
</td>
<td width="30%" align="right">
<asp:Label runat="server" Font-Bold="true" ID="Label3"></asp:Label>
</td>
<td width="30%" align="right">
<asp:Label runat="server" Font-Bold="true" ID="Label4"></asp:Label>
</td>
<td width="12%" align="right"></td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>

67
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -394,7 +394,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosMes = Nothing DtDatosMes = Nothing
@@ -481,6 +481,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Private Sub SumaTotales() Private Sub SumaTotales()
'Llena Lb´s Totales 'Llena Lb´s Totales
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) 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 ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosMesH = Nothing DtDatosMesH = Nothing
@@ -714,13 +715,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Sub End Sub
Private Sub SumaTotalesMesH() Private Sub SumaTotalesMesH()
'Llena Lb´s Totales ''Llena Lb´s Totales
'********************************************************************************* ''*********************************************************************************
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
LbTotalActual.ForeColor = If(TotalActualMes < 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) 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
End Sub End Sub
@@ -811,7 +812,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosAnualH = Nothing DtDatosAnualH = Nothing
@@ -1015,13 +1016,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Sub End Sub
Private Sub SumaTotalesAnualH() Private Sub SumaTotalesAnualH()
'Llena Lb´s Totales ''Llena Lb´s Totales
'********************************************************************************* ''*********************************************************************************
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
LbTotalActual.ForeColor = If(TotalActualMes < 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) 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
End Sub 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)") 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 Next
Row.Item("Nombre") = "Resultados del Ejercicio:" Row.Item("Nombre") = "Totales:"
'Row.Item("ImporteActual") = TotalActual.ToString 'Row.Item("ImporteActual") = TotalActual.ToString
'Row.Item("PorcentajeActual") = "100.00" '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("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("PorcentajeAcumulado") = "100.00"
'Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -2
DTTotalesSubProyectoH.Rows.Add(Row) DTTotalesSubProyectoH.Rows.Add(Row)
End If End If
DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH)
DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH)
GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH
GvIngresosSubProyectoH.DataBind() GvIngresosSubProyectoH.DataBind()
GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH 'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH
GvGastosSubProyectoH.DataBind() 'GvGastosSubProyectoH.DataBind()
GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH 'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH
GvTotalesSubProyectoH.DataBind() 'GvTotalesSubProyectoH.DataBind()
UpDatosSubProyectoH.Update() UpDatosSubProyectoH.Update()
End Sub End Sub
Private Sub SumaTotalesSubProyectoH() Private Sub SumaTotalesSubProyectoH()
'Llena Lb´s Totales ''Llena Lb´s Totales
'********************************************************************************* ''*********************************************************************************
LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
LbTotalActual.ForeColor = If(TotalActualMes < 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) 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
End Sub End Sub
@@ -1318,7 +1323,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then 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 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
@@ -1327,6 +1332,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
'e.Row.CssClass = "SubTotales3" 'e.Row.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True 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 End If
'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then '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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
End Sub End Sub
Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)