LOGICIEL DE FACTURATION (REPRIS DE CE SITE) AMELIORÉ AVEC UN CONVERTISSEUR CHIF
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
-
28 mars 2007 à 10:44
aderko Messages postés 7 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 16 août 2008 - 16 août 2008 à 17:22
aderko Messages postés 7 Date d'inscription samedi 3 mai 2003 Statut Membre Dernière intervention 16 août 2008 - 16 août 2008 à 17:22
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/41991-logiciel-de-facturation-repris-de-ce-site-ameliore-avec-un-convertisseur-chiffre-en-lettre-n-de-facture-avec-une-base-access
https://codes-sources.commentcamarche.net/source/41991-logiciel-de-facturation-repris-de-ce-site-ameliore-avec-un-convertisseur-chiffre-en-lettre-n-de-facture-avec-une-base-access
16 août 2008 à 17:22
je voudrais ajouter une pic dans la facture...si vous pouvez m'aider
ce serait sympa...merci
13 avril 2007 à 12:28
* dans les PME, ils utilisent parfois works, parfois open office, ou autre suite bureautique, et même parfois : ils n'utilisent pas de suites bureautiques !
* Chez les utilisateurs lambda : IDEM, ceux qui utilisent leur pc pour internet ou le jeux, ou la vidéo par exemple, ils n'ont pas forcément besoin d'un traitement de texte, ou dépenser autant pour en avoir un !
* Dans les entreprises, là aussi, même si word est souvent installé, c'est pas systèmatique : les entreprises qui ont fait le choix d'une autre suite bureautique ne migrera pas facilement dans une autre solution !
* Dans les services publics : on l'a vu récement, ils se tournent vers les solutions open source, donc bye bye word !
Quand je parlais de report, je ne voulais pas dire un report access !!! Je parlais soit du report de vb (le datareport), soit une solution plus souple (Report Manager par exemple), car là c'est encore pire : pour exécuter l'aperçu avant impression du report, il me semble bien qu'il faut access d'installé, et là le pourcentage des postes ayant access d'installé doit être vraiment faible !
DarK Sidious
13 avril 2007 à 10:43
mais c'est vrai qu'un report access c'est bien plus puissant qu'un publipostage sous word. Je savais pas qu'on trouvait ce genre de 'logiciel' ici!
28 mars 2007 à 10:44
Sans vouloir être méchant, voici mes impressions sur ce projet :
Que dire de cà ???
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.com(16).Text
# .Selection.TypeParagraph
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 420, 185, 40, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.quat(16).Text
# .Selection.TypeParagraph
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 460, 185, 50, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.pu(16).Text
# .ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 510, 185, 50, 400).Select
# .Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
# .Selection.Font.Name = "Times New Roman"
# .Selection.Font.Size = 12
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(0).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(1).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(2).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(3).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(4).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(5).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(6).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(7).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(8).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(9).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(10).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(11).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(12).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(13).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(14).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(15).Text
# .Selection.TypeParagraph
# .Selection.TypeText Text:=Form1.dt(16).Text
De petites boucles for auraient été les bienvenues...
Sans compter les très nombreuses variables globales à tout le projet
De plus utiliser Word pour faire l'impression d'une facture, c'est pas ce qui se fait de mieux : cela oblige les clients à installer word pour utiliser cette application... vu le prix de word, cela n'est pas négligeable ! Un petit report aurait mieux fait l'affaire.
Quite à reprendre un projet existant, tu aurais pu l'optimiser.
DarK Sidious