BELLE FACTURE SOUS FASTREPORT
aminedelphi
Messages postés
49
Date d'inscription
samedi 26 janvier 2008
Statut
Membre
Dernière intervention
9 mars 2011
-
17 août 2008 à 21:01
cs_Korda Messages postés 23 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 9 avril 2016 - 28 janv. 2013 à 20:46
cs_Korda Messages postés 23 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 9 avril 2016 - 28 janv. 2013 à 20:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47622-belle-facture-sous-fastreport
https://codes-sources.commentcamarche.net/source/47622-belle-facture-sous-fastreport
28 janv. 2013 à 20:46
2 oct. 2011 à 23:15
c'est un très bon tuto pour comprendre le composant fastreport
surtout d'imprimé un objet directement;
choukran
14 juin 2011 à 22:41
pour l'erreur frxBarcode il faut avoir la totalité des composant fastReport
13 juin 2011 à 10:32
SVP , quelle est la repertoire dans laquelle vous avez enregistré votre travail.Merci
15 juil. 2010 à 22:40
frxClass,frxBarcode
15 juil. 2010 à 22:39
1 août 2009 à 22:09
Pour un très bon exemple c'est pas vraiment le cas plutôt c'est qu es que j'ai réussi à improviser avec ce composant car en a toujours un petit tableau la où ce termine les enregistrement de la table, j'ai utiliser fastreport car il me permet de dessiner la fin du tableau a chaque fin de page est aussi d'utiliser le code barre sur la facture, j'ai pas encore testé le composant bdetable
30 juil. 2009 à 20:30
23 juil. 2009 à 10:17
mais j'ai des pb ci vous pouvez m'aidé merci d'avance.
30 août 2008 à 22:35
je vais essayer avec la version 4.
28 août 2008 à 21:54
si les composant télécharger illégalement nous plais et on fait rentré de l'argent avec ce composant .
doit l'acheter car c'est mal de voler le travaille des autre
merci @+
28 août 2008 à 18:34
Classe TfrxUserDataSet non trouvée.....
car le TfrxUserDataSet n'ai pas installé quelle et la version de FASTREPORT que tu utilise ?
pour moi c'est la version 4 précisément 4.6.8
par cette même occasion je tien a préciser qu'il a un petit problème pour la valeur 30 pour y remédier a ce problème en doit ajouter un '='
........
if (table3.RecordCount >20) and (table3.RecordCount <=30) then cas:=2;
.........
si c'est vraiment ça le problème il faut que tu te procure la version 4 et en peux dire que google c'est une vrai caverne d'ali baba surtout la parti blog
@+
27 août 2008 à 21:30
j'arrive pas a exécuter le programme j'ai ce message
Classe TfrxUserDataSet non trouvée.....
21 août 2008 à 12:38
21 août 2008 à 02:44
Ca fait plaisir de voir des commentaires constructifs et bénéfiques
Pour nous tous.
Et Dieu bénit les chasseurs de savoir et des sciences car il se rapproche pas à pas du créateur de l’univers en constatant la nette différence de niveau qui les séparant.
Merci .
@+
20 août 2008 à 21:20
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 ? :)
>>
Je pousserai encore un rien plus loin en disant ceci : Quand tu cree un tableau , c'est bien de mettre 1 constante , ainsi ton 5 tu n'as pas besoin de le retenir , tu te fais :
...
const
MAX_STRING = 5;
var
Form1: TForm1;
S : array [0..MAX_STRING] of TStringList;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to MAX_STRING do
begin
S[i] := TStringList.Create;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
begin
for i:=0 to MAX_STRING do
begin
S[i].Free;
end;
end;
end.
tu dois passer à 50 , et ben tu change une seule fois ton code , la valeur de ta constante
19 août 2008 à 21:39
*** Out ***
19 août 2008 à 21:32
19 août 2008 à 21:24
moi ce qui m'énerve c'est ces drôles de photos, faire impressionner les autres qui ne savent pas coder ? ou voire même qui ne savent rien ? c'est pas du narcissisme ça ? :/
19 août 2008 à 18:39
Mette toi sa bien dans la tête .si tu a bien vu il est dans la catégorie impriment
L’objective ce n’est pas le traitement de base de donner, mais le traitement de la page a imprimé ‘ la source pour copier coller et OK ‘ car pour le traitement de la page le code est bon que tu le veuille ou non.
pour né port quelle valeur de 1 à 1millon
J’ai cherché partout sur Internet y a pas le moindre petit exemple concret sur le traitement des page a imprimer que ce soit sur Quick report ou fastreport .
On aurait bien voulu te voir à l’œuvre ou poste une méthode différente pour un rendement meilleur.
J’attends …..
19 août 2008 à 16:35
votre example e simple un seul base donneé ,
interface c rien pour copier et coller!§§??????,
0.001/10
18 août 2008 à 22:19
Pour joli c’est très joli Ho sa oui je viens de l’apprendre
Merci beaucoup .
@+
18 août 2008 à 15:55
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 ? :)
18 août 2008 à 01:24
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.
17 août 2008 à 23:45
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
17 août 2008 à 21:01