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


Ajustement d'inventaire

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

Ajustement d'inventaire

Message  Lee Ann Hogle le Lun 12 Nov 2007 - 15:30

Bonjour,
J'essaie de faire une ajustement d'inventaire sur tous les composants d’un produit.
J'utilise le code exemple dans le Help ODBC mais c'est excessivement long d'ouvrir la table ProductTrail ( ou ca bug ). Quand je fais le query directe dans Access c’est très longue aussi. Je n'ai pas de problème en utilisant la méthode
cnn.execute " insert into ProductTrail ...”
mais il faut que je utilise les variables .
Votre aide serait apprécié
Voici mon code :
Code:

Dim cnn As New ADODB.Connection
Dim rstInventaire As New ADODB.Recordset
Dim rstProduct As New ADODB.Recordset
Dim rstComponents As New ADODB.Recordset
cnn.ConnectionString = "DSN=Acomba23;DBQ=C:\F1000.DTA\cieTest\test23oct; UID=supervisor;PWD=xxxxx"
cnn.CursorLocation = adUseClient
cnn.Open
'Recherche du produit auquel on veut ajuster l'inventaire pour obtenir son CP
rstProduct.Open "SELECT * FROM Product where PrNumber = 'ZDV100-GRIS01'", cnn, adOpenKeyset, adLockOptimistic

'Ouverture de la table pour l'ajustement d'inventaire
rstInventaire.Open "SELECT * FROM ProductTrail", cnn, adOpenKeyset, adLockOptimistic

rstInventaire.AddNew

'CP du produit traité
rstInventaire!PTProductCP = rstProduct!RecCardPos

'Tr_Purchase 1 Achat
'Tr_Sale 2 Vente
'Tr_Adjustment 3 Ajustement
rstInventaire!PTTraceType = Tr_Adjustment
rstInventaire!PTQuantity = 11
rstInventaire!PTCost = 66.66
rstInventaire.Update

rstInventaire.Close

cnn.Close

MsgBox "Inventaire ajusté"
End Sub

Lee Ann Hogle

Nombre de messages : 1
Date d'inscription : 12/11/2007

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Ajustement d'inventaire : filtrer la requête

Message  Lartis le Jeu 22 Mai 2008 - 17:23

Bonjour,

J'ai eu un problème très semblable et voici la solution:

Remplace ta requête SELECT par:

Code:
rstInventaire.Open "SELECT * FROM ProductTrail [b]WHERE RecCardPos = 0[/b]", cnn, adOpenKeyset, adLockOptimistic

Cette requête ne retournera rien, mais comme tu fais un insert dedans, ce n'est pas grave. Le select sera instantanné, puisque la colonne RecCardPos est indexé.

Bonne chance,
.


Dernière édition par Alex le Jeu 22 Mai 2008 - 18:15, édité 1 fois (Raison : Balises de code)

_________________
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

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