SIG/AF/PopUpBuscarAF.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data
Partial Class AF_PopUpBuscarAF
    Inherits ClsPaginas

#Region "PROPIEDADES"
    Private ReadOnly Property CveActivoFijo As Integer
        Get
            Return ViewState("CveActivoFijo").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property LabelCompras As String
        Get
            Return ViewState("LabelCompras").ToString
        End Get
    End Property
    Private ReadOnly Property LabelResguardo As String
        Get
            Return ViewState("LabelResguardo").ToString
        End Get
    End Property
    Private ReadOnly Property LabelTraslado As String
        Get
            Return ViewState("LabelTraslado").ToString
        End Get
    End Property
    Private ReadOnly Property HiddenCompras1 As String
        Get
            Return ViewState("HiddenCompras1").ToString
        End Get
    End Property
    Private ReadOnly Property HiddenCompras2 As String
        Get
            Return ViewState("HiddenCompras2").ToString
        End Get
    End Property
    Private Property DTAFCaracteristicas As DataTable
        Get
            Return CType(ViewState("DTAFCaracteristicas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTAFCaracteristicas") = value
        End Set
    End Property
    Private Property CveCaracteristica As Integer
        Get
            Return ViewState("CveCaracteristica").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCaracteristica") = value
        End Set
    End Property
    Private Property Opcion As String
        Get
            Return ViewState("Opcion").ToString
        End Get
        Set(value As String)
            ViewState("Opcion") = value
        End Set
    End Property
    Private Property CaracClasif As String
        Get
            Return ViewState("CaracClasif").ToString
        End Get
        Set(value As String)
            ViewState("CaracClasif") = value
        End Set
    End Property
    Private Property BuscarGrupo As Integer
        Get
            Return ViewState("BuscarGrupo").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("BuscarGrupo") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ViewState("LabelCompras") = ""
        ViewState("HiddenCompras1") = ""
        ViewState("HiddenCompras2") = ""
        ViewState("RowIndex") = ""
        ViewState("LabelTraslado") = ""
        ViewState("LabelResguardo") = ""


        If Request("L") IsNot Nothing AndAlso Request("L").ToString <> "" Then
            If Request("H1") IsNot Nothing AndAlso Request("H1").ToString <> "" Then
                If Request("H2") IsNot Nothing AndAlso Request("H2").ToString <> "" Then
                    ViewState("LabelCompras") = Request("L")
                    ViewState("HiddenCompras1") = Request("H1")
                    ViewState("HiddenCompras2") = Request("H2")
                End If
            End If
        End If


        If Request("AFT") IsNot Nothing AndAlso Request("AFT").ToString <> "" Then
            ViewState("LabelTraslado") = Request("AFT")
        End If

        If Request("AFR") IsNot Nothing AndAlso Request("AFR").ToString <> "" Then
            ViewState("LabelResguardo") = Request("AFR")
        End If


        If Request("RI") IsNot Nothing AndAlso Request("RI").ToString <> "" Then
            ViewState("RowIndex") = Request("RI")
        End If

        If Not IsPostBack Then
            BuscarGrupo = -1

            ViewState("Tipo") = ""
            CType(Me.Master, BaseMasterPage).EsPopup = True
            CType(Me.Master, BaseMasterPage).PopupWidth = 1220
            RegistraScript("if($get('tdContenido')){$get('tdContenido').style.height='920px'}")
            'RegistraScript("$('#ajaxidmodal #myFrame').css({ width: 900 }); $('#ajaxidmodal ').css({ width: 900 });")

            CargaTipoActivoFijo()
            CargaResponsable()
            CargaEstatusActivoFijo()
            CargaMarcaActivoFijo()
            'CargaModeloActivoFijo()
            CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos)
            If Not LblProyecto.Visible Then
                tdProyecto.Attributes.Add("style", "display:none")
                tdDdlProyecto.Attributes.Add("style", "display:none")
            End If
            CargaSubProyecto()
            CargaSubTipoActivoFijo()
            CargaCliente()

            If Request("Tipo") IsNot Nothing Then
                ViewState("Tipo") = Request("Tipo")
                BtnBuscar.Text = "Vincular"
            End If

            If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
                ViewState("CveActivoFijo") = Request("CveActivoFijo")
                'CargaDatos()
            Else
                ViewState("CveActivoFijo") = -1
            End If

            If Request("OPCION") IsNot Nothing AndAlso Request("OPCION").ToString <> "" Then
                Opcion = Request("OPCION")
            Else
                Opcion = "-1"
            End If

            CargaCaracteristicas()
            BuscaGrupo()

        End If
    End Sub


    Private Sub BuscaGrupo()
        If UsuarioActual.Empresa.GrupoEmpresa > 0 Then
            GV.Columns(7).Visible = True
        End If

        If ViewState("LabelCompras").ToString <> "" And Opcion <> "OCE" Then
            BuscarGrupo = UsuarioActual.CveEmpresa
        ElseIf ViewState("Tipo").ToString = "C" Then
            BuscarGrupo = UsuarioActual.CveEmpresa
        ElseIf Opcion = "OC" Then
            BuscarGrupo = UsuarioActual.CveEmpresa
        ElseIf Opcion = "OCE" Then
            BuscarGrupo = UsuarioActual.CveEmpresa
        Else
            BuscarGrupo = -1
        End If
    End Sub


