Discussion :

[Safaritn]

Bonjour à toutes et à tous,
Est-ce qu'on peut avoir l'état de stock à une date donnée, en particulier celui au 31 décembre de chaque année en utilisant la table ITMMVTHIS ? Et comment le faire ?
Merci pour votre collaboration.

[MARCELBENH]

Perso j'ai créé une extraction excel qui va lancer une requête union entre la table stock et historique, ensuite je fonctionne par TCD

[casamounir]

Bonjour,

Merci de bien vouloir nous expliquer en détaille comment vous faites pour avoir une situation à date avec cette méthode.

En fait, j'aimerais bien aussi comment vous faite pour calculer votre stock moyen afin de déterminer le coefficient de rotation de stock sur SAGE si c'est possible.

Merci d'avance.

Perso j'ai créé une extraction excel qui va lancer une requête union entre la table stock et historique, ensuite je fonctionne par TCD

[MARCELBENH]

Bonjour,
en fait je fais une requête union entre la table stock et stojou
en mettant les quantités de stojou en négatif.

[MARCELBENH]

voici le code de la macro excel avec la requete intégrée
note : la requete est la concaténation des Rq1 à RQ21

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
 
Sub Bouton2_QuandClic()
'----------------------------------------------------------------------------------------------------------------
'                                           Consultation des stocks à date
'  AUTEUR : HUGUES THELOHAN
'  DATE   :  17/03/2009
'  OBJET  : REQUETE UNION QUI VA CONSULTER LA TABLE STOCKS PUIS STOJOU POUR ALIMENT UN TCD
'-----------------------------------------------------------------------------------------------------------------
 
'-----------------------------------------------------------------------------------------------------------------
'   1 - SUPPRESSION DU CONTENU DE LA REQUETE PRECEDENTE
'-----------------------------------------------------------------------------------------------------------------
    Range("A2", "E60000").Select
    Selection.ClearContents
 
'----------------------------------------------------------------------------------------------------------------
' FEUILLE SELECTION : contient les filtres à paramétrer
'---------------------------------------------------------------------------------------------------------------
    Sheets("selection").Select
 
    Range("A2:E2").Select
 
    With Selection.QueryTable
    '------------------------------------------------------------------------------------------------------------
    ' SELECTION DE L ODBC OXYLEC
    '------------------------------------------------------------------------------------------------------------
        .Connection = _
        "ODBC;DSN=OXYLEC;UID=hthelohan;APP=Microsoft Office XP;WSID=INFORMATIQUE;DATABASE=sagex3v5p;Network=DBMSSOCN;Trusted_Connection=Yes"
    '------------------------------------------------------------------------------------------------------------
    ' REQUETE 1 :
    '            SELECT DANS STOCK ET ITMMASTER
    '            Champs :
    '               - ITMMASTER.TCLCOD_0    -> CATEGORIE ARTICLE
    '               - STOCK.ITMREF_0        -> REFERENCE ARTICLE
    '               - ITMMASTER.ITMDES1_0   -> DESIGNATION1 FICHE ARTICLE
    '               - STOCK.LOT_0           -> LOT
    '               - STOCK.STA_0           -> STATUT (A,Q,R ...)
    '               -sum(STOCK.QTYSTU_0)    -> SOMME QTE REGROUPEE PAR CRITERES PRECEDENTS
    '           Condition : appartenance à la catégorie mise dans J 13
    '---------------------------------------------------------------------------------------------------------------
 
        rq1 = "SELECT ITMMASTER.TCLCOD_0 CAT,STOCK.ITMREF_0 REF, ITMMASTER.ITMDES1_0 DESIGN,STOCK.LOT_0 LOT, STOCK.STA_0 STA,   sum(STOCK.QTYSTU_0) QTY "
        rq11 = "FROM sagex3v5p.OXYGENE.ITMMASTER ITMMASTER,sagex3v5p.OXYGENE.STOCK STOCK where ITMMASTER.ITMREF_0=STOCK.ITMREF_0 and ITMMASTER.TCLCOD_0='" + Cells(13, 10) + "' group by ITMMASTER.TCLCOD_0,STOCK.ITMREF_0,ITMMASTER.ITMDES1_0,STOCK.LOT_0, STOCK.STA_0 "
    '------------------------------------------------------------------------------------------------------------
    ' REQUETE 2 :
    '            SELECT DANS STOJOU ET ITMMASTER
    '            Champs :
    '               - ITMMASTER.TCLCOD_0    -> CATEGORIE ARTICLE
    '               - STOJOU.ITMREF_0       -> REFERENCE ARTICLE
    '               - ITMMASTER.ITMDES1_0   -> DESIGNATION1 FICHE ARTICLE
    '               - STOJOU.LOT_0          -> LOT
    '               - STOJOU.STA_0          -> STATUT (A,Q,R ...)
    '               - -sum(STOJOU.QTYSTU_0) -> -SOMME QTE REGROUPEE PAR CRITERES PRECEDENTS
    '           Condition : appartenance à la catégorie mise dans J 13 et date > date précisée
    '---------------------------------------------------------------------------------------------------------------
 
        rq2 = " union SELECT ITMMASTER.TCLCOD_0,STOJOU.ITMREF_0,ITMMASTER.ITMDES1_0 DESIGN, STOJOU.LOT_0, STOJOU.STA_0, -sum(STOJOU.QTYSTU_0) FROM sagex3v5p.OXYGENE.ITMMASTER ITMMASTER,sagex3v5p.OXYGENE.STOJOU STOJOU where ITMMASTER.ITMREF_0=STOJOU.ITMREF_0"
        rq21 = " and STOJOU.IPTDAT_0>'" + Cells(9, 10) + "' and ITMMASTER.TCLCOD_0='" + Cells(13, 10) + "' group by ITMMASTER.TCLCOD_0,STOJOU.ITMREF_0,ITMMASTER.ITMDES1_0,STOJOU.LOT_0, STOJOU.STA_0"
        rq = Array(rq1, rq11, rq2, rq21)
        .CommandText = rq
        .Refresh BackgroundQuery:=False
    End With
    Range("A2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    '------------------------------------------------------------------------------------------------------------
    'RAFRAICHISSEMENT DU TCD RESULTATS
    '------------------------------------------------------------------------------------------------------------
 
    Sheets("Résultat").Select
    Range("B8").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
End Sub

[pytha]

Merci pour le code c'est sympa de ta part