procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var wndFrmFolha : OleVariant;
  var groupBox : OleVariant;
  var wndDlgFunc : OleVariant;
  var DBGrid : OleVariant;
  var DBEdit : OleVariant;
  var DBGridInplaceEdit : OleVariant;
  var wndDlgFolhaItens : OleVariant;
  var DBGrid2 : OleVariant;
  var wndDlgBancos : OleVariant;
  var wndDlgLojas : OleVariant;
  var wndDlgFuncionarios_Setor : OleVariant;
begin
  Aliases.SAT.wndFrmMain.MainMenu.Click('Cadastros|[6]');
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  wndFrmFolha := SATFolhaDePgto.wndFrmFolha;
  groupBox := wndFrmFolha.GroupBox;
  groupBox.Item.JvBtnWinControl.Click(12, 15);
  wndDlgFunc := SATFolhaDePgto.wndDlgFunc;
  wndDlgFunc.Panel2.btnF2Procurar.ClickButton;
  DBGrid := wndDlgFunc.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(187, 46);
  wndDlgFunc.Panel.btnOK.ClickButton;
  DBEdit := groupBox.DBEdit9;
  DBEdit.Drag(52, 10, -123, -2);
  DBEdit.SetText('17/06/21');
  DBGrid := groupBox.DBGrid;
  DBGrid.Click(12, 23);
  DBGrid.Click(34, 28);
  DBGrid.Click(56, 26);
  DBGridInplaceEdit := DBGrid.DBGridInplaceEdit;
  DBGridInplaceEdit.Click(33, 14);
  wndDlgFolhaItens := SATFolhaDePgto.wndDlgFolhaItens;
  DBGrid2 := wndDlgFolhaItens.Panel.DBGrid;
  DBGrid2.VScroll.Pos := 8;
  DBGrid2.ClickM(75, 195);
  DBGrid2.VScroll.Pos := 28;
  DBGrid2.Click(76, 117);
  wndDlgFolhaItens.Panel2.btnOK.ClickButton;
  DBGrid.Click(316, 33);
  DBGrid.Keys('1');
  DBGridInplaceEdit.Keys('44');
  DBGrid.Click(255, 69);
  wndFrmFolha.GroupBox2.JvComboEdit.JvBtnWinControl.Click(13, 11);
  wndDlgBancos := SATFolhaDePgto.wndDlgBancos;
  DBGrid := wndDlgBancos.Panel.DBGrid;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(123, 123);
  wndDlgBancos.Panel2.btnOK.ClickButton;
  groupBox := wndFrmFolha.GroupBox3;
  groupBox.JvComboEdit.JvBtnWinControl.Click(10, 12);
  wndDlgLojas := SATFolhaDePgto.wndDlgLojas;
  DBGrid := wndDlgLojas.Panel.DBGrid;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(102, 142);
  wndDlgLojas.Panel2.btnOK.ClickButton;
  groupBox.JvComboEdit2.JvBtnWinControl.Click(9, 6);
  wndDlgFuncionarios_Setor := SATFolhaDePgto.wndDlgFuncionarios_Setor;
  DBGrid := wndDlgFuncionarios_Setor.Panel.DBGrid;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(84, 80);
  wndDlgFuncionarios_Setor.Panel2.btnOK.ClickButton;
  wndFrmFolha.GroupBox4.Edit.Drag(24, 14, -42, -9);
  wndFrmFolha.Click(774, 387);
  wndFrmFolha.DBNavigator.Click(41, 11);
  wndFrmFolha.btnGerarFolha.ClickButton;
end;