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"
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
DataAdapter("PA_Conta2_EstadoResultadosMensual")
@@ -6322,6 +6322,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With
@@ -6337,7 +6339,7 @@ Public Class ClsContabilidad
Return Retorno
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
DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
@@ -6348,6 +6350,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With
@@ -6364,7 +6368,7 @@ Public Class ClsContabilidad
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
DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
@@ -6375,6 +6379,8 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Divisor", SqlDbType.Int).Value = Divisor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
End With
@@ -6413,7 +6419,7 @@ Public Class ClsContabilidad
SqlAdapter.Fill(DSet)
Retorno = True
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
Return Retorno

41
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -767,16 +767,13 @@
<ajax:TabPanel ID="TabSubProyecto" runat="server" HeaderText="Sub Proyecto H.">
<ContentTemplate>
<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">
<div class="col-md-12">
<asp:UpdatePanel ID="UpDatosSubProyectoH" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<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>
<asp:TemplateField>
<ItemTemplate>
@@ -786,7 +783,7 @@
<HeaderTemplate>
<asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
</HeaderTemplate>
<HeaderStyle HorizontalAlign="Left" Width="400px" />
<HeaderStyle HorizontalAlign="Left" Width="291px" />
</asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
@@ -840,7 +837,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</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>
</asp:GridView>
<br />
@@ -979,28 +976,12 @@
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</td>
</tr>
</table>
</div>
<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>

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 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)