Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data
Imports System.IO

Partial Class Ventas_ConsultaCliente
    Inherits ClsPaginas


    'Configuración
    Private Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCliente") = value
        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Session("FileUpload") = ""
            ViewState("Orden") = ""
            ViewState("ONombre") = "Nombre DESC"

            CveCliente = UsuarioActual.CveCliente

            CargaDatos()
            CargaHistorial()
            CargaCxP()
            CargaAnticipos()
            CargarTipoBuzon()
            CargarClienteSucursal()
            CargaUsuariosPortal()

            'Configuración de Modalidad Update
            BtnGuardar.Text = "Guardar"
            LtlTitulo.Text = "Expediente de:"
            If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
            'End If
        End If
    End Sub

    Private Sub CargaDatos()
        Dim ObjClientes As New ClsClientes()
        If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
            If ObjClientes.DtResultados.Rows.Count > 0 Then
                'Campos para Modificación
                LtlCliente.Text = ObjClientes.Nombre
                TxtContacto.Text = ObjClientes.Contacto
                TxtEmail.Text = ObjClientes.Mail
                TxtParaMail.Text = ObjClientes.Mail
                ChkMail.Checked = ObjClientes.EnviarFactura
            Else
                Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                BtnGuardar.Enabled = False
            End If
        End If
        ObjClientes.Dispose()
    End Sub

    Private Sub CargaHistorial()
        Dim ObjClientes As New ClsClientes()
        If ObjClientes.GetHistorialVentas(UsuarioActual.CveCliente) Then
            If ObjClientes.DtResultados.Rows.Count > 0 Then
                'Carga Generales
                LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(2)
                LtlTotalVendido.Text = ObjClientes.DtResultados.Rows(0)("Total").ToString.FormatoNumero(2)
                LtlMinima.Text = ObjClientes.DtResultados.Rows(0)("MIN_Total").ToString.FormatoNumero(2)
                LtlPromedio.Text = ObjClientes.DtResultados.Rows(0)("AVG_Total").ToString.FormatoNumero(2)
                LtlMaxima.Text = ObjClientes.DtResultados.Rows(0)("MAX_Total").ToString.FormatoNumero(2)
                'Carga Grid
                GVHistorial.DataSource = ObjClientes.DtResultados
            Else
                GVHistorial.DataSource = Nothing
            End If
        Else
            GVHistorial.DataSource = Nothing
        End If
        ObjClientes.Dispose()
        GVHistorial.DataBind()
    End Sub

	Private Sub CargaCxP()
		Dim ObjMovtos As New ClsMovimientos()
		'CxC Activas
        If ObjMovtos.GetCxCCliente(UsuarioActual.CveCliente) Then
            GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
            GvCxCHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
        Else
            GvCxC.DataSource = Nothing
            GvCxCHistorial.DataSource = Nothing
        End If

		ObjMovtos.Dispose()
		GvCxC.DataBind()
		GvCxCHistorial.DataBind()
	End Sub

    Private Sub CargaAnticipos()
        Dim ObjMovtos As New ClsMovimientos()
        If ObjMovtos.GetAnticiposCliente(UsuarioActual.CveCliente) Then
            GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
            GVAnticiposHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
        Else
            GVAnticipos.DataSource = Nothing
            GVAnticiposHistorial.DataSource = Nothing
        End If
        ObjMovtos.Dispose()
        GVAnticipos.DataBind()
        GVAnticiposHistorial.DataBind()
	End Sub

	Private Sub CargarTipoBuzon()
		DdlTipoBuzon.DataSource = GlobalDTTipoBuzon
		DdlTipoBuzon.DataBind()
	End Sub

	Private Sub CargarClienteSucursal()
		Dim ObjClienteSucursal As New ClsClientes
        If ObjClienteSucursal.GetSucursales(UsuarioActual.CveCliente) Then
            DdlClienteSucursal.DataSource = ObjClienteSucursal.DtResultados
        Else
            DdlClienteSucursal.DataSource = Nothing
        End If
		ObjClienteSucursal.Dispose()
		DdlClienteSucursal.DataBind()
    End Sub


    Private Sub CargaUsuariosPortal()
        Dim ObjUsrs As New ClsSisUsuarios()


        If ObjUsrs.GetUsuariosPortal(-1, CveCliente, -1) Then
            Dim dtUsr As DataTable = ObjUsrs.DtResultados

            dtUsr = dtUsr.FiltraParametros("Usuario <> 'Admin'")

            ViewState("OrdenUsuarios") = ""

            ''busco la clave del admin, si es que existe
            'Dim dr As DataRow = dtUsr.FiltroPrimero("Usuario = 'Admin'")

            'If dr IsNot Nothing Then
            '    HdnCveUsuarioPortalAdmin.Value = dr("CveUsuarioPortal").ToString

            '    If dr("Estatus").ToString = "1" Then
            '        HdnCveUsuarioPortalActivado.Value = "1"
            '    End If

            'End If

            'If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then
            '    trEnviarActivacion.Visible = False
            '    trRecuperacionContraseña.Visible = True
            'End If

            GvUsuariosPortal.DataSource = dtUsr
            ViewState("DTUsuariosCliente") = dtUsr
        Else
            GvUsuariosPortal.DataSource = Nothing
            ViewState("DTUsuariosCliente") = Nothing
        End If
        ObjUsrs.Dispose()
        GvUsuariosPortal.DataBind()
    End Sub

    Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.BackColor = Drawing.Color.LightGray
                DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).Visible = False
            End If

            e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
            DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).HRef = "javascript:$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnFolioVenta').value='" & e.Row.DBCampo("folio") & "';$('#DivMail').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).ClientID & "', 'DivMail');"

        End If
    End Sub

    Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound, GvCxCHistorial.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).ColumnSpan = 4
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
                e.Row.FCLiteral("LtlFactura").Text = "Total" & "&nbsp;"
                e.Row.Cells(1).Visible = False
                e.Row.Cells(2).Visible = False
                e.Row.Cells(3).Visible = False
                'e.Row.Cells(9).ColumnSpan = 2
                'e.Row.Cells(10).Visible = False
                e.Row.BackColor = Drawing.Color.LightGray
            End If
            If e.Row.RowIndex = 1 Then
                e.Row.Cells(0).Width = Unit.Pixel(60)
                e.Row.Cells(1).Width = Unit.Pixel(70)
                e.Row.Cells(2).Width = Unit.Pixel(80)
                e.Row.Cells(3).Width = Unit.Pixel(80)
                e.Row.Cells(4).Width = Unit.Pixel(90)
                e.Row.Cells(5).Width = Unit.Pixel(90)
                e.Row.Cells(6).Width = Unit.Pixel(105)
                e.Row.Cells(7).Width = Unit.Pixel(90)
                e.Row.Cells(8).Width = Unit.Pixel(105)
            End If

            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right

            If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
            If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(3).ForeColor = Drawing.Color.Red
            If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
            If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
            If e.Row.DBCampo("PorRecuperado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorRecuperado"), Literal).Text = ""
            If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
            If e.Row.DBCampo("PorXRecuperar").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorXRecuperar"), Literal).Text = ""

            e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
            If CType(sender, GridView).ID = "GvCxCHistorial" Then
                DirectCast(e.Row.FindControl("LtlDiasVencido"), Literal).Text = ""
            Else
                e.Row.Cells(7).Font.Bold = True
                e.Row.Cells(8).Font.Bold = True
            End If
        End If
    End Sub

    Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound, GVAnticiposHistorial.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).ColumnSpan = 2
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
                e.Row.FCLiteral("LtlFactura").Text = "Total" & "&nbsp;"
                e.Row.BackColor = Drawing.Color.LightGray
                e.Row.Cells(1).Visible = False
            End If
            If e.Row.RowIndex = 1 Then
                e.Row.Cells(0).Width = Unit.Pixel(60)
                e.Row.Cells(1).Width = Unit.Pixel(100)
                e.Row.Cells(2).Width = Unit.Pixel(80)
            End If

            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right

            If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(2).ForeColor = Drawing.Color.Red
            If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAnticipos"), Literal).Text = ""

            If e.Row.RowIndex > 0 Then
                e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
        End If

            If CType(sender, GridView).ID = "GVAnticipos" Then
                e.Row.Cells(2).Font.Bold = True
            End If
        End If
    End Sub

    Protected Sub BtnSendMail_Click(sender As Object, e As System.EventArgs) Handles BtnSendMail.Click
        Try

            If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then
                Dim ObjEmprea As New ClsEmpresas()
                If ObjEmprea.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
                    Dim ObjMail As New ClsSisMail()
                    Dim Ruta As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"

                    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") AndAlso File.Exists(Ruta & "XML\" & HdnFolioVenta.Value & ".xml") Then
                        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
                        Dim XML As String = Ruta & "XML\" & HdnFolioVenta.Value & ".xml"
                        Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))

                        Dim ResultadoMail As Integer = 0
                        If ObjMail.Mandacorreo(ObjEmprea.SendMail, ObjEmprea.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
                            ResultadoMail = 1
                            TxtCC.Text = ""
                            TxtBody.Text = ""
                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
                            CargaHistorial()
                            UpnHistorial.Update()
                        Else
                            ResultadoMail = 3
                        End If

                        Dim ObjVentas As New ClsVentas
                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
                        ObjVentas.Dispose()
                    Else
                        Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
                    End If

                End If
                ObjEmprea.Dispose()
            Else
                Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
            End If
        Catch ex As Exception
            OnError("Ocurrió error al mandar MAIL", ex)
            Dim ObjVentas As New ClsVentas
            ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero)
            ObjVentas.Dispose()
        End Try
	End Sub

	Private Sub CargaRHPersonal()
		Dim ObjRHPersonal As New ClsRHPersonal
        If ObjRHPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveCliente, TxtHora.PostedTime & ":00", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
            ViewState("DTRHPersonal") = ObjRHPersonal.DtResultados
        Else
            Me.GvRHPersonal.DataSource = Nothing
        End If

		ObjRHPersonal.Dispose()
		CargaGridRHPersonal("")

	End Sub

	Protected Sub GvRHPersonal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRHPersonal.RowDataBound
		If e.Row.RowType = DataControlRowType.DataRow Then
			If e.Row.RowIndex >= 0 Then
				e.Row.Cells(0).Width = Unit.Pixel(100)
                'CARGAR IMAGENES DE PERSONAL
                If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & e.Row.DBCampo("URL") & ".png") Then
                    e.Row.FCImage("ImgPersonal").ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & e.Row.DBCampo("URL") & ".png"
                End If

                'If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & e.Row.DBCampo("URL")) Then
                'e.Row.FCLiteral("LtlImgPersonal").Text = "<img src='/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & e.Row.DBCampo("URL") & " ' width='75px' heigth='75px'/>"
                'Else
                'e.Row.FCLiteral("LtlImgPersonal").Text = "<img src='/Imagenes/SinImagen.jpg' width='50px' heigth='50px'/>"
                'End If
                'FIN CARGAR IMAGENES DE PERSONAL

                e.Row.Cells(1).Width = Unit.Pixel(250)

            End If
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center

        End If
	End Sub

	Private Sub CargaGridRHPersonal(Orden As String)
		If Orden <> String.Empty Then
			Dim DV As New DataView(CType(ViewState("DTRHPersonal"), DataTable), "", Orden, DataViewRowState.CurrentRows)
			GvRHPersonal.DataSource = DV.ToTable()
			DV.Dispose()
		Else
			GvRHPersonal.DataSource = CType(ViewState("DTRHPersonal"), DataTable)
		End If
		GvRHPersonal.DataBind()
	End Sub

    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
		Alert("Gracias por ponerse en contacto con nosotros.<br />Su queja a sido recibida y pronto nos pondremos en contacto con usted.", TipoMensaje.MsgConfirmacion)

    End Sub

	Protected Sub LbNombre_Click(sender As Object, e As System.EventArgs) Handles LbNombre.Click
		If ViewState("ONombre").ToString() = "Nombre DESC" Then
			ViewState("ONombre") = "Nombre ASC"
			ImgNombre.ImageUrl = "/Imagenes/FlechasArriba.gif"
		Else
			ViewState("ONombre") = "Nombre DESC"
			ImgNombre.ImageUrl = "/Imagenes/FlechasAbajo.gif"
		End If
		ViewState("Orden") = ViewState("ONombre")
		CargaGridRHPersonal(ViewState("Orden").ToString())
	End Sub

	Protected Sub BtnConsultarPersonal_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarPersonal.Click
		CargaRHPersonal()
	End Sub

	Protected Sub BtnEnviar_Click(sender As Object, e As System.EventArgs) Handles BtnEnviar.Click
		'GvRHPersonal
		Dim ObjQueja As New ClsRHPersonal
		For Each Row As GridViewRow In GvRHPersonal.Rows
			If Row.FCCheckBox("ChbSeleccionado").Checked Then
                If ObjQueja.AddPersonalBuzon(GvRHPersonal.DataKeys(Row.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveCliente, DdlClienteSucursal.SelectedValue.ToEntero, DdlTipoBuzon.SelectedValue.ToEntero, Convert.ToDateTime(TxtFechaQueja.Text & " " & TxtHora.PostedTime), TxtDescripcion.Text, TxtNombreReporto.Text, TxtTelefonoReporto.Text, TxtMailReporto.Text, TxtObservaciones.Text, UsuarioActual.CveEmpresa) Then
                    Alert("Se Envió Correctamente")
                End If
				'Si está seleccionado el check del GridView quiere decir que lo seleccionaron. Hay que hacer el insert
				'La clave personal se saca de:
				'(string)this.grid.DataKeys[rowIndex]["myKey"];
				'GvRHPersonal.DataKeys(Row.RowIndex)("CvePersonal").ToString

			End If
		Next
		ObjQueja.Dispose()

    End Sub


#Region "Usuarios"


    Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
        Dim Usuario As New ClsSisUsuarios
        If Usuario.AddUsuarioPortal(TxtUsuarioPortal.Text, ContraseñaPredeterminada, TxtNombrePortal.Text, CveCliente, 0,
                                 ChkPermiso1.Checked, ChkPermiso2.Checked, ChkPermiso3.Checked, ChkPermiso4.Checked, ChkPermiso5.Checked,
                                 ChkPermiso6.Checked, ChkPermiso7.Checked, ChkPermiso8.Checked, ChkPermiso9.Checked, ChkPermiso10.Checked, UsuarioActual.CveUsuario, 0) > 0 Then
            ViewState("DTUsuariosCliente") = Usuario.DtResultados
            TxtUsuarioPortal.Text = ""
            TxtNombrePortal.Text = ""
        End If
        Usuario.Dispose()
        If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
            CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
        Else
            CargaGridUsuarios("")
        End If
    End Sub


    Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(70)
                e.Row.Cells(1).Width = Unit.Pixel(150)
                e.Row.Cells(2).Width = Unit.Pixel(50)
                e.Row.Cells(3).Width = Unit.Pixel(50)
                e.Row.Cells(4).Width = Unit.Pixel(50)
                e.Row.Cells(5).Width = Unit.Pixel(50)
                e.Row.Cells(6).Width = Unit.Pixel(50)
                e.Row.Cells(7).Width = Unit.Pixel(50)
                e.Row.Cells(8).Width = Unit.Pixel(50)
                e.Row.Cells(9).Width = Unit.Pixel(50)
                e.Row.Cells(10).Width = Unit.Pixel(50)
                e.Row.Cells(11).Width = Unit.Pixel(50)
                e.Row.Cells(12).Width = Unit.Pixel(45)
                e.Row.Cells(13).Width = Unit.Pixel(68)
                e.Row.Cells(14).Width = Unit.Pixel(70)
                e.Row.Cells(15).Width = Unit.Pixel(55)
            End If


        End If
    End Sub

    Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing

        GvUsuariosPortal.EditIndex = e.NewEditIndex

        If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
            CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
        Else
            CargaGridUsuarios("")
        End If
        'CargaUsuariosPortal()

    End Sub

    Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating

        Dim Usuarios As New ClsSisUsuarios

        Dim Usuario, Nombre As String
        Dim Estatus As Boolean

        Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
        Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
        Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
        'Rol = GvDatos.Rows(e.RowIndex).FCDropDownList("CbxA").SelectedValue.ToEntero
        Estatus = gvr.FCCheckBox("ChkEstatus").Checked
        Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuarioPortal").ToEntero
        Dim pCveCliente As Integer = gvr.DataKey("CveCliente").ToEntero

        'Correo = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCorreo").Text.Trim
        'CveSupervisa = GvDatos.Rows(e.RowIndex).FCDropDownList("CboSupervisa").SelectedValue.ToEntero
        'CveAutoriza = GvDatos.Rows(e.RowIndex).FCDropDownList("CboAutoriza").SelectedValue.ToEntero
        'CveEmpresa = GvDatos.Rows(e.RowIndex).FCDropDownList("CboEmpresa").SelectedValue.ToEntero

        If Usuarios.UpdateUsuarioPortal(Usuario, Nombre, gvr.FCCheckBox("ChkPermiso1").Checked, gvr.FCCheckBox("ChkPermiso2").Checked, gvr.FCCheckBox("ChkPermiso3").Checked, gvr.FCCheckBox("ChkPermiso4").Checked, gvr.FCCheckBox("ChkPermiso5").Checked,
                                        gvr.FCCheckBox("ChkPermiso6").Checked, gvr.FCCheckBox("ChkPermiso7").Checked, gvr.FCCheckBox("ChkPermiso8").Checked, gvr.FCCheckBox("ChkPermiso9").Checked, gvr.FCCheckBox("ChkPermiso10").Checked, Estatus, "-1", pCveCliente, -1, CveUsuarioPortal) Then

            GvUsuariosPortal.EditIndex = -1
            ViewState("DTUsuariosCliente") = Usuarios.DtResultados
        End If

        Usuarios.Dispose()

        If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
            CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
        Else
            CargaGridUsuarios("")
        End If

    End Sub

    Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting

        Dim Usuario As New ClsSisUsuarios
        If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
            GvUsuariosPortal.EditIndex = -1
            ViewState("DTUsuariosCliente") = Usuario.DtResultados
        End If

        Usuario.Dispose()

        If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
            CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
        Else
            CargaGridUsuarios("")
        End If

    End Sub

    Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit

        GvUsuariosPortal.EditIndex = -1

        If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
            CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
        Else
            CargaGridUsuarios("")
        End If

    End Sub

    Private Sub CargaGridUsuarios(Orden As String)
        If CType(ViewState("DTUsuariosCliente"), DataTable).Rows.Count > 0 Then
            If Orden <> String.Empty Then
                Dim DV As New DataView(CType(ViewState("DTUsuariosCliente"), DataTable), "", Orden, DataViewRowState.CurrentRows)
                GvUsuariosPortal.DataSource = DV.ToTable()
                DV.Dispose()
            Else
                GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosCliente"), DataTable)
            End If

        End If
        GvUsuariosPortal.DataBind()
        UPPUsuarios.Update()
    End Sub
#End Region

End Class