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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
-- Création de la table cible
/*
CREATE TABLE dmat_achstk.F_STOCK_MERG_VALO_NORM (
CODE_SOCIETE varchar(3) not null,
NUM_PRODUIT int not null,
CODE_LIEU varchar(5) not null,
ANNEE_MOIS_VALO int not null,
QTE_VALO decimal(18,7) null,
PMP Decimal(18,7) null
)
-- Création de la clé
ALTER TABLE [dmat_achstk].[F_STOCK_MERG_VALO_NORM]
ADD CONSTRAINT [PK_F_STOCK_MERG_VALO_NORM] PRIMARY KEY CLUSTERED (
CODE_SOCIETE,
NUM_PRODUIT,
CODE_LIEU,
ANNEE_MOIS_VALO asc
)
*/
TRUNCATE TABLE dmat_achstk.F_STOCK_MERG_VALO_NORM
DECLARE @New_Produit int,
@New_Societe varchar(3),
@New_Lieu varchar(5),
@New_Date int,
@New_Qte_Val decimal(18,7),
@New_PMP decimal(18,7),
@New_AnneeMois_Valo int,
@New_AnneeMois_Valo_Next int
DECLARE @Last_Produit int,
@Last_Societe varchar(3),
@Last_Lieu varchar(5),
@Last_Date int,
@Last_Qte_Val decimal(18,7),
@Last_PMP decimal(18,7),
@Last_AnneeMois_Valo int,
@Last_AnneeMois_Valo_Next int
Declare Valorisation CURSOR FOR
SELECT
CODE_SOCIETE,
COLIGEOG,
NUMPRODUIT,
DATE_VALO,
PMP,
QTESTOCK,
CEILING(DATE_VALO/100) ANNEEMOIS_VALO,
(CASE WHEN substring(cast(DATE_VALO AS varchar(8)), 5,2)='12' THEN CEILING(DATE_VALO/100)+89 ELSE CEILING(DATE_VALO/100)+ 1 END) ANNEEMOIS_VALO_NEXT
FROM dmat_achstk.F_STOCK_MERG_VALO
ORDER BY
CODE_SOCIETE,
COLIGEOG,
NUMPRODUIT,
DATE_VALO ASC
BEGIN
OPEN Valorisation
FETCH NEXT FROM Valorisation INTO @New_Societe, @New_Lieu, @New_Produit, @New_Date, @New_PMP, @New_Qte_Val, @New_AnneeMois_Valo, @New_AnneeMois_Valo_Next;
SET @Last_Produit = @New_Produit
SET @Last_Societe = @New_Societe
SET @Last_Lieu = @New_Lieu
SET @Last_Date = @New_Date
SET @Last_Qte_Val = @New_Qte_Val
SET @Last_PMP = @New_PMP
SET @Last_AnneeMois_Valo = @New_AnneeMois_Valo
SET @Last_AnneeMois_Valo_Next = @New_AnneeMois_Valo_Next
FETCH NEXT FROM Valorisation INTO @New_Societe, @New_Lieu, @New_Produit, @New_Date, @New_PMP, @New_Qte_Val, @New_AnneeMois_Valo, @New_AnneeMois_Valo_Next;
WHILE @@FETCH_STATUS = 0
BEGIN
-- Si l'on change de Société, de produit ou de lieu, on insère la dernière ligne du triplet Société/Produit/Lieu précédent
IF @New_Produit <> @Last_Produit OR @New_Societe <> @Last_Societe OR @New_Lieu <> @Last_Lieu
BEGIN
INSERT INTO dmat_achstk.F_STOCK_MERG_VALO_NORM VALUES (@Last_Societe, @Last_Produit, @Last_Lieu, @Last_AnneeMois_Valo, @Last_Qte_Val, @Last_PMP)
SET @Last_Produit = @New_Produit
SET @Last_Societe = @New_Societe
SET @Last_Lieu = @New_Lieu
SET @Last_Date = @New_Date
SET @Last_Qte_Val = @New_Qte_Val
SET @Last_PMP = @New_PMP
SET @Last_AnneeMois_Valo = @New_AnneeMois_Valo
SET @Last_AnneeMois_Valo_Next = @New_AnneeMois_Valo_Next
END
-- Si l'on reste sur le même produit/lieu/société pour le même mois, on ne change que la quantité valorisable et le PMP
ELSE IF @New_Produit = @Last_Produit AND @New_Societe = @Last_Societe AND @New_Lieu = @Last_Lieu AND @Last_AnneeMois_Valo = @New_AnneeMois_Valo
BEGIN
SET @Last_Qte_Val = @New_Qte_Val
SET @Last_PMP = @New_PMP
END
-- Si l'on change de mois, la ligne précédente était la dernière occurence du mois précédent: on l'insère.
ELSE IF @New_Produit = @Last_Produit AND @New_Societe = @Last_Societe AND @New_Lieu = @Last_Lieu AND @New_AnneeMois_Valo = @Last_AnneeMois_Valo_Next
BEGIN
INSERT INTO dmat_achstk.F_STOCK_MERG_VALO_NORM VALUES (@Last_Societe, @Last_Produit, @Last_Lieu, @Last_AnneeMois_Valo, @Last_Qte_Val, @Last_PMP)
SET @Last_Produit = @New_Produit
SET @Last_Societe = @New_Societe
SET @Last_Lieu = @New_Lieu
SET @Last_Date = @New_Date
SET @Last_Qte_Val = @New_Qte_Val
SET @Last_PMP = @New_PMP
SET @Last_AnneeMois_Valo = @New_AnneeMois_Valo
SET @Last_AnneeMois_Valo_Next = @New_AnneeMois_Valo_Next
END
-- Si l'on change de mois, mais qu'il y a plus d'un mois d'écart par rapport à la dernière occurence du mois précédent
ELSE IF @New_Produit = @Last_Produit AND @New_Societe = @Last_Societe AND @New_Lieu = @Last_Lieu AND @New_AnneeMois_Valo > @Last_AnneeMois_Valo_Next
BEGIN
-- On positionne la dernière occurence du mois précédent au mois suivant qu'on insère, jusqu'à atteindre le mois attendu
INSERT INTO dmat_achstk.F_STOCK_MERG_VALO_NORM VALUES (@Last_Societe, @Last_Produit, @Last_Lieu, @Last_AnneeMois_Valo, @Last_Qte_Val, @Last_PMP)
WHILE @New_AnneeMois_Valo > @Last_AnneeMois_Valo_Next
BEGIN
SET @Last_AnneeMois_Valo = (
CASE
WHEN substring(cast(@Last_AnneeMois_Valo AS varchar(6)), 5,2)='12'
THEN @Last_AnneeMois_Valo+89
ELSE @Last_AnneeMois_Valo+ 1
END
)
SET @Last_AnneeMois_Valo_Next = (
CASE
WHEN substring(cast(@Last_AnneeMois_Valo_Next AS varchar(6)), 5,2)='12'
THEN @Last_AnneeMois_Valo_Next+89
ELSE @Last_AnneeMois_Valo_Next+ 1
END
)
INSERT INTO dmat_achstk.F_STOCK_MERG_VALO_NORM VALUES (@Last_Societe, @Last_Produit, @Last_Lieu, @Last_AnneeMois_Valo, @Last_Qte_Val, @Last_PMP)
END
SET @Last_Produit = @New_Produit
SET @Last_Societe = @New_Societe
SET @Last_Lieu = @New_Lieu
SET @Last_Date = @New_Date
SET @Last_Qte_Val = @New_Qte_Val
SET @Last_PMP = @New_PMP
SET @Last_AnneeMois_Valo = @New_AnneeMois_Valo
SET @Last_AnneeMois_Valo_Next = @New_AnneeMois_Valo_Next
END
FETCH NEXT FROM Valorisation INTO @New_Societe, @New_Lieu, @New_Produit, @New_Date, @New_PMP, @New_Qte_Val, @New_AnneeMois_Valo, @New_AnneeMois_Valo_Next;
END
-- On insère la dernière ligne remontée
INSERT INTO dmat_achstk.F_STOCK_MERG_VALO_NORM VALUES (@Last_Societe, @Last_Produit, @Last_Lieu, @Last_AnneeMois_Valo, @Last_Qte_Val, @Last_PMP)
CLOSE Valorisation
DEALLOCATE Valorisation
END |
30/06/2011, 12h46
Optimisation de code T-SQL (DEBUTANT)
00
