Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -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>
|
||||
|
||||
@@ -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