Discussion :

[SergioMaster]

Bonjour,

Il m'est venu une idée (loufoque ?) de mettre face aux lignes d'une grille des remarques, un peu dans cet esprit

Ici j'ai joué sur la taille de la fonte pour tenter d'avoir un aperçu du résultat souhaité, ce n'est pas vraiment nickel je me demandais s'il était possible de mieux faire.
La meilleure approche eut été de garder la même hauteur de fonte que la grille et donc jouer sur la hauteur de ligne du TMemo d'où la question.

Évidemment il y a des solutions de contournement :
- une colonne supplémentaire dans la grille pour y mettre les "commentaires" (en utilisant une table mémoire, copie de ma Query d'origine, c'est loin d'être insurmontable)
- une seconde grille synchronisée sur la première

mais je me demandais si l'idée était si loufoque que ça, après tout c'est FMX donc le Tmemo n'est plus descendant des contrôles windows ou si ?

[Paul TOTH]

je ne comprend pas...tu veux ajouter une zone commentaire par ligne ? mais elle est non persistante ? sinon pourquoi n'est-elle pas dans la base ?

[Andnotor]

Un peu surprenant en effet de faire cela en dehors de la grille (ex. un champ calculé), il faudra gérer le défilement et tout le bataclan... y compris (et non le moindre des problèmes) le fetch des données suivantes si On-Demand.

Sinon un TListBox serait plus simple puisque tu peux gérer facilement la hauteur des items.

[SergioMaster]

Bon pour, tout vous dire, il s'agit d'une "moulinette" que j'écris.

Je dois récupérer/contrôler des informations dans une base de données Prestashop () afin de lier mon système de stock (pour les commandes c'est fait).
Or les personnes qui s'occupent de la partie prestashop sont loin d'être "informaticiens" et ont fait/font encore beaucoup de n'importe quoi (au point d'avoir des doublons !)

donc cette moulinette, affiche les opérations (commentaires) que j'effectue sur ma base de données (mise à jour de codes, découverte d'anomalies etc...)


J'ai bien écrit "idée loufoque" et pas pour rien la solution "colonne ajoutée" fonctionne parfaitement

Interrogation dans ma BDD

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
SELECT B.BOUTIQUE,M.NOM||'-'||SUBSTRING(CODE25I FROM 8 FOR 3)||' '||SUBSTRING(CODE25I FROM 11 FOR 3) NOM,r.IDUNIQUE,
       'MU'||ROUND(r.CODE25I,0) CODE25I,
    r.PSID_PRODUCT, r.PSID_ATTRIBUTE, r.PS_IDSTOCK,
    CAST('' AS VARCHAR(30)) COMMENTPROCESS  -- ,zone commentaire en ajout
FROM EAN13_CLIENTS r 
     JOIN MODELES M ON M.EAN13=SUBSTRING(CODE25I FROM 1 FOR 7)      
     JOIN LIGNPROD b on m.LIGNE_PRODUIT=b.CODE_LIGNE      
WHERE r.CLIENT IS NULL  AND b.BOUTIQUE IS NOT NULL 
ORDER BY B.BOUTIQUE,R.CODE25I

l'histoire de Tmemo c'était juste pour ne pas avoir à limiter la taille du commentaire

code actuel (avec déchets)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
FDMemArticles.CloneCursor(Datas.FDLiaisonArticles); // récupération des données interne 
FDMemArticles.First;
  TTask.Run(
    procedure
    const UpdateSQL='UPDATE EAN13_CLIENT SET PSID_PRODUCT=?,PSID_ATTRIBUTE=?,PS8ISTOCK=? '+
                    ' WHERE IDUNIQUE=?';
     begin
       while not FDMemArticles.EOF do
        begin
           if boutique<>FDMemArticles.FieldByName('BOUTIQUE').AsString then
             begin
              boutique:=FDMemArticles.FieldByName('BOUTIQUE').AsString;
              with datas do
              begin
                FDAdresse.Open('',[boutique]);
                RESTIdentificateur.Username:=DecryptString(FDAdresse.FieldByName('ACCES').AsString,
                                                           boutique);
              end;
             end;
         RQArticle.Params.ParameterByIndex(0).Value:=FDMemArticles.FieldByName('CODE25I').AsString;
         try
           RQArticle.Execute;   // autre sujet dans forum web&reseau à propos du Rest
 
           RQAvailable.Params.ParameterByIndex(0).Value:=PrestaArticle.FieldByName('id_product').asString;
           RQAvailable.Params.ParameterByIndex(1).Value:=PrestaArticle.FieldByName('id').asString;
 
           FDMemArticles.Edit;
 
           try
            RQAvailable.Execute;
            if RQAvailable.Response.StatusCode<>200 then
              FDMemArticles.FieldByName('COMMENTPROCESS').AsString:=RQAvailable.Response.StatusCode.ToString
            else
            FDMemArticles.FieldByName('PS_IDSTOCK').AsString:=Available.FieldByName('id').asString;
           except
             FDMemArticles.FieldByName('COMMENTPROCESS').AsString:='pas de stock !!'
           end;
           FDMemArticles.FieldByName('PSID_PRODUCT').AsString:=PrestaArticle.FieldByName('id_product').asString;
           FDMemArticles.FieldByName('PSID_ATTRIBUTE').AsString:=PrestaArticle.FieldByName('id').asString;
           if Trim(FDMemArticles.FieldByName('COMMENTPROCESS').AsString).isEmpty then
               FDMemArticles.FieldByName('COMMENTPROCESS').AsString:='ok';
           FDMemArticles.Post;
// mise à jour 
//           Datas.ConnexionBase.ExecSQL(UpdateSQL,
//                                       ([FMemArticles.FieldByName('PSID_PRODUCT').AsString,
//                                        FMemArticles.FieldByName('PSID_ATTRIBUTE').AsString,
//                                        FMemArticles.FieldByName('PS_IDSTOCK').AsString,
//                                        FMemArticles.FieldByName('IDUNIQUE').Asinteger]));
 
          except
           FDMemArticles.Edit;
           FDMemArticles.FieldByName('COMMENTPROCESS').AsString:='pas en boutique';
           FDMemArticles.Post;
          end;
 
         TThread.Synchronize(nil,
          procedure
          begin
          end);
          FDMemArticles.Next;
       end;
     TThread.Synchronize(nil,
          procedure
          begin
             FDMemArticles.First;
            // WorkProgress.Visible := False;
          end);
     end);

Encore beaucoup de petites améliorations à faire mais ça fonctionne

Sinon un TListBox serait plus simple puisque tu peux gérer facilement la hauteur des items.

je n'avais pas pensé aux listes