# A automatização usa a planilha da taxação e a base de dados oriunda do BO para enviar um e-mail aos professores taxados, comunicando as aulas pelas quais receberam, o total recebido e o INSS pago desse valor total.
# Este fluxo central organiza as planilhas recebidas da taxação, bem como prepara a pasta do mês para receber as planilhas individuais.
/# Caminho do lugar em que as pastas serão criadas: G:\\DEPARTAMENTOS\\DPGF\\GRH\\RCA\\Folha Pagamento\\2024\\Pgto. docentes EG - 2024\\Maio 2024. 
Esse caminho está na variável "caminho_pasta", que deve ser alterada a cada mês por conta da mudança de mês e ano.
ATENÇÃO! A variável da pasta deve ser a primeira a ser alterada, porque ela interfere nas duas outras variáveis "caminho_taxacao" e "caminho_planilhabase".#/
Folder.Create FolderPath: caminho_pasta FolderName: $'''Planilhas individuais''' Folder=> NewFolder
Folder.Create FolderPath: caminho_pasta FolderName: $'''Planilhas individuais não enviadas''' Folder=> NewFolder2
/# Caminho do arquivo da taxação (variável de entrada "caminho_taxacao"):
Caminho da pasta do mês\\[mês]_[ano].xlsx#/
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: caminho_taxacao Visible: True ReadOnly: False Instance=> taxacao
CALL 'adicionar coluna \"E-mail enviado?\"'
CALL 'filtrar lançamentos errados'
CALL 'montagem da aba \"Inss geral\"'
CALL 'montagem da lista de nomes'
CALL 'envio dos e-mails'
WAIT 2
Display.ShowMessageDialog.ShowMessageWithTimeout Title: $'''AVISO''' Message: $'''E-mails enviados aos professores. A pasta \"Planilhas individuais\", que continha os arquivos separados por professor, não será apagada, para o caso de que algum e-mail volte e seja necessário enviar a planilha desse professor manualmente.

Após essa checagem de e-mails que retornaram,  fica a critério do setor apagar ou não a pasta \"Planilhas individuais\". As informações correspondentes a ela poderão ser recuperadas na seção de \"Enviados\" do e-mail Ponto Digital ou na própria plataforma SISAP.''' Icon: Display.Icon.Warning Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True Timeout: 60 ButtonPressed=> ButtonPressed
Excel.CloseExcel.CloseAndSave Instance: base_infos
Excel.CloseExcel.CloseAndSave Instance: taxacao
# Caminho da pasta de enviadas: [caminho da pasta]\Planilhas individuais
# Caminho da pasta de não enviadas: [caminho da pasta]\Planilhas individuais não enviadas
Folder.GetFiles Folder: $'''%caminho_pasta%\\Planilhas individuais não enviadas''' FileFilter: $'''*.xls''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
IF IsEmpty(Files) THEN
    Folder.Delete Folder: $'''%caminho_pasta%\\Planilhas individuais não enviadas'''
ELSE
    Display.ShowMessageDialog.ShowMessage Title: $'''AVISO''' Message: $'''Como a pasta \"Planilhas individuais não enviadas\" não está vazia, ela não será excluída. 
As planilhas inseridas nela devem ser enviadas manualmente. ''' Icon: Display.Icon.Warning Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed5
END