PRETS DE LIVRE

//CLIQUE SUR COLONNE
procedure TFpret.grillepretTitleClick(Column: TColumn);
var
cle : integer;
begin
cle := strtoint(dbpkpret.text);
  with tout.adolistepret do
    begin
     active:=false;
     parameters.parambyname('@nomdecolonne').value := column.fieldname;

        //CLIQUE NOM
        if (column.Fieldname = 'Nom') then   //attention a la case du champ !!! Nom et nom
          begin
           if(valnom = '+') then valnom := '-'
           else  valnom := '+';
           parameters.parambyname('@ordretri').value :=valnom;
         end;

        //PRENOM
        if (column.FieldName = 'prenom') then
          begin
           if (valprenom = '+') then valprenom := '-'
           else valprenom :='+';
           parameters.parambyname('@ordretri').Value := valprenom;
          end;

        //DATE SORTIE
        if (column.FieldName = 'datesortie') then
         begin
           if (valdatesortie = '+') then valdatesortie := '-'
           else valdatesortie :='+';
           parameters.parambyname('@ordretri').Value := valdatesortie;
         end;


         //DATE ENTREE
        if (column.FieldName = 'daterentree') then
         begin
           if (valdateentree = '+') then valdateentree := '-'
           else valdateentree :='+';
           parameters.parambyname('@ordretri').Value := valdateentree;
         end;

        //TITRE
        if (column.FieldName = 'Titre') then
         begin
           if (valtitre = '+') then valtitre := '-'
           else valtitre :='+';
           parameters.parambyname('@ordretri').Value := valtitre;
         end;

        //test de EDITION
        if (column.Fieldname = 'Edition') then   //attention a la case du champ !!! Nom et nom
          begin
           if(valedition = '+') then valedition := '-'
           else  valedition := '+';
         parameters.parambyname('@ordretri').value :=valedition;
         end;
     active := true;  //active la proc
     locate('id_prets', cle, []); //RENVIO LE NUM PK_prets

    end;
//FIN
end;