# Para não sobrecarregar o Sisap, sugerimos rodar o robô antes das 09:00 e depois das 16:00 # Primeiro, criar as variáveis de Entrada usuario e senha, citadas na linha 5, com os dados de acesso ao Sisap (masp e senha do Sisap) DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> data_e_hora_inicio System.RunApplication.RunApplication ApplicationPath: $'''C:\\Program Files (x86)\\pw3270\\pw3270.exe''' WindowStyle: System.ProcessWindowStyle.Maximized ProcessId=> terminal MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''sisap{Tab}%usuario%{Tab}%Senha%{Return}''' DelayBetweenKeystrokes: 100 SendTextAsHardwareKeys: True MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({A}){Control}({C})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Clipboard.GetText Text=> TELA_SISAP IF Contains(TELA_SISAP, $'''Senha incorreta. Digite novamente''', True) THEN EXIT Code: 0 ErrorMessage: $'''Senha incorreta na Variavel de Entrada \"Senha\". Verificar''' END MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''siap{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True /# Deverá ser inserido mais quantidades de TAB no envio de teclas na linha 13 quando o usuário possuir mais de uma opção para seleção na lista de restrição no Sisap: VISHC000 PRODEMGE NISHC000 SISAP-MG - ADMINISTRACAO DE PESSOAL DO ESTADO 17/12/2024 M753077 13:15:39 Lista de RESTRICOES para selecao *** Fim da Lista de RESTRICAO _ 1981-00000099 SUP.CENTRAL DE GESTAO DE RECURSOS HUMANOS X 1501-00000099 SECRETARIA DE PLANEJAMENTO E GESTAO Caso o usuario não tenha lista de restrições. desabilitar a linha 13 clicando com o botão direito do mouse em cima da respectiva linha e selecionar "Desablitar Ação"#/ MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Tab}X{Return}{F3}''' DelayBetweenKeystrokes: 100 SendTextAsHardwareKeys: True MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''EVOLUCAO NA.CARREIRA{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True # Inserir a planilha com o leiaute na linha 17 e 81 Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $'''C:\\Users\\m753077\\Desktop\\Power Automate 12_11_2024\\Promoção - OK\\Anular_Revogar Promoção\\Layout Anular_Revogar PROMOÇÃO - todas as carreiras - Copia.xlsx''' Visible: True ReadOnly: False Instance=> Anular_Promoção Excel.GetFirstFreeRowOnColumn Instance: Anular_Promoção Column: $'''A''' FirstFreeRowOnColumn=> Linhalivre Excel.GetFirstFreeRowOnColumn Instance: Anular_Promoção Column: $'''F''' FirstFreeRowOnColumn=> Linha LOOP WHILE (linha) < (Linhalivre) Excel.ReadFromExcel.ReadCell Instance: Anular_Promoção StartColumn: $'''B''' StartRow: Linha ReadAsText: True CellValue=> Masp1 Excel.ReadFromExcel.ReadCell Instance: Anular_Promoção StartColumn: $'''C''' StartRow: Linha ReadAsText: True CellValue=> digito_verificador Excel.ReadFromExcel.ReadCell Instance: Anular_Promoção StartColumn: $'''D''' StartRow: Linha ReadAsText: True CellValue=> ADMISSAO Excel.ReadFromExcel.ReadCell Instance: Anular_Promoção StartColumn: $'''E''' StartRow: Linha ReadAsText: True CellValue=> DATA_PUBLICACAO MouseAndKeyboard.SendKeys.FocusAndSendKeysByTitleClass Title: $'''''' Class: $'''gdkWindowToplevel''' TextToSend: $'''%Masp1%%digito_verificador%%ADMISSAO%{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True WAIT 2 MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({A}){Control}({C})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Clipboard.GetText Text=> TELA_SISAP IF Contains(TELA_SISAP, $'''0222 - Servidor sem dados de Promocao''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Servidor sem dados de Promocao''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0154 - Operador nao autorizado para ATUALIZAR ESTE SERVIDOR''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Operador nao autorizado para ATUALIZAR ESTE SERVIDOR''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0034 - MASP invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Masp invalido''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0113 - Numero Admissao inexistente/invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Numero Admissao inexistente/invalido''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0041 - Digito Verificador invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Digito Verificador invalido''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''*** Comando invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Comando invalido. Verificar inclusão manual''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' END MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''%DATA_PUBLICACAO%{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({A}){Control}({C})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Clipboard.GetText Text=> TELA_SISAP WAIT 2 IF Contains(TELA_SISAP, $'''0008 - Tecle para confirmar''', True) THEN MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F5}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True END MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({A}){Control}({C})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Clipboard.GetText Text=> TELA_SISAP WAIT 2 IF Contains(TELA_SISAP, $'''0329 - Anulacao efetuada com sucesso.''', False) THEN Excel.WriteToExcel.WriteCell Instance: Anular_Promoção Value: $'''Anulacao efetuada com sucesso.''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}10{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' END LABEL 'Proximo Masp' Variables.IncreaseVariable Value: linha IncrementValue: 1 END MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F3}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Excel.SaveExcel.Save Instance: Anular_Promoção Excel.CloseExcel.Close Instance: Anular_Promoção MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F12}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> data_e_hora_final DateTime.Subtract FromDate: data_e_hora_final SubstractDate: data_e_hora_inicio TimeUnit: DateTime.DifferenceTimeUnit.Minutes TimeDifference=> tempogasto WAIT 2 Display.ShowMessageDialog.ShowMessage Message: $'''REGISTROS INCLUÍDOS EM %tempogasto% MINUTOS. VERIFICAR COLUNA DE STATUS. Desenvolvido por: Erik Morais E-mail: erik.morais@planejamento.mg.gov.br''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({Q})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $'''C:\\Users\\m753077\\Desktop\\Power Automate 12_11_2024\\Promoção - OK\\Anular_Revogar Promoção\\Layout Anular_Revogar PROMOÇÃO - todas as carreiras - Copia.xlsx''' Visible: True ReadOnly: False Instance=> ExcelInstance