procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
  var groupBox : OleVariant;
  var DBEdit : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  wndFrmFornecedores.Click(317, 17);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.Click(294, 9);
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(467, 15);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 4;
  DBGrid.DblClick(112, 87);
  pageControl.Click(278, 11);
  SATNav.Click(291, 9);
  pageControl.ClickTab('Contábil');
  groupBox := pageControl.Cont_bil.GroupBox;
  groupBox.JvDBComboBox.Click(156, 15);
  DBEdit := groupBox.DBEdit;
  DBEdit.DblClick(100, 10);
  DBEdit.SetText('43.2');
  SATNav.Click(185, 17);
  groupBox.Click(196, 252);
end;