procedure Test1;
  var SATFolhaDePgto : OleVariant;
  var groupBox : OleVariant;
  var jvComboEdit : OleVariant;
  var tppPrintPreview : OleVariant;
  var bitBtn : OleVariant;
  var btnCancelar : OleVariant;
begin
  SATFolhaDePgto := Aliases.SATFolhaDePgto;
  groupBox := SATFolhaDePgto.FrmFolha.GroupImprimirVales;
  jvComboEdit := groupBox.EditLojaVales;
  jvComboEdit.Click(14, 13);
  jvComboEdit.Keys('1[Enter]');
  groupBox.CmdImprimirRelatorio.ClickButton;
  tppPrintPreview := SATFolhaDePgto.ppPrintPreview;
  tppPrintPreview.Close;
  groupBox.CmdImprimirRelatorioPorEmissao.ClickButton;
  bitBtn := SATFolhaDePgto.DlgDate.Panel1.CmdOK;
  bitBtn.ClickButton;
  tppPrintPreview.Close;
  groupBox.cmdGerarValesTXTPorVencimento.ClickButton;
  bitBtn.ClickButton;
  btnCancelar := SATFolhaDePgto.dlgSalvarComo.btnCancelar;
  btnCancelar.ClickButton;
  groupBox.cmdGerarValesTXTPorEmissao.ClickButton;
  bitBtn.ClickButton;
  btnCancelar.ClickButton;
end;