function tdm.donnelistelivraisonfutur(i,codecam:integer):TLivraison;
var
     j    : integer;
     liv  : Tlivraison;
begin
     try
          cmd.CommandType := cmdtext;
          //cmd.CommandText := 'select nom_cli,date_livraison from client,livraison where client.code_client=livraison.code_client and code_camion=' + IntToStr(codecam);
          cmd.CommandText := 'SELECT client.nom_cli,livraison.date_livraison FROM client INNER JOIN livraison ON client.code_client=livraison.code_client WHERE (livraison.code_camion=' + IntToStr(codecam) + ')';
          // cmd.Execute;
          ds.Active:=true;
          for j:=1 to i-1 do
          begin
               ds.Next;
          end;
          liv.nomcli := ds.Fields[0].AsString;
          // liv.dateLiv := ds.Fields[1].AsDateTime;
          ds.Active := false;
          result := liv;
     except
          on E : Exception do
          begin
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;