Discussion :

[Lissam54]

Bonjour, je développe en ABAP depuis 6 mois environ et je me retrouve face à un cas que je n'arrive pas à résoudre. Je m'explique :
Dans son ancienne version, mon programme ABAP devait afficher des données extraites de la base de donnée, je stock donc toutes ces données dans un table interne pour pouvoir les exploiter facilement puis j'utilise l'ALV pour les afficher. Jusque là tout va bien.
Dans la nouvelle version, le programme doit afficher ces données puis les retrier en fonction des champs affichés à chaque fois que l'utilisateur masque un champ.
Cela fonctionne...mais juste une fois...
Voici le code (que j'ai simplifié et réduit à un cas basique pour une meilleur compréhension du problème) :

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
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
REPORT ZTESTALEX01 NO STANDARD PAGE HEADING.
TYPE-POOLS: slis.
CLASS cl_event_receiver DEFINITION DEFERRED.
*&-------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&-------------------------------------------------------------------*
* text
*--------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
 SET PF-STATUS 'MAIN'.
 SET TITLEBAR 'ALV_EXAMPLES'.
ENDMODULE. " STATUS_0100 OUTPUT
MODULE display_grid OUTPUT.
 PERFORM read_data.
 PERFORM display_grid.
ENDMODULE.
MODULE user_command_0100 INPUT.
* to react on oi_custom_events:
 call method cl_gui_cfw=>dispatch.
 CASE sy-ucomm.
 WHEN 'BACK' OR
 'EXIT' OR
 'CANCEL'.
 LEAVE PROGRAM.
 WHEN OTHERS.
* do nothing
 ENDCASE.

ENDMODULE.

TYPES: BEGIN OF ty_mara,
 MATNR LIKE MARA-MATNR, "Article
 ZZBIOJFA LIKE MARA-ZZBIOJFA, "Article bio
 MTART LIKE MARA-MTART, "
 ZZFRUIT LIKE MARA-ZZFRUIT, "
 ZZALLERGENE LIKE MARA-ZZALLERGENE, "
 PRDHA LIKE MARA-PRDHA, "
 LABOR LIKE MARA-LABOR, "lab./bureau d'étude
END OF ty_mara.

DATA: g_cont TYPE REF TO cl_gui_custom_container,
 g_grid TYPE REF TO cl_gui_alv_grid,
 rcv_ev TYPE REF TO cl_event_receiver,
 gs_layout TYPE lvc_s_layo,
 it_mara TYPE TABLE OF ty_mara,
 it_aff TYPE TABLE OF ty_mara,
 wa_mara TYPE ty_mara,
 it_fieldcat TYPE lvc_t_fcat,
 wa_fieldcat TYPE lvc_s_fcat,
 NOOUT1 TYPE STRING,
 NOOUT2 TYPE STRING,
 TEST TYPE C VALUE 'X',
 l_valid TYPE C,
 RS_SELFIELD TYPE SLIS_SELFIELD.
FIELD-SYMBOLS : <mara>,<aff>,<field> TYPE lvc_s_fcat ,<from>,<to>.
TABLES: MARA.

* CLASS lcl_events_d0100 DEFINITION
 class cl_event_receiver definition.

 public section.
 methods:
 handle_after_refresh for event after_refresh
 of cl_gui_alv_grid.
endclass. "lcl_events_d0100 DEFINITION
* CLASS lcl_events_d0100 IMPLEMENTATION
 class cl_event_receiver implementation.

* METHOD after_refresh *
 method handle_after_refresh.
 IF TEST = 'X'.
 perform d0100_event_after_refresh.
 ENDIF.
 endmethod. "after_refresh *
endclass. "lcl_events_d0100 IMPLEMENTATION
INITIALIZATION.
 PERFORM REMPLIR_AFFICHAGE.
 START-OF-SELECTION.
 CALL SCREEN 0100.

*&-------------------------------------------------------------------*
*& Form read_data
*&-------------------------------------------------------------------*
FORM read_data.
 SELECT MATNR ZZBIOJFA MTART ZZFRUIT ZZALLERGENE PRDHA LABOR
 INTO CORRESPONDING FIELDS OF TABLE it_mara
 FROM MARA.
ENDFORM.

*&-------------------------------------------------------------------*
*& Form display_grid
*&-------------------------------------------------------------------*
FORM display_grid.
 IF g_cont IS INITIAL.
 CREATE OBJECT g_grid
 EXPORTING
 i_appl_events = 'X'
 i_parent = cl_gui_container=>default_screen.

* create handler
 CREATE OBJECT rcv_ev.

* register handler for events
 SET HANDLER rcv_ev->handle_after_refresh FOR g_grid.

 CALL METHOD g_grid->set_table_for_first_display
* EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME = 'MARA'
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
 CHANGING
 it_outtab = it_aff
 IT_FIELDCATALOG = it_fieldcat
* IT_SORT =
* IT_FILTER =
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 ENDIF.
ENDFORM.

FORM REMPLIR_AFFICHAGE.
 wa_fieldcat-col_pos = 1.
 wa_fieldcat-fieldname = 'MATNR'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
 wa_fieldcat-col_pos = 2.
 wa_fieldcat-fieldname = 'ZZBIOJFA'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
 wa_fieldcat-col_pos = 3.
 wa_fieldcat-fieldname = 'MTART'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
 wa_fieldcat-col_pos = 4.
 wa_fieldcat-fieldname = 'ZZFRUIT'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
 wa_fieldcat-col_pos = 5.
 wa_fieldcat-fieldname = 'ZZALLERGENE'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
 wa_fieldcat-col_pos = 6.
 wa_fieldcat-fieldname = 'PRDHA'.
 wa_fieldcat-tabname = 'TB_MARA'.
 wa_fieldcat-ref_table = 'MARA'.
 APPEND wa_fieldcat TO it_fieldcat.
 clear wa_fieldcat.
ENDFORM.



FORM d0100_event_after_refresh.

 CLEAR TEST. "Pour éviter le redondance de l'événement after refresh
 CLEAR it_aff. "La table devant etre affichée
* CLEAR it_fieldcat[].
* if g_grid is INITIAL.
 CALL METHOD g_grid->get_frontend_fieldcatalog
 IMPORTING
 et_fieldcatalog = it_fieldcat[].
* ENDIF.
 LOOP AT it_mara ASSIGNING <mara>.
     APPEND INITIAL LINE TO it_aff ASSIGNING <aff>.
     LOOP AT it_fieldcat ASSIGNING <field> WHERE no_out IS INITIAL AND tech IS INITIAL.
         ASSIGN COMPONENT <field>-fieldname OF STRUCTURE <mara> TO <from>.
         CHECK <from> IS ASSIGNED.
         ASSIGN COMPONENT <field>-fieldname OF STRUCTURE <aff> TO <to>.
         CHECK <to> IS ASSIGNED.
         <to> = <from>.
     ENDLOOP.
 ENDLOOP.

* CALL METHOD g_grid->set_frontend_fieldcatalog
* EXPORTING
* it_fieldcatalog = it_fieldcat.
* IF g_grid is NOT INITIAL.
* call METHOD g_grid->check_changed_data
* IMPORTING
* e_valid = l_valid.
* ENDIF.
* rs_selfield-refresh = l_valid.


 SORT it_aff ASCENDING. "On trie toutes les données
 DELETE ADJACENT DUPLICATES FROM it_aff COMPARING ALL FIELDS. "On supprime les duplicatas

 IF g_grid is NOT INITIAL.
 CALL METHOD g_grid->refresh_table_display."Reaffichage
 ENDIF.

 TEST = 'X'.

ENDFORM.

Merci d'avance , bonne journée
Alexandre

[Lissam54]

IF g_grid IS INITIAL. "ne pas utiliser g_cont !
CREATE OBJECT g_grid


G_CONT était toujours initial.