-
Notifications
You must be signed in to change notification settings - Fork 0
/
PAD_SteelPlant3
107 lines (106 loc) · 9.04 KB
/
PAD_SteelPlant3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
**REGION Baixar na Pasta
Outlook.RetrieveEmailMessages.RetrieveEmailsAndSaveAttachments Instance: OutlookInstance Account: $'''yourmailuser''' MailFolder: $'''yourmailpath''' EmailsToRetrieve: Outlook.RetrieveMessagesMode.All MarkAsRead: True ReadBodyAsHtml: False SaveAttachmentsInto: $'''C:\\Users\\youruser\\yourpath''' Messages=> RetrievedEmails
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{LWin}({R})''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
UIAutomation.FocusWindow.Focus Window: appmask['Window \'Executar\'']
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: 'x{Back}cmd'
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{Return}'
WAIT 1
Clipboard.SetText Text: $'''cd C:\\Users\\youruser\\yourpath'''
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{LControlKey}({V})'
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{Return}'
WAIT 1
Clipboard.SetText Text: $'''dir /ad /a > yourfile.txt
'''
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{LControlKey}({V})'
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{Return}'
WAIT 1
UIAutomation.CloseWindow.Close Window: appmask['Window \'C:\\Windows\\system32\\cmd.exe\'']['Document \'Text Area\'']
WAIT 1
SET NomeArquivo TO $'''info_arquivos.txt'''
File.ReadTextFromFile.ReadText File: $"C:\\Users\\youruser\\yourpath\\%NomeArquivo%" Encoding: File.TextFileEncoding.UTF8 Content=> TextoArquivo
Clipboard.SetText Text: TextoArquivo
**ENDREGION
**REGION Importação Excel
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $"C:\\Users\\youruser\\yourpath\\yourfile.xlsm" Visible: True ReadOnly: False Instance=> ExcelInstance
UIAutomation.FocusWindow.FocusByTitleClass Title: $'''lista_itens - Excel''' Class: $'''XLMAIN'''
UIAutomation.SetWindowState.SetStateByTitleClass Title: $'''lista_itens - Excel''' Class: $'''XLMAIN''' State: UIAutomation.WindowState.Maximized
WAIT 1
Excel.RunMacro Instance: ExcelInstance Macro: $'''Tratar_Dados'''
WAIT 2
**ENDREGION
**REGION Controle Por Datas
Display.SelectDateDialog.SelectDateRange Title: $'''Data Desejada''' Message: $'''Insira a Data Dos Arquivos XML:''' DateDialogFormat: Display.DateDialogFormat.DateOnly DefaultValue: CurrentDateTime IsTopMost: False SelectedDate=> Data1 SecondSelectedDate=> Data2 ButtonPressed=> ButtonPressed
IF ButtonPressed = $'''Cancel''' THEN
EXIT Code: 0
END
Text.ConvertDateTimeToText.FromDateTime DateTime: Data1 StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> Conversao1
Text.ConvertDateTimeToText.FromDateTime DateTime: Data2 StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> Conversao2
Excel.FindAndReplace.FindSingle Instance: ExcelInstance TextToFind: Conversao1 MatchCase: False MatchEntireCellContents: True SearchBy: Excel.SearchOrder.Rows FoundColumnIndex=> ColunaData1 FoundRowIndex=> LinhaData1
Excel.FindAndReplace.FindSingle Instance: ExcelInstance TextToFind: Conversao2 MatchCase: False MatchEntireCellContents: True SearchBy: Excel.SearchOrder.Rows FoundColumnIndex=> ColunaData2 FoundRowIndex=> LinhaData2
**ENDREGION
**REGION SEERRO - Controle Por Datas
LOOP WHILE (LinhaData1) = (0)
Display.ShowMessageDialog.ShowMessage Title: $'''Não Foram Encontradas Correspondências''' Message: $'''Subescrito Fora do Intervalo - Insira DATA INICIAL novamente.''' Icon: Display.Icon.Warning Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False
Display.SelectDateDialog.SelectDateRange Title: $'''Data Desejada''' Message: $'''Insira a Data Dos Arquivos XML:''' DateDialogFormat: Display.DateDialogFormat.DateOnly DefaultValue: CurrentDateTime IsTopMost: False SelectedDate=> Data1 SecondSelectedDate=> Data2 ButtonPressed=> ButtonPressed
IF ButtonPressed = $'''Cancel''' THEN
EXIT Code: 0
END
Text.ConvertDateTimeToText.FromDateTime DateTime: Data1 StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> Conversao1
Excel.FindAndReplace.FindSingle Instance: ExcelInstance TextToFind: Conversao1 MatchCase: False MatchEntireCellContents: True SearchBy: Excel.SearchOrder.Rows FoundColumnIndex=> ColunaData1 FoundRowIndex=> LinhaData1
END
LOOP WHILE (LinhaData2) = (0)
Display.ShowMessageDialog.ShowMessage Title: $'''Não Foram Encontradas Correspondências''' Message: $'''Subescrito Fora do Intervalo - Insira DATA FINAL novamente.''' Icon: Display.Icon.Warning Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False
Display.SelectDateDialog.SelectDateRange Title: $'''Data Desejada''' Message: $'''Insira a Data Dos Arquivos XML:''' DateDialogFormat: Display.DateDialogFormat.DateOnly DefaultValue: CurrentDateTime IsTopMost: False SelectedDate=> Data1 SecondSelectedDate=> Data2 ButtonPressed=> ButtonPressed
IF ButtonPressed = $'''Cancel''' THEN
EXIT Code: 0
END
Text.ConvertDateTimeToText.FromDateTime DateTime: Data2 StandardFormat: Text.WellKnownDateTimeFormat.ShortDate Result=> Conversao2
Excel.FindAndReplace.FindSingle Instance: ExcelInstance TextToFind: Conversao2 MatchCase: False MatchEntireCellContents: True SearchBy: Excel.SearchOrder.Rows FoundColumnIndex=> ColunaData2 FoundRowIndex=> LinhaData2
END
**ENDREGION
LOOP LinhaLoop FROM LinhaData1 TO LinhaData2 STEP 1
Excel.ReadFromExcel.ReadCell Instance: ExcelInstance StartColumn: 2 StartRow: LinhaLoop ReadAsText: True CellValue=> DataValor
IF IsEmpty(DataValor) THEN
NEXT LOOP
END
IF EndsWith(DataValor, $'''.XML''', True) THEN
File.Move Files: $"C:\\Users\\youruser\\yourpath\\%DataValor%" Destination: $"C:\\Users\\youruser\\yourpath\\Temp" IfFileExists: File.IfExists.Overwrite MovedFiles=> MovedValue
ON ERROR MoveFileError
REPEAT ACTION
END
END
END
Folder.GetFiles Folder: $"C:\\Users\\youruser\\yourpath\\Temp" FileFilter: $'''*''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> ArquivosNaPasta
IF IsEmpty($'''ArquivosNaPasta''') THEN
EXIT Code: 0 ErrorMessage: $'''\"Não há Arquivos no Periódo Informado\"'''
END
**REGION Iniciar SAP
SAP.SapLogin.SapLogInOptionSingle Description: $'''SAP System''' Client: '''Client''' Username: $'''username''' Password: '''password''' Language: $'''PT''' SapInstance=> SapInstance OtherSapLoginTerminated=> OtherSapLoginTerminated
WAIT (UIAutomation.WaitForImage.ToAppearOnScreen Images: [imgrepo['PGS Sistema']] FindAllImages: False Tolerance: 10 SearchAlgorithm: UIAutomation.ImageFinderAlgorithm.Legacy) FOR 5
ON ERROR
END
@@source: 'Recorder'
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: '{Return}'
WAIT 2
SAP.StartTransaction SapInstance: SapInstance TransactionCode: $'''SAP transaction'''
UIAutomation.FocusWindow.Focus Window: appmask['Window']
Clipboard.SetText Text: $"C:\\Users\\youruser\\yourpath\\Temp"
MouseAndKeyboard.MoveMouseToImage.ClickImage Images: [imgrepo['Origem']] SearchForImageOn: MouseAndKeyboard.SearchTarget.EntireScreen MousePositionOnImage: MouseAndKeyboard.PositionOnImage.MiddleCenter OffsetX: 0 OffsetY: 0 Tolerance: 10 MovementStyle: MouseAndKeyboard.MovementStyle.Instant Occurence: 1 Timeout: 5 ClickType: MouseAndKeyboard.ClickType.LeftClick SecondsBeforeClick: 0 SearchAlgorithm: MouseAndKeyboard.ImageFinderAlgorithm.Legacy
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Tab}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({V})''' DelayBetweenKeystrokes: 2 SendTextAsHardwareKeys: False
WAIT 2
Clipboard.SetText Text: $"C:\\Users\\youruser\\yourpath"
MouseAndKeyboard.MoveMouseToImage.ClickImage Images: [imgrepo['Backup']] SearchForImageOn: MouseAndKeyboard.SearchTarget.EntireScreen MousePositionOnImage: MouseAndKeyboard.PositionOnImage.MiddleCenter OffsetX: 0 OffsetY: 0 Tolerance: 10 MovementStyle: MouseAndKeyboard.MovementStyle.Instant Occurence: 1 Timeout: 5 ClickType: MouseAndKeyboard.ClickType.LeftClick SecondsBeforeClick: 0 SearchAlgorithm: MouseAndKeyboard.ImageFinderAlgorithm.Legacy
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Tab}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({V})''' DelayBetweenKeystrokes: 2 SendTextAsHardwareKeys: False
WAIT 2
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{F8}''' DelayBetweenKeystrokes: 2 SendTextAsHardwareKeys: False
**ENDREGION
Folder.Empty Folder: $'''C:\\Users\\youruser\\yourpath'''
Excel.CloseExcel.Close Instance: ExcelInstance