-
+
-
+
@@ -115,28 +132,37 @@
-
- <%----%>
+
-
+
+
+
+
+
+
+
+
-
- <%----%>
+
+
+
+
+
+
+
-
-
- <%--
-
- --%>
+
+
-
+
@@ -150,24 +176,28 @@
-
- <%----%>
+
-
+
+
+
+
+
-
- <%----%>
+
-
+
+
+
+
+
- <%--
-
- --%>
+
@@ -177,7 +207,7 @@
-
+
Resultados del Ejercicio:
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index f48ff1d83..9aab64b5f 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -105,6 +105,12 @@ Partial Class AC_RepEstadoActividades
DVConsolidado2.Visible = True
End If
+ If UsuarioActual.CveRol = 1 Then
+ DVSubtotales1.Visible = True
+ DVSubtotales2.Visible = True
+ End If
+
+
End If
End Sub
@@ -215,6 +221,139 @@ Partial Class AC_RepEstadoActividades
DtGastos.Rows.Add(Row)
End If
+ DtGastos.AcceptChanges()
+
+
+ If DdlVerConSubTotales.SelectedValue.ToEntero = 1 Then
+
+ Dim idxUtilidadBruta As Integer = 0
+ Dim idxUtilidadOperacion As Integer = 0
+ Dim idxUtilidadAntesImpuestos As Integer = 0
+
+ Dim IndexActual As Integer = 0
+ For Each dRow As DataRow In DtGastos.Rows
+
+ If dRow("Codigo").ToString.Contains("6000000") Then 'Utilidad Bruta indice que se tomara
+ idxUtilidadBruta = IndexActual
+ IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco
+ End If
+
+ If dRow("Codigo").ToString.Contains("7000000") Then 'Utilidad de Operación
+ idxUtilidadOperacion = IndexActual
+ IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco
+ End If
+
+ If dRow("Nombre").ToString.Contains("TOTAL GASTOS") Then 'Utilidad antes de impuestos
+ idxUtilidadAntesImpuestos = IndexActual
+ End If
+
+ IndexActual = IndexActual + 1
+ Next
+
+ DtGastos.AcceptChanges()
+
+
+ Dim UtilidadBrutaActual, UtilidadBrutaAcumulada, UtilidadBrutPorcentajeActual, UtilidadBrutPorcentajeAcumulado As Decimal
+
+ Dim UtilidadOperacionActual, UtilidadOperacionAcumulada, UtilidadOperacionPorcentajeActual, UtilidadOperacionPorcentajeAcumulado As Decimal
+
+ Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada, UtilidadAntesImpuestosPorcentajeActual, UtilidadAntesImpuestosPorcentajeAcumulado As Decimal
+
+
+ Dim IngresoActual As Decimal = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ")
+ Dim IngresoAcumulado As Decimal = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ")
+
+ Dim CostoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ")
+ Dim CostoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1")
+
+ Dim GastoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ")
+ Dim GastoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ")
+
+ Dim ResultadoIntegralActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ")
+ Dim ResultadoIntegralAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ")
+
+
+ UtilidadBrutaActual = IngresoActual - CostoActual
+ UtilidadBrutaAcumulada = IngresoAcumulado - CostoAcumulado
+
+ UtilidadOperacionActual = IngresoActual - CostoActual - GastoActual
+ UtilidadOperacionAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado
+
+ UtilidadAntesImpuestosActual = IngresoActual - CostoActual - GastoActual - ResultadoIntegralActual
+ UtilidadAntesImpuestosAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado - ResultadoIntegralAcumulado
+
+
+ UtilidadBrutPorcentajeActual = If(IngresoActual <> 0 And UtilidadBrutaActual <> 0, (UtilidadBrutaActual / IngresoActual * 100), 0)
+ UtilidadBrutPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadBrutaAcumulada <> 0, (UtilidadBrutaAcumulada / IngresoAcumulado * 100), 0)
+
+ UtilidadOperacionPorcentajeActual = If(IngresoActual <> 0 And UtilidadOperacionActual <> 0, (UtilidadOperacionActual / IngresoActual * 100), 0)
+ UtilidadOperacionPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadOperacionAcumulada <> 0, (UtilidadOperacionAcumulada / IngresoAcumulado * 100), 0)
+
+ UtilidadAntesImpuestosPorcentajeActual = If(IngresoActual <> 0 And UtilidadAntesImpuestosActual <> 0, (UtilidadAntesImpuestosActual / IngresoActual * 100), 0)
+ UtilidadAntesImpuestosPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadAntesImpuestosAcumulada <> 0, (UtilidadAntesImpuestosAcumulada / IngresoAcumulado * 100), 0)
+
+
+ Dim dRowUtilidadBruta As DataRow = DtGastos.NewRow
+ Dim dRowUtilidadBrutaVacio As DataRow = DtGastos.NewRow
+
+ Dim dRowUtilidadOperacion As DataRow = DtGastos.NewRow
+ Dim dRowUtilidadOperacionVacio As DataRow = DtGastos.NewRow
+
+ Dim dRowUtilidadAntesImpuestos As DataRow = DtGastos.NewRow
+ Dim dRowUtilidadAntesImpuestosVacio As DataRow = DtGastos.NewRow
+
+
+
+ dRowUtilidadBruta("Nombre") = "Utilidad Bruta"
+ dRowUtilidadBruta("ImporteActual") = UtilidadBrutaActual
+ dRowUtilidadBruta("ImporteAcumulado") = UtilidadBrutaAcumulada
+ dRowUtilidadBruta("CtaMayor") = -1
+ dRowUtilidadBruta("Orden") = "600"
+ dRowUtilidadBruta("PorcentajeActual") = UtilidadBrutPorcentajeActual
+ dRowUtilidadBruta("PorcentajeAcumulado") = UtilidadBrutPorcentajeAcumulado
+ dRowUtilidadBrutaVacio("CtaMayor") = -1
+ dRowUtilidadBrutaVacio("Orden") = "600"
+
+ dRowUtilidadOperacion("Nombre") = "Utilidad de Operación"
+ dRowUtilidadOperacion("ImporteActual") = UtilidadOperacionActual
+ dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada
+ dRowUtilidadOperacion("CtaMayor") = -1
+ dRowUtilidadOperacion("Orden") = "700"
+ dRowUtilidadOperacion("PorcentajeActual") = UtilidadOperacionPorcentajeActual
+ dRowUtilidadOperacion("PorcentajeAcumulado") = UtilidadOperacionPorcentajeAcumulado
+ dRowUtilidadOperacionVacio("CtaMayor") = -1
+ dRowUtilidadOperacionVacio("Orden") = "700"
+
+ dRowUtilidadAntesImpuestos("Nombre") = "Utilidad antes de impuestos"
+ dRowUtilidadAntesImpuestos("ImporteActual") = UtilidadAntesImpuestosActual
+ dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada
+ dRowUtilidadAntesImpuestos("CtaMayor") = -1
+ dRowUtilidadAntesImpuestos("Orden") = "790"
+ dRowUtilidadAntesImpuestos("PorcentajeActual") = UtilidadAntesImpuestosPorcentajeActual
+ dRowUtilidadAntesImpuestos("PorcentajeAcumulado") = UtilidadAntesImpuestosPorcentajeAcumulado
+ dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1
+ dRowUtilidadAntesImpuestosVacio("Orden") = "790"
+
+ 'PorcentajeActual
+ 'PorcentajeAcumulado
+
+
+ DtGastos.Rows.InsertAt(dRowUtilidadBruta, idxUtilidadBruta)
+ DtGastos.Rows.InsertAt(dRowUtilidadBrutaVacio, idxUtilidadBruta + 1)
+
+ DtGastos.Rows.InsertAt(dRowUtilidadOperacion, idxUtilidadOperacion)
+ DtGastos.Rows.InsertAt(dRowUtilidadOperacionVacio, idxUtilidadOperacion + 1)
+
+
+ DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestos, idxUtilidadAntesImpuestos)
+ DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestosVacio, idxUtilidadAntesImpuestos + 1)
+
+ 'ImporteActual
+ 'ImporteAcumulado
+
+ DtGastos.AcceptChanges()
+ End If
+
GvIngresos.DataSource = DtIngresos
GvIngresos.DataBind()
@@ -254,7 +393,7 @@ Partial Class AC_RepEstadoActividades
Protected Sub GvIngresos_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 < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnterior += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
@@ -274,16 +413,23 @@ Partial Class AC_RepEstadoActividades
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+ e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+ e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
End If
+
+ If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
+ e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;")
+ End If
+
End If
End Sub
Protected Sub GvGastos_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 < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then
TotalActual -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnterior -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
@@ -301,10 +447,18 @@ Partial Class AC_RepEstadoActividades
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
+ e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+ e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red
End If
+
+
+ If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then
+ e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;")
+ End If
+
End If
End Sub
@@ -337,12 +491,10 @@ Partial Class AC_RepEstadoActividades
params.Add(New ReportParameter("pFirma2", ""))
params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text)))
params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
-
- ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
-
-
+ ImprimirPDF("AC/Reportes/RepEstadoActividadesConta2.rdlc", lrds, params, "EstadoActividades", Formato)
' UsuarioActual.Empresa.GrupoEmpresa
End Sub
End Class
+
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 3a46151ae..e997b3393 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -275,7 +275,7 @@ Partial Class LogIn
If Not IsNothing(Request("port")) Then
puerto = String.Format(":{0}", Request("port"))
Else
- puerto = String.Format(":{0}", If(System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1", 84, 4200))
+ puerto = String.Format(":{0}", 84)
End If
Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
If Request.Url.Port <> 80 Then
diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx
index 4b82ca5f0..3ce74d0cf 100644
--- a/Nomina/RepPersonalDIM.aspx
+++ b/Nomina/RepPersonalDIM.aspx
@@ -28,7 +28,11 @@
th{
text-align:left!important;
+ border-top-style:none!important;
}
+
+
+
@@ -90,14 +94,22 @@
+
+
+
-
diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb
index d697818ef..fb2d75c48 100644
--- a/Nomina/RepPersonalDIM.aspx.vb
+++ b/Nomina/RepPersonalDIM.aspx.vb
@@ -8,10 +8,43 @@ Imports CrystalDecisions.CrystalReports.Engine
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
+Imports Stimulsoft.Report.Export
Partial Class Nomina_RepPersonalDIM
Inherits ClsPaginas
+
+ ReadOnly Property color_green_dark As Drawing.Color
+ Get
+ Return System.Drawing.Color.FromArgb(77, 179, 162)
+ End Get
+ End Property
+
+ ReadOnly Property color_purple_intense As Drawing.Color
+ Get
+ Return System.Drawing.Color.FromArgb(135, 117, 167)
+ End Get
+ End Property
+
+ ReadOnly Property color_blue As Drawing.Color
+ Get
+ Return System.Drawing.Color.FromArgb(53, 152, 220)
+ End Get
+ End Property
+
+ ReadOnly Property color_blue_madison As Drawing.Color
+ Get
+ Return System.Drawing.Color.FromArgb(87, 142, 190)
+ End Get
+ End Property
+
+ ReadOnly Property color_yellow As Drawing.Color
+ Get
+ Return System.Drawing.Color.FromArgb(196, 159, 71)
+ End Get
+ End Property
+
+
Public Property Dt_Datos As DataTable
Get
If ViewState("Dt_Datos") Is Nothing Then
@@ -54,6 +87,8 @@ Partial Class Nomina_RepPersonalDIM
End Sub
+
+
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
@@ -99,20 +134,57 @@ Partial Class Nomina_RepPersonalDIM
Imprimir("Excel")
End Sub
- Private Sub Imprimir(Optional reporte As String = "PDF")
+ Private Sub ColoresCabeceraGrid()
+
+
+ Dim countColumnas As Integer = 0
+ For Each gvColumn As DataControlField In GvDatos.Columns
+
+ If countColumnas <= 27 Then
+ GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_green_dark
+ End If
+
+ If countColumnas > 27 And countColumnas <= 45 Then
+ GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_purple_intense
+ End If
+
+ If countColumnas > 45 And countColumnas <= 47 Then
+ GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue
+ End If
+
+ If countColumnas > 47 And countColumnas <= 105 Then
+ GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue_madison
+ End If
+
+ If countColumnas > 105 And countColumnas <= 124 Then
+ GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_yellow
+ End If
+ countColumnas = countColumnas + 1
+ Next
+
+ End Sub
+
+ Private Sub Imprimir(Optional reporte As String = "PDF")
+ ColoresCabeceraGrid()
+
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
+ 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162)
+ cell.BackColor = color_green_dark
row.Controls.Add(cell)
+
+
cell = New TableHeaderCell()
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_purple_intense
row.Controls.Add(cell)
@@ -120,6 +192,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_blue
row.Controls.Add(cell)
@@ -127,17 +200,21 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_blue_madison
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_yellow
row.Controls.Add(cell)
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
+
+
ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
@@ -187,11 +264,16 @@ Partial Class Nomina_RepPersonalDIM
Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs)
+
+ ColoresCabeceraGrid()
+
Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
Dim cell As New TableHeaderCell()
cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
cell.ColumnSpan = 28
cell.HorizontalAlign = HorizontalAlign.Left
+ 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162)
+ cell.BackColor = color_green_dark
row.Controls.Add(cell)
@@ -200,6 +282,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 18
cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_purple_intense
row.Controls.Add(cell)
@@ -207,6 +290,7 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 2
cell.Text = " ANEXO 1 ASIM SAL-> "
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_blue
row.Controls.Add(cell)
@@ -214,17 +298,19 @@ Partial Class Nomina_RepPersonalDIM
cell.ColumnSpan = 58
cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_blue_madison
row.Controls.Add(cell)
cell = New TableHeaderCell()
cell.ColumnSpan = 19
cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
cell.HorizontalAlign = HorizontalAlign.Left
+ cell.BackColor = color_yellow
row.Controls.Add(cell)
-
'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
+
End Sub
@@ -330,15 +416,15 @@ Partial Class Nomina_RepPersonalDIM
'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
- worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+ worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(77, 179, 162), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
- worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+ worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(135, 117, 167), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
- worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+ worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(53, 152, 220), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
- worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+ worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(87, 142, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
- worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+ worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(196, 159, 71), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
@@ -498,3 +584,5 @@ Partial Class Nomina_RepPersonalDIM
End Sub
End Class
+Friend Class GridViewColumn
+End Class
diff --git a/RH/CalculoSBC.aspx b/RH/CalculoSBC.aspx
index f7d0b2a38..d2e7a10bf 100644
--- a/RH/CalculoSBC.aspx
+++ b/RH/CalculoSBC.aspx
@@ -116,7 +116,8 @@
|
+ DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDINuevo,SalarioVariableNuevo,SalarioDiarioSSNuevo,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados,Movtotxt,RegistroPatronal"
+ OnRowDataBound="GVCalculosSBC_RowDataBound">
@@ -242,16 +243,17 @@
Modificación
-
+
+ <%-- --%>
-
-
+ <%--
+ --%>
-
+ <%----%>
diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs
index 7fbdf7cf9..52de72552 100644
--- a/RH/CalculoSBC.aspx.cs
+++ b/RH/CalculoSBC.aspx.cs
@@ -662,7 +662,7 @@ public partial class RH_CalculoSBC : ClsPaginas
concater = "";
contador = 0;
}
- if (SalarioDiarioSSNuevo != SalarioDiarioSS || item.FCCheckBox("chkCon").Checked)
+ if (item.FCCheckBox("chkUpdate").Checked)//(SalarioDiarioSSNuevo != SalarioDiarioSS || item.FCCheckBox("chkCon").Checked)
{
MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item.DataKey("Movtotxt"));
concater = "\\r\\n";
@@ -745,7 +745,7 @@ public partial class RH_CalculoSBC : ClsPaginas
double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
- if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS &&
+ if (continuar && (item.FCCheckBox("chkUpdate").Checked) &&//SalarioDiarioSSNuevo != SalarioDiarioSS &&
(continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
{
@@ -932,6 +932,19 @@ public partial class RH_CalculoSBC : ClsPaginas
}
}
+
+ protected void GVCalculosSBC_RowDataBound(object sender, GridViewRowEventArgs e)
+ {
+
+ //Eval("SalarioDiarioSSNuevo", "{0:N2}") == Eval("SalarioDiarioSS", "{0:N2}")
+
+ if (e.Row.RowType == DataControlRowType.DataRow)
+ {
+ e.Row.FCCheckBox("chkUpdate").Checked = !(string.Format("{0:N2}", e.Row.DBCampo("SalarioDiarioSSNuevo")) == string.Format("{0:N2}", e.Row.DBCampo("SalarioDiarioSS")));
+ e.Row.FCLabel("lblsalarioDiarioSSf").Text = e.Row.FCCheckBox("chkUpdate").Checked ? "Si" : "No";
+ }
+
+ }
}
public class archivosD
{
diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx
index dda232f49..6b54a2926 100644
--- a/RH/CatPersonal.aspx
+++ b/RH/CatPersonal.aspx
@@ -1054,7 +1054,7 @@
Proyecto:
-
+
|