Imports System.Configuration
Imports fatd_faturamento.BLL.Repositorio
Imports fatd_faturamento.ENTIDADE
Public Class frmPrincipal

#Region "Propriedades"

    Private Sub frmPrincipal_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim vlist

        Dim objSistema As New entidadeSistema
        Dim repositorioSistema As New repositorioSistema
        Dim ff As New frmAguarde("Validando Informações do Sistema...")

        Try

            '[Registra o GemBox Pro 3.3]
            Try : GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(Crypt("ÅÔÆÖ­ÆÔ¸×­¶Ò·È­´ÅÂÂ")) : Catch ex As Exception : End Try

            '[Para o timer de verificação de atualização, caso esteja ativo; pode acontecer de ele ficar ativo na troca de empresa ou usuário]
            If Me.TimerCheckUpdate.Enabled Then
                Me.TimerCheckUpdate.Enabled = False
            End If

            '[Fecha o form de login]
            frmLogin.Close()

            '[Guarda o ID do sistema]
            objSistema.PREFIXO_TABELAS = ConfigurationManager.AppSettings("prefixo_bd_principal") + "_"

            vlist = repositorioSistema.Select(objSistema)

            If vlist.Count <> 0 Then

                For Each objSistemaFor As entidadeSistema In vlist
                    vintIdSistema = objSistemaFor.ID
                Next

            End If

            '[Mostra a versão do sistema na tela principal]
            Me.labelVersaoSistema.Text = Application.ProductVersion

            '[Mostra informações da sessão logada na barra de status]
            Me.labelHostname.Text = vMySqlHostName
            Me.labelUsername.Text = vUsuario.NOME

            '[Selecionar Regional]
            frmSelecionarRegional.ShowDialog()

            Me.labelNomeDatabase.Text = vMySqlDataBase

            Me.labelNomeDatabase.Text = objSistema.PREFIXO_TABELAS & GetConfig("empresa.sigla")
            'Me.labelNomeDatabase.Text = "FATF_EFLUL"


            ff.Show(Me)

            CarregaDadosVariavel()


            If Not Debugger.IsAttached Then
                '[Inicializa as variáveis necessárias para o processo de verificação e atualização]
                AutoUpdate.modPrincipal.strAssemblyName = System.Reflection.Assembly.GetEntryAssembly.GetName.Name.ToLower
                AutoUpdate.modPrincipal.strNomeSistema = vstrNomeSistema
                AutoUpdate.modPrincipal.intIdEmpresa = gintEmpresa_Codigo
                AutoUpdate.modPrincipal.intIdUsuario = vUsuario.ID

                '[Reseta o controle de verificação e procura atualizações]
                AutoUpdate.modUpdate.strAtualizacaoDisponivel = ""
                Me.TimerCheckUpdate.Enabled = True
                AutoUpdate.modUpdate.bolVerificacaoInicial = True

                Dim updateFromInternet As Boolean = Not GetConfig("autoUpdate.redeLocal", False)

                If updateFromInternet Then
                    AutoUpdate.modUpdate.IniciaVerificacao(, TipoUpdate.Internet)
                Else
                    AutoUpdate.modPrincipal.strRemotePath = GetConfig("autoUpdate.caminhoRepositorio", "")
                    AutoUpdate.modUpdate.IniciaVerificacao("N", TipoUpdate.RedeLocal)
                End If
            End If

            ''If Not vUsuario.LOGIN = "admin" And Not vUsuario.LOGIN = "nss" Then

            ''If validaVersaoExecutavel() = False Then Me.Close()

            '// Verifica se o sistema foi atualizado e roda a rotina de atualização de estrutura de menus para ser usada no launcher
            ''Dim versaoSistemaExecutavel = Application.ProductVersion
            ''Dim versaoSistemaConfig = moduleGlobal.GetConfig("sistema.versaoExecutavel", "0.0.0.0")

            ''If versaoSistemaExecutavel > versaoSistemaConfig Then
            'Dim f As New frmAguarde()
            'f.Show(Me)

            ''moduleGlobal.SetConfig("sistema.versaoExecutavel", "String", versaoSistemaExecutavel)
            '' modPermissaoMenu.GravaMenusSistema(Me.mnuPrincipal, False)

            '' f.Close()
            ''End If

            ''End If

            '[Validação de Bandeiras -  Validação FATF-ONLINE e FATD-FATURAMENTO]
            If ValidaBandeira() = False Then
                vValidacaoBandeira = False
                MessageBox.Show("Foi feito uma verificação e constatado que o valor de Bandeira encontra-se divergente. Favor, validar! ", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                vValidacaoBandeira = True
            End If

            '[Não verifica o menu caso o usuário seja o admin-nss]
            If Not vUsuario.LOGIN = "admin" And Not vUsuario.LOGIN = "nss" Then

                '[Configura os menus de acordo com o perfil do usuário]
                If vUsuario.PERFIL_MENU > 0 Then
                    Me.configMenus()
                End If

            End If

            '[Desabilita o menu de manutenções caso o usuário não seja o admin-nss]
            If Not vUsuario.LOGIN = "admin" And Not vUsuario.LOGIN = "nss" Then
                mnuManutencao.Enabled = False
                mnuManutencao.Visible = False
            End If

            'Executar EntregaReaviso automatico.
            Dim dataAtual As New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day)
            Dim datainicio As New DateTime(DateTime.Now.Year, DateTime.Now.Month + 1, 1)
            Dim dataUltimoDia As DateTime

            Dim lstrSql As String
            Dim objAtualizaBancoDados As New entidadeAtualizaBancoDados
            Dim repositorioAtualizaBancoDados As New repositorioAtualizaBancoDados
            Dim dt As DataTable

            dataUltimoDia = datainicio.AddDays(-1)
            lstrSql = "SELECT * "
            lstrSql += "FROM execucao_automatica "
            lstrSql += "WHERE funcao = 'ENTREGAREAVISO' "
            lstrSql += "AND SUBSTRING(data_execucao,1,7) = '" & Format(dataUltimoDia, "yyyy-MM") & "' "
            objAtualizaBancoDados.QUERY_NAME = lstrSql
            dt = repositorioAtualizaBancoDados.Consultar(objAtualizaBancoDados)
            If dt.Rows.Count > 0 Then
                dataUltimoDia = datainicio.AddDays(-1)
            End If

            While verificarProximoDiaUtil(dataUltimoDia) = False
                dataUltimoDia = dataUltimoDia.AddDays(1)
            End While
            If dataAtual >= dataUltimoDia Then
                If EntregaReaviso(dataAtual) = True Then
                    Dim f As New frmEntregaReaviso
                    f.sExecutaAutomatico = True
                    f.Show(Me)
                    f.Close()
                End If
            End If
            ff.Close()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ff.Close()
            Exit Sub
        End Try

    End Sub
    Function verificarProximoDiaUtil(dataAtual As DateTime) As Boolean
        Dim DIA_SABADO As Integer = 6
        Dim DIA_DOMINGO As Integer = 0
        Dim diaUtil As Boolean
        Dim diaDaSemana As Integer
        Dim lstrSql As String
        Dim objAtualizaBancoDados As New entidadeAtualizaBancoDados
        Dim repositorioAtualizaBancoDados As New repositorioAtualizaBancoDados
        Dim dt As DataTable
        Try

            Cursor.Current = Cursors.WaitCursor
            diaDaSemana = dataAtual.DayOfWeek
            If (diaDaSemana = DIA_SABADO) Or (diaDaSemana = DIA_DOMINGO) Then
                diaUtil = False
            Else
                diaUtil = True
            End If
            If diaUtil = True Then
                lstrSql = "SELECT * "
                lstrSql += "FROM feriados "
                lstrSql += "WHERE data = '" & Format(dataAtual, "yyyy-MM-dd") & "' "
                objAtualizaBancoDados.QUERY_NAME = lstrSql
                dt = repositorioAtualizaBancoDados.Consultar(objAtualizaBancoDados)
                If dt.Rows.Count > 0 Then
                    diaUtil = False
                Else
                    diaUtil = True
                End If
            End If

            Return diaUtil

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Cursor.Current = Cursors.Default
            Return False
            Exit Function
        End Try
    End Function

    Function EntregaReaviso(dataAtual As DateTime) As Boolean
        Dim lstrSql As String
        Dim objAtualizaBancoDados As New entidadeAtualizaBancoDados
        Dim repositorioAtualizaBancoDados As New repositorioAtualizaBancoDados
        Dim dt As DataTable
        Try

            EntregaReaviso = False
            Cursor.Current = Cursors.WaitCursor
            lstrSql = "SELECT * "
            lstrSql += "FROM execucao_automatica "
            lstrSql += "WHERE funcao = 'ENTREGAREAVISO' "
            lstrSql += "AND Substring(data_execucao,1,7) = '" & Format(dataAtual, "yyyy-MM") & "' "
            objAtualizaBancoDados.QUERY_NAME = lstrSql
            dt = repositorioAtualizaBancoDados.Consultar(objAtualizaBancoDados)
            If Not (dt.Rows.Count > 0) Then
                EntregaReaviso = True
            End If
            Cursor.Current = Cursors.Default

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            EntregaReaviso = False
            Cursor.Current = Cursors.Default
            Exit Function
        End Try
    End Function


