Discussion :

[paulfr]

Bonjour

J'utilise directement une grille pour ajouter des enregistrements et je teste l'événement ONCOLEXIT :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFActTrans.DBGridTranColExit(Sender: TObject);
var
  ...
begin                              // DBGridTranColExit
   Case DBGridTran.SelectedIndex of
   0 : Aide.Caption := ' Cliquer sur cellules et rentrer les données';
     ...
 
   6 : begin  // dernier champ  : PB on ne passe PAS SUR  6 à la sortie
        if (FActModule.TActTranOPER.Value = 'VENTE') then P_Vente;
        ...
       end;
   End;
end;

Dans la dernière colonne de la grille après affectation de la cellule je valide (nbPost) et je n'exécute pas la procédure P_Vente.

Il n'y a pas de test pour le dernier champ de l'enregistrement à l'EXIT.
Y à t'il une solution ?

Merci PL

[paulfr]

Bonjour,

En définitive pour arriver à mes fins j'utilise l'événement ONCLICK/TDBNavigator pour exécuter la procédure P_Vente à la VALIDATION (nbPost) :

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
procedure TFActTrans.DBNaviTranClick(Sender: TObject; Button: TNavigateBtn);
var
  BtnName : string;
begin
  if Sender = DBNaviTran then
  begin
    case Button of
      nbFirst  : BtnName := 'nbFirst';
      nbPrior  : BtnName := 'nbPrior';
      nbNext   : BtnName := 'nbNext';
      nbLast   : BtnName := 'nbLast';
      nbInsert : BtnName := 'nbInsert';
      nbDelete : BtnName := 'nbDelete';
      nbEdit   : BtnName := 'nbEdit';
      nbPost   : BtnName := 'nbPost';
      nbCancel : BtnName := 'nbCancel';
      nbRefresh: BtnName := 'nbRefresh';
    end;
    if BtnName = 'nbPost'   then
      if (FActModule.TActTranOPER.Value = 'VENTE') then
        begin
          P_Vente;
          ...
        end;
  end;
end;

J'ai supprimé le CASE 6 dans le ONCOLEXIT/DBGridTranColExit qui n'a pas d'effet.