#Region " C A R G A - D A T O S"
    Private Sub CargaTipoActivoFijo()
        DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlTipoActivoFijo.DataBind()
    End Sub
    Private Sub CargaSubTipoActivoFijo()
        DdlSubTipoActivoFijo.Items.Clear()
        DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
        'DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
        DdlSubTipoActivoFijo.DataBind()
        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Private Sub CargaCaracteristicas()
        CaracClasif = ""
        Dim ObjAFCaracteristicas As New ClsAF
        If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, UsuarioActual.CveEmpresa) Then

            Dim Filtro = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
            GvCaracteristicas.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")

            If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                DTAFCaracteristicas = ObjAFCaracteristicas.DtResultados '.FiltraParametros("SubtipoActivoFijo = '" + DdlSubTipoActivoFijo.SelectedValue + "'") 'FiltraParametros("EstatusOpcion = 'True'")
            End If

        End If
        ObjAFCaracteristicas.Dispose()
        GvCaracteristicas.DataBind()
        UPDatos.Update()
    End Sub

    'Private Sub CargaModeloActivoFijo()
    '	DdlModeloActivoFijo.Items.Clear()
    '       DdlModeloActivoFijo.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
    '	DdlModeloActivoFijo.DataBind()
    '	DdlModeloActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
    'End Sub
    Private Sub CargaMarcaActivoFijo()
        'DdlMarcaActivoFijo.DataSource = GlobalDTMarcaActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        'DdlMarcaActivoFijo.DataBind()
    End Sub
    Private Sub CargaResponsable()
        'Application("GlobalDTResponsable")
        Dim ObjResponsable As New ClsRH
        If ObjResponsable.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
            DdlResponsable.DataSource = ObjResponsable.DtResultados
        Else
            DdlResponsable.DataSource = Nothing
        End If
        ObjResponsable.Dispose()
        'Application("GlobalDTResponsable")

        DdlResponsable.DataBind()
    End Sub
    Private Sub CargaSubProyecto()
        DdlSubProyecto.Items.Clear()
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()

        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
    End Sub
    Private Sub CargaEstatusActivoFijo()
        DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
        DdlEstadoActivoFijo.DataBind()
    End Sub
    Private Sub CargaCliente()
        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        DdlCliente.DataBind()
    End Sub