#End Region

#Region "Métodos"

    '[######## Carrega as configurações de permissão do perfil selecionado ################]
    Private Sub configMenus()

        Dim vlist

        Dim objPermissaoMenuDet As New entidadePermissaoMenuDet
        Dim repositorioPermissaoMenuDet As New repositorioPermissaoMenuDet

        Try

            '[Carrega as permissões gravadas para o perfil selecionado e habilita ou não o menu da tela]

            objPermissaoMenuDet.ID_SISTEMA = vintIdSistema
            objPermissaoMenuDet.ID_PERMISSAO = CInt(vUsuario.PERFIL_MENU)


            vlist = repositorioPermissaoMenuDet.Select(objPermissaoMenuDet)

            If vlist.Count > 0 Then

                For Each objPermissaoMenuDetFor As entidadePermissaoMenuDet In vlist

                    Me.setMenuEnabled(Me.MenuPrincipal, objPermissaoMenuDetFor.NAME, CBool(objPermissaoMenuDetFor.HABILITADO))

                Next

            End If


        Catch ex As Exception
            Exit Sub
        End Try

    End Sub

    '[Rotina para configuração de acesso aos menus do sistema]
    Public Sub setMenuEnabled(ByRef pMenu As MenuStrip, ByVal pMenuOptionName As String, ByVal pEnabled As Boolean)

        Try

            For Each tsmi As ToolStripMenuItem In pMenu.Items
                If tsmi.Name.ToUpper() = pMenuOptionName Then
                    tsmi.Enabled = pEnabled
                    tsmi.Visible = pEnabled
                End If

                Me.setChildNodes(tsmi, pMenuOptionName, pEnabled)
            Next

        Catch ex As Exception
            Exit Sub
        End Try

    End Sub

    '[Rotina recursiva para configuração de acesso aos menus do tipo DropDown do sistema]
    Private Sub setChildNodes(ByVal pDropDownItem As ToolStripDropDownItem, ByVal pMenuOptionName As String, ByVal pEnabled As Boolean)

        Try

            For Each item As Object In pDropDownItem.DropDownItems
                If TypeOf item Is ToolStripSeparator Then
                    If item.Name.ToUpper() = pMenuOptionName Then
                        item.Enabled = pEnabled
                        item.Visible = pEnabled
                    End If
                Else
                    If item.Name.ToUpper() = pMenuOptionName Then
                        item.Enabled = pEnabled
                        item.Visible = pEnabled
                    End If

                    Me.setChildNodes(item, pMenuOptionName, pEnabled)
                End If
            Next

        Catch ex As Exception
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Menu"

#Region "Cadastros"

#Region "Unidades Consumidoras"

    Private Sub mnuCadastros_UnidadesConsumidoras_Click(sender As Object, e As EventArgs) Handles mnuCadastros_UnidadesConsumidoras.Click

        Try

            Dim f As New frmCadastroConsumidor
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Endereços"

    Private Sub mnuCadastros_Enderecos_Cidades_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Enderecos_Cidades.Click

        Try

            Dim f As New frmCadastroCidades
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Enderecos_Distritos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Enderecos_Distritos.Click

        Try

            Dim f As New frmCadastroDistritos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Enderecos_Bairros_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Enderecos_Bairros.Click

        Try

            Dim f As New frmCadastroBairros
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Enderecos_Logradouros_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Enderecos_Logradouros.Click

        Try

            Dim f As New frmCadastroLogradouros
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Enderecos_Transferencias_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Enderecos_Transferencias.Click


        Try

            Dim f As New frmCadastroTransferencias
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Auxiliares"

    Private Sub mnuCadastros_Auxiliares_Bancos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Bancos.Click

        Try

            Dim f As New frmCadastroBancos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Classes_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Classes.Click

        Try

            Dim f As New frmCadastroClasses
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Cargas_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Cargas.Click

        Try

            Dim f As New frmCadastroEquipamentosCargas
            f.SetaEquipCarga(Me)
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_ConveniosTaxasDiversos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_ConveniosTaxasDiversos.Click

        Try

            Dim f As New frmCadastroConvenios
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Executores_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Executores.Click

        Try

            Dim f As New frmCadastroExecutores
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Feriados_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Feriados.Click

        Try

            Dim f As New frmCadastroFeriados
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Ocorrecias_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Ocorrecias.Click

        Try

            Dim f As New frmCadastroOcorrencias
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_MensagensPadroesFaturas_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_MensagensPadroesFaturas.Click

        Try

            Dim f As New frmCadastroMensagens
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Tensao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Tensao.Click

        Try

            Dim f As New frmCadastroTensao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Regiao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Regiao.Click

        Try

            Dim f As New frmCadastroRegiao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_PrecosMae_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_PrecosMae.Click

        Try

            Dim f As New frmCadastroPrecosMae
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_ContratoskWh_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_ContratoskWh.Click

        Try

            Dim f As New frmCadastroContratos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_ControleUltrapassagemDevolucao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_ControleUltrapassagemDevolucao.Click

        Try

            Dim f As New frmControleUltrapassagemDevolucao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_IluminacaoPublica_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_IluminacaoPublica.Click

        Try

            Dim f As New frmCadastroIluminacaoPublica
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_IndicadoresContinuidade_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_IndicadoresContinuidade.Click

        Try

            Dim f As New frmIndicadorContinuidade
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_NovaTarifas_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_NovaTarifas.Click

        Try

            Dim f As New frmCadastroNovaTarifas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Tarifas_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Tarifas.Click

        Try

            Dim f As New frmCadastroTarifas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Tributos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Tributos.Click

        Try

            Dim f As New frmCadastroTributos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_CorrecaoMonetaria_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_CorrecaoMonetaria.Click

        Try

            Dim f As New frmCadastroIndiceCM
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuCadastros_Auxiliares_Rota_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Rota.Click
        Try
            Dim f As New frmCadastroRota
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Auxiliares_CadastroClasseCodigos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_CadastroClasseCodigos.Click
        Try
            Dim f As New frmCadastroCodigoClasse
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub


