procedure Test1;
  var frmFornecedores : OleVariant;
  var TSATNav : OleVariant;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var TDBEdit : OleVariant;
  var jvDBComboBox : OleVariant;
begin
  frmFornecedores := Aliases.SATFornecedores.FrmFornecedores;
  TSATNav := frmFornecedores.pnlBottom.DBNav;
  TSATNav.CmdInsert.Click(24, 29);
  pageControl := frmFornecedores.pnlClient.PC;
  pageControl.ClickTab('Dados do Fornecedor');
  panel := pageControl.pagePrincipal.pnlPagina;
  TDBEdit := panel.EditNome;
  TDBEdit.Click(37, 9);
  TDBEdit.SetText('Teste 05-11');
  TDBEdit.Keys('[Enter]');
  TDBEdit := panel.EditRazao;
  TDBEdit.SetText('Teste 05-11');
  TDBEdit.Keys('[Enter]');
  TDBEdit := panel.DBEdit6;
  TDBEdit.SetText('teste@gmail.com');
  TDBEdit.Keys('[Enter]');
  TDBEdit := panel.DBEdit7;
  TDBEdit.SetText('www.google.com');
  TDBEdit.Keys('[Enter]');
  TDBEdit := panel.DBEdit3;
  TDBEdit.SetText('09.376.659/0001-11');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.dbeditNIRE;
  TDBEdit.SetText('161651');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.DBEditInscricaoEstadual;
  TDBEdit.SetText('07.499.445/001-34');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.dbeditInscricaoMunicipal;
  TDBEdit.SetText('165156165');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.DBEdit2;
  TDBEdit.SetText('Higor');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.EditTelefone;
  TDBEdit.SetText('61 99887766');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.EditFax;
  TDBEdit.SetText('61 99887766');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.EditContato;
  TDBEdit.SetText('sat');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.EditFone_Con;
  TDBEdit.SetText('61 99887766');
  TDBEdit.Keys('[Tab]');
  TDBEdit := panel.EditFaxForn;
  TDBEdit.SetText('61 99887766');
  TDBEdit.Keys('[Tab]');
  panel.editCodigoContabil.SetText('1561651');
  jvDBComboBox := panel.cmbIndicadorIEDestinatario;
  jvDBComboBox.Click(111, 11);
  jvDBComboBox.Keys('[Down]');
  TSATNav.Keys('[Enter]');
end;

procedure Test2;
  var pageControl : OleVariant;
  var panel : OleVariant;
  var TDBEdit : OleVariant;
begin
  pageControl := Aliases.SATFornecedores.FrmFornecedores.pnlClient.PC;
  pageControl.ClickTab('Endereço');
  panel := pageControl.pageAdicionais.pnlAdicionais;
  TDBEdit := panel.EditCEP;
  TDBEdit.Click(3, 12);
  TDBEdit.SetText('70740-670');
  //panel.btnBuscaCEP.ClickButton;
  Aliases.SATFornecedores.FrmFornecedores.btnBuscaCEP.Click(13, 8);
  TDBEdit := panel.dbeditComplemento;
  TDBEdit.Click(23, 8);
  TDBEdit.SetText('quadra 02 lote 15');
  TDBEdit := panel.dbeditPais;
  TDBEdit.Click(24, 10);
  TDBEdit.SetText('55');
  TDBEdit := panel.DBEdit1;
  TDBEdit.Click(10, 8);
  TDBEdit.SetText('123');
end;
  

procedure Test3;
  var frmFornecedores : OleVariant;
  var pageControl : OleVariant;
  var TDBMemo : OleVariant;
begin
  frmFornecedores := Aliases.SATFornecedores.FrmFornecedores;
  pageControl := frmFornecedores.pnlClient.PC;
  pageControl.ClickTab('Observações');
  TDBMemo := pageControl.pageObservacoes.Panel1.Panel2.DBMemo1;
  TDBMemo.Click(22, 19);
  TDBMemo.Keys('[Caps]C[Caps]adastro de fornecedores para teste');
  frmFornecedores.pnlBottom.DBNav.CmdPost.Click(19, 21);
  frmFornecedores.Click(299, 22);
end;

procedure Test4;
begin
  Aliases.SATFornecedores.FrmFornecedores.btnBuscaCEP.Click(13, 8);
end;