begin process at 2010 02 10 02:41:16
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Imprimante

 > BELLE FACTURE SOUS FASTREPORT

BELLE FACTURE SOUS FASTREPORT


 Description

Cliquez pour voir la capture en taille normale
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



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Project1.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier188 octets
  • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]563 795 octets
  • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier10 790 octets
  •   Table
    • facture.DBTélécharger ce fichier [Réservé aux membres club]73 728 octets

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture DELPHI GOOGLE MAP GPS TOOL

 Sources de la même categorie

TCPSERVER INTERCEPTION DES DONNÉES DE L'IMPRIMANTE par k.Lutchi
Source avec Zip COMMENT IMPRIMER par Zicson1
Source avec Zip IMPRESSION D'ÉCRAN AMÉLIORÉE par Lassal
Source avec Zip CODEDLT par fbalien
Source avec Zip Source avec une capture GÉNÉRER DES PDF AVEC DELPHI ET PDF CREATOR par Delphiprog

 Sources en rapport avec celle ci

Source avec Zip SONELSYS RECOUVREMENT par MOIAZEDDINE
Source avec Zip QUICKREPORT par matrix1

Commentaires et avis

Commentaire de aminedelphi le 17/08/2008 21:01:08

Pas de commentaire apparemment y a rien à dire !!!

Commentaire de Francky23012301 le 17/08/2008 23:45:52

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

Commentaire de aminedelphi le 18/08/2008 01:24:09

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.

Commentaire de Francky23012301 le 18/08/2008 15:55:53

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 ? :)

Commentaire de aminedelphi le 18/08/2008 22:19:35

Bonjour
Pour joli c'est très joli Ho sa oui je viens de l'apprendre  
Merci beaucoup .
@+

Commentaire de bsm_sami76 le 19/08/2008 16:35:03

cest koi sa ''Tutorial Facture, Plutôt La source pour Copier Coller''
votre example e simple un seul base donneé ,
interface  c rien pour copier et coller!§§??????,

0.001/10

Commentaire de aminedelphi le 19/08/2008 18:39:21

Bien ça ce n'est pas un logicielle ou un programme complet
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 ...

Commentaire de nethacker le 19/08/2008 21:24:42

:O

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 ? :/

Commentaire de aminedelphi le 19/08/2008 21:32:48

..............!!!

Commentaire de aminedelphi le 19/08/2008 21:39:58

Je suit vraiment désole pour tout le monde.00 pardon 00.
*** Out ***

Commentaire de Nicolas___ le 20/08/2008 21:20:23

<< 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 ? :)
>>

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

Commentaire de aminedelphi le 21/08/2008 02:44:52

Bonjour
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  .
@+

Commentaire de Nicolas___ le 21/08/2008 12:38:44

oui oui c'est cela ;)

Commentaire de dounga66 le 27/08/2008 21:30:53

bonjour
j'arrive pas a exécuter le programme j'ai ce message

Classe TfrxUserDataSet non trouvée.....

Commentaire de aminedelphi le 28/08/2008 18:34:34

bonjour
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
@+

Commentaire de aminedelphi le 28/08/2008 21:54:41

qui dit la caverne d'ali baba dit: et les 40 voleur alors
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 @+  

Commentaire de dounga66 le 30/08/2008 22:35:35

merci
je vais essayer avec la version 4.

Commentaire de GMAO2 le 23/07/2009 10:17:23

vraiment un trés bon exemple pour comprendre fast report a
mais j'ai des pb ci vous pouvez m'aidé merci d'avance.

Commentaire de GMAO2 le 30/07/2009 20:30:21

je suis débutant en prog mais lorsque j'ai débuté mais pourqoui pas ne minimiser le code en utilsant le composant bdetable

Commentaire de aminedelphi le 01/08/2009 22:09:42

Bonjour  
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  

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

imprimer une facture a partir de DBEdits [ par smich ] je travaille sur un projt de gestion de stock et j'ai un problemeavec l'impression voila je voudrai imprimer des facture avec un modele rtf a partir d Etat avec fastReport & ReportBuilder [ par aymenk ] depuis six mois tous mes etats sont avec fastReport ou Reportbuilder j'aimerais rencontrer des programmeurs utilisant ces générateurs d'etat QuickReport et querySql [ par xklibur ] Salut,Je voudrais imprimer une facture dont les infos sont stockées dans plusieurs tables de ma DB.la facture se presente avec une entete contenant qu [Intraweb]edireur d'etat [ par toure32 ] Salut a tous je suis a la recherche d'un editeur d'etat pour intraweb en faite je veux presanter une facture a l'utilisateur et lui donner l'optiond'i Append et relation maitre/détail [ par apoke ] Bonjour à tous,Alors voilà mon problème:J'essaye de réaliser une application de gestion commerciale.ainsi, j'ai sur une form (facture) les infos conce Etat de sortie d'une facture [ par apoke ] Salut tout le monde,Je voudrais savoir si quelque peut donner un exemple complet d'un etat de sorit type facture.Je m'explique: le problème que je ren Imprimer une facture et un reçu de caisse à la fois sur 2 imprimantes différentes [ par oukamy ] merci les amisj'ai voudrais savoir comment m'y prendre pour imprimer la facture de mon client sur l'imprimante du commercial et en même (par la même o Ecrire dans un fichier texte à un endroit précis [ par couf ] Bonjour, J'ai un fichier texte qui &#224; 34 lignes je souhaites en r&#233;&#233;crire un nouveau qui remplace &#224; partire du caract&#232;re 22 impression de facture [ par titre ] je developpe avec php et javascript et BD mysql je veux imprimer une facture qui ce que vous me suggerer de faire et par la me donner une solution qui impression de facture [ par titre ] je developpe avec php et javascript et BD mysql je veux imprimer une facture qui ce que vous me suggerer de faire et par la me donner une solution qui


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,936 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales