Belle facture sous fastreport

Soyez le premier à donner votre avis sur cette source.

Vue 16 634 fois - Téléchargée 4 066 fois

Description

Bonjour, vous développez un gestionnaire ?????
Problème de facture, plutôt problème d?impression d?une belle facture
Voici la solution que j?ai improvisée sous Fastreport

Note : Database "C:\Table"
cette source a été réalisée sous Fastreport 4 et Delphi 7

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

aminedelphi
Messages postés
49
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
9 mars 2011
-
Pas de commentaire apparemment y a rien à dire !!!
Francky23012301
Messages postés
411
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
11 février 2016
1 -
tu veux que l'on te dise quoi ?

1)On renomme ces composants.

2)Des redondancesa a en plus finir :
s1 := TStringList.Create;
s2 := TStringList.Create;
s3 := TStringList.Create;
s4 := TStringList.Create;
s5 := TStringList.Create;
s6 := TStringList.Create;

s1.Clear;
s2.Clear;
s3.Clear;
s4.Clear;
s5.Clear;
s6.Clear;

3)Absence de case quand c'est utilise :
if CompareText(VarName, 'Designiation') = 0 then
Value := s1[StringDS.RecNo];
if CompareText(VarName, 'Prix') = 0 then
Value := s2[StringDS.RecNo];
if CompareText(VarName, 'Quantite') = 0 then
Value := s3[StringDS.RecNo];
if CompareText(VarName, 'Tht') = 0 then
Value := s4[StringDS.RecNo];
if CompareText(VarName, 'Tva') = 0 then
Value := s5[StringDS.RecNo];
if CompareText(VarName, 'Ttc') = 0 then
Value := s6[StringDS.RecNo];

4)Un peu léger en terme de quantités (Snippet plus approprié).

5)Pas mal de betises sur la facon de procéder.

L'absence de commentaires s'explique peut etre par le fait que l'on redit toujours et toujours et toujours les meme choses
aminedelphi
Messages postés
49
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
9 mars 2011
-
Merci j’ai bien compris cette fois, mais ça fait toujours plaisir les critique et les commentaire
Pour le renommage j’ai appris la mauvaise habitude d’attaque directement la programmation
J’ai pas la bonne organisation du travaille des informaticien car je fais ingénieur en électronique, on peux dire que je suit un programmeur du dimanche
Mai il y a une chose vous les français on peut dire que vous avez le sens de l’organisation du travaille et de l’analyse.
Merci encore une fois.
Francky23012301
Messages postés
411
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
11 février 2016
1 -
99% des gens ici sont des autodidactes : Donc le renommage des composants n'a rien avoir avec ce point ;).

Pourquoi renommer ces composants : si tu dois revoir ou réutiliser ton source dans 10 ans tu vas passer un temps fou à comprendre qui est qui et qui fait quoi.

Le sens de l'analyse ? Non de la feignantise bien pensée ici :

Var
S : Array [0..5] if TStringList;
I:cardinal;
Begin
For I:=0 To 5 Do
S[I]:=TStringList.Create;
End;

C'est tellement moins lourd et plus joli non ? :)
aminedelphi
Messages postés
49
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
9 mars 2011
-
Bonjour
Pour joli c’est très joli Ho sa oui je viens de l’apprendre
Merci beaucoup .
@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (aminedelphi)