RepEstadoActividades.aspx

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -215,6 +215,104 @@ 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()
+
+            'DtIngresos
+
+            Dim UtilidadBrutaActual, UtilidadBrutaAcumulada As Decimal
+            Dim UtilidadOperacionActual, UtilidadOperacionAcumulada As Decimal
+            Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada As Decimal
+
+            UtilidadBrutaActual = DtIngresos.SUMD("ImporteActual", "  CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor  = 1 ")
+            UtilidadBrutaAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor  = 1")
+
+            UtilidadOperacionActual = DtIngresos.SUMD("ImporteActual", " CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor  = 1 ")
+            UtilidadOperacionAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor  = 1 ")
+
+            UtilidadAntesImpuestosActual = DtIngresos.SUMD("ImporteActual", " CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor  = 1 ")
+            UtilidadAntesImpuestosAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor  = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor  = 1 ")
+
+            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"
+            dRowUtilidadBrutaVacio("CtaMayor") = -1
+            dRowUtilidadBrutaVacio("Orden") = "600"
+
+            dRowUtilidadOperacion("Nombre") = "Utilidad de Operación"
+            dRowUtilidadOperacion("ImporteActual") = UtilidadOperacionActual
+            dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada
+            dRowUtilidadOperacion("CtaMayor") = -1
+            dRowUtilidadOperacion("Orden") = "700"
+            dRowUtilidadOperacionVacio("CtaMayor") = -1
+            dRowUtilidadOperacionVacio("Orden") = "700"
+
+            dRowUtilidadAntesImpuestos("Nombre") = "Utilidad antes de impuestos"
+            dRowUtilidadAntesImpuestos("ImporteActual") = UtilidadAntesImpuestosActual
+            dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada
+            dRowUtilidadAntesImpuestos("CtaMayor") = -1
+            dRowUtilidadAntesImpuestos("Orden") = "790"
+            dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1
+            dRowUtilidadAntesImpuestosVacio("Orden") = "790"
+
+
+            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()
@@ -278,6 +376,11 @@ Partial Class AC_RepEstadoActividades
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").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
 
@@ -305,6 +408,12 @@ Partial Class AC_RepEstadoActividades
             If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
                 e.Row.FCHyperLink("HLAnterior").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 +446,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
+