Option Strict On

Imports Extensiones
Imports System.Data
Imports System.IO



Partial Class OI_Desarrollo
    Inherits ClsPaginas

    Property CveEvento As Integer
        Get
            If ViewState("CveEvento") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveEvento"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveEvento") = value
        End Set
    End Property

    Property CveDesarrollo As Integer
        Get
            If ViewState("CveDesarrollo") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveDesarrollo"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveDesarrollo") = value
        End Set
    End Property

    'CveDesarrolloDetalle
    Property CveDesarrolloDetalle As Integer
        Get
            If ViewState("CveDesarrolloDetalle") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveDesarrolloDetalle"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveDesarrolloDetalle") = value
        End Set
    End Property

    Property CveDesarrolloDetalleTipo As Integer
        Get
            If ViewState("CveDesarrolloTareaTipo") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveDesarrolloTareaTipo"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveDesarrolloTareaTipo") = value
        End Set
    End Property

    Property DesarrolloDetalleTipo As String
        Get
            If ViewState("DesarrolloTareaTipo") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("DesarrolloTareaTipo").ToString
            End If
        End Get
        Set(value As String)
            ViewState("DesarrolloTareaTipo") = value
        End Set
    End Property


    Property CveUsuarioResponsable As Integer
        Get
            If ViewState("CveUsuarioResponsable") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveUsuarioResponsable"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveUsuarioResponsable") = value
        End Set
    End Property


    Property CveUsuarioAsignado As Integer
        Get
            If ViewState("CveUsuarioAsignado") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveUsuarioAsignado"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveUsuarioAsignado") = value
        End Set
    End Property

    Property CveUsuarioPruebas As Integer
        Get
            If ViewState("CveUsuarioPruebas") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveUsuarioPruebas"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveUsuarioPruebas") = value
        End Set
    End Property


    Property Bloquear As Boolean
        Get
            If ViewState("Bloquear") Is Nothing Then
                Return False
            Else
                Return DirectCast(ViewState("Bloquear"), Boolean)
            End If
        End Get

        Set(value As Boolean)
            ViewState("Bloquear") = value
        End Set
    End Property



#Region "Adjunto"
    Property CveDesarrolloAdjunto As Integer
        Get
            If ViewState("CveDesarrolloAdjunto") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveDesarrolloAdjunto"), Integer)
            End If
        End Get

        Set(value As Integer)
            ViewState("CveDesarrolloAdjunto") = value
        End Set
    End Property


    Property DesarrolloAdjunto As String
        Get
            If ViewState("DesarrolloAdjunto") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("DesarrolloAdjunto").ToString
            End If
        End Get

        Set(value As String)
            ViewState("DesarrolloAdjunto") = value
        End Set
    End Property

    Property DesarrolloAdjuntoArchivo As String
        Get
            If ViewState("DesarrolloAdjuntoArchivo") Is Nothing Then
                Return "-1"
            Else
                Return ViewState("DesarrolloAdjuntoArchivo").ToString
            End If
        End Get

        Set(value As String)
            ViewState("DesarrolloAdjuntoArchivo") = value
        End Set
    End Property

