Gruppierung im ALV unterdrücken

Gruppierung im ALV unterdrücken

Hallo,

ich habe ein kleines Problem. Ich habe ein ALV-Grid mit Hilfe des FB erstellt und habe eine Sortierung auf den ersten beiden Spalten sitzen. Diese beiden Spalten werden dann immer bei gleichen Inhalt gruppiert. In einer alten Programmversion ist das ALV noch als OO-Aufruf definiert und dort gibt es das Problem nicht. Beim Neuaufbau soll jetzt aber der FB genutzt werden.

Ich bin der Meinung, die Lösung hier schon mal gesehen zu haben, aber wie das so ist, finde ich sie jetzt gerade nicht.

Ich hoffe mal es kann mir jemand helfen.

Danke

Grüsse

Marko Schmid

Danke für die schnelle Antwort. Damit ist mein Problem allerdins nur zur Hälfte gelöst. Ich würde das Häckchen gerne während des Programmlaufes setzen, nicht erst wenn das ALV angezeigt wird. Ich bräuchte also in der FB-Schnittstelle das Feld, mit dem ich das Häckchen aktivieren kann.

Danke

Gruss

Marko

Hallo,

warum nimmst du denn den alten FB?
Die werden doch eh nicht mehr weiter entwickelt.
Nur die Methode SET_TABLE_FOR_FIRST_DISPLAY wird grundsätzlcih vom SAP-Support weiter unterstützt/entwickelt. Letztlich ist das ja ein Rückschritt.
Aber zum Problem: sowas löse ich immer mit einem Layout-Feld, das man auf dem Selektionsbildschirm eingeben kann. Der ALV kommt dann mit diesem voreingestelllten Layout hoch.

* ALV Ausgabe (ABAP LIST VIEWER).......................................*
DATA: OK_CODE LIKE SY-UCOMM,
SAVE_OK_CODE LIKE SY-UCOMM,
G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_DOCKING_CONTAINER,
GS_LAYOUT TYPE LVC_S_LAYO,
I_SORT TYPE LVC_T_SORT,
W_SORT TYPE LVC_S_SORT,
GS_SORT TYPE LVC_T_SORT,
GS_PRINT TYPE LVC_S_PRNT,
GT_SORT TYPE LVC_T_SORT,
WS_SORT LIKE LINE OF GS_SORT,
ET_FIELDCAT TYPE LVC_T_FCAT,
I_FIELDCAT TYPE LVC_T_FCAT,
W_FIELDCAT LIKE LINE OF I_FIELDCAT,
GS_VARIANT TYPE DISVARIANT,
L_REPID LIKE SY-REPID.

*---------------------------------------------------------------------*
* FORM alvl_check *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> P_VARIANT *
* --> P_LID1 *
*---------------------------------------------------------------------*
FORM ALVL_CHECK USING P_VARIANT TYPE SLIS_VARI
P_LID1 TYPE AQL_LID.

DATA: L_DISVARIANT TYPE DISVARIANT.

IF P_VARIANT = SPACE.
EXIT.
ENDIF.

* Existenzcheck ..................................................*
L_DISVARIANT-REPORT = SY-CPROG.
L_DISVARIANT-VARIANT = P_VARIANT.
L_DISVARIANT-LOG_GROUP = P_LID1.

CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'
EXPORTING
I_SAVE = 'A'
CHANGING
CS_VARIANT = L_DISVARIANT
EXCEPTIONS
OTHERS = 1.

IF SY-SUBRC <> 0.
MESSAGE E840(AQ) WITH P_VARIANT.
ENDIF.

MOVE-CORRESPONDING L_DISVARIANT TO GS_VARIANT.

ENDFORM. " ALVL_CHECK
*---------------------------------------------------------------------*
* FORM alvl_value_request *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> P_VARIANT *
* --> P_LID1 *
*---------------------------------------------------------------------*
FORM ALVL_VALUE_REQUEST USING P_VARIANT TYPE SLIS_VARI
P_LID1 TYPE AQL_LID.

DATA: L_DISVARIANT TYPE DISVARIANT.

* Wertehilfe ........................................................*
L_DISVARIANT-REPORT = SY-CPROG.
L_DISVARIANT-VARIANT = P_VARIANT.
L_DISVARIANT-LOG_GROUP = P_LID1.

CALL FUNCTION 'LVC_VARIANT_SAVE_LOAD'
EXPORTING
I_SAVE_LOAD = 'F'
I_TABNAME = '1'
CHANGING
CS_VARIANT = L_DISVARIANT
EXCEPTIONS
OTHERS = 1.

IF SY-SUBRC = 0.
P_VARIANT = L_DISVARIANT-VARIANT.
ELSE.
MESSAGE E066(Z01).
ENDIF.

MOVE-CORRESPONDING L_DISVARIANT TO GS_VARIANT.

ENDFORM. " ALVL_VALUE_REQUEST


*----------------------------------------------------------------------*
* A T S E L E C T I O N - S C R E E N
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
PERFORM ALVL_CHECK USING %ALVL ' '.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR %ALVL .
PERFORM ALVL_VALUE_REQUEST USING %ALVL ' '.


und im PBO:
*Feld Report muss für Layoutspeicherung versorgt werden...............*
G_REPID = SY-CPROG.
GS_VARIANT-REPORT = G_REPID.
GS_VARIANT-VARIANT = %ALVL.
...weiteres Tralala

CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = <F>
I_SAVE = 'X'
IS_VARIANT = GS_VARIANT
I_DEFAULT = 'X'
IS_LAYOUT = GS_LAYOUT
IS_PRINT = GS_PRINT
CHANGING
IT_OUTTAB = <T>
IT_FIELDCATALOG = I_FIELDCAT
IT_SORT = I_SORT
EXCEPTIONS
OTHERS = 1 .

Fertisch!! Oder hab ich die Frage falsch verstanden ?