Commit inicial Ventas Productivo

Contabilidad/Reportes/RepCuadreContaAdmon.aspx.vb

@@ -0,0 +1,145 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+Imports Extensiones
+Partial Class RepCuadreContaAdmon
+    Inherits ClsPaginas
+    Private Shared missing As Object = System.Reflection.Missing.Value
+
+#Region "PROPIEDADES"
+    Private Property DtVentas As DataTable
+        Get
+            Return DirectCast(ViewState("DtVentas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtVentas") = value
+        End Set
+    End Property
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+        End If
+    End Sub
+
+#Region " C A R G A - D A T O S "
+    Public Sub CargaDatos()
+        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+        Dim FechaI As Date = If(txtFechaI.Text = "", MinFecha, txtFechaI.Text.ToDate)
+        Dim FechaF As Date = If(txtFechaF.Text = "", MaxFecha, txtFechaF.Text.ToDate)
+
+        If ObjContpaq.GetReporteCuadreContaAdmon(UsuarioActual.CveEmpresa, FuncionalidadGrupoGet(DdlGrupo.SelectedValue.ToEntero), DdlGrupo.SelectedValue.ToEntero, 1, FechaI, FechaF) Then
+            GvDatos.DataSource = ObjContpaq.DtResultados
+            GvDatos.DataBind()
+            UPDatos.Update()
+        Else
+            Alert("Ocurrio un error al obtener el reporte", TipoMensaje.MsgError)
+        End If
+
+        ObjContpaq.Dispose()
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Function FuncionalidadGrupoGet(Grupo As Integer) As Integer
+
+        Select Case Grupo
+
+            Case 1 'Clientes
+                Return 211
+
+            Case 2 'Proveedores
+                Return 201
+
+            Case 3 'Bancos
+                Return 209
+
+            Case 4 'Caja Chica
+                Return 218
+
+            Case 5 'Deudores
+                Return 205
+
+            Case 6 'Acreedores
+                Return 202
+
+            Case 7 'Ant Clientes
+                Return 212
+
+            Case 8 'Ant Proveedores
+                Return 204
+
+            Case 9 'IVA x Acreditar
+                Return UsuarioActual.Empresa.IdCuentaIVAxAcreditar
+
+            Case 10 'IVA Acreditado
+                Return UsuarioActual.Empresa.IdCuentaIVAAcreditable
+
+            Case 11 'IVA x Trasladar
+                Return UsuarioActual.Empresa.IdCuentaIVAxTrasladar
+
+            Case 12 'IVA Trasladado
+                Return UsuarioActual.Empresa.IdCuentaIVATrasladado
+
+            Case 13 'Ingresos
+                Return 222
+
+            Case 14 'Gastos
+                Return 216
+        End Select
+
+        Return 0
+    End Function
+#End Region
+
+#Region "O R D E N A M I E N T O"
+    Private Sub OrdenaDatos()
+        If (GvDatos.Rows.Count > 0) Then
+            GvDatos.UseAccessibleHeader = True
+            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+    End Sub
+#End Region
+
+#Region "G V - D A T O S "
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Css As String = "Texto"
+
+            If e.Row.FCLiteral("LtlImporteContable").Text <> e.Row.FCLiteral("LtlImporteAdmon").Text AndAlso e.Row.DataKey("Orden") = "2" Then
+                e.Row.ForeColor = Drawing.Color.Red
+            ElseIf e.Row.FCLiteral("LtlImporteContable").Text = e.Row.FCLiteral("LtlImporteAdmon").Text AndAlso e.Row.DataKey("Orden") = "1" Then
+                e.Row.Cells(2).ForeColor = Drawing.Color.Green
+                e.Row.Cells(3).ForeColor = Drawing.Color.Green
+            End If
+
+            If e.Row.DataKey("Orden").Contiene("0", "1") Then
+                e.Row.CssClass = "Totales"
+            End If
+
+            'LIGA A DETALLE
+            Dim Liga As String = $"/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx?GPO={DdlGrupo.SelectedValue}&FechaI={txtFechaI.Text}&FechaF={txtFechaF.Text}"
+            e.Row.FCLiteral("LtlCuenta").Text = "<a class=""" & Css & """ Target=_blank href=""" & Liga & """>" & e.Row.FCLiteral("LtlCuenta").Text & "</a>"
+
+        End If
+    End Sub
+#End Region
+
+#Region "CARGA COMBOS FILTRO"
+
+#End Region
+
+#Region "DDLS SELECTED INDEX CHANGED"
+#End Region
+
+#Region "PDF"
+#End Region
+
+End Class