GESTION COMMANDE

Commentaire de Gwendal3 le 07/02/2008 18:45:46

Salut,

Il ne manquerait pas la base ?
Autrement, avec ma petite expérience, le code est compréhensif, bonne présentation...

Gwendal

Commentaire de hamdi802 le 06/12/2009 12:58:42

svp comment faire cette exercice ( plz je veux connaitre le solution très urgent )

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

End Module

Commentaire de wmlc le 22/12/2009 10:43:20

Bonjour
Pouvons nous avoir la base de données de ton exemple