#End Region


    Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
        Dim ObjAF As New ClsAF()

        Dim Codigo As String = "-1"
        Dim Descripcion As String = "-1"
        Dim CveTipoActivoFijo As Integer = -1
        Dim CveSubTipoActivoFijo As Integer = -1
        Dim CveMarcaActivoFijo As Integer = -1
        Dim NoSerie As String = "-1"
        Dim Año As Integer = -1
        Dim CvePersonaResponsable As Integer = -1
        Dim CveProyecto As Integer = -1
        Dim CveSubProyecto As Integer = -1
        Dim EstadoActivoFijo As Integer = -1
        Dim CveCliente As Integer = -1

        If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
        If TxtDescripcion.Text.Trim <> String.Empty Then Descripcion = TxtDescripcion.Text.Trim
        If DdlTipoActivoFijo.SelectedValue <> String.Empty Then CveTipoActivoFijo = DdlTipoActivoFijo.SelectedValue.ToEntero
        If DdlSubTipoActivoFijo.SelectedValue <> String.Empty Then CveSubTipoActivoFijo = DdlSubTipoActivoFijo.SelectedValue.ToEntero
        'If DdlMarcaActivoFijo.SelectedValue <> String.Empty Then CveMarcaActivoFijo = DdlMarcaActivoFijo.SelectedValue.ToEntero
        If TxtNoSerie.Text.Trim <> String.Empty Then NoSerie = TxtNoSerie.Text.Trim
        If TxtAño.Text.Trim <> String.Empty Then Año = TxtAño.Text.Trim.ToEntero
        If DdlResponsable.SelectedValue <> String.Empty Then CvePersonaResponsable = DdlResponsable.SelectedValue.ToEntero
        If DdlProyecto.SelectedValue <> String.Empty Then CveProyecto = DdlProyecto.SelectedValue.ToEntero
        If DdlSubProyecto.SelectedValue <> String.Empty Then CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
        If DdlEstadoActivoFijo.SelectedValue <> String.Empty Then EstadoActivoFijo = DdlEstadoActivoFijo.SelectedValue.ToEntero
        If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero

        Dim strSQL1 As New StringBuilder
        Dim booPrimerCampo As Boolean = False
        Dim intContador As Integer = 0
        For Each DR As GridViewRow In GvCaracteristicas.Rows
            Dim CveCaracteristicaOpcion As Integer = -1
            Dim CveValor As Integer = DR.FCHiddenField("HdnCveValor").Value.ToEntero
            'Alert(CveValor.ToString, TipoMensaje.MsgInformacion)
            Dim Valor As String = DR.FCTextBox("TxtValor").Text.Trim
            Dim CveCaracteristica As Integer = DR.FCHiddenField("HdnCveCaracteristica").Value.ToEntero
            Select Case DR.FCHiddenField("HdnEsOpcion").Value
                Case "0", "4"
                    If booPrimerCampo = True And Valor.Length <> 0 Then strSQL1.Append(" or ")
                    If Valor.Length <> 0 Then
                        If booPrimerCampo = False Then strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and Valor like '%{1}%') ", CveCaracteristica, Valor)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
                Case "1" 'Listado o DropDownList
                    CveCaracteristicaOpcion = DR.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
                    If booPrimerCampo = True And CveCaracteristicaOpcion <> 0 Then strSQL1 = strSQL1.Append(" or ")
                    If CveCaracteristicaOpcion <> 0 Then
                        If booPrimerCampo = False Then strSQL1 = strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and CveOpcion = {1} ) ", CveCaracteristica, CveCaracteristicaOpcion)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
                Case "2" 'Radio o RadioButtonList
                    CveCaracteristicaOpcion = DR.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
                    If booPrimerCampo = True And CveCaracteristicaOpcion <> 0 Then strSQL1 = strSQL1.Append(" or ")
                    If CveCaracteristicaOpcion <> 0 Then
                        If booPrimerCampo = False Then strSQL1 = strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and CveOpcion = {1} ) ", CveCaracteristica, CveCaracteristicaOpcion)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
                Case "3"
                    If booPrimerCampo = True And Valor.Length <> 0 Then strSQL1.Append(" or ")
                    If Valor.Length <> 0 Then
                        If booPrimerCampo = False Then strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and Valor = '{1}') ", CveCaracteristica, Valor)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
                Case "5"
                    Valor = DR.FCCheckBox("ChbValor").Checked.ToString
                    If booPrimerCampo = True And Valor.Length <> 0 Then strSQL1.Append(" or ")
                    If Valor.Length <> 0 Then
                        If booPrimerCampo = False Then strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and Valor = '{1}') ", CveCaracteristica, Valor)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
                Case "6"
                    Valor = DR.FCTextBox("TxtValorNum").Text.Trim
                    If booPrimerCampo = True And Valor.Length <> 0 Then strSQL1.Append(" or ")
                    If Valor.Length <> 0 Then
                        If booPrimerCampo = False Then strSQL1.Append("Select CveActivoFijo from AF_ActivosFijosValores where ")
                        strSQL1.AppendFormat(" (CveCaracteristica = {0} and Valor like '{1}') ", CveCaracteristica, Valor)
                        If booPrimerCampo = False Then booPrimerCampo = True
                        intContador += 1
                    End If
            End Select
        Next
        If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador)
        'Alert(strSQL1.ToString, TipoMensaje.MsgInformacion)


        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, CveTipoActivoFijo, CveSubTipoActivoFijo, NoSerie, Año, CvePersonaResponsable, CveProyecto, CveSubProyecto, EstadoActivoFijo, strSQL1.ToString, CveCliente, BuscaGrupoEmpresa:=BuscarGrupo) Then
            If ObjAF.DtResultados.Rows.Count > 0 Then
                LtlTotalRegistros.Text = ObjAF.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                GV.DataSource = ObjAF.DtResultados
            Else
                LtlTotalRegistros.Text = "0"
                GV.DataSource = Nothing
                Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
            End If
        End If

        ObjAF.Dispose()
        GV.DataBind()

        UPDatos.Update()

        TblBusqueda.Visible = True
    End Sub

    Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'If e.Row.RowIndex = 0 Then
            '    e.Row.Cells(0).Width = Unit.Pixel(350)
            '    e.Row.Cells(1).Width = Unit.Pixel(80)
            '    e.Row.Cells(2).Width = Unit.Pixel(200)
            '    e.Row.Cells(3).Width = Unit.Pixel(80)
            '    e.Row.Cells(4).Width = Unit.Pixel(100)
            'End If
            'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left

            ''SUSTITUIDO
            ''If ViewState("LabelCompras").ToString <> "" Then
            ''    e.Row.FCLiteral("LtlDescripcion").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"",""{6}"");'>{0}</a>", e.Row.DBCampo("Descripcion"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
            ''    e.Row.FCLiteral("LtlTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"",""{6}"");'>{0}</a>", e.Row.DBCampo("TipoActivoFijo"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
            ''    e.Row.FCLiteral("LtlSubTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"",""{6}"");'>{0}</a>", e.Row.DBCampo("SubTipoActivoFijo"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
            ''    'e.Row.FCLiteral("LtlModelo").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");'>{0}</a>", e.Row.DBCampo("ModeloActivoFijo"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"))
            ''    'e.Row.FCLiteral("LtlMarca").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");'>{0}</a>", e.Row.DBCampo("MarcaActivoFijo"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"))
            ''    e.Row.FCLiteral("LtlNoSerie").Text = String.Format("<a class='Texto' href='javascript:Ir3(""{1}"",""{2}"",""{3}"",""{4}"",""{5}"",""{6}"");'>{0}</a>", e.Row.DBCampo("NoSerie"), ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
            ''ElseIf ViewState("Tipo").ToString = "C" Then
            ''    e.Row.FCLiteral("LtlDescripcion").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Descripcion"))
            ''    e.Row.FCLiteral("LtlTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("TipoActivoFijo"))
            ''    e.Row.FCLiteral("LtlSubTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("SubTipoActivoFijo"))
            ''    'e.Row.FCLiteral("LtlModelo").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("ModeloActivoFijo"))
            ''    'e.Row.FCLiteral("LtlMarca").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("MarcaActivoFijo"))
            ''    e.Row.FCLiteral("LtlNoSerie").Text = String.Format("<a class='Texto' href='javascript:Ir2(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("NoSerie"))
            ''Else
            ''    e.Row.FCLiteral("LtlDescripcion").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Descripcion"))
            ''    e.Row.FCLiteral("LtlTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("TipoActivoFijo"))
            ''    e.Row.FCLiteral("LtlSubTipoAF").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("SubTipoActivoFijo"))
            ''    'e.Row.FCLiteral("LtlModelo").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("ModeloActivoFijo"))
            ''    'e.Row.FCLiteral("LtlMarca").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("MarcaActivoFijo"))
            ''    e.Row.FCLiteral("LtlNoSerie").Text = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("NoSerie"))
            ''End If

            If Opcion = "-1" Then
                If ViewState("LabelCompras").ToString <> "" Then
                    e.Row.FCLinkButton("LBDescripcion").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBTipoAF").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBSubTipoAF").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBNoSerie").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBCodigo").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBSubProyecto").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBEstadoAF").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))
                    e.Row.FCLinkButton("LBEmpresa").OnClientClick = String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("Codigo"), e.Row.DBCampo("NoSerie"))

                ElseIf ViewState("Tipo").ToString = "C" Then
                    e.Row.FCLinkButton("LBDescripcion").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBTipoAF").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubTipoAF").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBNoSerie").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBCodigo").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubProyecto").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEstadoAF").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEmpresa").OnClientClick = String.Format("Ir2(""{0}"");", e.Row.DBCampo("CveActivoFijo"))

                ElseIf ViewState("LabelTraslado").ToString = "1" Then
                    BtnAFAceptar.Style.Add("display", "none")
                    ' BtnBuscar.Style.Add("display", "none")
                    e.Row.FCLinkButton("LBDescripcion").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBTipoAF").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubTipoAF").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBNoSerie").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBCodigo").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubProyecto").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEstadoAF").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEmpresa").OnClientClick = String.Format("Ir6(""{0}"", ""2"");", e.Row.DBCampo("CveActivoFijo"))

                ElseIf ViewState("LabelResguardo").ToString = "1" Then
                    BtnAFAceptar.Style.Add("display", "none")
                    'BtnBuscar.Style.Add("display", "none")
                    e.Row.FCLinkButton("LBDescripcion").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBTipoAF").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubTipoAF").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBNoSerie").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBCodigo").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubProyecto").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEstadoAF").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEmpresa").OnClientClick = String.Format("Ir6(""{0}"", ""1"");", e.Row.DBCampo("CveActivoFijo"))

                Else
                    e.Row.FCLinkButton("LBDescripcion").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBTipoAF").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubTipoAF").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBNoSerie").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBCodigo").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBSubProyecto").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEstadoAF").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                    e.Row.FCLinkButton("LBEmpresa").OnClientClick = String.Format("Ir(""{0}"");", e.Row.DBCampo("CveActivoFijo"))
                End If
            End If

        End If
    End Sub


