Discussion :

[karim15]

Bonjour tout le monde,

Voilà, j'ai un petit probléme dans un masque de saisie, j'ai crée une fenêtre pour la mise à jour de facture. je veux réaliser deux opérations mais je coince

1er probléme

dans la saisie des lignes de facture, je veux mettre un contrôle, en permettant à l'utilisateur de saisir une seule fois un article et pas en repetition dans un dbgrid

2éme probleme

dans l'édition de la facture par quickreport, je veux limiter le nombre de lignes sur une page facture à 15 lignes (articles)

Quel q'un d'entre vous pourez m'aider sur ça, je lui serai très reconnaissant

merci d'avance

a+

[defluc]

Bonjour

Il faudrait préciser un peu.
Test articles, ils sont dans une liste (StringList, Listbox, Combobox...)

[karim15]

Bon je m'explique

j'ai une table Facture qui est reliée à 2 autres tables qui sont (Client, Articles)

ce que je souhaite faire c'est 2 opérations

1. j'ai un Dbgrid que je rempli manuellement pour alimenter la table facture qui est en relation avec la table article sur le champ Reference. Ce que je veux c'est que quand un utilisateur saisie dans la facture N° 0001 par exemple la reference 001 une deuxiéme fois, un message d'erreur s'affiche qon lui disant que "cette article est dejà saisie" donc il ne poura pas le rajouter une deuxieme fois.

2. dans l'edition d'une facture sur imprimante ou bien on la visualisant à l'écran, je veux limiter le nombre d'articles (lignes) à imprimer sur une page (par exemple à 15), pour information j'utilise quickreport avec edition maitre/detail

voilà et merci

[defluc]

ben tu testes dans l'événement oncellclick si la référence existe déjà.

[akli_agha]

Bonjour,

1. Tu crées une 2ème table détail qui pointe sur la même table que la première sans la lier au DBGrid et dans l'événement BeforePost de cette dérnière tu teste la présence de la référence dans la 2ème.
ex.: TDet1 et TDet2. 2 TTables qui pointent sur la même Table détail.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmFact.TDet1BeforePost(DataSet: TDataSet);
begin
   if TDet2.Locate('REFERENCE',
             DataSet.FieldByName(''REFERENCE').AsString then begin
      ShowMessage('Référence déjà saisie.....');
      myDBGrid.SetFocus;
      SysUtils.Abort;
   end;
end;

2. Tu crées une variable globale dans la fiche qui contient le rapport.
Tu l'initialise à zéro dans l'événement OnBeforePrint du rapport.
Tu l'incrémente dans l'événement OnBeforePrint de la bande détail et
tu fais le test pour tes 15 lignes. Si c'est plus grand tu fais un saut de
page .

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
implementation
{$R *.DFM}
 
var nbLine : ShortInt
 
procedure TfrmRptFact.RptFactBeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  nbLine := 0;
end;
 
procedure TfrmRptFact.bdDetailBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 
 
   inc(nbLine);
   if nbLine > 15 then myQuickRep.NewPage;
end;

J'espère t'avoir aidé et bon DEV !

[karim15]

Salut

Merci Akli pour tes reponses.

j'ai actuellement appliquer ta 2éme reponse concernant l'impression de la facture, mais je rencontre un petit probléme, j'utilise un QRSubDetail dans mon rapport, j'arrive à imprimer la premiére page avec 15 lignes avec le code que tu m'a donné sauf qu'à partir de la 16éme ligne et +, j'ai un seul enregistrement par page.

Voilà comme exemple

j'ai une facture qui comporte 50 Articles, à l'impression la 1er page affiche reellement 15 lignes (articles) et la suite des lignes affichent une ligne par page.

Comment faire pour régler cela ?

Merci d'avance

[akli_agha]

Salut,

Pour regler ton problème, il suffit de remettre la variable nbLine à 0.
soit tu fais comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TfrmRptFact.bdDetailBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 
   inc(nbLine);
   if nbLine > 15 then begin
     myQuickRep.NewPage;
     nbLine := 0;
   end
end;

soit tu remet à 0 dans l'événement OnBeforePrint de l'entete de group.


Bon Dev.

PS : Voici mon email : LogicoSoft@yahoo.fr
Akli.

[abdelghani_k]

Pour ton 1er pb, tu peux utiliser l'évènement OnValidate du Tfield code article, en reherchant la valeur code article qui est nouvellement saisi dans dbgrid par la méthode locate.

[atb]

bonjour,
si tu utilise un TClientDataSet ,tu peux travailer avec la propriété IndexDefs
pour ajouter des index dans ton cas sur le code de l'article si ta table detail
ta qu'a faire champ_de_larelation_M/D ,nom_article ,tu pourra toujourfaire ton propre traitement dans le onPostError du cliendatset du genre 'article deja ajouter !!!!'
pour les index ,ça sert à sa et au trie automatique de ta table

[Droïde Système7]

Bonjour,

akli_agha écrivait :

[...] soit tu remet à 0 dans l'événement OnBeforePrint de l'entete de group.


Bon Dev.

PS : Voici mon email : Lxxxxxxxxx@yahxx.fr
Akli. [...]

Rien de tel pour se faire spammer par les robots qui passent sans arrêt à la collecte d'émails valides.

J'ai ixé ici mais à toi de voir pour ton message

Bon dév' !

[akli_agha]

Merci J-P pour ta pertinente remarque !

J'avoue que je n'y ai pas pensé.

Encore une fois, merci.