InraPorc

  //EXCHANGE_PASSWORD = 'Al1Messac35!';

  EXCHANGE_SHARED_MAILBOX = 'inraporc-rennes';

  MAIL_INRAPORC = 'inraporc-rennes@inra.fr';

  MAIL_INRA_TRANSFERT_2 = 'franck.leguerhier@inra.fr';

  MAIL_AJINOMOTO = 'Corrent_Etienne@eli.ajinomoto.com';

  MYSQL_HOST = 'inraporc.inra.fr';

  que: AnsiString;      // query

  cur: Integer;         // current record

  SLOrder, SLAjinomoto, SLLicense: TStrings;

implementation

    DateLimite := EndOfTheYear(IncYear(Date));

  DateLimite := Trunc(DateLimite); // Suppression de la partie heure

  MLog.Lines.Add('Final date is ' + DateToStr(DateLimite));

end;

procedure TFMenu.FormClose(Sender: TObject; var Action: TCloseAction);