Bonjour à tous

J'écris un petit code qui génère les numéros de facture par rapport à la date du jour.

Alors, j'ai créé le code suivant, mais je constate que la requête n'est pas correctement exécutée pck'à tous les coups il ne trouve pas d'enregistrements et me retourne le N° 1 :
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
 
procedure Tform_vente.req_fact_enteteBeforePost(DataSet: TDataSet);
var
 
date_fact : string;
begin
 
  if req_fact_entete.FieldByName('date_facture').AsString <> '' then begin
 
      date_fact := req_fact_entete.FieldByName('date_facture').AsString;
      req_gen_num_fact.SQL.Clear;
      req_gen_num_fact.SQL.Add('SELECT Count(*) + 1  AS num_fact FROM t_facture_entete WHERE (((t_facture_entete.date_facture)=#'+ date_fact+'#));');
      req_gen_num_fact.Close;
      req_gen_num_fact.Open;
      req_fact_entete.FieldByName('num_facture').AsString := date_fact + '-' + req_gen_num_fact.FieldByName('num_fact').AsString;
 
    end;
 
end;