FUNCTION '1_preparar_planilha' GLOBAL
    Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: caminho_documento_taxacao Visible: True ReadOnly: False Instance=> excel_pagamento
    WAIT (UIAutomation.WaitForWindow.ToOpenByInstanceOrHandle WindowInstance: excel_pagamento FocusWindow: True)
    Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: excel_pagamento Name: $'''taxacao'''
    Excel.GetFirstFreeColumnRow Instance: excel_pagamento FirstFreeColumn=> coluna_livre_taxacao FirstFreeRow=> linha_livre_taxacao
    Excel.ReadFromExcel.ReadCells Instance: excel_pagamento StartColumn: $'''a''' StartRow: 3 EndColumn: coluna_livre_taxacao - 1 EndRow: linha_livre_taxacao - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> taxacao
    CALL procv
    Excel.CopyCellsFromExcel.CopyCells Instance: excel_pagamento StartColumn: $'''P''' StartRow: 1 EndColumn: $'''P''' EndRow: 50000
    Excel.AddWorksheet Instance: excel_pagamento Name: $'''lanca_pagamento''' WorksheetPosition: Excel.WorksheetPosition.First
    Excel.ActivateCellInExcel.ActivateCell Instance: excel_pagamento Column: $'''a''' Row: 1
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{Alt}cvv''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: False
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{Alt}SM{Tab}{Tab}{Return}{Return}''' DelayBetweenKeystrokes: 300 SendTextAsHardwareKeys: False
    DISABLE MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{Alt}SRE{Tab}{Tab}{Return}{Return}''' DelayBetweenKeystrokes: 300 SendTextAsHardwareKeys: False
    Excel.WriteToExcel.WriteCell Instance: excel_pagamento Value: $'''Total a Receber''' Column: $'''B''' Row: 2
    Excel.ActivateCellInExcel.ActivateCell Instance: excel_pagamento Column: $'''b''' Row: 3
    WAIT 2
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{F2}=SOMASE(taxacao!p3:p15000;lanca_pagamento!A3;taxacao!N3:N15000){Return}{Up}''' DelayBetweenKeystrokes: 60 SendTextAsHardwareKeys: False
    Excel.GetFirstFreeRowOnColumn Instance: excel_pagamento Column: $'''A''' FirstFreeRowOnColumn=> tamanho
    Excel.SelectCellsFromExcel.SelectCells Instance: excel_pagamento StartColumn: $'''B''' StartRow: 3 EndColumn: $'''B''' EndRow: tamanho - 1
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{Control}({D})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: False
    Excel.WriteToExcel.WriteCell Instance: excel_pagamento Value: $'''INSS''' Column: $'''C''' Row: 2
    Excel.ActivateCellInExcel.ActivateCell Instance: excel_pagamento Column: $'''c''' Row: 3
    Clipboard.SetText Text: formula_inss
    Excel.SelectCellsFromExcel.SelectCells Instance: excel_pagamento StartColumn: $'''C''' StartRow: 3 EndColumn: $'''C''' EndRow: tamanho - 1
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{F2}{Control}({V}){Return}''' DelayBetweenKeystrokes: 100 SendTextAsHardwareKeys: False
    MouseAndKeyboard.SendKeys.FocusAndSendKeysByInstanceOrHandle WindowInstance: excel_pagamento TextToSend: $'''{Control}({D})''' DelayBetweenKeystrokes: 150 SendTextAsHardwareKeys: False
    Excel.WriteToExcel.WriteCell Instance: excel_pagamento Value: $'''Automate''' Column: $'''D''' Row: 2
    Excel.GetFirstFreeColumnRow Instance: excel_pagamento FirstFreeColumn=> coluna_livre FirstFreeRow=> linha_livre
    Excel.ReadFromExcel.ReadCells Instance: excel_pagamento StartColumn: $'''a''' StartRow: 2 EndColumn: coluna_livre - 1 EndRow: linha_livre - 1 ReadAsText: False FirstLineIsHeader: True RangeValue=> consolidado
    WAIT 1
    DISABLE Excel.SaveExcel.Save Instance: excel_pagamento
END FUNCTION