procedure TForm1.btnGerarEFDClick(Sender: TObject);
var
tmp : shortstring;
begin
try
tmp := caption;
caption := 'Aguarde...';
refresh;
Screen.Cursor := crHourGlass;
btnGerarEFD.Enabled := false;
btnSair.Enabled := false;
GeraSpedFiscal(strtoint(FormatDateTime('ddmmyyyy',dtInicio.date)),
strtoint(FormatDateTime('ddmmyyyy',dtTermino.date)),
cbbFinalidade.ItemIndex);
{ GeraSpedFiscal(FormatDateTime('dd/mm/yyyy',dtInicio.date),
FormatDateTime('dd/mm/yyyy',dtTermino.date),
inttostr(cbbFinalidade.ItemIndex));}
//parametro 1: Data Inicial
//Parametro 2: Data Final
//Parametro 3: Finalidade do arquivo: 0 - Remessa do arquivo original; | 1 - Remessa do arquivo substituto.
finally
btnGerarEFD.Enabled := true;
btnSair.Enabled := true;
caption := tmp;
Screen.Cursor := crDefault;
end;
end;