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;
Partager