Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class CatClasificaciones
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    Private Property DtCuentasContables As Data.DataTable
        Get
            Return CType(ViewState("DtCuentasContables"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCuentasContables") = 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
    Private Property CveCuentaGastoActual As Integer
        Get
            Return CType(ViewState("CveCuentaGastoActual"), Integer)
        End Get
        Set(value As Integer)
            ViewState("CveCuentaGastoActual") = value
        End Set
    End Property
    Private Property CargaGastos As Boolean
        Get
            Return CType(ViewState("CargaGastos"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("CargaGastos") = value
        End Set
    End Property

    Private Property CveCuentaIngresoActual As Integer
        Get
            Return CType(ViewState("CveCuentaIngresoActual"), Integer)
        End Get
        Set(value As Integer)
            ViewState("CveCuentaIngresoActual") = value
        End Set
    End Property
    Private Property CargaIngresos As Boolean
        Get
            Return CType(ViewState("CargaIngresos"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("CargaIngresos") = value
        End Set
    End Property


    Private Property CveCuentaCostoActual As Integer
        Get
            Return CType(ViewState("CveCuentaCostoActual"), Integer)
        End Get
        Set(value As Integer)
            ViewState("CveCuentaCostoActual") = value
        End Set
    End Property
    Private Property CargaCostos As Boolean
        Get
            Return CType(ViewState("CargaCostos"), Boolean)
        End Get
        Set(value As Boolean)
            ViewState("CargaCostos") = value
        End Set
    End Property
    Private Property ClasificacionOriginal As String
        Get
            Return IfNull(ViewState("ClasificacionOriginal"), "", ViewState("ClasificacionOriginal").ToString()).ToString()
        End Get
        Set(value As String)
            ViewState("ClasificacionOriginal") = 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

            CargaGastos = True
            CargaCostos = True
            CargaIngresos = True
            DtCuentasContables = Nothing
            ClasificacionOriginal = ""
            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                divPorMaxDescuento.Visible = True
            End If
            CargaDdlSATPS()
            CargaDDLs()

            DdlCategoriaFiltro.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
            DdlCategoriaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlCategoriaFiltro.DataBind()

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

            '' 16/03/2018 - se mueve validacion de la culumna a Personaliza Columna
            If UsuarioActual.CveEmpresa.Contiene(80, 72) Then
                DivRequiereSerieLote.Visible = True
                'GvDatos.Columns(5).Visible = True
                TDReqSerie.Visible = True
            Else
                DivRequiereSerieLote.Visible = False
                'GvDatos.Columns(5).Visible = False
                TDReqSerie.Visible = False
            End If
            UpModalClasif.Update()


            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                DivCuentaIngresos.Visible = False
                DivCuentaCostos.Visible = False
                'DivCuentaGasto.Visible = False

                ' GvDatos.Columns(1).Visible = False
                GvDatos.Columns(2).Visible = False
                GvDatos.Columns(3).Visible = False
            End If

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

            CargaDatos()


            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then ' Funcionalidad Es Distribuidor
                DivEsAcumulador.Visible = True
            End If
        End If
    End Sub

    Public Sub CargaDatos()
        Dim ObjClasificaciones As New ClsClasificaciones
        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($" (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)") '' comentado. (Codigo IS NULL OR Codigo = '')  AND
        Else
            Me.GvDatos.DataSource = Nothing
        End If
        ObjClasificaciones.Dispose()
        CargaGrid()
    End Sub


    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
        Dim ObjClasificaciones As New ClsClasificaciones
        Dim objConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL)
        Dim RequireSerieLote As Integer = If(ChkRequiereSerieLote.Checked, 1, 0)
        Dim TieneError As Boolean = False

        Try
            If HdnModalidadClasificacion.Value = "A" Then
                If ObjClasificaciones.AddClasificaciones(TxtClasificacion.Text.Trim, "",
                                                    DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
                                                    RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal, PorMaximoDescuento:=TxtPorMaximoDescuento.Text.ToDecimal) Then

                    ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")

                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                        If DdlCuentaGasto.SelectedValue.ToEntero > 0 Then
                            If Not objConta.AddCuentasAsignaciones(6, UsuarioActual.CveEmpresa, DdlCuentaGasto.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion) Then
                                TieneError = True
                            End If
                        End If
                        If DdlCuentaCostos.SelectedValue.ToEntero > 0 Then
                            If Not objConta.AddCuentasAsignaciones(69, UsuarioActual.CveEmpresa, DdlCuentaCostos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion) Then
                                TieneError = True
                            End If
                        End If
                        If DdlCuentaIngresos.SelectedValue.ToEntero > 0 Then
                            If Not objConta.AddCuentasAsignaciones(4, UsuarioActual.CveEmpresa, DdlCuentaIngresos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion) Then
                                TieneError = True
                            End If
                        End If
                    End If

                    If Not TieneError AndAlso UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                        TieneError = Not ActualizarClasificacionFranquicia(ObjClasificaciones, ObjClasificaciones.CveClasificacion, TxtClasificacion.Text.Trim)
                    End If
                Else
                    TieneError = True
                End If

            ElseIf HdnModalidadClasificacion.Value = "U" Then
                Dim Clasificacion As String = TxtClasificacion.Text
                Dim Estatus As Boolean = ChkEstatus.Checked
                Dim CveClasificacion As Integer = HdnIDClasificacion.Value.ToEntero
                Dim DdlGasto As DropDownList = DdlCuentaGasto
                Dim DdlCosto As DropDownList = DdlCuentaCostos
                Dim DdlIngresos As DropDownList = DdlCuentaIngresos

                If ObjClasificaciones.UpdateClasificacion(Clasificacion, "",
                                                          Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
                                                          RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal, PorMaximoDescuento:=TxtPorMaximoDescuento.Text.ToDecimal) Then
                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                        If DdlCuentaGasto.SelectedValue.ToEntero > 0 Then
                            If Not objConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, 6, DdlCuentaGasto.SelectedValue.ToEntero, CveClasificacion:=CveClasificacion) Then
                                TieneError = True
                            End If
                        End If
                    End If

                    If Not TieneError AndAlso UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                        TieneError = Not ActualizarClasificacionFranquicia(ObjClasificaciones, CveClasificacion, Me.ClasificacionOriginal)
                    End If
                Else
                    TieneError = True
                End If
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al guardar la clasificación", ex)
            TieneError = True
        End Try

        If TieneError Then
            Alert("Ocurrió un error al guardar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
            ObjClasificaciones.RollBack()
        Else
            ObjClasificaciones.Commit()
            Me.ClasificacionOriginal = ""
            TxtClasificacion.Text = ""
            TxtPrecioBaseCosto.Text = ""
            DdlCuentaGasto.SelectedValueExist("0")
            DdlCuentaCostos.SelectedValueExist("0")
            DdlCuentaIngresos.SelectedValueExist("0")
            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

        ObjClasificaciones.Dispose()
        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
        CargaDatos()

        UpDatos.Update()
        UpModalClasif.Update()
    End Sub


    Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)

        If UsuarioActual.Empresa.TipoContabilidad = 1 Then

            DdlCuentaGasto.DataValueField = "CveCuenta"
            DdlCuentaGasto.DataTextField = "Cuenta"

            DtCuentasContables = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
            'Cuenta, CtaCodigo
            DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"

        ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then

            Dim ObjEmpresa As New ClsSisEmpresas
            Dim Empresa As Empresa = Nothing
            If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
                Empresa = ObjEmpresa.Empresa
                Dim ObjContabilidad As New ClsContPAQi(Empresa)
                If ObjContabilidad.GetCuentas(-1, "-1", 1, 20000) Then
                    DtCuentasContables = ObjContabilidad.DtResultados
                End If
                ObjContabilidad.Dispose()
            End If
            ObjEmpresa.Dispose()
        End If

    End Sub

    Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
        Select Case HdnCuenta.Value
            Case "1"
                If DdlCuentaGasto.Attributes("onclick") <> "" And DtCuentasContables Is Nothing Then CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(216).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(216).ToEntero, -1))
                DdlCuentaGasto.Items.Clear() : DdlCuentaGasto.Items.Add(New ListItem("-", "-1"))
                DdlCuentaGasto.DataSource = DtCuentasContables : DdlCuentaGasto.DataBind()
                DdlCuentaGasto.AutoPostBack = False : DdlCuentaGasto.Attributes.Remove("onclick") : DdlCuentaGasto.CssClass &= " select2me" : UpModalClasif.Update()
                DdlCuentaGasto.SelectedValueExist(CveCuentaGastoActual)
            Case "2"
                If DdlCuentaCostos.Attributes("onclick") <> "" And DtCuentasContables Is Nothing Then CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(216).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(216).ToEntero, -1))
                DdlCuentaCostos.Items.Clear() : DdlCuentaCostos.Items.Add(New ListItem("-", "-1"))
                DdlCuentaCostos.DataSource = DtCuentasContables : DdlCuentaCostos.DataBind()
                DdlCuentaCostos.AutoPostBack = False : DdlCuentaCostos.Attributes.Remove("onclick") : DdlCuentaCostos.CssClass &= " select2me" : UpModalClasif.Update()
                DdlCuentaCostos.SelectedValueExist(CveCuentaCostoActual)
            Case "3"
                If DdlCuentaIngresos.Attributes("onclick") <> "" And DtCuentasContables Is Nothing Then CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(216).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(216).ToEntero, -1))
                DdlCuentaIngresos.Items.Clear() : DdlCuentaIngresos.Items.Add(New ListItem("-", "-1"))
                DdlCuentaIngresos.DataSource = DtCuentasContables : DdlCuentaIngresos.DataBind()
                DdlCuentaIngresos.AutoPostBack = False : DdlCuentaIngresos.Attributes.Remove("onclick") : DdlCuentaIngresos.CssClass &= " select2me" : UpModalClasif.Update()
                DdlCuentaIngresos.SelectedValueExist(CveCuentaIngresoActual)
        End Select
    End Sub


    Public Sub CargaDDLs()
        If UsuarioActual.Empresa.UsaContabilidad Then
            DdlCuentaGasto.AutoPostBack = True
            DdlCuentaCostos.AutoPostBack = True
            DdlCuentaIngresos.AutoPostBack = True

            DdlCuentaGasto.Attributes.Add("onclick", "CargaCuentas(1);")
            DdlCuentaCostos.Attributes.Add("onclick", "CargaCuentas(2);")
            DdlCuentaIngresos.Attributes.Add("onclick", "CargaCuentas(3);")
            UpModal.Update()
        End If
    End Sub

    Public Sub CargaDdlSATPS()
        DdlSATPS.setEsWebService(True)
        DdlSATPS.Attributes.Add("data-metodo", "getpssat")
    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.Header Then
            e.Row.Cells(5).Text = "<Label data-html='true' data-toggle='tooltip' data-placement='top' title='<b>Requiere Serie</b>'><b>Req. Serie</b><Label>"
        End If
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(200)
                e.Row.Cells(1).Width = Unit.Pixel(120)
                e.Row.Cells(2).Width = Unit.Pixel(120)
                e.Row.Cells(3).Width = Unit.Pixel(135)

                e.Row.Cells(4).Width = Unit.Pixel(70)
                e.Row.Cells(5).Width = Unit.Pixel(75)
                e.Row.Cells(6).Width = Unit.Pixel(80)
                e.Row.Cells(7).Width = Unit.Pixel(80)
                e.Row.Cells(8).Width = Unit.Pixel(100)
                e.Row.Cells(9).Width = Unit.Pixel(60)
            End If


            If e.Row.DBCampo("CuentaGasto") = "Seleccione" Or e.Row.DBCampo("CuentaGasto") = "" Then e.Row.FCLabel("LtlCuentaGasto").Text = "-"
            ' If e.Row.DBCampo("CuentaCostos") = "Seleccione" Or e.Row.DBCampo("CuentaCostos") = "" Then e.Row.FCLabel("LtlCuentaCosto").Text = "-"
            ' If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-"
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left

            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                e.Row.FCLabel("LtlClasificacion").Text = String.Format("<a Class='Texto' href='/Ventas/CatClasificacionesDetalle.aspx?CveClasificacion={0}'>{1}</a>", e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("Clasificacion"))
            End If

        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
        ObjClasificaciones.IniciaTransacSQL()
        Dim TieneError As Boolean = False
        Try
            Dim CveClasificacion As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
            If Not TieneError AndAlso UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                TieneError = Not RemoveClasificacionFranquicia(ObjClasificaciones, CveClasificacion)
            End If

            If Not TieneError AndAlso Not ObjClasificaciones.RemoveClasificacion(CveClasificacion) Then
                TieneError = True
            End If
        Catch ex As Exception
            OnError("Ocurrió un error al eliminar la clasificación", ex)
            TieneError = True
        End Try

        If TieneError Then
            ObjClasificaciones.RollBack()
            ObjClasificaciones.Dispose()
            Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        Else
            ObjClasificaciones.Commit()
            ObjClasificaciones.Dispose()

            Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
            GvDatos.EditIndex = -1
            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
            CargaDatos()
        End If


    End Sub