#End Region

    Private Sub OI_Desarrollo_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            
            CargaCombos()

            If Request.QueryString("CveEvento") <> Nothing Then
                CveEvento = Request.QueryString("CveEvento").ToEntero
            Else
                CveEvento = -1
            End If

            If Request.QueryString("CveDesarrollo") <> Nothing Then

                CveDesarrollo = Request.QueryString("CveDesarrollo").ToEntero
                CargaDesarrollo()
                CargaDesarrolloDetalles()
                CargaAdjuntos()

                DVPruebas.Visible = True
                DVFormatoTecnico.Visible = True
                DVAdjuntos.Visible = True
                DVAsignacion.Visible = True
                LnkGuardar.Text = "Actualizar"

                LnkWizard.Visible = True
                LnkWizard.PostBackUrl = $"./DesarrolloWizard.aspx?CveDesarrollo={CveDesarrollo}"

                If Bloquear Then
                    BloquearTodo()
                End If

            Else
                CveDesarrollo = -1
                DVPruebas.Visible = False
                DVFormatoTecnico.Visible = False
                DVAdjuntos.Visible = False
                DVAsignacion.Visible = False
                LnkGuardar.Text = "Guardar"
            End If

        End If

    End Sub



    Private Sub CargaDesarrollo()

        If CveDesarrollo > 0 Then

            Dim objDesarrolo As New ClsDesarrollo

            If objDesarrolo.DesarrolloGet(CveDesarrollo, -1, -1, -1, -1, -1, "-1", -1, -1, -1) Then

                If objDesarrolo.DtResultados.Rows.Count > 0 Then

                    TxtDesarrollo.Text = objDesarrolo.DtResultados(0)("Desarrollo").ToString
                    LblTitulo.Text = $"Desarrollo: {objDesarrolo.DtResultados(0)("Desarrollo").ToString}"
                    UpTitulo.Update()

                    TxtDescripcion.Text = objDesarrolo.DtResultados(0)("Descripcion").ToString
                    CveUsuarioResponsable = objDesarrolo.DtResultados(0)("CveUsuarioResponsable").ToString.ToEntero
                    CveUsuarioAsignado = objDesarrolo.DtResultados(0)("CveUsuarioAsignado").ToString.ToEntero
                    CveUsuarioPruebas = objDesarrolo.DtResultados(0)("CveUsuarioPruebas").ToString.ToEntero

                    If Not objDesarrolo.DtResultados(0)("CveUsuarioAsignado").ToString = "" Then
                        DdlUsuarioDes.SelectedValueExist(objDesarrolo.DtResultados(0)("CveUsuarioAsignado").ToString.ToEntero)
                    End If

                    If Not objDesarrolo.DtResultados(0)("CveUsuarioPruebas").ToString = "" Then
                        DdlUsuarioPruebas.SelectedValueExist(objDesarrolo.DtResultados(0)("CveUsuarioPruebas").ToString.ToEntero)
                    End If

                    DdlModulo.SelectedValueExist(objDesarrolo.DtResultados(0)("CveModulo").ToString.ToEntero)
                    TxtTiempoEstimado.Text = objDesarrolo.DtResultados(0)("TiempoEstimado").ToString
                    '  DdlEstado.SelectedValueExist(objDesarrolo.DtResultados(0)("CveDesarrolloEstado").ToString)
                    ChkFManual.Checked = If(Boolean.Parse(objDesarrolo.DtResultados(0)("Manual").ToString), True, False)

                    If UsuarioActual.CveUsuario <> objDesarrolo.DtResultados(0)("CveUsuarioResponsable").ToString.ToEntero Then
                        Bloquear = True
                    Else
                        Bloquear = False
                    End If

                End If

            End If
            objDesarrolo.Dispose()
        Else
            DdlUsuarioPruebas.SelectedValueExist(UsuarioActual.CveUsuario)
        End If

    End Sub



    Private Sub BloquearTodo()

        LnkGuardar.Visible = False
        'UpGuardar.Update()


        For Each GvRow As GridViewRow In GvAdjuntos.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarAdjunto.Visible = False

        For Each GvRow As GridViewRow In GvFTTareas.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarTarea.Visible = False


        For Each GvRow As GridViewRow In GvFTTareas.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarTarea.Visible = False


        For Each GvRow As GridViewRow In GvFTComprobaciones.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarComprovaciones.Visible = False

        For Each GvRow As GridViewRow In GvFTRecomendaciones.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarRecomendaciones.Visible = False

        For Each GvRow As GridViewRow In GvPruebasBasicas.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarPruebaBasica.Visible = False


        For Each GvRow As GridViewRow In GvPruebaspecificas.Rows
            GvRow.FCLinkButton("imgE").Visible = False
            GvRow.FCLinkButton("ImgD").Visible = False
        Next
        LnkAgregarPruebaEspecifica.Visible = False


        'GvFTComprobaciones
        ' UpAdjunto.Update()

    End Sub

    Private Sub CargaCombos()

        DdlUsuarioDes.DataSource = GlobalDTUsuarios(-1, 2)
        DdlUsuarioDes.DataBind()
        DdlUsuarioDes.Items.Insert(0, New ListItem("Selecione uno", "-1"))

        DdlUsuarioPruebas.DataSource = GlobalDTUsuarios(-1, 2)
        DdlUsuarioPruebas.DataBind()
        DdlUsuarioPruebas.Items.Insert(0, New ListItem("Selecione uno", "-1"))

        DdlModulo.DataSource = GlobalDTModulos()
        DdlModulo.DataBind()
        DdlModulo.Items.Insert(0, New ListItem("Selecione uno", "-1"))

        CargaComboEstados()
    End Sub

    Private Sub CargaComboEstados()
        Dim ObjDesarrollo As New ClsDesarrollo
        Dim DTEstados As New DataTable

        If ObjDesarrollo.DesarrolloEstadosGet(1) Then

            'DTEstados = ObjDesarrollo.DtResultados
            'DdlEstado.DataSource = DTEstados
            'DdlEstado.DataBind()
            'DdlEstado.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

        End If
        DTEstados.Dispose()
        ObjDesarrollo.Dispose()
    End Sub

    Private Sub LnkGuardar_Click(sender As Object, e As EventArgs) Handles LnkGuardar.Click

        Dim ObjDesarrollo As New ClsDesarrollo
        Dim FechaTermino As Date = Nothing
        Dim Manual As Integer = If(ChkFManual.Checked, 1, 0)
        Dim FechaAsiganacion As Date = Nothing
        

        If CveDesarrollo = -1 Then

            If ObjDesarrollo.DesarrolloAddUpdate(-1, TxtDesarrollo.Text.Trim, CveEvento, UsuarioActual.CveUsuario, DdlUsuarioPruebas.SelectedValue.ToEntero, DdlModulo.SelectedValue.ToEntero, TxtDescripcion.Text, DdlUsuarioDes.SelectedValue.ToEntero, Nothing, TxtTiempoEstimado.Text.ToEntero, 1, Manual, UsuarioActual.CveUsuario) Then
                CveDesarrollo = ObjDesarrollo.DtResultados(0)(0).ToString.ToEntero
                Response.Redirect($"./Desarrollo.aspx?CveDesarrollo={CveDesarrollo}")
                ' Alert("El desarrollo se agrego correctamente", TipoMensaje.MsgInformacion, $"href='.Desarrollo.aspx?CveDesarrollo={CveDesarrollo}'")
            Else
                Alert("Se presento un error al agregar el desarrollo", TipoMensaje.MsgError)
            End If
        Else
            Dim _CveEstadoTemp As Integer = -1
            If DdlUsuarioDes.SelectedValue.ToEntero <> CveUsuarioAsignado Then
                FechaAsiganacion = Now
                _CveEstadoTemp = 2
            End If

            If ObjDesarrollo.DesarrolloAddUpdate(CveDesarrollo, TxtDesarrollo.Text.Trim, CveEvento, UsuarioActual.CveUsuario, DdlUsuarioPruebas.SelectedValue.ToEntero, DdlModulo.SelectedValue.ToEntero, TxtDescripcion.Text, DdlUsuarioDes.SelectedValue.ToEntero, FechaAsiganacion, TxtTiempoEstimado.Text.ToEntero, _CveEstadoTemp, Manual, UsuarioActual.CveUsuario, FechaTermino) Then
                Alert("El desarrollo se actualizo correctamente.")
            Else
                Alert("Se presento un error al actualizar el desarrollo", TipoMensaje.MsgError)
            End If
        End If

        If CveDesarrollo > 0 Then

        End If

        ObjDesarrollo.Dispose()

    End Sub

    Private Sub MuestraModalformatoTecnico(Tipo As Integer)

        CveDesarrolloDetalle = -1
        LnkModalHojaTecnica.Text = "Guardar"

        Select Case Tipo
            Case 1
                LtlTituloModalHojaTecnica.Text = "Agregar Tarea"
                LtltxtModalHojaTecnica.Text = "Tarea"
                TxtHojaTecnicaPrioridad.Text = ""
                DvHojaTecnicaPrioridad.Visible = True
                Exit Select
            Case 2
                LtlTituloModalHojaTecnica.Text = "Agregar Comprobación"
                LtltxtModalHojaTecnica.Text = "Comprobación"
                TxtHojaTecnicaPrioridad.Text = ""
                DvHojaTecnicaPrioridad.Visible = True
                Exit Select
            Case 3
                LtlTituloModalHojaTecnica.Text = "Agregar Recomendación"
                LtltxtModalHojaTecnica.Text = "Recomendación"
                TxtHojaTecnicaPrioridad.Text = ""
                DvHojaTecnicaPrioridad.Visible = False
                Exit Select
        End Select

        ChkModalHojaTecnicaContinua.Visible = True
        txtModalHojaTecnica.Text = ""
        RegistraScript("$('#DivModalHojaTecnica').modal({ backdrop: 'static',  keyboard: false});", "MTareas")
        UpModalHojaTecnica.Update()
    End Sub

    Private Sub MuestraModalFormatoPruebas(Tipo As Integer)

        CveDesarrolloDetalle = -1
        LnkModalPruebas.Text = "Guardar"

        Select Case Tipo
            Case 1
                LlTituloModalPruebas.Text = "Agregar Caso Basico"
                'TxtModalPruebas.Text = "Caso basico"
                TxtPruebasPrioridad.Text = ""
                Exit Select
            Case 2
                LlTituloModalPruebas.Text = "Agregar Caso Especifico"
                'TxtModalPruebas.Text = "Caso Especifico"
                Exit Select
        End Select

        ChkModalPruebasContinua.Visible = True
        TxtModalPruebas.Text = ""

        RegistraScript("$('#DivModalPruebas').modal({ backdrop: 'static',  keyboard: false});", "MTPruebas")

        UpModalPruebas.Update()

    End Sub

    Private Sub LnkAgregarTarea_Click(sender As Object, e As EventArgs) Handles LnkAgregarTarea.Click

        CveDesarrolloDetalleTipo = 1
        DesarrolloDetalleTipo = "Tarea"
        ChkModalHojaTecnicaContinua.Visible = True
        MuestraModalformatoTecnico(1)
    End Sub

    Private Sub LnkAgregarComprovaciones_Click(sender As Object, e As EventArgs) Handles LnkAgregarComprovaciones.Click
        CveDesarrolloDetalleTipo = 2
        DesarrolloDetalleTipo = "Comprobación"
        ChkModalHojaTecnicaContinua.Visible = True
        MuestraModalformatoTecnico(2)
    End Sub

    Private Sub LnkAgregarRecomendaciones_Click(sender As Object, e As EventArgs) Handles LnkAgregarRecomendaciones.Click
        CveDesarrolloDetalleTipo = 3
        DesarrolloDetalleTipo = "Recomendación"
        ChkModalHojaTecnicaContinua.Visible = True
        MuestraModalformatoTecnico(3)
    End Sub

    Private Sub LnkAgregarPruebaBasica_Click(sender As Object, e As EventArgs) Handles LnkAgregarPruebaBasica.Click
        CveDesarrolloDetalleTipo = 4
        DesarrolloDetalleTipo = "Prueba basica"

        MuestraModalFormatoPruebas(1)
    End Sub

    Private Sub LnkAgregarPruebaEspecifica_Click(sender As Object, e As EventArgs) Handles LnkAgregarPruebaEspecifica.Click
        CveDesarrolloDetalleTipo = 5
        DesarrolloDetalleTipo = "Prueba especifica"

        MuestraModalFormatoPruebas(2)
    End Sub

    Private Sub LnkModalHojaTecnica_Click(sender As Object, e As EventArgs) Handles LnkModalHojaTecnica.Click

        Dim ObjDesarrollo As New ClsDesarrollo

        If ObjDesarrollo.DesarrolloDetalleAddUpdate(CveDesarrolloDetalle, CveDesarrollo, CveDesarrolloDetalleTipo, txtModalHojaTecnica.Text.Trim, "-1", 0, UsuarioActual.CveUsuario, -1, -1, -1, TxtHojaTecnicaPrioridad.Text.ToEntero) Then
            ' Alert(" La " & DesarrolloDetalleTipo & " Se agregado correctamente")
			 txtModalHojaTecnica.Focus()
        Else
            Alert("Se presento un erro al  guarar la  " & DesarrolloDetalleTipo, TipoMensaje.MsgError)
        End If

        txtModalHojaTecnica.Text = ""
        UpModalHojaTecnica.Update()

        If Not ChkModalHojaTecnicaContinua.Checked Then
            RegistraScript("$('#DivModalHojaTecnica').modal('hide');", "MTareas")
        End If

        CargaDesarrolloDetalles()

    End Sub

    Private Sub LnkModalPruebas_Click(sender As Object, e As EventArgs) Handles LnkModalPruebas.Click
        Dim ObjDesarrollo As New ClsDesarrollo

        If ObjDesarrollo.DesarrolloDetalleAddUpdate(CveDesarrolloDetalle, CveDesarrollo, CveDesarrolloDetalleTipo, TxtModalPruebas.Text.Trim, "-1", 0, UsuarioActual.CveUsuario, -1, -1, -1, TxtPruebasPrioridad.Text.ToEntero) Then
            'Alert(" La " & DesarrolloDetalleTipo & " Se agregado correctamente")
        Else
            Alert("Se presento un erro al  guardar la  " & DesarrolloDetalleTipo, TipoMensaje.MsgError)
        End If

        TxtModalPruebas.Text = ""
        UpModalPruebas.Update()
        If Not ChkModalPruebasContinua.Checked Then
            RegistraScript("$('#DivModalPruebas').modal('hide');", "MTPruebas")
        End If

        CargaDesarrolloDetalles()

    End Sub

    Private Sub CargaDesarrolloDetalles()
        If CveDesarrollo > 0 Then

            Dim ObjDesarrollo As New ClsDesarrollo

            If ObjDesarrollo.DesarrolloDetalleGet(-1, CveDesarrollo, -1, "-1", -1) Then

                Dim DtDatosDetalles As New DataTable
                DtDatosDetalles = ObjDesarrollo.DtResultados

                GvFTTareas.DataSource = DtDatosDetalles.FiltraParametros("CveDesarrolloDetalleTipo = 1")
                GvFTTareas.DataBind()
                GvFTComprobaciones.DataSource = DtDatosDetalles.FiltraParametros("CveDesarrolloDetalleTipo = 2")
                GvFTComprobaciones.DataBind()
                GvFTRecomendaciones.DataSource = DtDatosDetalles.FiltraParametros("CveDesarrolloDetalleTipo = 3")
                GvFTRecomendaciones.DataBind()

                GvPruebasBasicas.DataSource = DtDatosDetalles.FiltraParametros("CveDesarrolloDetalleTipo = 4")
                GvPruebasBasicas.DataBind()
                GvPruebaspecificas.DataSource = DtDatosDetalles.FiltraParametros("CveDesarrolloDetalleTipo = 5")
                GvPruebaspecificas.DataBind()
            Else
                GvFTTareas.DataSource = Nothing
                GvFTTareas.DataBind()
                GvFTComprobaciones.DataSource = Nothing
                GvFTComprobaciones.DataBind()
                GvFTRecomendaciones.DataSource = Nothing
                GvFTRecomendaciones.DataBind()

                GvPruebasBasicas.DataSource = Nothing
                GvPruebasBasicas.DataBind()
                GvPruebaspecificas.DataSource = Nothing
                GvPruebaspecificas.DataBind()

            End If

            UpGRal.Update()
            ObjDesarrollo.Dispose()

        End If
    End Sub

    Public Sub Edit_Click(sender As Object, e As EventArgs)

        Dim ObjDesarrollo As New ClsDesarrollo


        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveDesarrolloDetalle = GvRow.DataKey("CveDesarrolloDetalle").ToEntero
        CveDesarrolloDetalleTipo = GvRow.DataKey("CveDesarrolloDetalleTipo").ToEntero
        DesarrolloDetalleTipo = GvRow.DataKey("DesarrolloDetalleTipo")
        Dim Descripcion As String = If(CveDesarrolloDetalleTipo = 4 Or CveDesarrolloDetalleTipo = 5, TxtModalPruebas.Text.Trim, txtModalHojaTecnica.Text.Trim)

        If CveDesarrolloDetalleTipo = 4 Or CveDesarrolloDetalleTipo = 5 Then
            TxtModalPruebas.Text = GvRow.DataKey("Descripcion")
            TxtPruebasPrioridad.Text = GvRow.DataKey("CvePrioridad")
            LlTituloModalPruebas.Text = "Actulizar " & DesarrolloDetalleTipo
            RegistraScript("$('#DivModalPruebas').modal({ backdrop: 'static',  keyboard: false});", "MTPruebas")
            LnkModalPruebas.Text = "Actualizar"
            'DdlPruebasPrioridad.SelectedValueExist(GvRow.DataKey("CvePrioridad"))
            ChkModalPruebasContinua.Visible = False
            ChkModalPruebasContinua.Checked = False
            UpModalPruebas.Update()
        Else
            txtModalHojaTecnica.Text = GvRow.DataKey("Descripcion")


            If Not CveDesarrolloDetalleTipo = 3 Then
                TxtHojaTecnicaPrioridad.Text = GvRow.DataKey("CvePrioridad")
            End If

            LtlTituloModalHojaTecnica.Text = "Actulizar " & DesarrolloDetalleTipo
            RegistraScript("$('#DivModalHojaTecnica').modal({ backdrop: 'static',  keyboard: false});", "MTareas")
            LnkModalHojaTecnica.Text = "Actualizar"
            'DdlHojaTecnicaPrioridad.SelectedValueExist(GvRow.DataKey("CvePrioridad"))
            ChkModalHojaTecnicaContinua.Visible = False
            ChkModalHojaTecnicaContinua.Checked = False
            UpModalHojaTecnica.Update()
        End If

        If CveDesarrolloDetalleTipo = 3 Then
            ' DdlHojaTecnicaPrioridad.SelectedValue = "-1"
            DvHojaTecnicaPrioridad.Visible = False
        Else
            DvHojaTecnicaPrioridad.Visible = True
        End If



        ObjDesarrollo.Dispose()
    End Sub

    Public Sub Delete_Click(sender As Object, e As EventArgs)

        Dim ObjDesarrollo As New ClsDesarrollo

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim _CveDesarrolloDetalle As Integer = GvRow.DataKey("CveDesarrolloDetalle").ToEntero

        If ObjDesarrollo.DesarrolloDetalleRemove(_CveDesarrolloDetalle) Then
            'Alert("Se guardo elimino  la " & DesarrolloDetalleTipo & " Correctamente.")
        Else
            Alert("Se presento un error  al  eliminar la " & DesarrolloDetalleTipo, TipoMensaje.MsgError)
        End If

        UpAdjunto.Update()
        ObjDesarrollo.Dispose()

        CargaDesarrolloDetalles()
    End Sub


    Private Sub CargaAdjuntos()


        If CveDesarrollo > 0 Then

            Dim ObjDesarrollo As New ClsDesarrollo

            If ObjDesarrollo.DesarrolloAdjuntoGet(-1, CveDesarrollo, "-1") Then
                GvAdjuntos.DataSource = ObjDesarrollo.DtResultados
                GvAdjuntos.DataBind()
            Else
                GvAdjuntos.DataSource = Nothing
                GvAdjuntos.DataBind()
            End If

            ObjDesarrollo.Dispose()
            UpAdjunto.Update()
        End If

    End Sub

    Public Sub EditAdjunto_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveDesarrolloAdjunto = GvRow.DataKey("CveDesarrolloAdjunto").ToEntero
        TxtAdjunto.Text = GvRow.DataKey("DesarrolloAdjunto")
        DesarrolloAdjuntoArchivo = GvRow.DataKey("DesarrolloAdjuntoArchivo")
        TxtFileAdjunto.Text = ""
        ChkModalHojaTecnicaContinua.Visible = False
        UpModalUploaAdjunto.Update()
        RegistraScript("$('#ModalUploadAdjunto').modal({ backdrop: 'static',  keyboard: false});", "MAdjuntos")

    End Sub

    Public Sub DowloadAdjunto_Click(sender As Object, e As EventArgs)

        Dim ObjDesarrollo As New ClsDesarrollo
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim _DesarrolloAdjuntoArchivo As String = GvRow.DataKey("DesarrolloAdjuntoArchivo")
        Dim RutaAdjunto As String = Server.MapPath("~/") & "Empresas\2\Desarrollo\Adjuntos\" & _DesarrolloAdjuntoArchivo
        Response.ClearContent()
        Response.Clear()
        Response.ContentType = "application/octet-stream"
        Response.AddHeader("Content-Disposition", $"attachment; filename={ _DesarrolloAdjuntoArchivo };")
        Response.TransmitFile(RutaAdjunto)
        Response.Flush()
        Response.End()

    End Sub


    Public Sub DeleteAdjunto_Click(sender As Object, e As EventArgs)

        Dim ObjDesarrollo As New ClsDesarrollo

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveDesarrolloAdjunto = GvRow.DataKey("CveDesarrolloAdjunto").ToEntero

        Dim _DesarrolloAdjuntoArchivo As String = GvRow.DataKey("DesarrolloAdjuntoArchivo")
        Dim RutaAdjunto As String = Server.MapPath("~/") & "Empresas\2\Desarrollo\Adjuntos\" & _DesarrolloAdjuntoArchivo

        If ObjDesarrollo.DesarrolloAdjuntoRemove(CveDesarrolloAdjunto) Then

            If File.Exists(RutaAdjunto) Then
                File.Delete(RutaAdjunto)
            End If

            Alert("Se  elimino el adjunto Correctamente.")
            RegistraScript("$('#ModalUploadAdjunto').modal('hide');", "MAdjuntos")

            CargaAdjuntos()

        Else
                Alert("Se presento un error   al  eliminar el  adjunto", TipoMensaje.MsgError)
        End If

        ObjDesarrollo.Dispose()

    End Sub

    Private Sub LnkAgregarAdjunto_Click(sender As Object, e As EventArgs) Handles LnkAgregarAdjunto.Click

        CveDesarrolloAdjunto = -1
        DesarrolloAdjuntoArchivo = "-1"

        TxtAdjunto.Text = ""
        TxtFileAdjunto.Text = ""
        ChkModalHojaTecnicaContinua.Visible = False
        UpModalUploaAdjunto.Update()

        RegistraScript("$('#ModalUploadAdjunto').modal({ backdrop: 'static',  keyboard: false});", "MTPruebas")

    End Sub

    Private Sub BtnModalAdjuntoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalAdjuntoUpload.Click
        Dim ObjDesarrollo As New ClsDesarrollo


        If ObjDesarrollo.DesarrolloAdjuntoAddUpdate(CveDesarrolloAdjunto, CveDesarrollo, TxtAdjunto.Text, DesarrolloAdjuntoArchivo, UsuarioActual.CveUsuario) Then

            CveDesarrolloAdjunto = ObjDesarrollo.DtResultados(0)("CveDesarrolloAdjunto").ToString.ToEntero

            GuardaDocumentoAdjunto()

            ObjDesarrollo.DesarrolloAdjuntoAddUpdate(CveDesarrolloAdjunto, CveDesarrollo, TxtAdjunto.Text, DesarrolloAdjuntoArchivo, UsuarioActual.CveUsuario)

            Alert("Se guardo archivo  el adjunto Correctamente.")
            RegistraScript("$('#ModalUploadAdjunto').modal('hide');", "MAdjuntos")
        Else
            Alert("Se guardo presento un error  al eliminar el archivo adjunto.")
        End If


        CargaAdjuntos()

        ObjDesarrollo.Dispose()

    End Sub


    Private Sub GuardaDocumentoAdjunto()
        Dim FileExtension As String = "-1"
        Dim Filesgral As List(Of Archivo) = TxtFileAdjunto.getfiles().Archivos
        Dim Filename As String = ""
        Dim ArchivoDestino As String = ""
        Dim ArchivoAnterior As String = ""

        For Each fileItem As Archivo In Filesgral
            Try

                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")

                ArchivoDestino = $"{CveDesarrollo}_{CveDesarrolloAdjunto}." & FileExtension
                ArchivoAnterior = Server.MapPath("~/") & $"\Empresas\2\Desarrollo\Adjuntos\{DesarrolloAdjuntoArchivo}"
                Dim rutaDestino As String = Server.MapPath("~/") & $"\Empresas\2\Desarrollo\Adjuntos\{ArchivoDestino}"

                If File.Exists(ArchivoAnterior) Then
                    File.Delete(ArchivoAnterior)
                End If


                If Not System.IO.Directory.Exists(Server.MapPath("~/") & $"\Empresas\2\Desarrollo\Adjuntos\") Then
                    System.IO.Directory.CreateDirectory(Server.MapPath("~/") & $"\Empresas\2\Desarrollo\Adjuntos\")
                End If

                If File.Exists(rutaDestino) Then
                    File.Delete(rutaDestino)
                End If
                System.IO.File.Move(fileItem.FileUrl, rutaDestino)

                ' TxtFileAdjunto.Text = ""
                ' TxtAdjunto.Text = ""
                UpModalUploaAdjunto.Update()

                DesarrolloAdjuntoArchivo = ArchivoDestino
            Catch ex As Exception
                DesarrolloAdjuntoArchivo = "-1"
                OnError("Error al cargar archivo adjunto", ex)
            End Try

        Next
    End Sub

    Private Sub GvAdjuntos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAdjuntos.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim _DesarrolloAdjuntoArchivo As String = e.Row.DataKey("DesarrolloAdjuntoArchivo")
            Dim RutaAdjunto As String = Server.MapPath("~/").ToString & "\Empresas\2\Desarrollo\Adjuntos\" & _DesarrolloAdjuntoArchivo

            Dim LnkDescarga As LinkButton = e.Row.FCLinkButton("ImgDO")
            If File.Exists(RutaAdjunto) Then

                LnkDescarga.Visible = True
                ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescarga)
            Else
                LnkDescarga.Visible = False
            End If


        End If


    End Sub


    


End Class