#End Region

#Region "Indicadores de Continuidade"

    Private Sub mnuCadastros_IndicadoresContinuidade_TabelaMetasDICFICDMIC_Click(sender As Object, e As EventArgs) Handles mnuCadastros_IndicadoresContinuidade_TabelaMetasDICFICDMIC.Click
        Try

            Dim f As New frmCadastroMetasIndicadores
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub


#End Region

#Region "Medição"

#Region "Auxiliar"

    Private Sub mnuCadastros_Medicao_Auxiliar_Fabricantes_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_Fabricantes.Click
        Try

            Dim f As New frmCadastroFabricantes
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_Situacao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_Situacao.Click
        Try

            Dim f As New frmCadastroSituacao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_Disjuntor_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_Disjuntor.Click
        Try

            Dim f As New frmCadastroDisjuntor
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_BobinaCorrente_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_BobinaCorrente.Click
        Try

            Dim f As New frmCadastroBobinaCorrente
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_BobinaTensao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_BobinaTensao.Click
        Try

            Dim f As New frmCadastroBobinaTensao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub nuCadastros_Medicao_Auxiliar_TipoPadraoMedicao_Click(sender As Object, e As EventArgs) Handles nuCadastros_Medicao_Auxiliar_TipoPadraoMedicao.Click
        Try

            Dim f As New frmCadastroTipoPadraoMedicao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_TipoGrandezaMedicao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_TipoGrandezaMedicao.Click
        Try

            Dim f As New frmCadastroTipoGrandezaMedicao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_TipoFases_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_TipoFases.Click
        Try

            Dim f As New frmCadastroTipoFases
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Medicao_Auxiliar_TipoMedidor_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Auxiliar_TipoMedidor.Click
        Try

            Dim f As New frmCadastroTipoMedidor
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Medidor"

    Private Sub mnuCadastros_Medicao_Medidor_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Medidor.Click
        Try

            Dim f As New frmCadastroMedidores
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Ramal"

    Private Sub mnuCadastros_Medicao_Ramal_Ramal_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_Ramal_Ramal.Click
        Try

            Dim f As New frmCadastroRamal
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Imprime Ficha U.C.B.T."

    Private Sub mnuCadastros_Medicao_ImprimeFichaUCBT_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_ImprimeFichaUCBT.Click
        Try

            Dim f As New frmRelatorioMedidoresLevantamento
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Consulta Alterações"

    Private Sub mnuCadastros_Medicao_ConsultaAlteracoes_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_ConsultaAlteracoes.Click
        Try

            Dim f As New frmVisAuditoriaTabelas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta e Imprime Dados de Medição"

    Private Sub mnuCadastros_Medicao_ExportaImprimeDadosMedicao_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Medicao_ExportaImprimeDadosMedicao.Click
        Try

            Dim f As New frmVisualizaDadosMedicao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#End Region

#Region "Comercial"

#Region "Classificação"

    Private Sub mnuCadastros_Comercial_Classificacao_Grupos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Classificacao_Grupos.Click
        Try

            Dim f As New frmCadastroClassificacaoGrupos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Comercial_Classificacao_Tipos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Classificacao_Tipos.Click
        Try

            Dim f As New frmCadastroClassificacaoTipos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Setores"

    Private Sub mnuCadastros_Comercial_Setores_Grupos_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Setores_Grupos.Click
        Try

            Dim f As New frmCadastroSetoresGrupos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Comercial_Setores_Setor_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Setores_Setor.Click
        Try

            Dim f As New frmCadastroSetoresDet
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Comercial_Setores_Usuarios_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Setores_Usuarios.Click
        Try

            Dim f As New frmCadastroSetoresUsuarios
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Bandeiras"

    Private Sub mnuCadastros_Comercial_Bandeiras_TipoBandeira_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Bandeiras_TipoBandeira.Click
        Try

            Dim f As New frmCadastroTipoBandeira
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuCadastros_Comercial_Bandeiras_Bandeiras_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Comercial_Bandeiras_Bandeiras.Click
        Try

            Dim f As New frmCadastroBandeiras
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#End Region

#End Region

#Region "Leituras/Faturamento"

