procedure Test1;
  var wndFrmMain : OleVariant;
  var wndFrmParametrosDoSistema : OleVariant;
  var pageControl : OleVariant;
  var pageControl2 : OleVariant;
  var check : OleVariant;
  var btnF3Salvar : OleVariant;
  var btnFornecedores : OleVariant;
  var SATFornecedores : OleVariant;
  var SATNav : OleVariant;
  var wndDlgFornecedores : OleVariant;
  var DBGrid : OleVariant;
  var btnCancelar : OleVariant;
begin
  wndFrmMain := Aliases.SAT.wndFrmMain;
  wndFrmMain.MainMenu.Click('Cadastros|[0]');
  wndFrmParametrosDoSistema := Aliases.SATParametrosDoSistema.wndFrmParametrosDoSistema;
  pageControl := wndFrmParametrosDoSistema.Panel.PageControl;
  pageControl.ClickTab('Cadastros');
  pageControl2 := pageControl.Cadastros.PageControl;
  pageControl2.ClickTab('Fornecedores');
  check := pageControl2.Fornecedores.GroupBox.check;
  check.ClickButton(cbChecked);
  btnF3Salvar := wndFrmParametrosDoSistema.Panel2.btnF3Salvar;
  btnF3Salvar.ClickButton;
  btnFornecedores := wndFrmMain.Panel.btnFornecedores;
  btnFornecedores.ClickButton;
  SATFornecedores := Aliases.SATFornecedores;
  SATNav := SATFornecedores.wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(457, 22);
  wndDlgFornecedores := SATFornecedores.wndDlgFornecedores;
  DBGrid := wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(301, 39);
  DBGrid.VScroll.Pos := 2;
  DBGrid.Click(445, 46);
  btnCancelar := wndDlgFornecedores.Panel2.btnCancelar;
  btnCancelar.ClickButton;
  SATNav.Click(615, 30);
  wndFrmMain.MainMenu.Click('Cadastros|[0]');
  pageControl.ClickTab('Cadastros');
  pageControl2.ClickTab('Fornecedores');
  check.ClickButton(cbUnchecked);
  btnF3Salvar.ClickButton;
  btnFornecedores.ClickButton;
  SATNav.Click(460, 19);
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(314, 133);
  DBGrid.VScroll.Pos := 7;
  DBGrid.Click(204, 76);
  DBGrid.VScroll.Pos := 4;
  DBGrid.Click(184, 106);
  btnCancelar.ClickButton;
end;