Commit inicial Ventas Productivo

2019-08-14 16:40:54 -07:00
commit c35cf91883
13328 changed files with 3711549 additions and 0 deletions
--- a/Contabilidad/RepBalanceGeneralAnual.aspx.vb
+++ b/Contabilidad/RepBalanceGeneralAnual.aspx.vb
@@ -0,0 +1,148 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Partial Class Contabilidad_RepBalanceGeneralAnual
+    Inherits ClsPaginas
+
+
+#Region "  PROPIEDADES  "
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property ReporteComplementario As Boolean
+        Get
+            ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("ReporteComplementario") = value
+        End Set
+    End Property
+    Private Property TipoReporte As Integer
+        Get
+            TipoReporte = ViewState("TipoReporte").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("TipoReporte") = value
+        End Set
+    End Property
+    Private Property Anos As Integer
+        Get
+            Anos = ViewState("Anos").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("Anos") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.UsaAC Then
+                TipoReporte = -1
+            Else
+                tdTipoReporte.Visible = True
+                TipoReporte = 1
+            End If
+
+            DdlEjercicio.SelectedValue = Now.Year.ToString
+
+            Anos = 0
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+
+        If ObjConta.GetBalanceGeneralAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
+            DtDatos = ObjConta.DtResultados
+        Else
+            DtDatos = Nothing
+            Alert("Ocurrio un error al cargar los datos del balance general anual", TipoMensaje.MsgError)
+        End If
+        ObjConta.Dispose()
+
+        Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
+
+        'Esconde todo
+        For index = 1 To 20
+            GvDatos.Columns(index).Visible = False
+        Next
+
+        For index = 1 To Anos
+            GvDatos.Columns(index).Visible = True
+            GvDatos.Columns(index).HeaderText = (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString
+        Next
+
+        If DtDatos IsNot Nothing Then
+            CargaGrid()
+        End If
+    End Sub
+
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 5 Or e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
+                For index = 1 To Anos
+                    e.Row.FCHyperLink("HLAno" + index.ToString).Text = ""
+                Next
+            End If
+
+            'AGRUPADOR DE CUENTAS
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
+            'TITULO DE CUENTAS
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 5 Then
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 10px;")
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+            End If
+
+            'CUENTAS
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")
+
+                For index = 1 To Anos
+                    e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("Id"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte)
+                Next
+
+            End If
+
+            'TOTALES
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
+                e.Row.Attributes.Add("style", "border-top: 1px solid;")
+                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 10px;")
+                e.Row.FCLabel("LbNombre").Font.Italic = True
+            End If
+
+            'SUMAS
+            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 6 Then
+                e.Row.FCLabel("LbNombre").Font.Bold = True
+            End If
+
+        End If
+    End Sub
+
+
+End Class