Select-Option füllen auf Grundlage anderes Feld

Re: Select-Option füllen auf Grundlage anderes Feld

Tja, ohne Coding können wir nur raten...

Re: Select-Option füllen auf Grundlage anderes Feld

Hallo,

ich habs jetzt mal eingedampft. Allerdings habt ihr ja nicht die Z-Tabelle

REPORT YDUMMY82.
TABLES: PPDIT,PA0001.
DATA: L_BEGDA LIKE SY-DATUM.
SELECTION-SCREEN: BEGIN OF BLOCK A WITH FRAME TITLE TEXT-201.
PARAMETERS: P_MONAT LIKE PC261A-FPPER.
SELECT-OPTIONS: P_GSBER FOR PPDIT-GSBER MATCHCODE OBJECT H_TGSB,
P_KOSTL FOR PPDIT-KOSTL MATCHCODE OBJECT KOST.
SELECTION-SCREEN: END OF BLOCK A.

INITIALIZATION.
P_MONAT = '012018'.


AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
IF SCREEN-NAME = 'P_BUDGET'.
SCREEN-INVISIBLE = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.


AT SELECTION-SCREEN ON P_GSBER.
PERFORM FILL_SELECTION_TABLE_KOSTL.

AT SELECTION-SCREEN.

START-OF-SELECTION.

*&---------------------------------------------------------------------*
*& Form FILL_SELECTION_TABLE_KOSTL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FILL_SELECTION_TABLE_KOSTL .

DATA: L_KOSTLAB TYPE ZKOSTLAB.
DATA: L_KOSTLBI TYPE ZKOSTLAB.
DATA: I_ZSX_Z02 LIKE TABLE OF ZSX_Z02,
W_ZSX_Z02 LIKE LINE OF I_ZSX_Z02.

CLEAR: I_ZSX_Z02. REFRESH: I_ZSX_Z02.
DESCRIBE TABLE P_GSBER.
CASE SY-TFILL.
WHEN 0.
WHEN OTHERS.
SELECT * FROM ZSX_Z02 INTO TABLE I_ZSX_Z02 WHERE GSBER IN P_GSBER AND
ZZHAUSGE NE 'X'.
CLEAR: P_KOSTL. REFRESH: P_KOSTL.
LOOP AT I_ZSX_Z02 INTO W_ZSX_Z02.
CONCATENATE '00' W_ZSX_Z02-ZZHAUSN '00000' INTO L_KOSTLAB.
CONCATENATE '00' W_ZSX_Z02-ZZHAUSN '99999' INTO L_KOSTLBI.
PERFORM FILL_SELECTION_TABLE TABLES P_KOSTL USING 'I' 'BT' L_KOSTLAB L_KOSTLBI.
ENDLOOP.
ENDCASE.

ENDFORM. " FILL_SELECTION_TABLE_KOSTL
*&---------------------------------------------------------------------*
*& Form FILL_SELECTION_TABLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_KOSTL text
* -->P_5454 text
* -->P_5455 text
* -->P_L_KOSTLAB text
* -->P_L_KOSTLBI text
*----------------------------------------------------------------------*
FORM FILL_SELECTION_TABLE TABLES T_RANGE
USING P_SIGN
P_OPTION
P_LOW
P_HIGH.

FIELD-SYMBOLS : <FS>.
ASSIGN COMPONENT 'SIGN' OF STRUCTURE T_RANGE TO <FS>.
<FS> = P_SIGN.
ASSIGN COMPONENT 'OPTION' OF STRUCTURE T_RANGE TO <FS>.
<FS> = P_OPTION.
ASSIGN COMPONENT 'LOW' OF STRUCTURE T_RANGE TO <FS>.
<FS> = P_LOW.
ASSIGN COMPONENT 'HIGH' OF STRUCTURE T_RANGE TO <FS>.
<FS> = P_HIGH.
APPEND T_RANGE.

ENDFORM. " FILL_SELECTION_TABLE

Re: Select-Option füllen auf Grundlage anderes Feld

Legxis hat geschrieben:Müsste so gehen

Code: Alles auswählen.

AT SELECTION-SCREEN.
  REFRESH P_KOSTL.
  IF P_GSBER IS NOT INITIAL.
    PERFORM FILL_SELECTION_TABLE_KOSTL.
  ENDIF.

Fast....hat nur das Problem wenn du nach der Eingabe von P_GSBER in der Slect-Option P_Kostl z.b. eine Zeile wieder löscht...daann wird wieder AT SELCTION-SCREEN ausgelöst der der PERFORM durchlaufen. Hmmh???