Discussion :

[digital prophecy]

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;

[Cl@udius]

Salut

Sous Access le format de la date doit être de ce type: #mm/dd/yyyy#
Il est probable qu'il y ait une insersion sur le jour et le mois de la date, d'où le résultat incorrect.

Je te conseille plutôt d'utiliser une requête paramétrée pour éviter de 'coller' au format:

Code sql :

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

1
2
 
SELECT Count(*) + 1  AS num_fact FROM t_facture_entete WHERE date_facture = :date_fact;

Ensuite tu renseignes la valeur du paramètre avec ta date avant son exécution.

@+ Claudius.