Bonjour,
je viens ici pour faire le point et avoir de l'aide pour la conception d'un outils de managment d'entreprise ou personel.
 
j'ai ressamant écrit trois petit bout de code distinct pour
- un editeur text pour écrire des scipt.
- un interpréteur de commande (très basique)
- un système de registre pour des comptes financier.
 
A présent Je souhaiterais écrire un gestionnaire de tache qui me permetrait en fonction du résultat de mon compte financier de lancer un projet avec un budget prévu en dates et des taches à réaliser grâce a des script pré- écrit.
 
Voilà je dois mettre ça en ordre pour concevoir l'application de management d'entreprise ou personel.
 
Comment réaliser ce projet avec Ada ?

Bonjour, bonsoir,
 
pour le moment j'utilise l'editeur de texte essentiellement pour faire mon planning et l'accumulateur d'opération en flottants.
 
Donc en fait dans un premier temps il faudrais que je déduise les relations entre les opération "finacières" et le planning de "tache" créditrice ou débitrice.
 
je voudrais donc faire communiquer les deux tache planning et account ensemble pour :
d'un côté ajouter des sous dans ma tirelire lorsque je plannifie une tache creditrice et inversement.
d'un autre côté je souhaiterais plannifier des taches débitrice lorque je crédite mon compte et inversement aussi.

Re-
 
 
De coup encore, j'ai écrit ite fais un truc :
 
un paquetage standard =>
 

package Beops.Std is
   
   pragma Pure;
   
   type Fixed_Type is 
     delta 0.01 
       digits 10 
       range -99_999_999.99 .. 99_999_999.99;
   
   subtype Name_Tag_Str is String (1 .. 32);
   subtype Way_Tag_Str is String (1 .. 32);
   subtype Dist_Int is Natural range 0 .. 99_000;
   subtype City_Code_str is String (1 .. 5);
   subtype City_Name_str is String (1 .. 32);
   subtype Nation_Name_Str is String(1 .. 32);      
   
   type Money_Mode_Int is new Natural range 0 .. 24;   
   type Money_Delay_Int is new Integer range -3 .. 60;         
      
end Beops.Std;

 
 
Et un paquetage common =>
 

with Beops.Std;
use Beops.Std;
with Ada.Calendar;
 
