procedure Test1;
  var SATFornecedores : OleVariant;
  var wndFrmFornecedores : OleVariant;
  var SATNav : OleVariant;
  var DBGrid : OleVariant;
  var pageControl : OleVariant;
  var check : OleVariant;
  var wndFrmMain : OleVariant;
  var SATRelatorioDeEntrega : OleVariant;
  var wndFrmRelatorioDeEntrega : OleVariant;
  var panel : OleVariant;
  var pageControl2 : OleVariant;
  var tabSheet : OleVariant;
  var transportadora : OleVariant;
  var jvDBComboEdit : OleVariant;
  var wndDlgTransportadoras : OleVariant;
  var DBEdit : OleVariant;
begin
  SATFornecedores := Aliases.SATFornecedores;
  wndFrmFornecedores := SATFornecedores.wndFrmFornecedores;
  SATNav := wndFrmFornecedores.Panel.SATNav;
  SATNav.Click(485, 25);
  DBGrid := SATFornecedores.wndDlgFornecedores.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.VScroll.Pos := 4;
  DBGrid.Click(139, 137);
  DBGrid.VScroll.Pos := 7;
  DBGrid.Click(99, 101);
  DBGrid.VScroll.Pos := 5;
  DBGrid.DblClick(99, 102);
  SATNav.Click(294, 4);
  pageControl := wndFrmFornecedores.Panel2.PageControl;
  pageControl.ClickTab('Endereço');
  check := pageControl.Endere_o.Panel.GroupBox.check;
  check.ClickButton(cbChecked);
  SATNav.Click(256, 23);
  SATNav.Click(471, 22);
  DBGrid.VScroll.Pos := 4;
  DBGrid.DblClick(110, 82);
  pageControl.ClickTab('Dados do Fornecedor');
  pageControl.ClickTab('Endereço');
  SATNav.Click(293, 15);
  check.ClickButton(cbChecked);
  SATNav.Click(192, 16);
  wndFrmFornecedores.Close;
  wndFrmMain := Aliases.SAT.wndFrmMain;
  wndFrmMain.Click(95, 40);
  wndFrmMain.Click(216, 37);
  wndFrmMain.MainMenu.Click('Entrega e Montagem|[2]');
  SATRelatorioDeEntrega := Aliases.SATRelatorioDeEntrega;
  wndFrmRelatorioDeEntrega := SATRelatorioDeEntrega.wndFrmRelatorioDeEntrega;
  pageControl := wndFrmRelatorioDeEntrega.PageControl;
  pageControl.ClickTab('1 - Relatório de Entrega');
  panel := pageControl.TabSheet.Panel;
  panel.Panel2.btn.ClickButton;
  pageControl2 := SATRelatorioDeEntrega.wndDlgOrcamento.PageControl;
  pageControl2.ClickTab('Listar Pedidos');
  tabSheet := pageControl2.TabSheet;
  tabSheet.Panel2.btnF2Consultar.ClickButton;
  DBGrid := tabSheet.Panel.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.DblClick(308, 26);
  DBGrid := panel.Panel.DBGrid;
  DBGrid.HScroll.Pos := 0;
  DBGrid.Click(176, 32);
  pageControl.ClickTab('2 - NFe - Nota Fiscal Eletrônica');
  pageControl2 := pageControl.TabSheet2.PageControl;
  pageControl2.ClickTab('Impostos da NF-e');
  transportadora := pageControl2.TabSheet.Panel.Transportadora;
  jvDBComboEdit := transportadora.JvDBComboEdit;
  jvDBComboEdit.Click(38, 13);
  jvDBComboEdit.JvBtnWinControl.Click(13, 11);
  wndDlgTransportadoras := SATRelatorioDeEntrega.wndDlgTransportadoras;
  DBGrid := wndDlgTransportadoras.Panel.DBGrid;
  DBGrid.VScroll.Pos := 1;
  DBGrid.Click(121, 44);
  DBGrid.VScroll.Pos := 2;
  DBGrid.Click(117, 65);
  DBGrid.VScroll.Pos := 3;
  DBGrid.Click(117, 27);
  wndDlgTransportadoras.Panel2.btnOK.ClickButton;
  DBEdit := transportadora.DBEdit;
  DBEdit.Click(81, 15);
  DBEdit.SetText('TESTE');
  DBEdit := transportadora.DBEdit2;
  DBEdit.Click(39, 2);
  DBEdit.SetText('TE');
  DBEdit.Keys('ste');
  transportadora.DBEdit3.Click(32, 2);
  wndFrmRelatorioDeEntrega.Panel.btnEscFechar.ClickButton;
end;