#End Region

    Private Sub CargaGrid()
        GvDatos.DataSource = CType(ViewState("DTClasificaciones"), DataTable)
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub

    Private Sub Limpiador()
        CveCuentaGastoActual = -1
        CveCuentaCostoActual = -1
        CveCuentaIngresoActual = -1
        DdlCuentaGasto.SelectedValue = "-1"
        DdlCuentaCostos.SelectedValue = "-1"
        DdlCuentaIngresos.SelectedValue = "-1"
    End Sub
    Private Sub HlAgregarClasifiacion(sender As Object, e As EventArgs) Handles HlAgregarClasificacion.Click
        Limpiador()

        TxtClasificacion.Text = ""
        TxtPrecioBaseCosto.Text = ""
        If DdlCategoria.Items.Count > 0 Then
            DdlCategoria.SelectedIndex = 0
        End If
        DdlSATPS.SelectedValue = ""
        DdlSATPS.SelectedText = ""
        LtlTituloModal.Text = "Agregar Clasificación"
        LbAgregar.Text = "Agregar"
        HdnModalidadClasificacion.Value = "A"

        ChkEstatus.Checked = True

        ChkEsAcumulador.Checked = False
        ChkRequiereSerieLote.Checked = False
        ChkRequiereAFCompra.Checked = False
        ChkRequiereAFInsumo.Checked = False
        ChkRequierePersonal.Checked = False

        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
    End Sub

    Public Sub ActualizaClasificacion(sender As Object, e As EventArgs)
        Limpiador()

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim CveClasificacion As String = GvRow.DataKey("CveClasificacion").ToString
        Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
        Dim PrecioBaseCosto As String = GvRow.DataKey("PrecioBaseCosto").ToString
        Dim CveCategoria As String = GvRow.DataKey("CveCategoria").ToString
        Dim CuentaGasto As String = GvRow.DataKey("CuentaGasto").ToString
        Dim CuentaCostos As String = ""
        Dim CuentaIngresos As String = ""
        Dim UsoClasificacion As String = GvRow.DataKey("UsoClasificacion").ToString
        Dim TopVentas As Boolean = If(GvRow.DataKey("TopVentas") = "True", True, False)
        Dim TopCompras As Boolean = If(GvRow.DataKey("TopCompras") = "True", True, False)

        ChkTopCompras.Checked = TopCompras
        ChkTopVentas.Checked = TopVentas

        'CveCuentaGastoActual = GvRow.DataKey("IdCuentaGasto").ToString.ToEntero
        'CveCuentaCostoActual = GvRow.DataKey("IdCuentaCostos").ToString.ToEntero
        'CveCuentaIngresoActual = GvRow.DataKey("IdCuentaIngresos").ToString.ToEntero

        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
        ChkRequiereSerieLote.Checked = If(GvRow.DataKey("RequiereSerieLote") = "True", True, False)

        ChkEsAcumulador.Checked = Boolean.Parse(GvRow.DataKey("EsAcumulador").ToString)

        ChkRequiereAFCompra.Checked = If(GvRow.DataKey("RequiereAFCompra") = "True", True, False)
        ChkRequiereAFInsumo.Checked = If(GvRow.DataKey("RequiereAFInsumo") = "True", True, False)
        ChkRequierePersonal.Checked = If(GvRow.DataKey("RequierePersonal") = "True", True, False)
        HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacionGasto")

        If CuentaGasto.Length > 1 And CargaGastos Then
            DdlCuentaGasto.Items.Insert(0, New ListItem(CuentaGasto, CveCuentaGastoActual.ToString))
            DdlCuentaGasto.SelectedIndex = 0

            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                DdlCuentaGasto.Items.Clear() : DdlCuentaGasto.Items.Add(New ListItem("-", "-1"))
                'DdlCuentaGasto.Text = ""
                DdlCuentaGasto.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) : DdlCuentaGasto.DataBind()
                DdlCuentaGasto.SelectedValueExist(GvRow.DataKey("CveCuentaGasto"))
            End If

        Else
            DdlCuentaGasto.SelectedValueExist(CveCuentaGastoActual)
        End If

        If CuentaCostos.Length > 1 And CargaCostos Then
            DdlCuentaCostos.Items.Insert(0, New ListItem(CuentaCostos, CveCuentaCostoActual.ToString))
            DdlCuentaCostos.SelectedIndex = 0
            CargaCostos = False
        Else
            DdlCuentaCostos.SelectedValueExist(CveCuentaCostoActual)
        End If

        If CuentaIngresos.Length > 1 And CargaIngresos Then
            DdlCuentaIngresos.Items.Insert(0, New ListItem(CuentaIngresos, CveCuentaIngresoActual.ToString))
            DdlCuentaIngresos.SelectedIndex = 0
            CargaIngresos = False
        Else
            DdlCuentaIngresos.SelectedValueExist(CveCuentaIngresoActual)
        End If

        Me.ClasificacionOriginal = Clasificacion
        TxtClasificacion.Text = Clasificacion
        TxtPrecioBaseCosto.Text = PrecioBaseCosto.FormatoNumero(2)
        DdlCategoria.SelectedValueExist(CveCategoria)
        DdlUsoClasificacion.SelectedValue = UsoClasificacion
        HdnIDClasificacion.Value = CveClasificacion

        TxtPorMaximoDescuento.Text = GvRow.DataKey("PorMaximoDescuento").ToString.ToDecimal.FormatoNumero(2)

        If GvRow.DataKey("CveSATPS").ToString <> Nothing Then
            DdlSATPS.SelectedValue = GvRow.DataKey("CveSATPS").ToString
            DdlSATPS.SelectedText = GvRow.DataKey("SATClaveProductoServicio").ToString
        End If
        HdnModalidadClasificacion.Value = "U"
        LtlTituloModal.Text = "Actualizar Clasificación"
        LbAgregar.Text = "Actualizar"
        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
    End Sub

    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DivPersonalizar').modal()")
        UPPersonalizar.Update()
    End Sub
    Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)

        If UsuarioActual.CveEmpresa.Contiene(80, 72) Then
            GvDatos.Columns(5).Visible = ChkReqSerie.Checked
        End If
        GvDatos.Columns(8).Visible = ChkUsuario.Checked
        GvDatos.Columns(10).Visible = ChkProductoSAT.Checked
        GvDatos.Columns(11).Visible = ChkReqAFCompra.Checked
        GvDatos.Columns(12).Visible = ChkReqAFInsumo.Checked
        GvDatos.Columns(13).Visible = ChkReqPersonal.Checked

        CargaDatos()

        UpDatos.Update()

        RegistraScript("$('#DivPersonalizar').modal('hide')")
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub

    Private Function ActualizarClasificacionFranquicia(ByRef ObjClas As ClsClasificaciones, CveClasificacion As Integer, NombreOriginal As String) As Boolean
        Dim TieneError As Boolean = False
        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(563)

        Dim Franquicias As String() = FranquiciasStr.Split(","c)

        For Each Franquicia As String In Franquicias
            Dim CveEmpresaFranquicia As Integer = Franquicia.ToEntero
            If Not ObjClas.UpdateClasificacionFranquicia(CveClasificacion, NombreOriginal, UsuarioActual.CveEmpresa, CveEmpresaFranquicia) Then
                TieneError = True
                Exit For
            End If
        Next

        Return Not TieneError
    End Function

    Private Function RemoveClasificacionFranquicia(ByRef ObjClas As ClsClasificaciones, CveClasificacion As Integer) As Boolean
        Dim TieneError As Boolean = False
        Dim FranquiciasStr As String = UsuarioActual.Empresa.Funcionalidad(563)

        Dim Franquicias As String() = FranquiciasStr.Split(","c)

        For Each Franquicia As String In Franquicias
            Dim CveEmpresaFranquicia As Integer = Franquicia.ToEntero
            If Not ObjClas.RemoveClasificacionFranquicia(CveClasificacion, UsuarioActual.CveEmpresa, CveEmpresaFranquicia) Then
                TieneError = True
                Exit For
            End If
        Next

        Return Not TieneError
    End Function
End Class