#Region "Grupo A"

    Private Sub mnuLeiturasFaturamento_GrupoA_Calculo_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoA_Calculo.Click

        If Not GetConfig("iniciou.faturamento") Then
            MessageBox.Show("O faturamento ainda não foi iniciado!")
            Exit Sub
        End If

        Try

            '[Validação de Bandeiras -  Validação FATF-ONLINE e FATD-FATURAMENTO]
            If ValidaBandeira() = False Then

                vValidacaoBandeira = False

                Dim f As New frmFatGrupoAaaa

                MessageBox.Show("Foi feito uma verificação e constatado que o valor de Bandeira encontra-se divergente. Caso queira entrar nesta tela, precisará de um usuário e senha administrador! ", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)

                frmLoginAdministrador.SetParametros(f, Me)
                frmLoginAdministrador.Show()

            Else

                vValidacaoBandeira = True

                Dim f As New frmFatGrupoAaaa
                f.Show(Me)

            End If

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Grupo B"

    Private Sub mnuLeiturasFaturamento_GrupoB_CadernoLeitura_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_CadernoLeitura.Click
        Try

            Dim f As New frmLeituraManual
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_EnviarReceberDadosPalm_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_EnviarReceberDadosPalm.Click
        Try

            Dim f As New frmPalm
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_EnviarRotaParaLeituraDoAPP_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_EnviarRotaParaLeituraDoAPP.Click
        Try

            Dim f As New frmEnviarRotaParaLeituraAPP
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_AnalizeProcessamentoFaturas_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_AnalizeProcessamentoFaturas.Click
        Try

            If Not GetConfig("iniciou.faturamento") Then
                MessageBox.Show("O faturamento ainda não foi iniciado!")
                Exit Sub
            End If

            '[Validação de Bandeiras -  Validação FATF-ONLINE e FATD-FATURAMENTO]
            If ValidaBandeira() = False Then

                vValidacaoBandeira = False

                Dim f As New frmVerifContaGBNovo
                Call f.SetaParamentros("N")

                MessageBox.Show("Foi feito uma verificação e constatado que o valor de Bandeira encontra-se divergente. Caso queira entrar nesta tela, precisará de um usuário e senha administrador! ", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)

                frmLoginAdministrador.SetParametros(f, Me)
                frmLoginAdministrador.Show()

            Else
                vValidacaoBandeira = True

                Dim f As New frmVerifContaGBNovo
                Call f.SetaParamentros("N")
                f.ShowDialog(Me)
            End If

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_FaturaAvulsa_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_FaturaAvulsa.Click
        Try

            Dim f As New frmFaturaAvulsa
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_AutoLeitura_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_AutoLeitura.Click
        Try

            Dim f As New frmAutoLeitura
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_RelatorioOcorrencias_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_RelatorioOcorrencias.Click
        Try

            Dim f As New frmRelOcorrencias
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_AnaliseLeituraMedia_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_AnaliseLeituraMedia.Click
        Try

            Dim f As New frmAnaliseLeituraMedia
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_FatPorAgrup_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_FatPorAgrup.Click
        Try

            Dim f As New frmRelFaturasPorAgrupamento
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Declaração de Quitação"

    Private Sub mnuLeiturasFaturamento_DeclaracaoQuitacao_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_DeclaracaoQuitacao.Click
        Try

            Dim f As New frmDeclaracaoQuitacao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Fatura Complementar"

    Private Sub mnuLeiturasFaturamento_CalculoFaturaComplementar_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_CalculoFaturaComplementar.Click
        Try

            Dim f As New frmCalculoFaturaComplementar
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Impressão de Faturas"

    Private Sub mnuLeiturasFaturamento_ImpressaoFaturas_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_ImpressaoFaturas.Click
        Try

            Dim f As New frmImpFaturas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Calculo de Nível de Tensão"

    Private Sub mnuLeiturasFaturamento_CalculoNivelTensao_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_CalculoNivelTensao.Click
        Try
            Dim f As New frmCalcNivelTensao
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Cancelamento de Faturas"

    Private Sub mnuLeiturasFaturamento_CancelamentoFaturas_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_CancelamentoFaturas.Click
        Try
            Dim f As New frmCancelaNF
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Finalizar"

    Private Sub mnuLeiturasFaturamento_Finalizar_Rota_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_Finalizar_Rota.Click

        Try

            Dim f As New frmFinalizarRota
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuLeiturasFaturamento_Finalizar_Mes_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_Finalizar_Mes.Click

        Try

            Dim f As New frmFinalizarMes
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Reaviso e Corte"

    Private Sub ReavisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReavisoToolStripMenuItem.Click
        Try

            Dim f As New frmReaviso
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Fatura por Email"

    Private Sub mnuLeiturasFaturamento_FaturaEmail_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_FaturaEmail.Click
        Try
            Dim f As New frmFaturaporEmail
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region


#End Region

#Region "MovimentacaoArquivos"

#Region "Bancos"

    Private Sub mnuMovimentacaoArquivos_Bancos_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_Bancos.Click
        'Try

        '    Dim f As New FrmEnviarBcos
        '    f.Show(Me)

        'Catch ex As Exception
        '    MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    Exit Sub
        'End Try

    End Sub

    Private Sub mnuMovimentacaoArquivos_Bancos_Boleto_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_Bancos_Boleto.Click
        Try

            Dim f As New FrmEnviarBcos
            f.sRemessaBoleto = "B"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuMovimentacaoArquivos_Bancos_Remessa_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_Bancos_Remessa.Click
        Try

            Dim f As New FrmEnviarBcos
            f.sRemessaBoleto = "R"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuMovimentacaoArquivos_CriacaoPixECodigoBarras_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_CriacaoPixECodigoBarras.Click
        Try

            Dim f As New FrmEnviarBcosPix
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Grafica"

    Private Sub mnuMovimentacaoArquivos_Grafica_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_Grafica.Click

        Try
            Dim f As New frmEnvioGrafica
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Cargas SGD"

    Private Sub mnuMovimentacaoArquivos_CargasSGD_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_CargasSGD.Click

        Try
            Dim f As New frmEnvioSGD
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta Maiores Devedores"

    Private Sub mnuMovimentacaoArquivos_ExportaMaioresDevedores_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ExportaMaioresDevedores.Click

        Try
            Dim f As New frmExportaMaioresDevedores
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "NIS"

    Private Sub mnuMovimentacaoArquivos_NIS_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_NIS.Click

        Try
            Dim f As New frmEnviarNis
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub

        End Try
    End Sub

#End Region

#Region "Controle Subvenções"

    Private Sub mnuMovimentacaoArquivos_ControleSubvencao_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ControleSubvencao.Click
        Try
            Dim f As New frmEmissaoSubvencao '*
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Sorteio das Unidades Consumidoras"

    Private Sub mnuMovimentacaoArquivos_SorteioUnidadesConsumidoras_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_SorteioUnidadesConsumidoras.Click
        Try
            Dim f As New frmSortConsum
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Ressarcimento de Indicadores"

    Private Sub mnuMovimentacaoArquivos_RessarcimentoIndicadores_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_RessarcimentoIndicadores.Click
        Try
            Dim f As New frmEmissaoRessInd
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Ressarcimento de Indicadores Totalizados(*)"

    Private Sub mnuMovimentacaoArquivos_RessarcimentoIndicadoresTotal_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_RessarcimentoIndicadoresTotal.Click
        Try

            Dim f As New frmEmissaoRessIndTot
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Ressarcimento de indicadores Totalizados por Ano"

    Private Sub mnuMovimentacaoArquivos_RessarcimentoIndicadoresTotalAno_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_RessarcimentoIndicadoresTotalAno.Click
        Try
            Dim f As New frmEmissaoRessIndTotatlizadorAnual
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try


    End Sub

#End Region

