procedure Test1;
  var frmMain : OleVariant;
  var frmParametrosDoSistema : OleVariant;
  var pageControl : OleVariant;
  var pageControl2 : OleVariant;
  var SATFornecedores : OleVariant;
begin
  frmMain := Aliases.SAT.FrmMain;
  frmMain.MainMenu.Click('Cadastros|[0]');
  frmParametrosDoSistema := Aliases.SATParametrosDoSistema.FrmParametrosDoSistema;
  pageControl := frmParametrosDoSistema.Panel1.PCPrincipal;
  pageControl.ClickTab('Cadastros');
  frmParametrosDoSistema.Label14.Click;
  pageControl2 := pageControl.TabSheet4.PCCadastros;
  pageControl2.ClickTab('Fornecedores');
  pageControl2.Fornecedores.GroupParametrosParaFornecedor.DBCheckBox51.ClickButton(cbChecked);
  Aliases.SATParametrosDoSistema.FrmParametrosDoSistema.pnlBarraBotoes.OKBtn.ClickButton;
  //frmParametrosDoSistema.Panel11.OKBtn.ClickButton;
  frmMain.MainMenu.Click('Cadastros|[9]');
  SATFornecedores := Aliases.SATFornecedores;
  SATFornecedores.FrmFornecedores.pnlBottom.DBNav.CmdFind.Click(17, 21);
  SATFornecedores.DlgFornecedores.Click(401, 11);
end;

procedure Test2;
  var frmMain : OleVariant;
  var frmParametrosDoSistema : OleVariant;
  var pageControl : OleVariant;
  var pageControl2 : OleVariant;
  var SATFornecedores : OleVariant;
begin
  frmMain := Aliases.SAT.FrmMain;
  frmMain.MainMenu.Click('Cadastros|[0]');
  frmParametrosDoSistema := Aliases.SATParametrosDoSistema.FrmParametrosDoSistema;
  pageControl := frmParametrosDoSistema.Panel1.PCPrincipal;
  pageControl.ClickTab('Cadastros');
  pageControl2 := pageControl.TabSheet4.PCCadastros;
  pageControl2.ClickTab('Fornecedores');
  pageControl2.Fornecedores.GroupParametrosParaFornecedor.DBCheckBox51.ClickButton(cbUnchecked);
  Aliases.SATParametrosDoSistema.FrmParametrosDoSistema.pnlBarraBotoes.OKBtn.ClickButton;
  //frmParametrosDoSistema.Panel11.OKBtn.ClickButton;
  frmMain.MainMenu.Click('Cadastros|[9]');
  SATFornecedores := Aliases.SATFornecedores;
  
  SATFornecedores.FrmFornecedores.pnlBottom.DBNav.CmdFind.Click(21, 25);
  SATFornecedores.DlgFornecedores.Click(407, 14);
end;

procedure Test3;
begin
  Aliases.SATParametrosDoSistema.FrmParametrosDoSistema.pnlBarraBotoes.OKBtn.ClickButton;
end;