[Résolu] Problème Base de données relationnelles

Posté par fabou3377 le 25/6/2006 15:07:08
Bonjour,

problème avec tables relationnelles.

Mon analyse:

1/ Table Commande
(IDCommande,NumCommande,NumCLient,TotalCommande)

2/Table CommandeLigne (Détail de la commande)
(IDCommandeLigne,NumCommande,NumArticle,NumClient,QteArticle,DesignArticle,PrixVenteArticle,TotalLigne)

3/Table Ecritures
(IDEcritures,NumClient,TotalEcriture,NumCommande,NumAccompte)

Mes Liaisons:

Table Commande(1,n)--NumCommande-->(1,1)CommandeLigne
Table Commande(1,1)--NumCommande-->(0,1)Ecritures

J'ai une procédure ValiderCommande qui me permet d'enregister ma commande, cependant j'ai à chaque fois des erreurs de cardinalités voici ma procédure:


PROCEDURE Valider_commande()

nbreligne est un entier
i est un entier





SI COMBO_Clients = "" ALORS
Info("Veuillez choisir un client valide")
RETOUR
FIN


SELON Dialogue("Etes-vous sûr de valider cette commande?")
// Oui
CAS 1


//On ajoute la commande dans la table commande
Commande.NumClient=COMBO_Clients..Valeur
Commande.NumCommande=SAI_NumCommande..Valeur
Commande.TotalCommande=SAI_TotalTTC
HAjoute(Commande)

//On ajoute l'écriture
Ecritures.NumClient=COMBO_Clients..Valeur
//Ecritures.NumCommande = SAI_NumCommande..Valeur
Ecritures.TotalEcriture=SAI_TotalTTC..Valeur
HAjoute(Ecritures)

//On ajoute les informations de la commande dans la table commande ligne
nbreligne = TableOccurrence(TABLE_Articles)
POUR i=1 A nbreligne
CommandeLigne.NumCommande = Commande.NumCommande
CommandeLigne.NumClient= COMBO_Clients.COL_NumClients
CommandeLigne.TotalLigne = SAI_TotalTTC..Valeur
TableSelectPlus(TABLE_Articles,i)
CommandeLigne.QteArticle=TABLE_Articles.COL_Quantité
CommandeLigne.NumArticle=TABLE_Articles.COL_NumArticle
CommandeLigne.DesignArticle=TABLE_Articles.COL_Designation
CommandeLigne.PrixVenteArticle=TABLE_Articles.COL_PrixVente
CommandeLigne.TotalLigne=TABLE_Articles.COL_Prix_Total
HAjoute(CommandeLigne)



FIN

Info("Votre commande a été enregistrée")
MDIOuvre(FEN_Menu_Commandes)
Ferme(FEN_commandes)


// Non
CAS 2
RETOUR
FIN


Merci pour votre aide

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4271&post_id=17592