Option Strict On


Imports System.Data
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet




Partial Class Proveedores_RepDocumentacionProveedor
    Inherits ClsPaginas

    Private Property DTDatos As DataTable
        Get
            If ViewState("DTDatos") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTDatos"), DataTable)
            End If
        End Get
        Set(value As DataTable)
            ViewState("DTDatos") = value
        End Set
    End Property


    Private Property DTHeaders As DataTable
        Get
            If ViewState("DTHeaders") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTHeaders"), DataTable)
            End If
        End Get
        Set(value As DataTable)
            ViewState("DTHeaders") = value
        End Set
    End Property



#Region "UPLOAD"
    Property CveDocumentacionElectronica As Integer
        Get
            If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CvePersonalClienteDocumentacion") = value
        End Set
    End Property

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

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

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



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

    Property AplicaFechaVencimiento As Boolean
        Get
            If ViewState("AplicaFechaVencimiento") Is Nothing Then
                Return True
            Else
                Return DirectCast(ViewState("AplicaFechaVencimiento"), Boolean)
            End If
        End Get
        Set(value As Boolean)
            ViewState("AplicaFechaVencimiento") = value
        End Set
    End Property

    Private Property FechaVigencia As Date
        Get
            If ViewState("FechaVigencia") Is Nothing Then
                Return Nothing
            Else
                Return ViewState("FechaVigencia").ToString.ToDate
            End If
        End Get
        Set(value As Date)
            ViewState("FechaVigencia") = value
        End Set
    End Property

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

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

    Private Property FechaLimite As Date
        Get
            If ViewState("FechaLimite") Is Nothing Then
                Return NowADS().AddDays(15)
            Else
                Return ViewState("FechaLimite").ToString.ToDate
            End If
        End Get
        Set(value As Date)
            ViewState("FechaLimite") = value
        End Set

    End Property


    Property CveProveedor As Integer
        Get
            If ViewState("CveProveedor") Is Nothing Then
                Return 0
            Else
                Return DirectCast(ViewState("CveProveedor"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveProveedor") = value
        End Set
    End Property
#End Region


    Private Sub Proveedores_RepDocumentacionProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaCombos()

            'TxtFechaI.Text = NowADS().AddMonths(-3).ToString("dd/MM/yyyy")
            'TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")

            TxtFechaI.Text = ""
            TxtFechaF.Text = ""

            LnkDescargarExcel.Visible = False
        End If
        'ExportaExcel()
    End Sub

    Private Sub CargaCombos()


        DdlProveedores.setEsWebService(True)
        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedores.SelectedText = "Todos"
        DdlProveedores.SelectedValue = "-1"

        CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, LblSubProyectoFiltro)

        Dim ObjProveedor As New ClsCompProveedores

        If ObjProveedor.GetTiposContratos(-1, UsuarioActual.CveEmpresa, 1) Then
            DdlTipoContratoFiltro.DataSource = ObjProveedor.DtResultados
        End If
        ObjProveedor.Dispose()

        DdlTipoContratoFiltro.DataBind()
        DdlTipoContratoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub


    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDocumentacion()
    End Sub


    Private Sub CargaDocumentacion()

        Dim CveProveedor As Integer = -1

        Dim FechaInicio As Date
        Dim FechaFin As Date

        If TxtFechaI.Text = "" Then
            FechaInicio = MinFecha
        Else
            FechaInicio = TxtFechaI.Text.ToDate
        End If

        If TxtFechaF.Text = "" Then
            FechaFin = MaxFecha
        Else
            FechaFin = TxtFechaF.Text.ToDate
        End If

        If DdlProveedores.txtValue.Value.ToEntero > 0 Then
            CveProveedor = DdlProveedores.txtValue.Value.ToEntero
        End If

        Dim obEDoc As New ClsEdocumentacion

        If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlTipoContratoFiltro.SelectedValue.ToEntero) Then
            GvDocumentos.DataSource = obEDoc.DtResultados
        Else
            GvDocumentos.DataSource = Nothing
        End If

        obEDoc.Dispose()

        GvDocumentos.DataBind()
        UPGvDocumentos.Update()



    End Sub





    Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound


        If e.Row.RowType = DataControlRowType.Header Then
            e.Row.FCLabel("LblSubProyecto").Text = LblSubProyectoFiltro.Text
        End If

        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
            Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
            Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
            Dim txtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
            Dim CveDocumentacionElectronica As Integer = e.Row.DataKey("CveDocumentacionElectronica").ToEntero

            Dim ImgRechazar As LinkButton = e.Row.FCLinkButton("ImgRechazar")

            Dim ImgAceptar As LinkButton = e.Row.FCLinkButton("ImgAceptar")

            Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
            'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
            'Dim RDBAcptar As RadioButton = e.Row.FCRadioButton("RDBAcptar")
            'Dim RDBRechazar As RadioButton = e.Row.FCRadioButton("RDBRechazar")

            Dim separado As Char() = ".".ToCharArray
            Dim array() As String = Adjunto.Split(separado)
            Dim extencion As String = ""

            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero
            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)

            txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
            txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)



            If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
                txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
                If DateTime.Today > e.Row.DBCampo("FechaVigencia").ToString.ToDateTime Then
                    txtFechaVigencia.ForeColor = Drawing.Color.Red
                End If
            End If


            If array.Length > 0 Then
                extencion = array(array.Length - 1)
            End If

            'If e.Row.DBCampo("Estatus").ToString.ToEntero = 3 Then
            '    RDBAcptar.Checked = True
            'Else
            '    chkEstatus.Checked = False
            'End If

            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")

            If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
                txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
            End If

            Dim scripMascara = "$('#" & txtFechaLimite.ClientID & "').mask('00/00/0000');$('#" & txtFechaVigencia.ClientID & "').mask('00/00/0000');"
            RegistraScript(scripMascara, "scriptMascara")

            If Adjunto.Trim.Length > 0 Then

                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & e.Row.DataKey("CveProveedor") & "/" & Adjunto
                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & e.Row.DataKey("CveProveedor") & "/" & Adjunto

                If File.Exists(linkDescargaArchivo) Then
                    ImgDownLoad.Visible = True

                    If extencion.Length > 0 Then
                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica & "." & extencion)
                    Else
                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica)
                    End If


                    If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2, 3) Then
                        ImgRechazar.Visible = True
                    End If


                    If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2) Then
                        ImgAceptar.Visible = True
                    End If

                    'If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(3) Then
                    '    chkEstatus.Checked = True
                    'End If

                Else
                        ImgDownLoad.Visible = False
                End If

            Else
                ImgDownLoad.Visible = False
            End If

            If requerido Then
                ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
            End If

            'chkEstatus.Checked = ImgDownLoad.Visible

        End If
    End Sub

    Protected Sub ImgRechazar_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim Obsebaciones As String = GvRow.FCTextBox("TxtObservaciones").Text
        If Obsebaciones.Trim.Length = 0 Then
            Alert("Debe de proporcionar una obserbación o motivo de rechazo.", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        Dim Correo As String = GvRow.DataKey("ContactoMail")
        Dim Documentacion As String = GvRow.DataKey("Documentacion")
        Dim Obserbaciones As String = GvRow.FCTextBox("TxtObservaciones").Text

        Dim Adjunto As String = GvRow.DataKey("Adjunto")
        Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
        Dim Archivo As String = UsuarioActual.Empresa.Ruta & $"Edoc\Proveedor\{CveProveedor}\{Adjunto}"


        Dim objEdoc As New ClsEdocumentacion
        Dim ErrorProceso As Boolean = False

        objEdoc.IniciaTransacSQL()

        If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 1,
                                                  If(Obsebaciones.Trim.Length > 0, Obsebaciones, GvRow.DataKey("Observacion")), "-1",
                                                  UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then

            Try
                File.Delete(Archivo)
            Catch ex As Exception
                ErrorProceso = True
            End Try

            If Not ErrorProceso Then

                Dim Cuerpo As String = $"<p>Por medio del presente correo se le notifica que el documento <b>{Documentacion}</b> &nbsp; ha sido rechazado por la siguiente causa: <b>{Obserbaciones}</b> &nbsp;por favor ingrese nuevamente al portal &nbsp;y agr&eacute;guelo nuevamente.&nbsp;</p>
                                    <p>Atentamente:</p>
                                    <p>Saludos.</p>"

                If Not MandaCorreo(Correo, $"{ UsuarioActual.Empresa.Empresa } documento Rechazado", Cuerpo) Then
                    ErrorProceso = True
                End If

                Alert($"El documento {GvRow.DataKey("Documentacion") } fue rechazado.")

            End If


        Else
            ErrorProceso = True
        End If

        If ErrorProceso Then
            objEdoc.RollBack()
        Else
            objEdoc.Commit()
        End If

        objEdoc.Dispose()

        CargaDocumentacion()

    End Sub

    Protected Sub ImgAceptar_Click(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim objEdoc As New ClsEdocumentacion

        If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 3,
                                                 "", "-1", UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then
            Alert("Dcumento Aceptado.")
        End If


        objEdoc.Dispose()

        CargaDocumentacion()
    End Sub

    Private Function MandaCorreo(Para As String, Asunto As String, Body As String) As Boolean
        Dim Respuesta As Boolean = False

        Dim Mail As New ClsSisMail()

        Para = If(Para IsNot Nothing, Para, "")
        Asunto = If(Asunto IsNot Nothing, Asunto, "")
        Body = If(Body IsNot Nothing, Body, "")

        Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)

        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
            Respuesta = True
        End If

        Return Respuesta


    End Function


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

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        ' Dim chkEstatus As CheckBox
        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
        Documentacion = GvRow.DataKey("Documentacion")
        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
        CveProveedor = GvRow.DataKey("CveProveedor").ToEntero

        'DiasVigencia = GvRow.DataKey("DiasVigencia").ToString.ToEntero
        Dim x As String = GvRow.DataKey("AplicaFechaVencimiento")
        If GvRow.DataKey("AplicaFechaVencimiento") = "1" Then AplicaFechaVencimiento = True Else AplicaFechaVencimiento = False

        If GvRow.DataKey("Adjunto").ToString.Length > 0 Then
            FechaVigencia = GvRow.DataKey("Adjunto").ToString.ToDate
        Else
            FechaVigencia = Nothing
        End If


        Estatus = GvRow.DataKey("Estatus").ToEntero

        'If chkEstatus.Checked Then
        '    Estatus = 1
        'Else
        '    Estatus = 0
        'End If

        ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate

        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")

        LtlModalUploadTitulo.Text = "Subir " & Documentacion

        UpModalTitleUploadDocumento.Update()

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

    End Sub

    Protected Sub BtnUploadFileDoc_Click(sender As Object, e As EventArgs) Handles btnUploadFileDoc.Click

        Dim FileExtension As String = "-1"
        Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
        Dim Filename As String = ""
        Dim ErrorProceso As Boolean = False

        If AplicaFechaVencimiento And DiasVigencia > 0 Then
            FechaVigencia = DateTime.Today.AddDays(DiasVigencia)
        End If

        For Each fileItem As Archivo In Filesgral

            Try

                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
                Dim tempArray() As String
                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())



                Dim TempCveDocumentacionElectronica As Integer = 0
                Dim objEdoc As New ClsEdocumentacion
                objEdoc.IniciaTransacSQL()

                If CveDocumentacionElectronica = -1 Then

                    CveDocumentacionElectronica = objEdoc.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, "-1", UsuarioActual.CveUsuario, FechaLimite, FechaVigencia)

                    If CveDocumentacionElectronica > 0 Then
                        If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then
                            ErrorProceso = True
                        End If
                    End If


                Else
                    If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then
                        ErrorProceso = True
                    End If
                End If



                If Not ErrorProceso = True Then

                    Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & CveDocumentacionElectronica & "." & FileExtension
                    Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & AdjuntoDocumentacion



                    Try
                        If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") Then
                            System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\")
                        End If

                        If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
                            File.Delete(rutaAdjuntoAnterior)
                        End If

                        If System.IO.File.Exists(rutaDestino) Then
                            System.IO.File.Delete(rutaDestino)
                        End If

                        System.IO.File.Move(fileItem.FileUrl, rutaDestino)
                    Catch ex As Exception
                        GuardaLog($"Error al gaurdar documento (moviendo archivo digital) --> Error{ ex.StackTrace}")
                        ErrorProceso = True
                    End Try
                End If


                If Not ErrorProceso Then
                    objEdoc.Commit()
                    Alert("Documento cargado correctamente")
                Else
                    objEdoc.RollBack()
                    Alert("Error al cargar archivo", TipoMensaje.MsgError)
                End If
                objEdoc.Dispose()


                CargaDocumentacion()

                TxtFileDocumentacion.Text = ""
                UPModalUploadDoc.Update()

            Catch ex As Exception
                OnError("Error al cargar archivo", ex)
            End Try

        Next

        RegistraScript("$('#ModalUploadDoc').modal('hide')", "hidemodal3")

    End Sub







End Class