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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
| procedure TForm1.BtCptTable_EClick(Sender: TObject);
Var
vMSExcel,
vXLClasseurs,
vXLClasIEP,
vXLClasTbl,
vFeuilIEP,
vFeuilTbl,
vRangeIEP,
vRangeTbl : variant;
CptT, CptP : Word;
NbCol : Byte;
CptTable : Byte;
Colonne : String[2];
LChamps : TStrings;
LChpsIE : TStrings;
ChampAbsent : Boolean;
AffTrouve : Boolean;
begin
LChamps := Tstringlist.Create;
LChamps.LoadFromFile(ChBasR + 'ListeChamps_E.TXT'); // Charge depuis le fichier
FBaseT := ChBasR + FTbl_E;
FBaseD := ChBasR + FIEP_E;
Memo1.Lines.Add('FBaseT: ' + FBaseT);
Memo1.Lines.Add('FBaseD: ' + FBaseD);
BtMaJTable_E.Enabled := true;
ChampAbsent := False;
AffTrouve := False;
vMSExcel := CreateOleObject('Excel.Application'); // Crée l'interface
vMSExcel.Visible := False; // Interface invisible
vMSExcel.DisplayAlerts := False ; // message d'alerte en route
try
vXLClasseurs := vMSExcel.Workbooks;
// BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE -
vXLClasTbl := vXLClasseurs.Open(FBaseT,unassigned,True); // IEP ReadOnly à True
vFeuilTbl := vXLClasTbl.WorkSheets[1];
vFeuilTbl.UsedRange.Select; // La plage de cellules utilisées est sélectionnée
Memo1.Lines.Add('Feuille de Table_x sélectionnée');
vFeuilTbl.UsedRange.Sort(vFeuilTbl.Range['A1','A1'], xlDescending,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
xlGuess, 1, False, xlTopToBottom, EmptyParam); // La plage sélectionnée est triée
Memo1.Lines.Add('plage de Table_x sélectionnée est triée');
NbTLigT := vFeuilTbl.UsedRange.Rows.count; // Nombre de lignes utilisées dans la table
Memo1.Lines.Add('Nombre de lignes utilisées dans la table Table_x : ' + IntToStr(NbTLigT));
vRangeTbl := vFeuilTbl.Range['A1', 'V' + IntToStr(NbTLigP)].Value;
Finally
vXLClasTbl.Close; // vXLWorkbook.Close(vSaveChanges, aFileName);
VarClear(vXLClasTbl); // Variant effacé
VarClear(vFeuilTbl); // Variant effacé
End;
// BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE - BASE -
try
// IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP -
vXLClasIEP := vXLClasseurs.Open(FBaseD,unassigned,True); // IEP ReadOnly à True
Memo1.Lines.Add('Classeur ouvert: ' + FBaseD);
vFeuilIEP := vXLClasIEP.WorkSheets[1];
vFeuilIEP.UsedRange.Select; // La plage de cellules utilisées est sélectionnée
Memo1.Lines.Add('Feuille de Export sélectionnée');
vFeuilIEP.UsedRange.Sort(vFeuilIEP.Range['A1','A1'], xlDescending,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
xlGuess, 1, False, xlTopToBottom, EmptyParam); // La plage sélectionnée est triée
Memo1.Lines.Add('plage de Export sélectionnée est triée');
NbTLigP := vFeuilIEP.UsedRange.Rows.count; // Nombre de lignes utilisées dans la table
Memo1.Lines.Add('Nombre de lignes utilisées dans la table Export : ' + IntToStr(NbTLigP));
NbCol := vFeuilIEP.UsedRange.Columns.count; // Nombre de Colonnes utilisées dans la table
Memo1.Lines.Add('Nombre de Colonnes utilisées dans la table Export : ' + IntToStr(NbCol));
case NbCol of
01 : Colonne := 'A';
02 : Colonne := 'B';
03 : Colonne := 'C';
04 : Colonne := 'D';
05 : Colonne := 'E';
06 : Colonne := 'F';
07 : Colonne := 'G';
08 : Colonne := 'H';
09 : Colonne := 'I';
10 : Colonne := 'J';
11 : Colonne := 'K';
12 : Colonne := 'L';
13 : Colonne := 'M';
14 : Colonne := 'N';
15 : Colonne := 'O';
16 : Colonne := 'P';
17 : Colonne := 'Q';
18 : Colonne := 'R';
19 : Colonne := 'S';
20 : Colonne := 'T';
21 : Colonne := 'U';
22 : Colonne := 'V';
23 : Colonne := 'W';
24 : Colonne := 'X';
25 : Colonne := 'Y';
26 : Colonne := 'Z';
27 : Colonne := 'AA';
28 : Colonne := 'AB';
29 : Colonne := 'AC';
30 : Colonne := 'AD';
31 : Colonne := 'AE';
end;
vRangeIEP := vFeuilIEP.Range['A1', Colonne + IntToStr(NbTLigP)].Value;
Finally
vXLClasIEP.Close; // vXLWorkbook.Close(vSaveChanges, aFileName);
vMSExcel.DisplayAlerts := True ; // message d'alerte en route
VarClear(vXLClasIEP); // Variant effacé
VarClear(vFeuilIEP); // Variant effacé
End;
// IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP - IEP -
// CONTRÔLE PRESENCE DE TOUS LES CHAMPS NECESSAIRES
try
LChpsIE.Clear;
LChpsIE.Free; // Libération de la mémoire
LChpsIE := Tstringlist.Create;
LChpsIE := VerifPresenceChamps(LChamps, LChamps, vRangeIEP, NbCol);
For CptTable := 0 to LChpsIE.Count -1 do
If AnsiPos('=Absent', LChpsIE.Strings[CptTable]) <> 0 then // Chaîne trouvée
Begin // Ce champs est absent
Memo1.Lines.Add('Dans la table Export : ' + LChpsIE.Strings[CptTable]);
ChampAbsent := True;
End Else Memo1.Lines.Add('Le champs : ' + LChpsIE.Strings[CptTable] +
' est présent dans la table Export');
// CONTRÔLE PRESENCE DE TOUS LES CHAMPS NECESSAIRES TERMINE
// Début du traitement de mise à jour
if Not ChampAbsent then // aucun champ important ne manque
Begin
For CptT := 2 to NbTLigT do
Begin
For CptP := 2 to NbTLigP do
Begin
If AnsiPos(VarToStr(vRangeTbl[1,CptT])), VarToStr(vRangeIEP[1,CptP]) <> 0 then // Chaîne trouvée
Begin // Début de Mise à jour des données sur affaire trouvée
AffTrouve := True;
End; // Fin de Mise à jour des données sur affaire trouvée
End;
If Not AffTrouve then
begin // Début de Mise à jour des données sur affaire NON trouvée
End; // Fin de Mise à jour des données sur affaire NON trouvée
End;
End; // if Not ChampAbsent then // aucun champ important ne manque
// traitement de mise à jour terminé
finally
vMSExcel.DisplayAlerts := True ; // message d'alerte en route
vMSExcel.Quit; // Ferme Excel
VarClear(vMSExcel); // Variant effacé
VarClear(vXLClasseurs); // Variant effacé
VarClear(vRangeIEP); // Variant effacé
VarClear(vRangeTbl); // Variant effacé
LChamps.Free; // Libération de la mémoire
LChpsIE.Free; // Libération de la mémoire
end; // Fin du Try Finally
end;
Function VerifPresenceChamps(Liste, Lret: TStrings; Table: Variant; NbCol: Byte): TStrings;
Var
CptListe, CptTable : Byte;
Trouve : Boolean;
ChTbl, ChIEP : String;
Begin
Trouve := False;
For CptListe := 0 to Liste.Count -1 do
Begin
// Liste.IndexOf('Toto') // -1 si non trouvé ou index si trouvé
ChTbl := Liste.Strings[CptListe];
For CptTable := 1 to NbCol do
Begin
ChIEP := VarToStr(Table[1,CptTable]);
If AnsiPos(ChTbl, ChIEP) <> 0 then // Chaîne trouvée
Begin
Trouve := True;
Lret.Strings[CptListe] := Lret.Strings[CptListe] + '++' + IntToStr(CptTable);
Break;
End;
If ((CptTable = NbCol) and (Not Trouve)) Then
Lret.Strings[CptListe] := Lret.Strings[CptListe] + '=Absent';
End;
Trouve := False;
End;
VerifPresenceChamps := Lret;
End; |