package Beops.common is
   
   type Address_Tag is tagged
      record
         Name : Name_Tag_Str := (others => Character'Val(0));
         Way  : Way_Tag_Str := (others => Character'Val(0));
         Dist : Dist_Int := 0;
         Code : City_Code_Str := (others => Character'Val(0));
         city : City_Name_Str := (others => Character'Val(0)); 
         Nation : Nation_Name_Str := (others => Character'Val(0));
      end record;
   
   subtype Tag_Str is String (1..128);
   
   type Paiement_Tag is tagged
      record         
         Sum  : Fixed_Type := 0.0;
         Mode : Money_Mode_Int := 0;
         Op   : Ada.Calendar.Time;
         Val  : Ada.Calendar.Time;
         Tag  : Tag_Str := (others => Character'Val(0));
         Num  : Long_Integer := 0;
      end record;
      
   type Mode_List_Array is array (Money_Mode_Int) of Boolean;
   
   type Facture_Tag is tagged
      record
         Num       : Long_Integer := 0;
         Address   : Address_Tag;
         Mode_List : Mode_List_Array := (others => False);
         Delay_Op  : Money_Delay_Int := 0;
         Sum       : Fixed_Type := 0.0;
         Tag       : Tag_Str := (others => Character'Val(0));
         Date      : Ada.Calendar.Time;
      end record;
               
end Beops.common;

 
Puis entre temps je fais ça :
 

generic
   Client_Max      : Positive := 1_000_000;
   Provider_Max    : Positive := 25_000;
   Operation_Max   : Positive := 99_999;
   Paiement_Max    : Positive := 4_000_000;   
   Achat_Max       : Positive := 1_000_000;
   Vente_Max       : Positive := 99_999_999;
package Beops.Enterprise is
   
   
   type Operation_Tag is tagged
      record
         Tag  : Tag_Str := (others => Character'Val(0)); 
         Date : Ada.Calendar.Time;         
      end record;
   
   
   type Address_Access is access all Address_Tag;
   
   type Contacts_array is array (Positive range <> ) of  Address_Access;               
   
   type Operation_Access is access all Operation_Tag;
         
   type operations_Array is array (Positive range <> ) of Operation_Access;
   
   type Paiement_Access is access all Paiement_Tag;
   
   type Paiements_Array is array (Positive range <> ) of Paiement_Access;
   
   type Facture_Access is access all Facture_Tag;
   
   type Factures_Array is array (Positive range <> ) of Facture_Access;
     
     
   type Enterprise_Type is
      record
         Clients    : Contacts_Array(1..Client_Max);
         Providers  : Contacts_Array(1..Provider_Max);
         Planning   : operations_Array(1..Operation_Max);
         Accounting : Paiements_Array(1..Paiement_Max);         
         Achats     : Factures_Array(1..Achat_Max);
         Ventes     : Factures_Array(1..Vente_Max);
      end record;
     
   
   
   
end Beops.Enterprise;

 
 
Après ça va faire comme ceci :
 

with Beops.Enterprise;
generic
   with package Business is new Beops.Enterprise;
package Beops.Business_Manager is
   
   
   
end Beops.Business_Manager;

 
 
Le main enfin :

with Beops.Enterprise;
with Beops.Business_Manager;
procedure Beopsmain is
   
   package My_Business is new Beops.Enterprise;
   use My_Business;
           
   
   package Manager is new Beops.Business_Manager(Business => My_Business);
   use Manager;
   
   
   
   
begin
   
   null;
end Beopsmain;

 
 
Je vais peut-être faire le lien ici avec le mix marketing sur NN.

Depuis quand la simple création d'une tâche dans un planning permet de créditer un compte
Par ailleurs, quelle est l'utilité d'un interpréteur de ligne de commande dans un outil de gestion d'entreprise
Je te suggère de regarder les outils qu'on trouve dans un CMS de type groupware, dans un ERP ou simplement dans MS project voire sa solution client-serveur MS EPM.  Les CMS de type CRM pourraient t'intéresser aussi.

Bonjour rufo.
D'abord, merci pour la suggestion.
Pourais-tu déveloper tous ces sigle qui doivent être des accronyme en fait, bref.
 
CMS, EPM, ERP MS, please !

 
Je sais pas trop.
 
 
En faite selon l'évennement, il peut se passer à peu près n'importe quoi, pourvu que l'image de l'entreprise ne soit pas thernie, ou l'inverse, et que le livre des comptes est à jour.

 
Le fonctionnement  général ça va partir de là en réalité. mais c'est une hyothèse comme une autre.
 

Put_Line("Main menu" );
   New_Line;
   Put_Line("1 => Add address" );
   Put_Line("2 => Vente" );
   Put_Line("3 => Achat" );
   Put_Line("4 => Operations" );
   Put_Line("5 => Paiements" );
   Put_Line("6 => Factures clients" );
   Put_Line("7 => Factures Providers" );
   Put_Line("8 => Sum of enterprise" );
   Put_Line("9 => Quit" );

 
Ma tache appelé par le menu et traitant les affaire courantes.
 

task SPIR is
      entry Status(Ok : out Boolean);
      entry Add_Client;
      entry Add_Provider;
      entry Vente;
      entry Achat;
      entry Operations;
      entry Paiements;
      entry Factures_Clients;
      entry Factures_Providers;
      entry Sum_Of_Enterprise;
      entry Quit;
   end SPIR;
   
   Enterprise : Enterprise_Type;
   
   task body SPIR is
      date : Time := Clock;
   begin
      
      Beopsmain.Initialize(Enterprise);
      
      -- -- initialize full enterprise.      
      --  Test_Enterprise(Enterprise);   
      -- -- Print full enterprise.
      -- -- --  List_enterprise(Enterprise);
      -- -- Freeing Enterprise;
      --  Free_Enterprise(Enterprise);
      loop
 select
            accept Status(Ok : out Boolean) do
               Put(Character'Val (27) & "[2J" );
               New_Line(74);   
               Put_Line("please choose menu : " );
               Ok := True;
            end;
         or
            accept Add_Client do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Add_Client(Enterprise);              
            end;
         or
            accept Add_Provider do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Add_Provider(Enterprise);
            end;
         or
            accept Vente do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Vente(Enterprise);
            end;
         or
            accept Achat do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Achat(Enterprise);
            end;
         or
            accept Operations do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Operations(Enterprise);
            end;
         or
            accept Paiements do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Paiements(Enterprise);
            end;
         or
            accept Factures_Clients do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Factures_Clients(Enterprise);
            end;
         or 
            accept Factures_Providers do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Factures_Providers(Enterprise);
            end;
         or
            accept Sum_Of_Enterprise do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Sum_Of_Enterprise(Enterprise);
            end;
         or
            accept Quit do
               Put(Character'Val (27) & "[2J" );
               Beopsmain.Quit(Enterprise);
            end;
            exit;
         or
            delay until Date;
            date := Date + 86400.0;
            Put(Character'Val (27) & "[2J" );
            New_Line(74);   
            Put_Line("please wait several moment..." );            
            Beopsmain.Relances_clients(Enterprise, Date);
            Beopsmain.Paiements_Providers(Enterprise, Date);            
            
            
            -- Situation;
            -- Problem;
            -- Implication;
            -- Resultat;
            
         end select;
      end loop;
   end SPIR;

Le programme est disponible ici : sourceforge/projects/beoperational
 
Premier message (lisible au démarage et tous es jours en fonction de votre entreprise et le la rapidité de votre ordinateur)
 

 
2eme : le menu
 

 
le message de sortie du programme
 

 
 
Pour le moment, c'est tout.

Wikipedia est ton ami pour avoir la signification de ces acronymes et leur définition (et c'est ERP et MS EPM).
 
Sinon, tu as pris quoi comme SGBD pour stocker les données?

comme data base j'utilise de simple fichier texte, toujours plus facile à maintenir à la main/les yeux en cas de panne.
du coup le sgbd sera le pragramme cible lui même.
 
Toujours avec Ada ; je pourais utiliser un SGBD mais je trouve l'installation et la maintenance un peu lourde pour des débutant.

Comment veux-tu être crédible en faisant un logiciel de gestion d'entreprise sans un système de stockage plus performant qu'un fichier txt As tu la moindre idée du volume de données que ça peut représenter ? Au bout de très peu de temps, ça va grave ramer! Et je ne te parle même pas des difficultés pour générer des rapports ou des stats là où une simple requête SQL te ferait ça les doigts dans le nez!

d'un ceratain point de vu, je suis d'accord, selon l'entreprise, c'est ingérable.
 
le truc est d'avantage fais pour géré une activité individuelle.
 
Dans le sens où ça pourrait devenir l'ultime application de gestion.
 
 
Si tu possède 5 entreprise+les comptes perso alors tu a bessoin de 6 machine simultanément + une dernière pour faire la somme.
 
le truc c'est de tourner sur cette dernière machine avec le plus simple mais le plus puissant des programme non pas par sa complexité mais par son statut exécutif.
 
je sais pas si tu va piger ça.
 
Mais effectivement quand même, ce serait mieux avec un vrai SGBD je suis d'accord.
 
pour l'instant je fais un jet de plus pour voir.
 
 

Déjà, pourquoi faire ça en Ada ? (A part si c'est pour un défi personnel bien sur car ce n'est pas le plus simple des langages...). Mais là tu reviens 30 ans en arrière vis à vis de l'interface et de la gestion des données....
[EDIT pour préciser ma pensée]

Ah là le topic va devenir intéressant .
 
Blague à part t'exagère un peu. ADA, c'est pas si archaïque que ça mais c'est pas non plus très adapté pour des trucs graphiques (en fait c'est fait pour rien de ce que localghost produit : UI, web...), mais si Boeing et Airbus s'en servent c'est que ça doit pouvoir rendre des services.  

 
On est pas au cinéma, tu repassera pour tes comment hs.

J'avais dit un truc bien sur ADA pourtant  
Alors que j'aurais pu faire comme d'autres et dire que se lancer dans l'écriture d'un ERP sans connaître le terme ERP et stocker ta base de données dans des fichiers textes ne me parait pas être une stratégie optimale .

Je me suis mal exprimé. En fait je ne parle pas d'Ada quand je dis que c'est archaïque. C'est plutôt le fait de réaliser ce genre de mini ERP en mode texte uniquement (il existe GTKAda) et de se baser sur un fichier txt pour stocker les données alors qu'il existe tout un tas de langages nativement plus graphiques et adaptés à ce genre de développement (je peux en parler, c'est mon boulot, vu que je développe l'ERP de mon groupe).
Ca me rappelle les outils de gestion réalisés en CPM sur Amstrad CPC dans les 80's...
 
Ada est un très bon langage dans le cas d'applications sensibles (d'où l'utilisation dans le domaine militaire et aérospatiale) et sa rigueur en fait un excellent langage d'apprentissage. A l'époque mon DUT (où on codait en Ada), on avait coutume de dire que quand ça compilait en Ada c'était gagné alors que quand ça compilait en C, c'était là que les emmerdes commençaient :-).  
D'ailleurs à l'époque, un de mes projets a été de réaliser un petit SGBD en Ada qui utilisait également une structure fichier pour stocker les données... mais bon, c'était un pur cas d'école, ça n'avait pas vocation a être utilisé...

Pourquoi avoir besoin de 6 machines pour gérer ses 5 entreprises et ses comptes persos L'intérêt est d'avoir tout dans un seul soft/une seule BD.
Après, pour les données perso, y'a aussi les softs de type PIM. En effet, la gestion d'une entreprise et la gestion de ses données persos, c'est quand même très différent et les besoins de fonctionnalités aussi.

T'es un peu trop soupe au lait. Il te faisait juste remarquer que si Ada était utile dans des domaines pointus comme l'aéronautique, il n'était pas très adapté pour les applis que tu cherches à coder.

C'est sur, je gère 15 entreprises et 60 établissements avec un seul "petit" serveur et notre ERP interne développé depuis 10 ans...  
C'est justement là que repose l'intérêt d'un vrai SGBD...

je disais : vos comments hs vous allez les faire ailleurs.

Si on dit que dans ton post plus haut où il y a tous les messages c'est rempli de fautes et ça mélange allègrement le français et l'anglais on est hors sujet ou pas

Non, dans mon code Ada, il y a du franglais.

J'aime bien cette conception du temps. Faut être programmeur ADA pour percevoir le monde comme ça sans doute

Bon vous avez raison.
J'abandonne.

Quels commentaires HS stp ?

 
C'est un message de chez Sam***g where "***" is "sun"

Tou ce qui pouvais remettre mon action en concidération.
Je suis venu j'avais pris une décision.
Vous souhaitiez que je reconcidère ma décision.
Ma fois c'est fait.

Mais du coup on ne verra pas le projet aboutir et supplanter SAP ?

Et bien écoute, c'est un forum public où chacun est libre de s'exprimer dans les limites du règlement. Ce n'est pas toi (ni moi) qui est juge de ce qui est bon ou pas bon car cela peut bénéficier à l'ensemble des personnes lisant ce topic.
 
Tu as le droit cependant de rester sur ton opinion et ton choix et de ne pas écouter les avis qui ne vont pas dans ton sens en les ignorant mais dans la mesure où tu ne poses pas de vraies questions, ne t'étonnes pas de ne pas avoir de vraies réponses...

 
 
Alors, à ton tour d'écouter.
 
Si tu n'est pas responsable de tes actes ça te regarde.
Mais me melle pas à ta vie.
 
Et pas la peine d'enchaîner. Ou j'alerte.

Localghost, on en revient toujours au même point avec tes topics : tu te lances dans un projet parce que tu as eu une idée et tu le codes systématiquement en Ada parce que c'est manifestement ton langage préféré. Tu postes du code sans qu'on sache vraiment à quoi il sert et sans trop d'explication de ta part et tu nous demandes notre avis.
Problème, avant de te lancer dans ton projet et le code, tu ne t'es apparemment pas renseigné sur ce qui existe déjà (vouloir coder un soft de gestion d'entreprise sans avoir ce qu'est un ERP ou un CRM, c'est juste une aberration!). Du coup, comment espères tu arriver à un résultat viable, utilisable?
Enfin, tu ne fais manifestement aucune conception de l'architecture de ton appli. Or, cette phase de specs/conception, c'est environ 33% du temps nécessaire à réaliser le projet. Quand on voit ton code, les structures de données mélangent pleins d'infos qui devraient être dans des structures séparées. J'imagine que tu n'as pas fait un dictionnaire des données (chose à faire quand on travaille avec un sgbd).
 
Tu viens sur un forum public, assez connu en France, et où y trainent des professionnels de l'informatique,  notamment du dév et tu nous demandes notre avis; personne ne t'y a forcé tout comme personne nous force à prendre du temps pour te répondre. Mais dès qu'on te fait remarquer tes lacunes, erreurs... tu prends la mouche, tu boudes et tu te refermes sur toi-même en laissant mourir un énième topic parce que tu penses avoir raison et tous les autres, tord. Tu auras beaucoup de mal à progresser en dév et en informatique avec cette attitude car on a toujours besoin des autres à un moment donné ou un autre, même quand on est bon.

je vole pas très haut côté veille mais je maintiens mon système à peu près.

J'ai même pas envie de me défendre.
Tu t'y crois toi.

Tu es quand même sacrément gonflé... Je suis tout à fait responsable de mes paroles et de mes actes, je l'ai suffisamment prouvé sur ce forum depuis 15 ans et je ne me suis montré ni agressif, ni insultant. Tu peux alerter si tu veux, je doute que ce soit moi qui soit sanctionné.
 
"Ne me mêle pas à ta vie", non mais tu te prends pour qui ?  
Alors vas-y, fait toi plaisir et alerte  

Si tu parles de veille techno, c'est un pb de ne pas se tenir au courant régulièrement. Le monde de l'informatique évolue à une telle vitesse! Perso, je dois consacrer bien 1h par jour à faire de la veille (hardware, softs, dév/libs/framework, sécurité, nouvelles technos ou nouvelles méthodos, là je pense aux technos du big data ou  mêthodes agiles). Et c'est limite suffisant.

Pas forcément.
On peu être adapté à un système qui "évolue" même en fermant les entrées.

Peut-être mais cette évolution ne sera pas adaptée à son environnement vue qu'aucun contact avec lui (pas d'entrée) : ça condamne donc ce système. Les softs, c'est comme la théorie de l'évolution de Darwin : seuls ceux qui savent s'adapter à leur environnement technologique et aux besoins des utilisateurs survivent. Les autres tombent dans l'oubli.

J'aimerais bien avoir le courage d'en faire autant dans le domaine de la prog .  
J'ai l'impression de rester dans ma routine et beaucoup stagner, à part en lisant "passivement" des news à droite à gauche.  
Tu t'y prends comment pour trouver les sujets "pertinents" et les mettre en pratique ?
Ca me donne l'envie de créer un topic "veille technologique" pour partager sur les sujets qui nous paraissent intéressants, tous domaines liés au développement confondus, t'en dis quoi ?

 
Comme quoi Microsoft va mourir.