Acomba (Forum)
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.
Connexion

Récupérer mon mot de passe


MAJ Liste de prix

Voir le sujet précédent Voir le sujet suivant Aller en bas

MAJ Liste de prix

Message  line b le Mer 5 Aoû 2009 - 18:39

Bonjour,

Je viens d'être embauchée dans une entreprise. Je suis en train de me familiariser avec Acomba.
Je suis développeur ACCESS de formation.
Aujourd'hui je viens d'apprendre que mon patron modifie les prix des produits dans un fichier et que par la suite il me demande de modifier les prix dans Acomba pour les memes produits.
Donc une cloche m'a sonné et je sais qu'Acomba permet l'importation ou exportation de données.

Je me suis procurer un numéro d'enregistrement d'une durée de 15 jours afin de me familiariser avec la possibillité de programmer une interface via ACCESS.
Ma question est :

Est-ce un projet de longue haleine ? est-ce que cela implique plusieurs tables ?
Quelqu'un pourrait me donner les étapes à suivre afin de gagner du temps

Merci de votre aide

line b

Nombre de messages : 3
Date d'inscription : 05/08/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

MAJ Liste de prix

Message  PlanteG le Jeu 6 Aoû 2009 - 14:24

Le pilote ODBC est accompagné d' un fichier d'aide qui décrit les tables et la façon de travailler avec Access (et Excel). En gros, vous êtes en mesure d'importer les tables d'Acomba comme si elles étaient de types relationnelles. Donc vous pouvez voir le contenu et le modifier. Vous êtes également en mesure d'accéder aux données par programmation.

Dans votre cas, ce sont les tables de l'inventaire qui vont vous intéresser. Il y a un exemple appelé Modification d'une composante qui vous intéressera.

La seule autre façon d'accéder aux données d'Acomba de l'extérieur est d'utiliser le SDK. Il est gratuit, mais c'est ce n'est pas aussi simple.
avatar
PlanteG

Nombre de messages : 989
Ville : Québec
Date d'inscription : 11/07/2007

Fiche d'Entreprise
Nom de l'entreprise: Informatique Gilles Plante

Voir le profil de l'utilisateur http://ingp.ca

Revenir en haut Aller en bas

Re: MAJ Liste de prix

Message  line b le Jeu 6 Aoû 2009 - 16:23

Merci beaucoup pour vs informations. Elles me seront utiles.

line b

Nombre de messages : 3
Date d'inscription : 05/08/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Modification de prix...

Message  Lartis le Jeu 6 Aoû 2009 - 23:45

Bonjour,

C'est un projet très simple. Si vous n'avez ni items ni composantes, vous n'avez besoin que de la table "Product", qui est une table dans laquelle vous pouvez écrire directement.

Si vous modifier le prix 1, vous modifier le champs PrSellingPrice0_1, prix 2 PrSellingPrice0_2. Pour le prix 1 US, ça serait PrSellingPrice1_1.

Voici un exemple qui fait pratiquement exactement ce que vous voulez. Il suppose une table locale Tb_ChangementPrix contenant PrNumber et PrPrixVendantX (votre nouveau prix). La table Acomba Product doit être linkée.

Code:

Sub ChangePrix()
On Error GoTo Error_Sub

    Dim db As Database
    Dim RsFrom As Recordset
    Dim RsTo As Recordset
    Set db = CurrentDb()
    Set RsFrom = db.OpenRecordset("SELECT * from Tb_ChangementPrix")
   
    While Not RsFrom.EOF
       
        Set RsTo = db.OpenRecordset("SELECT * from Product WHERE PrNumber = """ & RsFrom!PrNumber & """")
       
        If RsTo.EOF Then
            MsgBox "produit " & RsFrom!PrNumber & " inexistant dans Acomba"
        Else
            RsTo.Edit
            'If (RsFrom!PrPrixVendant1 > 0) Then
            'RsTo!PrSellingPrice0_1 = RsFrom!PrPrixVendant1
            'If (RsFrom!PrPrixVendant2 > 0) Then
            'RsTo!PrSellingPrice0_2 = RsFrom!PrPrixVendant2
            'If (RsFrom!PrPrixVendant3 > 0) Then
            RsTo!PrSellingPrice0_3 = RsFrom!PrPrixVendant3
            'RsTo!PrSellingPrice0_4 = RsFrom!PrPrixVendant4
            'RsTo!PrSellingPrice0_5 = RsFrom!PrPrixVendant5
            'RsTo!PrUPC = RsFrom!PrCUP
            RsTo.Update
       
        End If
        RsFrom.MoveNext
    Wend
   
    RsFrom.Close
    RsTo.Close
    db.Close
    Set RsFrom = Nothing
    Set RsTo = Nothing
    Set db = Nothing
   
Exit_Sub:
    Exit Sub
Error_Sub:
    MsgBox Err.Description
    Resume Exit_Sub
End Sub

_________________
Sylvain Laurence, partenaire, revendeur et développeur Acomba
Groupe Conseil Lartis Inc. www.lartis.com
avatar
Lartis

Nombre de messages : 640
Ville : Laval
Date d'inscription : 03/04/2007

Fiche d'Entreprise
Nom de l'entreprise: Groupe Conseil Lartis Inc.

Voir le profil de l'utilisateur http://www.lartis.com

Revenir en haut Aller en bas

Re: MAJ Liste de prix

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum