SIG/Ventas/CatClasificacionesDetalle.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class CatClasificacionesDetalle
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    Private Property CveClasificacion As Integer
        Get
            Return CType(ViewState("CveClasificacion"), Integer)
        End Get
        Set(value As Integer)
            ViewState("CveClasificacion") = value
        End Set
    End Property
    Public Property DtCuentas As DataTable
        Get
            Return CType((ViewState("DtCuentas")), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtCuentas") = 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
            ViewState("Orden") = ""


            CveClasificacion = IfNull(Request("Cveclasificacion"), "-1").ToString.ToEntero
            If CveClasificacion > 0 Then


                If CargaDatos() Then

                    'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                    '    Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)

                    '    If Cuenta.GetCuentas(-1, "-1", -1) Then
                    '        DtCuentas = Cuenta.DtResultados
                    '    End If
                    '    Cuenta.Dispose()
                    '    Try
                    '        DdlCuentaGasto.DataSource = DtCuentas : DdlCuentaGasto.DataBind()
                    '    Catch ex As Exception

                    '    End Try

                    '    Try
                    '        DdlCuentaCostos.DataSource = DtCuentas : DdlCuentaCostos.DataBind()
                    '    Catch ex As Exception

                    '    End Try

                    '    Try
                    '        DdlCuentaIngresos.DataSource = DtCuentas : DdlCuentaIngresos.DataBind()
                    '    Catch ex As Exception

                    '    End Try

                    'End If
                    DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
                    DdlCuentaCostos.Items.Insert(0, New ListItem("-", "-1"))
                    DdlCuentaIngresos.Items.Insert(0, New ListItem("-", "-1"))
                End If

            End If

        End If
    End Sub

    Private Sub CargaGlobal()
        Dim ObjClasificaciones As New ClsClasificaciones

        'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
        '    GlobalDTClasificaciones = ObjClasificaciones.DtResultados
        'Else
        '    Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
        'End If
        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
        End If

        ObjClasificaciones.Dispose()

    End Sub

    Public Function CargaDatos() As Boolean
        Dim Retorno As Boolean = False
        Dim ObjClasificaciones As New ClsClasificaciones

        If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
            Dim dr As DataRow = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveClasificacion = {0} ", CveClasificacion)).FiltroPrimero("")

            If dr IsNot Nothing Then
                TxtClasificacion.Text = dr("Clasificacion").ToString
                LblClasificacion.Text = dr("Clasificacion").ToString
                'DdlCuentaGasto.SelectedValue = dr("CveCuentaGasto").ToString
                'DdlCuentaCostos.SelectedValue = dr("IdCuentaCostos").ToString
                'DdlCuentaIngresos.SelectedValue = dr("IdCuentaIngresos").ToString

                DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
                DdlCategoria.DataBind()

                DdlCategoria.SelectedValue = dr("CveCategoria").ToString
                ChkEstado.Checked = dr("Estatus").ToString = "Activo"
                Retorno = True
                BtnGuardar.Visible = True

                If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
                    ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
                Else
                    Me.GvDatos.DataSource = Nothing
                End If


            End If

        End If

        ObjClasificaciones.Dispose()

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If
        Return Retorno
    End Function

    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
        Dim ObjClasificaciones As New ClsClasificaciones
        If ObjClasificaciones.UpdateClasificacion(TxtClasificacion.Text, "", ChkEstado.Checked, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then
            GvDatos.EditIndex = -1
            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjClasificaciones.Dispose()
        CargaGlobal()

    End Sub




#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

            'If e.Row.RowIndex = 0 Then
            '    e.Row.Cells(0).Width = Unit.Pixel(150)
            '    e.Row.Cells(1).Width = Unit.Pixel(150)
            '    e.Row.Cells(2).Width = Unit.Pixel(220)
            '    e.Row.Cells(3).Width = Unit.Pixel(220)

            '    e.Row.Cells(4).Width = Unit.Pixel(60)
            '    e.Row.Cells(5).Width = Unit.Pixel(61)
            '    'e.Row.Cells(7).Width = Unit.Pixel(50)
            '    'e.Row.Cells(8).Width = Unit.Pixel(50)
            'End If

            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then

                e.Row.FCDropDownList("DdlCuentaGasto").DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
                e.Row.FCDropDownList("DdlCuentaGasto").DataBind()
                e.Row.FCDropDownList("DdlCuentaGasto").Items.Insert(0, New ListItem("-", "-1"))
                e.Row.FCDropDownList("DdlCuentaGasto").SelectedValue = e.Row.DBCampo("CveCuentaGasto")

                'e.Row.FCDropDownList("DdlCuentaCostos").DataSource = DtCuentas
                'e.Row.FCDropDownList("DdlCuentaCostos").DataBind()
                'e.Row.FCDropDownList("DdlCuentaCostos").Items.Insert(0, New ListItem("-", "-1"))
                'e.Row.FCDropDownList("DdlCuentaCostos").SelectedValue = e.Row.DBCampo("IdCuentaCostos")

                'e.Row.FCDropDownList("DdlCuentaIngresos").DataSource = DtCuentas
                'e.Row.FCDropDownList("DdlCuentaIngresos").DataBind()
                'e.Row.FCDropDownList("DdlCuentaIngresos").Items.Insert(0, New ListItem("-", "-1"))
                'e.Row.FCDropDownList("DdlCuentaIngresos").SelectedValue = e.Row.DBCampo("IdCuentaIngresos")

                'e.Row.FCDropDownList("DdlCuentaInventario").DataSource = DtCuentas
                'e.Row.FCDropDownList("DdlCuentaInventario").DataBind()
                '                e.Row.FCDropDownList("DdlCuentaInventario").Items.Insert(0, New ListItem("-", "-1"))
                '               e.Row.FCDropDownList("DdlCuentaInventario").SelectedValue = e.Row.DBCampo("IdCuentaInventario")
            End If

            'If e.Row.DBCampo("IdCuentaContable").ToEntero > 0 Then
            '    Dim Dr As DataRow = DtCuentas.FiltroPrimero(String.Format("Id= {0}", e.Row.DBCampo("IdCuentaContable")))

            '    If GvDatos.EditIndex <> e.Row.RowIndex Then
            '        If Dr IsNot Nothing Then
            '            e.Row.Cells(1).Text = Dr("Nombre").ToString
            '        End If
            '    End If

            'End If

            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
        End If
    End Sub

    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        'Dim ObjClasificaciones As New ClsClasificaciones
        'If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
        '    GvDatos.EditIndex = -1
        '    ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        '    Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
        'Else
        '    Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        'End If
        'CargaGlobal()
        'ObjClasificaciones.Dispose()

        Dim ObjClasificaciones As New ClsContabilidad
        If ObjClasificaciones.RemoveCuentasAsignaciones(GvDatos.Rows(e.RowIndex).DataKey("CveCuentaAsignacionGasto").ToEntero) Then
            GvDatos.EditIndex = -1
            CargaDatos()
            'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjClasificaciones.Dispose()

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If

    End Sub

    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
        GvDatos.EditIndex = -1
        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If
    End Sub

    Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
        'Dim ObjClasificaciones As New ClsClasificaciones
        Dim CveSubProyecto As Integer = e.Keys("CveSubProyecto").ToString.ToEntero
        Dim tCveClasificacion As Integer = e.Keys("CveClasificacion").ToString.ToEntero


        Dim DdlGasto As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto")
        'Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos")
        'Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos")

        'If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then
        '    GvDatos.EditIndex = -1
        '    ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
        '    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        'Else
        '    Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        'End If
        Dim gvr As GridViewRow = GvDatos.Rows(e.RowIndex)



        Dim ObjClasificaciones As New ClsContabilidad

        If gvr.DataKey("CveCuentaAsignacionGasto").ToEntero = 0 Then

            If ObjClasificaciones.AddCuentasAsignaciones(6, UsuarioActual.CveEmpresa,
                                                         DdlGasto.SelectedValue.ToEntero,
                                                        CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                        CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
                GvDatos.EditIndex = -1
                CargaDatos()
                'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                Alert("La Clasificación se registró correctamente.", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al registró la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            End If
        Else

            If DdlGasto.SelectedValue.ToEntero > 0 Then
                If ObjClasificaciones.UpdateCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero,
                                                        CveConceptoContable:=6,
                                                        CveCuenta:=DdlGasto.SelectedValue.ToEntero,
                                                        CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                        CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero) Then
                    GvDatos.EditIndex = -1
                    CargaDatos()
                    'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                    Alert("La Clasificación se actualizo correctamente.", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error se actualizó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                End If
            Else
                If ObjClasificaciones.RemoveCuentasAsignaciones(gvr.DataKey("CveCuentaAsignacionGasto").ToEntero) Then
                    GvDatos.EditIndex = -1
                    CargaDatos()
                    'ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                    Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
                Else
                    Alert("Ocurrió un error se eliminó la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                End If
            End If


        End If


        ObjClasificaciones.Dispose()

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If
    End Sub

    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
        GvDatos.EditIndex = e.NewEditIndex

        If ViewState("Orden").ToString() <> String.Empty Then
            CargaGrid(ViewState("Orden").ToString())
        Else
            CargaGrid("")
        End If

        CargaGlobal()
    End Sub

#End Region


#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)

        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
        ViewState("Orden") = Orden
        CargaGrid(Orden)
    End Sub

    Private Sub CargaGrid(Orden As String)
        If Orden <> String.Empty Then
            Dim DV As New DataView(CType(ViewState("DTClasificaciones"), DataTable), "", Orden, DataViewRowState.CurrentRows)
            GvDatos.DataSource = DV.ToTable()
            DV.Dispose()
        Else
            GvDatos.DataSource = CType(ViewState("DTClasificaciones"), DataTable)
        End If
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub



#End Region


End Class