Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Imports System.Runtime.InteropServices
Imports System.IO
Imports Microsoft.Reporting.WebForms
Imports Microsoft.Owin.Security.Provider
Imports log4net.Util
Imports MoreLinq

Partial Class Sistemas_DefinicionEmpresa
    Inherits ClsPaginas

#Region " PROPIEDADES "

    Private Property DtCuentasContables As Data.DataTable
        Get
            Return CType(ViewState("DtCuentasContables"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCuentasContables") = value
        End Set
    End Property

    Private Property EmpresaEditar As Empresa
        Get
            Return CType(ViewState("EmpresaEditar"), Empresa)
        End Get
        Set(value As Empresa)
            ViewState("EmpresaEditar") = value
        End Set
    End Property
    Private Property DtCuentasContablesSIG As Data.DataTable
        Get
            Return CType(ViewState("DtCuentasContablesSIG"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCuentasContablesSIG") = value
        End Set
    End Property

    Private Property DtFuncionalidades As Data.DataTable
        Get
            Return CType(ViewState("DtFuncionalidades"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtFuncionalidades") = value
        End Set
    End Property
    Private Property BDContPAQ As String
        Get
            BDContPAQ = ViewState("BDContPAQ").ToString
        End Get
        Set(value As String)
            ViewState("BDContPAQ") = value
        End Set
    End Property
    Private Property ServerContPAQ As String
        Get
            ServerContPAQ = ViewState("ServerContPAQ").ToString
        End Get
        Set(value As String)
            ViewState("ServerContPAQ") = value
        End Set
    End Property
    Public Property DtCuentas As DataTable
        Get
            Return CType((ViewState("DtCuentas")), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtCuentas") = value
        End Set
    End Property
    Public Property DtClasificacionIVA As DataTable
        Get
            If ViewState("DtClasificacionIVA") Is Nothing Then
                ViewState("DtClasificacionIVA") = New DataTable
            End If
            Return CType((ViewState("DtClasificacionIVA")), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtClasificacionIVA") = value
        End Set
    End Property
    Public Property CveClasificacionPorcentaje As Integer
        Get
            Return CType((ViewState("CveClasificacionPorcentaje")), Integer)
        End Get
        Set(value As Integer)
            ViewState("CveClasificacionPorcentaje") = value
        End Set
    End Property
    Public Property Modalidad As String
        Get
            Return CType((ViewState("Modalidad")), String)
        End Get
        Set(value As String)
            ViewState("Modalidad") = value
        End Set
    End Property
    Public Property Index As Integer
        Get
            Return CType((ViewState("Index")), Integer)
        End Get
        Set(value As Integer)
            ViewState("Index") = value
        End Set
    End Property


    Public Property TipoContabilidad As Integer
        Get
            If ViewState("TipoContabilidad") Is Nothing Then
                ViewState("TipoContabilidad") = -1
            End If

            Return CType((ViewState("TipoContabilidad")), Integer)
        End Get
        Set(value As Integer)
            ViewState("TipoContabilidad") = value
        End Set
    End Property



    Enum EnumOpActualizaArchivosCer
        SinOpcion
        KEY
        CER
        PFX
    End Enum


    Property OpActualizaArchivosCer As EnumOpActualizaArchivosCer

        Get
            If ViewState("OpActualizaArchivosCer") Is Nothing Then
                ViewState("OpActualizaArchivosCer") = EnumOpActualizaArchivosCer.SinOpcion
            End If

            Return DirectCast(ViewState("OpActualizaArchivosCer"), EnumOpActualizaArchivosCer)

        End Get
        Set(value As EnumOpActualizaArchivosCer)
            ViewState("OpActualizaArchivosCer") = value
        End Set

    End Property

    Public Property SSLSoporte As Boolean
        Get
            If ViewState("SSLSoporte") Is Nothing Then
                ViewState("SSLSoporte") = False
            End If

            Return Boolean.Parse(ViewState("SSLSoporte").ToString)

        End Get
        Set(value As Boolean)
            ViewState("SSLSoporte") = value
        End Set
    End Property

    Public Property UsaAC As Boolean
        Get
            If ViewState("UsaAC") Is Nothing Then
                ViewState("UsaAC") = False
            End If

            Return Boolean.Parse(ViewState("UsaAC").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaAC") = value
        End Set
    End Property

    Public Property Estatus As Boolean
        Get
            If ViewState("Estatus") Is Nothing Then
                ViewState("Estatus") = False
            End If

            Return Boolean.Parse(ViewState("Estatus").ToString)

        End Get
        Set(value As Boolean)
            ViewState("Estatus") = value
        End Set
    End Property

    Public Property FacturaProduccion As Boolean
        Get
            If ViewState("FacturaProduccion") Is Nothing Then
                ViewState("FacturaProduccion") = False
            End If

            Return Boolean.Parse(ViewState("FacturaProduccion").ToString)

        End Get
        Set(value As Boolean)
            ViewState("FacturaProduccion") = value
        End Set
    End Property

    Public Property EstatusFacturacion As Boolean
        Get
            If ViewState("EstatusFacturacion") Is Nothing Then
                ViewState("EstatusFacturacion") = False
            End If

            Return Boolean.Parse(ViewState("EstatusFacturacion").ToString)

        End Get
        Set(value As Boolean)
            ViewState("EstatusFacturacion") = value
        End Set
    End Property

    Public Property UsaContabilidad As Boolean
        Get
            If ViewState("UsaContabilidad") Is Nothing Then
                ViewState("UsaContabilidad") = False
            End If

            Return Boolean.Parse(ViewState("UsaContabilidad").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaContabilidad") = value
        End Set
    End Property

    Public Property UsaBancos As Boolean
        Get
            If ViewState("UsaBancos") Is Nothing Then
                ViewState("UsaBancos") = False
            End If

            Return Boolean.Parse(ViewState("UsaBancos").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaBancos") = value
        End Set
    End Property
    Public Property UsaVentas As Boolean
        Get
            If ViewState("UsaVentas") Is Nothing Then
                ViewState("UsaVentas") = False
            End If

            Return Boolean.Parse(ViewState("UsaVentas").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaVentas") = value
        End Set
    End Property
    Public Property UsaCxC As Boolean
        Get
            If ViewState("UsaCxC") Is Nothing Then
                ViewState("UsaCxC") = False
            End If

            Return Boolean.Parse(ViewState("UsaCxC").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaCxC") = value
        End Set
    End Property
    Public Property UsaCompras As Boolean
        Get
            If ViewState("UsaCompras") Is Nothing Then
                ViewState("UsaCompras") = False
            End If

            Return Boolean.Parse(ViewState("UsaCompras").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaCompras") = value
        End Set
    End Property
    Public Property UsaInventarios As Boolean
        Get
            If ViewState("UsaInventarios") Is Nothing Then
                ViewState("UsaInventarios") = False
            End If

            Return Boolean.Parse(ViewState("UsaInventarios").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaInventarios") = value
        End Set
    End Property
    Public Property UsaRH As Boolean
        Get
            If ViewState("UsaRH") Is Nothing Then
                ViewState("UsaRH") = False
            End If

            Return Boolean.Parse(ViewState("UsaRH").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaRH") = value
        End Set
    End Property
    Public Property UsaNomina As Boolean
        Get
            If ViewState("UsaNomina") Is Nothing Then
                ViewState("UsaNomina") = False
            End If

            Return Boolean.Parse(ViewState("UsaNomina").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaNomina") = value
        End Set
    End Property
    Public Property UsaOS As Boolean
        Get
            If ViewState("UsaOS") Is Nothing Then
                ViewState("UsaOS") = False
            End If

            Return Boolean.Parse(ViewState("UsaOS").ToString)

        End Get
        Set(value As Boolean)
            ViewState("UsaOS") = value
        End Set
    End Property

    'AsientoContable
    Public Property AsientoContable As Boolean
        Get
            If ViewState("AsientoContable") Is Nothing Then
                ViewState("AsientoContable") = False
            End If

            Return Boolean.Parse(ViewState("AsientoContable").ToString)

        End Get
        Set(value As Boolean)
            ViewState("AsientoContable") = value
        End Set
    End Property

#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            If UsuarioActual.CveRol <> 1 AndAlso (Request("CveEmpresa") IsNot Nothing AndAlso Request("CveEmpresa").ToEntero > 0) Then

                If Not ValidaCveEmpresaUsaurio(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                    Alert("No tiene acceso a esta empresa.", TipoMensaje.MsgAdvertencia, "document.location.href = ""../Inicio.aspx""")
                    Exit Sub
                End If

            End If

            CargaDdlPac()
            CargaRegimenFiscal()
            CargaZonasHorarias()
            'CargaGridIndicadores()
            DtCuentasContables = Nothing
            DtFuncionalidades = Nothing
            DtCuentas = Nothing
            CveClasificacionPorcentaje = 0

            'Session("FileUpload") = CveEmpresa
            'CargaTareasProgramadas()
            CargaDatos()

            'Configuración de Modalidad Update
            'TxtTimbres.Enabled = False
            LbArchivoKeyDescarga.Visible = True
            LbArchivoCerDescarga.Visible = True

            LbArchivoPfxDescarga.Visible = True
            BtnGuardar.Text = "Guardar Cambios"
            'Plantilla Correo

        End If
    End Sub

    Private Sub CargaZonasHorarias()
        Dim GPS As New ClsGPS
        If GPS.GetZonasHorarias() Then
            DdlZonaHoraria.DataSource = GPS.DtResultados
        Else
            DdlZonaHoraria.DataSource = Nothing
        End If
        DdlZonaHoraria.DataBind()
        DdlZonaHoraria.Items.Insert(0, New ListItem("Seleccione", "-1"))
        GPS.Dispose()
    End Sub

    Private Function ValidaCveEmpresaUsaurio(CveUsuario As Integer, CveEmpresaValidar As Integer) As Boolean

        Dim Respuesta As Boolean = False
        Using ObjEmpresas As New ClsSisEmpresas()
            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario) Then
                If ObjEmpresas.DtResultados.FiltraParametros($"CveEmpresa = {CveEmpresaValidar}").Rows.Count = 1 Then
                    Respuesta = True
                End If
            End If
        End Using
        Return Respuesta

    End Function

    Private Sub CargaDatos()

        Dim ObjEmpresas As New ClsSisEmpresas()
        If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
            If ObjEmpresas.DtResultados.Rows.Count > 0 Then
                Me.EmpresaEditar = ObjEmpresas.Empresa
                With ObjEmpresas.Empresa

                    'Campos para Modificación

                    TxtEmpresa.Text = .Empresa : LtlTitulo.Text = "Consulta de Empresa: " & .Empresa
                    TxtNombreCorto.Text = .NombreCorto
                    TxtDireccion.Text = .Direccion
                    TxtNoExt.Text = .NoExt
                    TxtNoInt.Text = .NoInt
                    TxtColonia.Text = .Colonia
                    TxtCiudad.Text = .Ciudad
                    TxtEstado.Text = .Estado
                    TxtCP.Text = .CP.ToString
                    TxtRFC.Text = .RFC
                    TxtTelefono.Text = .Telefono
                    TxtContacto.Text = .Contacto 'Representante legal
                    TxtMail.Text = .Mail
                    'TxtBIUsuario.Text = .BIUsuario
                    'TxtBIContraseña.Text = .BIContraseña
                    TxtContraseñaKey.Text = .ContraseñaKey
                    TxtArchivoKey.Text = .ArchivoKey
                    TxtArchivoCer.Text = .ArchivoCer
                    TxtArchivoPfx.Text = .ArchivoPfx
                    Estatus = .Estatus
                    'TxtFecha.Text = .FechaIng.ToString
                    'TxtCveUsuario.Text = .Usuario
                    FacturaProduccion = .FacturaProduccion
                    TxtSendMail.Text = .SendMail
                    TxtSendMailPassword.Text = .SendMailPassword
                    TxtSendMailServer.Text = .SendMailServer
                    TxtSendMailPort.Text = .SendMailPuerto.ToString
                    ChkSendMailSSL.Checked = .SendMailSSL
                    ChkMostrarRetIVA.Checked = .MostrarRetIVA
                    ChkMostrarRetISR.Checked = .MostrarRetISR
                    'TxtRegimen.Text = .Regimen
                    'TxtTimbres.Text = .Timbres.ToString
                    UsaContabilidad = .UsaContabilidad
                    UsaBancos = .UsaBancos
                    UsaVentas = .UsaVentas
                    UsaCxC = .UsaCxC
                    UsaCompras = .UsaCompras
                    UsaInventarios = .UsaInventarios
                    UsaRH = .UsaRH
                    UsaNomina = .UsaNomina
                    UsaOS = .UsaOS
                    'TxtBDContPAQi.Text = .BDContPAQi
                    'TxtServerContPAQi.Text = .ServerContPAQi
                    'TxtUsrContPAQi.Text = .UsrContPAQi
                    'TxtPwdContPAQi.Text = .PwdContPAQi
                    TxtBuzon_Mail.Text = .Buzon_Mail
                    TxtBuzon_Server.Text = .Buzon_Server
                    TxtBuzon_Puerto.Text = .Buzon_Puerto.ToString
                    ChkBuzon_SSL.Checked = .Buzon_SSL
                    TxtBuzon_USR.Text = .Buzon_USR
                    TxtBuzon_PWD.Text = .Buzon_PWD
                    'TxtMailSoporte.Text = .Soporte_Mail
                    'TxtServidorSoporte.Text = .Soporte_Server
                    'TxtPuertoSoporte.Text = .Soporte_Puerto.ToString
                    SSLSoporte = .Soporte_SSL
                    'TxtUsuarioSoporte.Text = .Soporte_USR
                    'DdlProtocoloSoporte.SelectedValue = .Soporte_Tipo
                    'TxtContraseñaSoporte.Text = .Soporte_PWD
                    'DdlCvePac.SelectedValueExist(.CvePAC.ToString)
                    DdlRegimen.SelectedValue = .CveRegimenFiscal.ToString
                    DdlZonaHoraria.SelectedValueExist(.CveZonaHoraria)
                    TxtCURP.Text = .CURP
                    'TxtImporte.Text.ToDecimal
                    TxtCIEC.Text = .CIEC
                    'DdlPlataforma.SelectedValue = .CvePlataforma.ToString
                    UsaAC = .UsaAC
                    TxtPorDepreciacion.Text = .PorDepreciacion.ToString
                    TxtExtension.Text = .Extension
                    TxtLocalidad.Text = .Localidad
                    DdlMetodoInventario.SelectedValue = .CveMetodoInventario.ToString
                    AsientoContable = False
                    TxtPeriodoActual.Text = .PeriodoActual.ToString
                    TxtEjercicioActual.Text = .EjercicioActual.ToString
                    ChkDefaultAsistencias.Checked = .DefaultAsistencias
                    TxtDiasPermitidos.Text = .DiasPermitidos.ToString
                    DdlTipoCentroDeCostos.SelectedValue = .Tipo_CentroCosto.ToString
                    ChkReqCentroCostos.Checked = .RequiereCentroCostos
                    DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
                    'TxtImporte.Text = .Importe.ToString
                    TipoContabilidad = .TipoContabilidad

                    TxtPlantillaVenta.Text = .PlantillaMailVenta
                    TxtAsunto.Text = .AsuntoPlantillaMailVenta

                    TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion
                    TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion

                    'NUEVOS
                    TxtAreaGeografica.Text = .AreaGeografica
                    DdlProtocolo.Text = .Buzon_Tipo

                    'Fiel
                    'LblPfx.Text = .FielPFX
                    'lblPassFiel.Text = .FielPassword

                    'PARA PROPIEDAD - TRIGGER
                    BDContPAQ = .BDContPAQi
                    ServerContPAQ = .ServerContPAQi

                    'If TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
                    '    CargaCuentasContables()
                    '    CargaDDLs()

                    '    'Dim Row As DataRow
                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
                    '    '    DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
                    '    '    ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
                    '    '    DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
                    '    '    DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
                    '    '    DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
                    '    '    DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
                    '    '    DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
                    '    '    DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
                    '    '    DdlDSV.SelectedValue = .IdCuentaDSV.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
                    '    '    DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
                    '    'End If


                    '    'NUEVOS DATOS

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
                    '    '    DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
                    '    '    DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
                    '    '    DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
                    '    'End If

                    '    'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
                    '    'If Not IsNothing(Row) Then
                    '    '    DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
                    '    '    DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
                    '    'End If

                    'End If

                    'CUENTAS PADRES
                    ObjEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa)
                    DtFuncionalidades = ObjEmpresas.DtResultados

                    'CargaFuncionalidad(201, DdlProveedores)
                    'CargaFuncionalidad(211, DdlClientes)
                    'CargaFuncionalidad(205, DdlDeudores)
                    'CargaFuncionalidad(202, DdlAcreedores)
                    'CargaFuncionalidad(203, DdlDocxPagar)
                    'CargaFuncionalidad(212, DdlAnticipoCliente)
                    'CargaFuncionalidad(204, DdlAnticipoProveedores)
                    'CargaFuncionalidad(208, DdlInventario)
                    'CargaFuncionalidad(216, DdlGasto)
                    'CargaFuncionalidad(209, DdlBancos)
                    'CargaFuncionalidad(218, DdlCaja)
                    'CargaFuncionalidad(215, DdlFyE)
                    'CargaFuncionalidad(221, DdlActivoFijo)

                    'CargaFuncionalidad(232, DdlProveedoresSIG)
                    'CargaFuncionalidad(233, DdlClientesSIG)
                    'CargaFuncionalidad(234, DdlDeudoresSIG)
                    'CargaFuncionalidad(235, DdlAcreedoresSIG)
                    'CargaFuncionalidad(236, DdlDocxPagarSIG)
                    'CargaFuncionalidad(237, DdlAnticipoClienteSIG)
                    'CargaFuncionalidad(238, DdlAnticipoProveedoresSIG)
                    'CargaFuncionalidad(239, DdlInventarioSIG)
                    'CargaFuncionalidad(240, DdlGastoSIG)
                    'CargaFuncionalidad(241, DdlBancosSIG)
                    'CargaFuncionalidad(242, DdlCajaSIG)
                    'CargaFuncionalidad(243, DdlFyESIG)
                    'CargaFuncionalidad(244, DdlActivoFijoSIG)

                    Session("FileUpload") = .Banner
                    Session("FileUpload") = .ArchivoKey
                    Session("FileUpload") = .ArchivoCer
                    Session("FileUpload") = .ArchivoPfx
                End With
                'InicializaClasificacionIVA(ObjEmpresas)
            Else
                Alert("La Empresa Solicitada no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                BtnGuardar.Enabled = False

            End If
        End If

        ObjEmpresas.Dispose()
        'CargarGrupoEmpresas()
        UpDatos.Update()
    End Sub
    'Protected Sub CargarGrupoEmpresas()
    '    Dim ObjEmpresas As New ClsSisEmpresas()

    '    'Gridview 
    '    ObjEmpresas.GetEmpresasGrupos(UsuarioActual.CveEmpresa)
    '    GVGrupoEmpresas.DataSource = ObjEmpresas.DtResultados
    '    GVGrupoEmpresas.DataBind()

    '    'DropdownList Empresas
    '    ObjEmpresas.GetEmpresasGruposNot(UsuarioActual.CveEmpresa)
    '    DdlEmpresas.Items.Clear()
    '    DdlEmpresas.DataSource = ObjEmpresas.DtResultados
    '    DdlEmpresas.DataBind()

    '    ObjEmpresas.Dispose()

    '    updategrupoempresa.Update()
    'End Sub
    'Protected Sub LinkButton1_Click(sender As Object, e As EventArgs) Handles AddGrupoEmpresa.Click

    '    Dim ObjEmpresas As New ClsSisEmpresas()
    '    ObjEmpresas.AddEmpresasGrupos(UsuarioActual.CveEmpresa, DdlEmpresas.SelectedValue.ToEntero)
    '    ObjEmpresas.Dispose()
    '    CargarGrupoEmpresas()
    'End Sub
    'Protected Sub GrupoEmpresas_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVGrupoEmpresas.RowDeleting
    '    Dim ObjEmpresas As New ClsSisEmpresas()
    '    ObjEmpresas.RemoveEmpresasGrupos(UsuarioActual.CveEmpresa, CType(GVGrupoEmpresas.Rows(e.RowIndex).FindControl("GVColCVeEmpresa"), HiddenField).Value.ToEntero())
    '    ObjEmpresas.Dispose()
    '    CargarGrupoEmpresas()
    'End Sub
    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
        Dim ObjEmpresas As New ClsSisEmpresas
        Dim ObjGral As New ClsGenerales()
        Dim ObjContPAQ As ClsContPAQi = Nothing
        Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL())

        Dim TextoError As String = ""
        Dim TextoOK As String = ""

        If False Then

            'If ObjEmpresas.AddEmpresa(TxtCveEmpresa.Text.Trim.ToEntero, TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim,
            '                          TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim,
            '                          DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim,
            '                          TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked,
            '                          ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
            '                          TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked,
            '                          ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim,
            '                          TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked,
            '                          TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, DdlProtocolo.SelectedValue, TxtMailSoporte.Text.Trim, TxtServidorSoporte.Text.Trim, TxtPuertoSoporte.Text.Trim.ToEntero, ChkSSLSoporte.Checked,
            '                          TxtUsuarioSoporte.Text.Trim, TxtContraseñaSoporte.Text.Trim, DdlProtocoloSoporte.SelectedValue, DdlIVAxAcreditar.SelectedValue.ToEntero, DdlIVAAcreditable.SelectedValue.ToEntero,
            '                          DdlIVAxTrasladar.SelectedValue.ToEntero, DdlIVATrasladado.SelectedValue.ToEntero, DdlIVARetenciones.SelectedValue.ToEntero, DdlCuentaOtrosIngresos.SelectedValue.ToEntero, DdlCuentaDescuentoVenta.SelectedValue.ToEntero, DdlISRCirculacion.SelectedValue.ToEntero,
            '                          "".Trim, TxtAreaGeografica.Text.Trim, DdlCuentaPerdidaCambiaria.SelectedValue.ToEntero, DddlCuentaGananciaCambiaria.SelectedValue.ToEntero,
            '                          TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, ChkUsaAC.Checked,
            '                          TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, ChkAsientoContable.Checked, TxtPeriodoActual.Text.ToEntero,
            '                          TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero, CvePAC:=DdlCvePac.SelectedValue.ToEntero, IdCuentaDSV:=DdlDSV.SelectedValue.ToEntero, IdCuentaImpuestosLocales:=DdlImpuestosLocales.SelectedValue.ToEntero,
            '                          IdCuentaIEPSxAcreditar:=DdlIEPSxAcreditar.SelectedValue.ToEntero, IdCuentaIEPSAcreditable:=DdlIEPSAcreditable.SelectedValue.ToEntero, IdCuentaIEPSxTrasladar:=DdlIEPSxTrasladar.SelectedValue.ToEntero,
            '                          IdCuentaIEPSTrasladado:=DdlIEPSTrasladado.SelectedValue.ToEntero) Then

            '    'Movemos el Archivo Fisicamente
            '    If Session("FileUpload") IsNot Nothing AndAlso Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then
            '        Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString)
            '        File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & ObjEmpresas.CveEmpresa.ToString & Extension)

            '    End If
            '    ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa
            '    'InicializaClasificacionIVA(ObjEmpresas)
            '    TextoOK = "La nueva Empresa se guardó correctamente."
            'Else
            '    TextoError = "Ocurrió un error al agregar la empresa"
            'End If



            ''Agregar Indicadores
            'For Each Row As GridViewRow In GvIndicadores.Rows
            '    If Row.DataKey("CveIndicador") <> "" And Row.DataKey("CveEmpresa") = "" Then
            '        If Row.FCCheckBox("chkIndicador").Checked Then
            '            If Not Indicador.AddIndicadorEmpresa(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
            '                Exit For
            '            End If
            '        End If
            '    End If
            'Next




        Else
            'If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
            '                             TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
            '                             "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
            '                             FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", EstatusFacturacion, TxtSendMail.Text.Trim,
            '                             TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
            '                             UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
            '                             "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
            '                             ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
            '                             "-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
            '                             -1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
            '                             -1, TxtCIEC.Text, 1, UsaAC,
            '                             TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
            '                             TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
            '                             DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
            '                             IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then
            If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
                                         TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
                                         "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
                                         FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", TxtSendMail.Text.Trim,
                                         TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
                                        UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
                                         "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
                                         ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
                                          "-1", "-1", -1, SSLSoporte,
                                          "-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
                                         TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
                                         -1, TxtCIEC.Text, 1, UsaAC,
                                         TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
                                         TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
                                         DdlTerminalTipo.SelectedValue.ToEntero, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero) Then

                'Movemos el Archivo Fisicamente
                If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then
                    Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString)
                    If File.Exists(Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension) Then
                        File.Delete(Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
                        File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
                    Else
                        File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
                    End If
                End If

                TextoOK = "Los cambios de guardaron correctamente."
            Else
                TextoError = "Ocurrió un error al guardar los cambios de la empresa"
            End If

            'If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
            '                             TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
            '                             "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
            '                             FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
            '                             TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
            '                            UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
            '                             "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
            '                             ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
            '                              "-1", "-1", -1, SSLSoporte,
            '                              "-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
            '                             TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
            '                             -1, TxtCIEC.Text, 1, UsaAC,
            '                             TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
            '                             TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero) Then

            'End If

            'Agregar Indicadores
            'For Each Row As GridViewRow In GvIndicadores.Rows
            '    If Row.DataKey("CveIndicador") <> "" AndAlso Row.DataKey("CveEmpresa") <> "" And Row.FCCheckBox("chkIndicador").Checked = False Then
            '        If Not Indicador.RemoveIndicadoresEmpresas(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
            '            Exit For
            '        End If
            '    End If

            '    If Row.DataKey("CveIndicador") <> "" And Row.DataKey("CveEmpresa") = "" Then
            '        If Row.FCCheckBox("chkIndicador").Checked Then
            '            If Not Indicador.AddIndicadorEmpresa(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
            '                Exit For
            '            End If
            '        End If
            '    End If
            'Next

        End If


            'RECARGA EMPRESA
            If TextoError = "" Then
            If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
                GlobalDTEmpresas(UsuarioActual.CveEmpresa) = Nothing

                'verifico si existe la carpeta de la empresa, sino la crea
                For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
                    If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))) Then
                        IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa")))
                    End If
                Next
            End If

        End If



        If TextoError = "" Then
            ObjEmpresas.Commit()
            If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit()
            Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/DefinicionEmpresa.aspx"";")
            Session("FileUpload") = ""
            CargaDatos()
            UpDatos.Update()
        Else
            ObjEmpresas.RollBack()
            If ObjContPAQ IsNot Nothing Then ObjContPAQ.RollBack()
            Alert(TextoError, TipoMensaje.MsgError)
        End If

        ObjEmpresas.Dispose()
        ObjGral.Dispose()
        If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose()
    End Sub
    Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String
        Dim Retorno As String = ""

        If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then
            Retorno = "Ocurrió un error al vincular la cuenta contable"
        End If

        Return Retorno
    End Function


    'Nuevo Código
    Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
        DtCuentasContables = Nothing

        If UsuarioActual.Empresa.UsaContabilidad Then
            Dim ObjEmpresa As New ClsSisEmpresas
            Dim Empresa As Empresa = Nothing
            If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then

                Empresa = ObjEmpresa.Empresa

                If Empresa.TipoContabilidad = 2 Then
                    Dim ObjContabilidad As New ClsContPAQi(Empresa)
                    If ObjContabilidad.GetCuentas(-1, "-1", -1, IdPadre:=IdCuentaPadre) Then
                        DtCuentasContables = ObjContabilidad.DtResultados
                    End If
                    ObjContabilidad.Dispose()
                End If



            End If
            ObjEmpresa.Dispose()
        End If
    End Sub

    Private Sub CargaCuentasContablesSIG(Optional IdCuentaPadre As Integer = -1)
        DtCuentasContablesSIG = Nothing

        Dim ObjEmpresa As New ClsSisEmpresas
        Dim Empresa As Empresa = Nothing
        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
            Empresa = ObjEmpresa.Empresa
            Dim ObjContabilidad As New ClsContabilidad
            If ObjContabilidad.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, CvePadre:=IdCuentaPadre) Then
                DtCuentasContablesSIG = ObjContabilidad.DtResultados
            End If
            ObjContabilidad.Dispose()
        End If
        ObjEmpresa.Dispose()
    End Sub


    Public Sub CargaFuncionalidad(CveFuncionalidad As Integer, ByRef Ddl As DropDownList)
        Dim Dr As DataRow = DtFuncionalidades.FiltroPrimero($"CveFuncionalidad = {CveFuncionalidad}")
        If Dr IsNot Nothing Then
            Dim DrC As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", Dr("Valor").ToString))
            If Not IsNothing(DrC) Then
                Ddl.Items.Add(New ListItem(DrC("CtaCodigo").ToString, Dr("Valor").ToString))
            End If
            Ddl.SelectedValue = Dr("Valor").ToString
        End If


    End Sub
    Private Sub CargaDdlPac()
        Dim Objeto As New ClsSisEmpresas
        If Objeto.GetPacs() Then
            'DdlCvePac.DataSource = Objeto.DtResultados
            'DdlCvePac.DataBind()
            'DdlCvePac.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If
        Objeto.Dispose()
    End Sub
    Private Sub CargaRegimenFiscal()
        Dim ObjSis As New ClsSisEmpresas
        If ObjSis.GetRegimenFiscal(-1) Then
            DdlRegimen.DataSource = ObjSis.DtResultados
            DdlRegimen.DataBind()
            DdlRegimen.Items.Insert(0, New ListItem("Seleccione", "-1"))
        End If
        ObjSis.Dispose()
    End Sub



    '#Region "TAB   -   INDICADORES "
    '    Public Sub CargaGridIndicadores()
    '        Dim Objeto As New ClsIndicadores
    '        If Objeto.GetEmpresasIndicadores(UsuarioActual.CveEmpresa) Then
    '            GvIndicadores.DataSource = Objeto.DtResultados
    '        End If
    '        GvIndicadores.DataBind()
    '        Objeto.Dispose()
    '    End Sub

    '    Private Sub GvIndicadores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIndicadores.RowDataBound
    '        If e.Row.RowType = DataControlRowType.DataRow Then
    '            If e.Row.DBCampo("CveEmpresa") <> "" Then
    '                e.Row.FCCheckBox("chkIndicador").Checked = True
    '            End If
    '        End If
    '    End Sub



    '#End Region

#Region "P L A N T I L L A    C O R R E O"

    Private Sub BtnGuardarPlantilla_Click(sender As Object, e As EventArgs) Handles BtnGuardarPlantilla.Click
        If UsuarioActual.Empresa.PlantillaMailVenta.Length > 0 Then

        End If
        Dim ObjEmpresa As New ClsSisEmpresas()
        If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, UsuarioActual.CveEmpresa) Then

            If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVentaCotizacion", TxtAsuntoCotizacion.Text.Trim, "PlantillaMailVentaCotizacion", TxtPlantillaCotizacion.Text.Trim, UsuarioActual.CveEmpresa) Then

            End If
            Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion)

            UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
            UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim

            UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
            UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim

            'TxtPlantillaVenta.Text = ""
            'TxtAsunto.Text = ""
        End If
        ObjEmpresa.Dispose()
        Alert(TxtPlantillaVenta.Text.Trim, TipoMensaje.MsgInformacion)
    End Sub


#End Region


    Protected Sub LnkRegistrarPAC3_Click(sender As Object, e As EventArgs)
        If UsuarioActual.CveEmpresa > 0 Then
            RegistrarPAC3()
        Else
            Alert("Debe registrar la empresa para poder registrarla en el PAC", TipoMensaje.MsgAdvertencia)
        End If

    End Sub
    Private Sub RegistrarPAC3()
        Try

            Dim Credenciales As String = "vSGxMFWnNRy/nDoowxqrqw==|Sia123654"
            Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey)
            Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer)

            Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave)
            Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado)

            Dim RFCEmisor As String = TxtRFC.Text.Trim()
            Dim contrasena As String = TxtContraseñaKey.Text.Trim()

            Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion)

            If Not EmpresaEditar.FacturaProduccion OrElse EmpresaEditar.CveEmpresa = 1 Then
                conector.EstableceCredenciales("mvpNUXmQfK8=")
            Else
                conector.EstableceCredenciales(Credenciales)
            End If

            Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena)

            If result.Exitoso Then
                Alert("El emisor se registró correctamente.<br>" & result.Descripcion)
            Else
                Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
            End If

        Catch ex As Exception
            OnError("Ocurrió un error al registrar el emisor", ex)
        End Try

    End Sub






    Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
        TxtCargaImg.getfiles().Archivos = Nothing
        TxtCargaImg.Text = "[]"
        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY
        LblModalCertificadosTitulo.Text = "Archivo KEY"
        UpModalCertificados.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
    End Sub

    Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
        TxtCargaImg.getfiles().Archivos = Nothing
        TxtCargaImg.Text = "[]"
        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER
        LblModalCertificadosTitulo.Text = "Archivo CER"
        UpModalCertificados.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
    End Sub

    Protected Sub LnkArchivoPfx_Click(sender As Object, e As EventArgs) Handles LnkArchivoPfx.Click
        TxtCargaImg.getfiles().Archivos = Nothing
        TxtCargaImg.Text = "[]"
        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX
        LblModalCertificadosTitulo.Text = "Archivo PFX"
        UpModalCertificados.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
    End Sub

    Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
        Dim FileExtension As String = "-1"
        Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
        Dim filemove As String = ""
        Dim TieneError As Boolean = False

        For Each fileItem As Archivo In filesgral

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

            Dim Patron As String = "(^\d{1,}-)|(\.\w{1,}$)"
            Dim NombreArchivo As String = Regex.Replace(filemove, Patron, "")

            Dim yaExistente As String = String.Format("{0}Empresas\{1}\Certificados\{2}.{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, NombreArchivo, FileExtension)

            Dim ArchivoCertificado As String = $"{NombreArchivo}.{FileExtension}"

            If File.Exists(yaExistente) Then
                File.Delete(yaExistente)
            End If
            Try
                If filemove <> "" Then
                    Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", UsuarioActual.CveEmpresa)
                    filemove.FilesMove(NombreArchivo, Ruta)
                End If
            Catch ex As Exception
                TieneError = True
            End Try


            If UsuarioActual.CveEmpresa > 0 AndAlso Not TieneError Then

                Dim ObjEmpresas As New ClsSisEmpresas


                Dim ArchivoKey As String = "-1"
                Dim ArchivoCer As String = "-1"
                Dim ArchivoPfx As String = "-1"


                If OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY Then
                    ArchivoKey = ArchivoCertificado
                    TxtArchivoKey.Text = ArchivoKey
                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER Then
                    ArchivoCer = ArchivoCertificado
                    TxtArchivoCer.Text = ArchivoCer
                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX Then
                    ArchivoPfx = ArchivoCertificado
                    TxtArchivoPfx.Text = ArchivoPfx
                End If

                If Not ObjEmpresas.UpdateEmpresasCertificados(ArchivoKey, ArchivoCer, ArchivoPfx, UsuarioActual.CveEmpresa) Then
                    TieneError = True
                End If


                ObjEmpresas.Dispose()

            End If



        Next





        If Not TieneError Then
            Alert("Certificado cargado con exito")
            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
        End If
        TxtCargaImg.getfiles().Archivos = Nothing
        UpAddArchivo.Update()





    End Sub

    Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click

        Dim NombreArchivo As String = TxtArchivoKey.Text
        DescargarArchivo(NombreArchivo)

    End Sub

    Protected Sub LbArchivoCerDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoCerDescarga.Click

        Dim NombreArchivo As String = TxtArchivoCer.Text
        DescargarArchivo(NombreArchivo)

    End Sub

    Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click

        Dim NombreArchivo As String = TxtArchivoPfx.Text
        DescargarArchivo(NombreArchivo)

    End Sub

    Private Sub DescargarArchivo(NombreArchivo As String)

        Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, NombreArchivo)
        Dim byteArray As Byte() = File.ReadAllBytes(FilePath)

        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.ClearContent()
        HttpContext.Current.Response.ContentType = "application/octet-stream"
        HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment;filename={0}", NombreArchivo))
        HttpContext.Current.Response.AddHeader("Content-Length", byteArray.Length.ToString())
        HttpContext.Current.Response.OutputStream.Write(byteArray, 0, byteArray.Length)
        HttpContext.Current.Response.End()

    End Sub

End Class