# 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 WAIT 2 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: 100 SendTextAsHardwareKeys: True /# Deverá ser inserido mais quantidades de TAB no envio de teclas na linha 14 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 14 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: $'''05{Return}''' DelayBetweenKeystrokes: 100 SendTextAsHardwareKeys: True # Inserir a planilha com o leiaute na linha 18 e 77 Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: `` Visible: True ReadOnly: False Instance=> Aular_Revogar_Progressao Excel.GetFirstFreeRowOnColumn Instance: Aular_Revogar_Progressao Column: $'''A''' FirstFreeRowOnColumn=> Linhalivre Excel.GetFirstFreeRowOnColumn Instance: Aular_Revogar_Progressao Column: $'''F''' FirstFreeRowOnColumn=> Linha LOOP WHILE (linha) < (Linhalivre) Excel.ReadFromExcel.ReadCell Instance: Aular_Revogar_Progressao StartColumn: $'''B''' StartRow: linha ReadAsText: True CellValue=> Masp1 Excel.ReadFromExcel.ReadCell Instance: Aular_Revogar_Progressao StartColumn: $'''C''' StartRow: linha ReadAsText: True CellValue=> digito_verificador Excel.ReadFromExcel.ReadCell Instance: Aular_Revogar_Progressao StartColumn: $'''D''' StartRow: linha ReadAsText: True CellValue=> ADMISSAO Excel.ReadFromExcel.ReadCell Instance: Aular_Revogar_Progressao StartColumn: $'''E''' StartRow: linha ReadAsText: True CellValue=> PUB_ANUL_REVOG 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 inativo na Instituicao''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''Servidor inativo na Instituicao. Verificar''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0222 - Servidor sem Progressao''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''Servidor sem Progressao''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0034 - MASP invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''MASP invalido. Verificar''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0041 - Digito Verificador invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''Digito Verificador invalido. Verificar''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''0113 - Numero Admissao inexistente/invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''Numero Admissao inexistente/invalido. Verificar''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' ELSE IF Contains(TELA_SISAP, $'''*** Comando invalido''', True) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao 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: $'''%PUB_ANUL_REVOG%{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F5}''' 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, $'''0124 - Registro excluido com sucesso''', False) THEN Excel.WriteToExcel.WriteCell Instance: Aular_Revogar_Progressao Value: $'''Registro excluido com sucesso''' Column: $'''F''' Row: Linha MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}5{Return}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True GOTO 'Proximo Masp' END LABEL 'Proximo Masp' Variables.IncreaseVariable Value: linha IncrementValue: 1 END MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F2}''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: True Excel.SaveExcel.Save Instance: Aular_Revogar_Progressao Excel.CloseExcel.Close Instance: Aular_Revogar_Progressao 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: `` Visible: True ReadOnly: False Instance=> ExcelInstance