hamdi802
Messages postés6Date d'inscriptiondimanche 6 décembre 2009StatutMembreDernière intervention21 mars 2011
-
7 déc. 2009 à 19:56
hamdi802
Messages postés6Date d'inscriptiondimanche 6 décembre 2009StatutMembreDernière intervention21 mars 2011
-
9 déc. 2009 à 17:58
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
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 7 déc. 2009 à 21:13
- 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 ...