#Region "Convênio 115"

    Private Sub mnuMovimentacaoArquivos_Convenio115_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_Convenio115.Click
        Try
            Dim f As New frmConvenio115SC
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Envia Dados Cons Livres SEF"

    Private Sub mnuMovimentacaoArquivos_EnviarDadosConsLivresSef_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_EnviarDadosConsLivresSef.Click
        Try

            Dim f As New frmEnviarDadosLivreSef
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Importar Dados Cons Livre - SEF"

    Private Sub mnuMovimentacaoArquivos_ImportarDadosConsLivresSef_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ImportarDadosConsLivresSef.Click
        Try
            Dim f As New frmImportarDadosLivreSef
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Envia BX Renda Jul 2010"

    Private Sub mnuMovimentacaoArquivos_EnviarBxRendaJul2010_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_EnviarBxRendaJul2010.Click
        Try
            Dim f As New frmEmissaoBxRJul2010
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Emissão TSE DMR (Novo)"

    Private Sub mnuMovimentacaoArquivos_EmissaoTseeDmr_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_EmissaoTseeDmr.Click
        Try
            Dim f As New frmEmissaoTseeDmr
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta Faturas"

    Private Sub mnuMovimentacaoArquivos_ExportaFaturas_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ExportaFaturas.Click
        Try
            Dim f As New frmExportaFaturamento
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta Dados A.N.A."

    Private Sub mnuMovimentacaoArquivos_ExportaDadosAna_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ExportaDadosAna.Click
        Try
            Dim f As New frmExportaANA
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta Subvenções"

    Private Sub mnuMovimentacaoArquivos_ExportaSubvencoes_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_ExportaSubvencoes.Click
        Try
            Dim f As New frmExportaSubvencoes
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "NF3E"

    Private Sub mnuMovimentacaoArquivos_NF3E_Exportar_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_NF3E_Exportar.Click
        Try
            Dim f As New frmExportaNF3E
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuMovimentacaoArquivos_NF3E_Cancelar_Click(sender As Object, e As EventArgs) Handles mnuMovimentacaoArquivos_NF3E_Cancelar.Click
        Try
            Dim f As New frmCancelarNF3E
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

#End Region

#Region "Arrecadação"

#Region "Direto de Arrecadadores"

    Private Sub mnuRecebimentos_DiretoArrecadadores_Click(sender As Object, e As EventArgs) Handles mnuRecebimentos_DiretoArrecadadores.Click
        Try
            Dim f As New frmRecArq
            f.strTipoServ = "Guiche"
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Débito em Conta Corrente"

    Private Sub mnuRecebimentos_DebitoContaCorrente_Click(sender As Object, e As EventArgs) Handles mnuRecebimentos_DebitoContaCorrente.Click
        'Try
        '    Dim f As New frmRecArq
        '    f.strTipoServ = "Debitos"
        '    f.Show(Me)
        'Catch ex As Exception
        '    MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    Exit Sub
        'End Try
    End Sub

    Private Sub mnuRecebimentos_DebitoContaCorrente_Boleto_Click(sender As Object, e As EventArgs) Handles mnuRecebimentos_DebitoContaCorrente_Boleto.Click
        Try
            Dim f As New frmRecArq
            f.strTipoServ = "Boleto"
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRecebimentos_DebitoContaCorrente_Remessa_Click(sender As Object, e As EventArgs) Handles mnuRecebimentos_DebitoContaCorrente_Remessa.Click
        Try
            Dim f As New frmRecArq
            f.strTipoServ = "Debitos"
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub


#End Region

#Region "Manual"

    Private Sub MenuArrecadacaoManual_Click(sender As Object, e As EventArgs) Handles MenuArrecadacaoManual.Click
        Try
            Dim f As New frmRecMan
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Devoluções"

    Private Sub mnuRecebimentos_Devolucoes_Click(sender As Object, e As EventArgs) Handles mnuRecebimentos_Devolucoes.Click

        Try
            Dim f As New frmDevolucao
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region


#End Region

