Gestion du commande

Signaler
Messages postés
6
Date d'inscription
dimanche 6 décembre 2009
Statut
Membre
Dernière intervention
21 mars 2011
-
Messages postés
6
Date d'inscription
dimanche 6 décembre 2009
Statut
Membre
Dernière intervention
21 mars 2011
-
svp comment faire cette exercice ( plz je veux connaitre le solution très urgent svp en vb 2008 )

Module Gest_Commandes

Private Sub Ajouter_Commande(ByVal intNumC As Integer)
'elle permet d'ajouter une nouvelle commande dans le fichier FCOMMANDE
'NB: intNumC est un numéro séquentiel automatique qui représente à la fois
' le numéro d'une commande et sa position dans le fichier FCOMMANDE.
End Sub

Private Sub Ajouter_LigneCom(ByVal intNumC As Integer, ByVal strRef As String)
'elle permet d'ajouter une nouvelle ligne de commande dans FLIGNECOM
End Sub

Private Sub Saisir_Date(ByRef dt As Date)
'elle permet de saisir une date valide
End Sub

Private Function Verifier_Prod(ByVal strRef As String, ByVal intNumC As Integer) As Boolean
'elle permet de retourner:
' VRAI: si strRef existe déjà dans FLIGNECOM avec la même commande intNumC
' FAUX: si strRef n'existe pas dans la commande intNumC
End Function

Private Function Verifier_Dispo(ByVal intPos As Integer, ByVal intNumC As Integer) As Boolean
'elle permet de retourner:
' VRAI: si le produit se trouvant à la position intPos est disponible en stock
' FAUX: s'il n'est pas disponible.
End Function

Private Sub MiseAJour_Stock(ByVal intPos As Integer, ByVal intQteC As Integer)
'elle permet de diminuer la quantité en stock du produit
'se trouvant à la position intPos de la quantité commandée intQteC
End Sub

Function Rechercher_Commande(ByVal intNumC As Integer) As Boolean
'elle permet de retourner
' VRAI: si la commande numéro intNumC existe dans FCOMMANDE
' FAUX: sinon
End Function

Private Sub Afficher_Commande(ByVal intNumC As Integer)
'elle permet d'afficher toutes les informations d'une commande numéro intNumC
'Voici un exemple d'affichage de la commande N°5:
' Numéro Commande : 5
' Date commande : 28/11/2009
' Nom du Client : Société DIDO
' Date Livraison : 28/11/2009
' Produits commandés
' ----------------------------------------------------------------------
' Référence Nom du produit Prix Vente Quantité Total Ligne
' ----------------------------------------------------------------------
' PS100 Papier serviette 100 0.720 100 72,000
' SAVAB Savon Anti-Bactérien 0.550 200 110,000
' DEOBE Déodorant pour bébé 12.000 10 120,000
' ----------------------------------------------------------------------
' Taux Remise: 10% Total Brut: 302,000
' Net à payer: 271,800
End Sub

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
- pas bonjour
- urgent : tout est urgent en ce bas monde : ça énerve plus qu'autre chose
- c'est du VB.2008, donc .Net et tu postes ta question dans la catégorie VB6 : va falloir prendre une décision
- aucune explication
- on ne va pas faire ton exercice à ta place, ce serait un mauvais service à te rendre (ainsi qu'à ton école/employeur). Si tu dois résoudre ce problème, c'est à toi de reflechir et de poser des questions précises, en commençant par expliquer ce que tu as essayé ET en expliquant dans quel environnement tu te trouves ...
Messages postés
6
Date d'inscription
dimanche 6 décembre 2009
Statut
Membre
Dernière intervention
21 mars 2011

aider moi comment faire just 1 seul procedure !!!