#Region "SELECTED INDEX CHANGED"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
        CargaSubProyecto()
    End Sub
    Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
        CargaSubTipoActivoFijo()
        CargaCaracteristicas()
    End Sub
    Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged
        'CargaModeloActivoFijo()
        CargaCaracteristicas()
    End Sub
#End Region


    Protected Sub GvCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCaracteristicas.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If CaracClasif <> e.Row.DBCampo("CaracteristicaClasificacion") OrElse e.Row.RowIndex = 0 Then
                CaracClasif = e.Row.DBCampo("CaracteristicaClasificacion")
                e.Row.FCLabel("LblClasif").Text = e.Row.DBCampo("CaracteristicaClasificacion")
                e.Row.FindControl("PnlClasif").Visible = True
            End If

            Dim TipoCampo As Integer = e.Row.DBCampo("TipoCampo").ToEntero
            Dim tCveCaracteristica As Integer = e.Row.DBCampo("CveCaracteristica").ToEntero
            Select Case TipoCampo
                Case 0, 4 'Texto, Multiline
                    With e.Row.FCTextBox("TxtValor")
                        .Visible = True
                        If TipoCampo = 4 Then
                            .Rows = 3
                            .TextMode = TextBoxMode.MultiLine
                        End If
                        .Text = e.Row.DBCampo("Valor")
                        If e.Row.DBCampo("Requerida") = "True" Then
                            e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
                            e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "TxtValor"
                        End If
                    End With
                Case 1, 2 'DropDownList, Radios
                    Dim dt As DataTable = DTAFCaracteristicas.FiltraParametros(String.Format("CveCaracteristica = {0} AND EstatusOpcion ='True' AND CveCaracteristicaOpcion > 0 ", tCveCaracteristica))
                    If TipoCampo = 1 Then
                        With e.Row.FCDropDownList("DdlRespuesta")
                            .Visible = True
                            .DataTextField = "CaracteristicaOpcion"
                            .DataValueField = "CveCaracteristicaOpcion"
                            .DataSource = dt
                            .DataBind()
                            .Items.Insert(0, New ListItem("Seleccione", "")) '63636363636363
                            '.SelectedValue = e.Row.DBCampo("CveValor")
                            .SelectedValue = e.Row.DBCampo("CveOpcion")
                            If e.Row.DBCampo("Requerida") = "True" Then
                                e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
                                e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "DdlRespuesta"
                            End If
                        End With
                    ElseIf TipoCampo = 2 Then
                        With e.Row.FCRadioButtonList("RbRespuesta")
                            .Visible = True
                            .DataSource = dt
                            .DataBind()
                            .SelectedValue = e.Row.DBCampo("CveOpcion")
                        End With
                        e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ErrorMessage = String.Format("ERROR: Falta contestar la pregunta: <b>{0}</b>", e.Row.DBCampo("Caracteristica"))
                    End If
                Case 3 'Fecha
                    With e.Row.FCTextBox("TxtValor")
                        .Visible = True
                        .Width = New Unit(80)
                        .Text = e.Row.DBCampo("Valor")
                    End With
                    e.Row.FCImageButton("ImgTxtValor").Visible = True
                    e.Row.FCMaskedEditExtender("MEETxtValor").Enabled = True
                    e.Row.FCCalendarExtender("CETxtValor").Enabled = True
                    e.Row.FCCompareValidator("CVTxtValor").Enabled = True
                    e.Row.FCCompareValidator("CVTxtValor").Type = ValidationDataType.Date
                Case 5 'Checkbox
                    With e.Row.FCCheckBox("ChbValor")
                        .Visible = True
                        .Text = e.Row.DBCampo("Caracteristica")
                        '.Checked = CBool(e.Row.DBCampo("Valor").ToEntero)
                        .Checked = (e.Row.DBCampo("Valor") = "True")
                    End With

                Case 6 ' Numerico
                    With e.Row.FCTextBox("TxtValorNum")
                        .Visible = True
                        .Text = e.Row.DBCampo("Valor")
                        e.Row.FCCompareValidator("CVTxtValor").Enabled = True
                        e.Row.FCCompareValidator("CVTxtValor").Type = ValidationDataType.Integer

                        If e.Row.DBCampo("Requerida") = "True" Then
                            e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
                            e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "TxtValorNum"
                        End If
                    End With


            End Select
        End If
    End Sub


    Protected Sub LnkAFSeleccionar_Click(sender As Object, e As EventArgs)
        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
        HdnAFCveActivoFijo.Value = gvr.DataKey("CveActivoFijo")
        HdnAFCodigo.Value = gvr.DataKey("Codigo")

        'CARGA GV
        GV.SelectedIndex = gvr.RowIndex

        'carga las últimas compras
        BtnAFAceptar.Visible = True
        CargaComprasActivoFijo(gvr.DataKey("CveActivoFijo").ToEntero)
        UPFiltros.Update()
    End Sub
    Private Sub CargaComprasActivoFijo(pCveActivoFijo As Integer)
        Dim ObjActivoFijo As New ClsAF()
        If ObjActivoFijo.GetActivosFijosCompras(pCveActivoFijo, -1) Then
            GVAFC.DataSource = ObjActivoFijo.DtResultados
        Else
            GVAFC.DataSource = Nothing
        End If
        ObjActivoFijo.Dispose()
        GVAFC.DataBind()
        GVAFC.Visible = True
    End Sub
    Protected Sub BtnAFAceptar_Click(sender As Object, e As EventArgs)
        Dim gvr As GridViewRow = GV.Rows(GV.SelectedIndex)

        If ViewState("LabelCompras").ToString <> "" And Opcion <> "OCE" Then
            RegistraScript(String.Format("Ir3(""{0}"",""{1}"",""{2}"",""{3}"",""{4}"",""{5}"");", ViewState("LabelCompras"), ViewState("HiddenCompras1"), ViewState("HiddenCompras2"), gvr.DataKey("CveActivoFijo"), gvr.DataKey("Codigo"), gvr.DataKey("NoSerie")))
        ElseIf ViewState("Tipo").ToString = "C" Then
            RegistraScript(String.Format("Ir2(""{0}"");", gvr.DataKey("CveActivoFijo")))
        ElseIf Opcion = "OC" Then
            RegistraScript(String.Format("Ir4(""{0}"",""{1}"");", gvr.DataKey("CveActivoFijo"), gvr.DataKey("Codigo")))
        ElseIf Opcion = "OCE" Then
            RegistraScript(String.Format("Ir5(""{0}"",""{1}"",""{2}"");", gvr.DataKey("CveActivoFijo"), gvr.DataKey("Codigo"), ViewState("RowIndex")))
        Else
            RegistraScript(String.Format("Ir(""{0}"");", gvr.DataKey("CveActivoFijo")))
        End If

    End Sub
End Class