#Region "Atendimento Comercial"

    Private Sub mnuAtendimentoComercialUC_Faturamentos_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercialUC_Faturamentos.Click
        Try
            Dim f As New frmArrec
            f.ShowDialog(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_ConfereReaviso_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_ConfereReaviso.Click
        Try
            Dim f As New frmConfereReaviso
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_Reaviso_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_Reaviso.Click
        Try
            Dim f As New frmReaviso
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_RegistroEntrega_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_RegistroEntrega.Click
        Try
            If gstrEmpresa_Sigla = "EFLUL" Then
                Dim f As New frmConfirmaEntrega
                f.Show(Me)
            Else
                Dim f As New frmEntregaReaviso
                f.Show(Me)
            End If
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_Corte_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_Corte.Click
        Try
            Dim f As New frmCortes
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_RegistrarCorte_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_RegistrarCorte.Click
        Try
            Dim f As New frmConfirmaCorte
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_RegistrarCorteEspecial_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_RegistrarCorteEspecial.Click
        Try
            Dim f As New frmConfirmaCorteEspecial
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_RelatorioControleReavisos_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_RelatorioControleReavisos.Click
        Try
            Dim f As New frmRelReavisos
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ReavisoCorte_RelatorioReavisosEstatistico_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ReavisoCorte_RelatorioReavisosEstatistico.Click
        Try
            Dim f As New frmRelReavisosEstatistico
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_ControleCadUnico_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_ControleCadUnico.Click
        Try
            Dim f As New frmCadUniDados
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuAtendimentoComercial_DeclaracaoQuitacaoAnualDebitos_Click(sender As Object, e As EventArgs) Handles mnuAtendimentoComercial_DeclaracaoQuitacaoAnualDebitos.Click
        Try
            Dim f As New frmDeclaracaoQuitacao
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Relatórios"

#Region "Conferência do Faturamento"

    Private Sub mnuRelatorio_ConferenciaFaturamento_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_ConferenciaFaturamento.Click
        Try


            Dim f As New frmRelEFechamento
            f.SetaDados("nftransicao", True, False)
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Fechamento"

    Private Sub mnuRelatorio_Fechamento_TotalFaturamentoMes_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_TotalFaturamentoMes.Click
        Try

            'Dim f As New frmRelEFechamento
            Dim f As New frmRelEFechamentoVw
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_TotalFaturamentoAnual_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_TotalFaturamentoAnual.Click
        Try

            Dim f As New frmRelEFechamento
            f.SetaDados("nf", False, True)
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_ReativosDemandaUltrapassagem_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_ReativosDemandaUltrapassagem.Click

        Try

            Dim f As New frmRelReativosDemandaUltrap
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_ReceitaBandeiras_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_ReceitaBandeiras.Click
        Try

            Dim f As New frmRelReceitaBandeira
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_IcmsSpeedFiscal_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_IcmsSpeedFiscal.Click
        Try

            Dim f As New frmRelIcmsPisCofis
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_RendaNaoFaturada_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_RendaNaoFaturada.Click
        Try

            Dim f As New frmRelRendaNaoFaturadaNovo
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_TotalConsumidoresBaixaRendaMes_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_RetencoesPeriodo.Click
        Try

            Dim f As New frmRelRetencao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_Samp945_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_Samp945.Click
        Try

            Dim f As New frmRelSampNovo
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_TotalConsumidoresBaixaRendaMes_Click_1(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_TotalConsumidoresBaixaRendaMes.Click
        Try

            Dim f As New FrmRelConsumBaixaRenda
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_EmissaoPlanilhaBaixaRenda_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_EmissaoPlanilhaBaixaRenda.Click
        Try

            Dim f As New frmEmissaoBaixaRenda
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Fechamento_EmissaoPlanilhaAnexoVI_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_EmissaoPlanilhaAnexoVI.Click
        Try

            Dim f As New frmEmissaoBaixaRendaVI
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Arrecadação"

    Private Sub mnuRelatorio_Arrecadacao_Recebimentos_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Arrecadacao_Recebimentos.Click
        Try


            Dim f As New FrmRecebimentos
            f.sRelatorio = "Recebimento"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Arrecadacao_RecebimentosDiaBanco_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Arrecadacao_RecebimentosDiaBanco.Click
        Try


            Dim f As New FrmRelRecebDiaBanco
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Arrecadacao_RecebimentosDia_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Arrecadacao_RecebimentosDia.Click
        Try

            Dim f As New FrmRelRecebDiario
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Arrecadacao_RecebimentosDiaBancoClasse_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Arrecadacao_RecebimentosDiaBancoClasse.Click
        Try

            Dim f As New FrmRelRecebDiaBancoClasse
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Arrecadacao_DuplicidadePagamento_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Arrecadacao_DuplicidadePagamento.Click
        Try

            Dim f As New frmRelDuplicidadePagto
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Em Abertos"

    Private Sub mnuRelatorio_EmAbertos_ConsumidoresAbertoMes_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_EmAbertos_ConsumidoresAbertoMes.Click
        Try


            ' Dim f As New FrmRelConsAberto
            Dim f As New FrmRecebimentos
            f.sRelatorio = "Em Aberto"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_EmAbertos_TotalVencidosVencer_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_EmAbertos_TotalVencidosVencer.Click
        Try
            Dim f As New frmVenc
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_EmAbertos_ConsumidoresAbertoPeriodo_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_EmAbertos_ConsumidoresAbertoPeriodo.Click
        Try
            Dim f As New frmRelAbertos
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_EmAbertos_ConsumidoresVencimento_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_EmAbertos_ConsumidoresVencimento.Click
        Try
            Dim f As New frmRelConsumVencto
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Terceiros"

    Private Sub mnuRelatorio_Terceiros_IluminacaoPublica_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Terceiros_IluminacaoPublica.Click
        Try

            Dim f As New frmRelIluminacao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Terceiros_Convenios_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Terceiros_Convenios.Click
        Try

            Dim f As New frmRelConvenios
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Serviços"

    Private Sub mnuRelatorio_Servicos_ServicosTaxados_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Servicos_ServicosTaxados.Click
        Try

            Dim f As New frmImpFat
            f.impServ = "Serviços Taxados"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Servicos_ConveniosDiversos_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Servicos_ConveniosDiversos.Click
        Try

            Dim f As New frmImpFat
            f.impServ = "Convênios e Diversos"
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Faturas"

    Private Sub mnuRelatorios_Faturas_Canceladas_Click(sender As Object, e As EventArgs) Handles mnuRelatorios_Faturas_Canceladas.Click
        Try

            Dim f As New frmConsultaFaturas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Outros"

    Private Sub mnuRelatorio_Outros_ReservaPDD_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_ReservaPDD.Click
        Try
            Dim f As New FrmPDD
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Reserva_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Reserva.Click
        Try
            Dim f As New FrmRelPDD
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_ReservaSintetico_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_ReservaSintetico.Click
        Try
            Dim f As New frmRelNovoPDD
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Mercado_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Mercado.Click
        Try
            Dim f As New frmRelMercado
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_EstatisticaOperacao_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_EstatisticaOperacao.Click
        Try
            Dim f As New frmRelEstOperacao
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Diversos_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Diversos.Click
        Try
            Dim f As New frmRelDiversos
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_DesligadosLigadosFase_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_DesligadosLigadosFase.Click
        Try
            Dim f As New frmRelDesligados
            f.ShowDialog()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_MediaTusd_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_MediaTusd.Click
        Try
            Dim f As New frmRelMediaTusd
            f.Show()

        Catch ex As Exception
            'MessageBox.Show("Ocorreu o Erro: " & Err.Description & " - Rotina: mnuRelatorio_Outros_MediaTusd_Click" & "", "Aviso de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Nis_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Nis.Click
        Try
            Dim f As New frmRelNis
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_OrdemServico_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_OrdemServico.Click
        Try
            Dim f As New frmRelOrdemServico
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Medidores_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Medidores.Click
        Try
            Dim f As New frmRelMedidores
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu o Erro: " & Err.Description & " - Rotina: cmdImprimir_Click" & "", "Aviso de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Pee_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Pee.Click
        Try
            Dim f As New frmRelPee
            f.Show()

        Catch ex As Exception
            ' MessageBox.Show("Ocorreu o Erro: " & Err.Description & " - Rotina: cmdImprimir_Click" & "", "Aviso de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Reclamacoes_ReclamacaoGeral_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Reclamacoes_ReclamacaoGeral.Click
        Try
            Dim f As New frmRelReclamacao
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Gtf_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Gtf.Click
        Try
            Dim f As New frmRelGtf
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_LactoCvTxDv_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_LactoCvTxDv.Click
        Try
            Dim f As New frmRelLactoCvTxDv
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_PEE_Periodo_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_PEE_Periodo.Click
        Try
            Dim f As New frmRelPeePeriodo
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_BonusItaipu_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_BonusItaipu.Click
        Try
            Dim f As New frmRelItaipuRepasse
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_MediaConsumos_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_MediaConsumos.Click
        Try
            Dim f As New frmRelMediaConsumo
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_Inadimplencia_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Inadimplencia.Click
        Try
            Dim f As New frmRelInadimplencia
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub
    Private Sub mnuRelatorio_Outros_Consumidores_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_Consumidores.Click
        Try
            Dim f As New frmRelQuantidadesConsumidores
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub



#End Region

#End Region

#Region "Ferramentas"

#Region "Utilitarios"

    Private Sub mnuFerramentas_Utilitarios_EditorConfiguracoes_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Utilitarios_EditorConfiguracoes.Click
        Try
            Dim f As New frmConfig
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Controle"

    Private Sub mnuFerramentas_Controle_Usuarios_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Controle_Usuarios.Click
        Try
            Dim f As New frmCadastroUsuarios
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Controle_Permissoes_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Controle_Permissoes.Click
        Try

            Dim f As New frmCadastroPermissaoMenu(Me.MenuPrincipal) : f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Banco de Dados"

    Private Sub mnuFerramentas_BancoDados_Configurar_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_BancoDados_Configurar.Click
        Try
            Dim f As New frmMySqlConfig
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_BancoDados_Backup_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_BancoDados_Backup.Click
        Try
            Dim f As New frmMySqlBackUp
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_BancoDados_RestaurarBackup_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_BancoDados_RestaurarBackup.Click
        Try
            Dim f As New frmMySqlRestore
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_BancoDados_ExecutaComandos_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_BancoDados_ExecutaComandos.Click
        Try
            Dim f As New frmMySqlExecuteCommand
            f.Show()

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Fazer Backup do Banco de Dados"

    Private Sub mnuFerramentas_FazerBackupBancoDados_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_FazerBackupBancoDados.Click
        Try
            Dim f As New frmMySqlBackupBD : f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Faturamento"

    Private Sub mnuFerramentas_Faturamento_ImportaLinkCenter_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_ImportaLinkCenter.Click
        Try
            If GetConfig("iniciou.faturamento") Then
                MessageBox.Show("O faturamento já foi iniciado, está função só pode ser executada após o encerramento do mês de faturamento atual.")
            Else
                Dim Importador As New clsImportadorLinkCenter()
                Importador.Importar_Dados_Link_Center()
            End If
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        'Comentado por Nader 10/08/2023 -> Foi implementado uma nova classe de importação, esta form estava importando alguns dados de forma equivocada.
        'Try
        '    If GetConfig("iniciou.faturamento") Then
        '        MessageBox.Show("O faturamento já foi iniciado, está função só pode ser executada após o encerramento do mês de faturamento atual.")
        '    Else
        '        Dim f As New frmImportaLinkCenter
        '        f.dtpInicio.Value = VB6.Format(CDate(GetConfig("mes.ano.faturamento")).AddMonths(-1), "dd/MM/yyyy")
        '        f.dtpFimMesAno.Value = CDate(VB6.Format(Date.Now, "dd/MM/yyyy"))
        '        f.btnProcessar_Click(f.btnProcessar, EventArgs.Empty)
        '    End If
        'Catch ex As Exception
        '    MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    Exit Sub
        'End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_GerencialLinkCenter_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_GerencialLinkCenter.Click
        Try
            Dim f As New frmGerenciador_Link_Center_v2 : f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_IsentaMultaJuroCM_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_IsentaMultaJuroCM.Click
        Try

            Dim f As New frmIsento
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_ConveniosDiversosTaxas_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_ConveniosDiversosTaxas.Click
        Try

            Dim f As New frmConvenios
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_MetaDesconto_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_MetaDesconto.Click
        Try

            Dim f As New frmMetaDesconto
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#Region "Exporta Contabilidade"

    Private Sub mnuFerramentas_ExportaContabilidade_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_ExportaContabilidade.Click
        Try

            Dim f As New frmExportaContabilidade
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

#End Region

#End Region

#Region "Manutenção"

    Private Sub mnuManutencao_GerarUpdate_Click(sender As Object, e As EventArgs) Handles mnuManutencao_GerarUpdate.Click
        Try
            'AutoUpdate.modUpdate.MontaUpdateDat("update.dat;version.dat", "")
            moduleGlobal.MontaUpdateDat("update.dat;version.dat", "")
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuManutencao_VerificaAtualizacao_Click(sender As Object, e As EventArgs) Handles mnuManutencao_VerificaAtualizacao.Click
        Try


            '[Inicializa as variáveis necessárias para o processo de verificação e atualização]
            AutoUpdate.modPrincipal.strAssemblyName = System.Reflection.Assembly.GetEntryAssembly.GetName.Name.ToLower
            AutoUpdate.modPrincipal.strNomeSistema = vstrNomeSistema
            AutoUpdate.modPrincipal.intIdEmpresa = gintEmpresa_Codigo
            AutoUpdate.modPrincipal.intIdUsuario = vUsuario.ID

            '[Reseta o controle de verificação e procura atualizações]
            AutoUpdate.modUpdate.strAtualizacaoDisponivel = ""
            Me.TimerCheckUpdate.Enabled = True
            AutoUpdate.modUpdate.bolVerificacaoInicial = False
            AutoUpdate.modPrincipal.strRemotePath = GetConfig("autoUpdate.caminhoRepositorio", "")
            AutoUpdate.modUpdate.IniciaVerificacao("N", TipoUpdate.Internet)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub


#End Region

#Region "Sair"

    Private Sub mnuSair_Click(sender As Object, e As EventArgs) Handles mnuSair.Click
        Try
            Close()
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoA_ImportarLeituras_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoA_ImportarLeituras.Click
        Try

            Dim f As New FrmImportaLeiturasGrupoA
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_VoltarFaturaArrecadacao_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_VoltarFaturaArrecadacao.Click
        Try

            Dim f As New frmDesFaturamento
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuFerramentas_Faturamento_VoltarFaturaArrecadacao_A_IP_Click(sender As Object, e As EventArgs) Handles mnuFerramentas_Faturamento_VoltarFaturaArrecadacao_A_IP.Click
        Dim lstrUsuario_Id As String
        Dim lstrAux As String
        Dim lintPos As Integer
        Dim lstrDiretor As String

        lintPos = 1
        lstrUsuario_Id = GetConfig("id.diretor") 'função que retorna os Ids de usuario com nivel de diretor

        While lintPos <= CLng(Strings.Len(lstrUsuario_Id))
            If Strings.Mid(lstrUsuario_Id, lintPos, 1) <> ";" Then
                lstrAux = lstrAux + Mid(lstrUsuario_Id, lintPos, 1)
            ElseIf Mid(lstrUsuario_Id, lintPos, 1) = ";" Then
                If vUsuario.ID = lstrAux Then
                    lstrDiretor = "S"
                End If
                lstrAux = ""
            End If
            lintPos = lintPos + 1
        End While

        If lstrDiretor = "S" Then
            ' Call CenterForm(frmDesFaturamento_A_IP)
            Call frmDesFaturamento_A_IP.Show()
        Else
            Call MsgBox("Permissão negada, você não possui permissão de acesso.", vbCritical, gstrTituloMensagem)
        End If
    End Sub

    Private Sub mnuLeiturasFaturamento_GrupoB_RefaturamentoCanceladas_Click(sender As Object, e As EventArgs) Handles mnuLeiturasFaturamento_GrupoB_RefaturamentoCanceladas.Click
        If Not GetConfig("iniciou.faturamento") Then
            MessageBox.Show("O faturamento ainda não foi iniciado!")
            Exit Sub
        End If

        Dim ifrmCalculoRefaturamento As New frmVerifContaGBNovo
        'Set ifrmCalculoRefaturamento = New FrmVerifContaGB
        Call ifrmCalculoRefaturamento.SetaParamentros("R")
        'ifrmCalculoRefaturamento.Text = "Refaturamento"
        Call ifrmCalculoRefaturamento.ShowDialog()
        '      Call InsereAuditoria(ifrmCalculoRefaturamento.Caption)
    End Sub

    Private Sub mnuRelatorio_Fechamento_TotalFaturamentoMesVw_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Fechamento_TotalFaturamentoMesVw.Click
        Try

            Dim f As New frmRelEFechamentoVw
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_EnvioEmail_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_EnvioEmail.Click
        Try

            Dim f As New frmEmailEnvio
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub TimerCheckUpdate_Tick(sender As Object, e As EventArgs) Handles TimerCheckUpdate.Tick
        Select Case AutoUpdate.modUpdate.strAtualizacaoDisponivel
            Case "S"
                Me.TimerCheckUpdate.Enabled = False

                '[Se o usuário logado for o admin, pergunta se quer atualizar o sistema; senão, atualiza sem dó]
                If Strings.LCase(vUsuario.LOGIN) = "admin" Or Strings.LCase(vUsuario.LOGIN) = "nss" Then
                    If MsgBox("Existem atualizações disponíveis!" & vbCrLf & vbCrLf & "Deseja atualizar agora?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Atualização Automática") = MsgBoxResult.Yes Then
                        Dim f As New AutoUpdate.frmAtualizacaoAutomatica
                        f.Show(Me)
                        f.ExecutarAtualizacao()
                    End If
                Else
                    MsgBox("Existem atualizações disponíveis!" & vbCrLf & vbCrLf & "Clique no botão OK para iniciar o processo de atualização. Assim que o processo for concluído, o sistema reiniciará automaticamente.", MsgBoxStyle.Information, "Atualização Automática")

                    Dim f As New AutoUpdate.frmAtualizacaoAutomatica
                    f.Show(Me)
                    f.ExecutarAtualizacao()
                End If

                Try
                    AutoUpdate.modUpdate.threadAutoUpdate.Abort()
                Catch ex As Exception

                End Try
            Case "N"
                Me.TimerCheckUpdate.Enabled = False

                If Not AutoUpdate.modUpdate.bolVerificacaoInicial Then
                    MsgBox("O sistema já está atualizado!", MsgBoxStyle.Information)
                End If
            Case "E"
                Me.TimerCheckUpdate.Enabled = False

                If Not AutoUpdate.modUpdate.bolVerificacaoInicial Then
                    If AutoUpdate.modUpdate.strMensagemErro = "" Then
                        MsgBox("Ocorreu um erro ao verificar se existem atualizações disponíveis!", MsgBoxStyle.Exclamation, "Atualização Automática")
                    Else
                        MsgBox("Ocorreu um erro ao verificar se existem atualizações disponíveis!" & vbCrLf & vbCrLf & AutoUpdate.modUpdate.strMensagemErro, MsgBoxStyle.Exclamation, "Atualização Automática")
                    End If
                End If
            Case Else
                '[Aguardando a verificação]
        End Select
    End Sub

    Private Sub mnuRelatorio_UC_Sem_Fatura_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_UC_Sem_Fatura.Click
        Try
            Dim f As New frmRelUCSemFatura
            f.Show(Me)
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_AcimaAbaixoDaMedia_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_AcimaAbaixoDaMedia.Click
        Try

            Dim f As New frmRelConsumoMedia
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_MicroGeracao_Movimentacao_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_MicroGeracao_Movimentacao.Click
        Try

            Dim f As New frmRelMovimentacaoMicrogeracao
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Conferencia_Consumo_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Conferencia_Consumo.Click
        Try

            Dim f As New frmRelConferenciaConsumo
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_MicrogeradorXVinculados_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_MicrogeradorXVinculados.Click
        Try

            Dim f As New frmRelMicrogeracaoXVinculados
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_DataDeLeitura_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_DataDeLeitura.Click
        Try

            Dim f As New frmRelLeituraMensal
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub RefaturamentoDeFaturasPagasToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefaturamentoDeFaturasPagasToolStripMenuItem.Click
        'If GetConfig("iniciou.faturamento") Then
        '    MessageBox.Show("O faturamento ainda não foi iniciado!")
        '    Exit Sub
        'End If

        MsgBox("Ferramenta em Desenvolvimento!")

        'Dim ifrmCalculoRefaturamentoPagas As New frmVerifContaGBNovo
        'Call ifrmCalculoRefaturamentoPagas.SetaParamentros("RP")
        'Call ifrmCalculoRefaturamentoPagas.ShowDialog()
    End Sub

    Private Sub DescontosGDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DescontosGDToolStripMenuItem.Click
        MsgBox("Ferramenta em Desenvolvimento!")
    End Sub

    Private Sub mnuCadastros_Auxiliares_Leiturista_Click(sender As Object, e As EventArgs) Handles mnuCadastros_Auxiliares_Leiturista.Click
        Try
            Dim f As New frmCadastroLeituristas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub mnuRelatorio_Outros_LogLeituristaRota_Click(sender As Object, e As EventArgs) Handles mnuRelatorio_Outros_LogLeituristaRota.Click
        Try
            Dim f As New frmRelLeituristaRota
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub IniciarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IniciarToolStripMenuItem.Click
        Try
            If GetConfig("iniciou.faturamento") Then
                MessageBox.Show("O faturamento já foi iniciado, está função só pode ser executada após o encerramento do mês de faturamento atual.")
            Else
                Dim Importador As New clsImportadorLinkCenter()
                Importador.Importar_Dados_Link_Center()
            End If
        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        'Try
        '    If GetConfig("iniciou.faturamento") Then
        '        MessageBox.Show("O faturamento já foi iniciado, está função só pode ser executada após o encerramento do mês de faturamento atual.")
        '    Else
        '        Dim f As New frmImportaLinkCenter
        '        f.btnProcessar_Click(f.btnProcessar, EventArgs.Empty)
        '    End If
        'Catch ex As Exception
        '    MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    Exit Sub
        'End Try
    End Sub

    Private Sub FaturasCanceladasToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FaturasCanceladasToolStripMenuItem.Click
        Try

            Dim f As New frmRelFaturasCanceladas
            f.Show(Me)

        Catch ex As Exception
            MessageBox.Show("Ocorreu um Erro Inesperado. Favor, Contate o Administrador do Sistema ou a Equipe de Suporte de sua localidade! ", "Fatal - Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
    End Sub

    Private Sub FaturaFinalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FaturaFinalToolStripMenuItem.Click

        If vUsuario.LOGIN <> "admin" Then
            MsgBox("Ferramenta em Desenvolvimento!")
            Exit Sub

            If GetConfig("iniciou.faturamento") Then
                MessageBox.Show("O faturamento ainda não foi iniciado!")
                Exit Sub
            End If

            Dim ifrmCalculoRefaturamentoPagas As New frmVerifContaGBNovo
            ifrmCalculoRefaturamentoPagas.SetaParamentros("F")
            ifrmCalculoRefaturamentoPagas.ShowDialog()

        Else
            Dim ifrmCalculoRefaturamentoPagas As New frmVerifContaGBNovo
            ifrmCalculoRefaturamentoPagas.SetaParamentros("F")
            ifrmCalculoRefaturamentoPagas.ShowDialog()
        End If

    End Sub

    Private Sub frmPrincipal_EnabledChanged(sender As Object, e As EventArgs) Handles Me.EnabledChanged

    End Sub


#End Region

#End Region

#End Region


End Class
