Gegenseitige Filter bei Parameter Angabe(Gelöst mit Code)

Getting started ... Alles für einen gelungenen Start.
5 Beiträge • Seite 1 von 1
5 Beiträge Seite 1 von 1

Gegenseitige Filter bei Parameter Angabe(Gelöst mit Code)

Beitrag von mnd (ForumUser / 47 / 3 / 0 ) »
Hallo,

Ich habe hier zwei parameters definiert. bzw. Die beiden aus der Relationstabelle T320 (Werks und Lagnummer)

Code: Alles auswählen.

PARAMETERS:
p_werk  TYPE t320-werks,
p_lgnum TYPE t320-lgnum .
Beim Werksauswählen möchte ich nur die entsprechenden Lagernummer auf der List angezeigt und andersrum. Is es möglich ? Konnte ihr ein paar tips geben?


vielen danke im voraus
Peter
Zuletzt geändert von mnd am 17.10.2012 10:24, insgesamt 1-mal geändert.

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: Gegenseitige Filter bei Parameter Angabe

Beitrag von mnd (ForumUser / 47 / 3 / 0 ) »
Anscheind ist es nicht einfach, :-(

Re: Gegenseitige Filter bei Parameter Angabe

Beitrag von black_adept (Top Expert / 4086 / 126 / 940 ) »
Automatisch geht es wahrscheinlich nicht. Aber du könntest es manuell machen und im POV selbst die möglichen Werte zusammenlesen und via F4IF_INT_TABLE_VALUE_REQUES auswählen lassen.
live long and prosper
Stefan Schmöcker

email: stefan@schmoecker.de

RGegenseitige Filter bei Parameter Angabe (Glöst mit Code)

Beitrag von mnd (ForumUser / 47 / 3 / 0 ) »
Hallo Alle,

Ich habe ein Beispiel gebastelt.

Code: Alles auswählen.

* TABEL ist obsolet
DATA:       gs_flight TYPE sflight.
DATA:       gs_t320   TYPE t320.

DATA:       gt_t320   TYPE t320.

DATA: BEGIN OF gty_lgnum,
      lgnum TYPE t320-lgnum,
      END OF gty_lgnum.
DATA: gt_lgnum LIKE TABLE OF gty_lgnum.

DATA: BEGIN OF gty_werk,
  werks TYPE t320-werks,
END OF gty_werk.

DATA: gt_werk LIKE TABLE OF gty_werk.

DATA: it_return type STANDARD TABLE OF DDSHRETVAL.
DATA: wa_return like line of it_return.


SELECTION-SCREEN BEGIN OF BLOCK h100 WITH FRAME TITLE text-010.

SELECT-OPTIONS s_ca FOR gs_flight-carrid.
SELECT-OPTIONS s_date FOR gs_flight-fldate.


*zuerst müssen wir ein search help erstellen.

PARAMETERS:
p_werk  TYPE t320-werks,
p_lgnum TYPE t320-lgnum .

SELECTION-SCREEN END OF BLOCK h100.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werk.
IF p_lgnum IS NOT INITIAL.
  SELECT DISTINCT werks FROM t320  INTO CORRESPONDING FIELDS OF TABLE gt_werk WHERE lgnum EQ p_lgnum.
  ELSE.
  SELECT DISTINCT werks FROM t320  INTO CORRESPONDING FIELDS OF TABLE gt_werk.
ENDIF.



CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
*   DDIC_STRUCTURE         = ' '
  retfield               = 'WERKS'
*   PVALKEY                = ' '
*   DYNPPROG               = ' '
*   DYNPNR                 = ' '
*   DYNPROFIELD            = ' '
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
  VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   CALLBACK_METHOD        =
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
TABLES
  value_tab              = gt_werk
*   FIELD_TAB              =
  RETURN_TAB             = it_return
*   DYNPFLD_MAPPING        =
* EXCEPTIONS
*   PARAMETER_ERROR        = 1
*   NO_VALUES_FOUND        = 2
*   OTHERS                 = 3
  .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

READ TABLE it_return INTO wa_return INDEX 1.
p_werk = wa_return-fieldval.
refresh it_return.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lgnum.
  IF p_werk IS NOT INITIAL.
    SELECT DISTINCT lgnum FROM t320  INTO CORRESPONDING FIELDS OF TABLE gt_lgnum WHERE werks EQ p_werk.
  ELSE.
    SELECT DISTINCT lgnum FROM t320  INTO CORRESPONDING FIELDS OF TABLE gt_lgnum.
  ENDIF.



  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*   DDIC_STRUCTURE         = ' '
      retfield               = 'LGNUM'
*   PVALKEY                = ' '
*   DYNPPROG               = ' '
*   DYNPNR                 = ' '
*   DYNPROFIELD            = ' '
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
    VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   CALLBACK_METHOD        =
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
    TABLES
      value_tab              = gt_lgnum
*   FIELD_TAB              =
   RETURN_TAB             = it_return
*   DYNPFLD_MAPPING        =
* EXCEPTIONS
*   PARAMETER_ERROR        = 1
*   NO_VALUES_FOUND        = 2
*   OTHERS                 = 3
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

READ TABLE it_return into wa_return index 1.
p_lgnum = wa_return-fieldval.
refresh it_return.


INITIALIZATION.


  s_date-low = sy-datum.
  APPEND s_date TO s_date.



START-OF-SELECTION.

  WRITE: s_date-low.


Re: Gegenseitige Filter bei Parameter Angabe(Gelöst mit Code

Beitrag von mnd (ForumUser / 47 / 3 / 0 ) »
Hallo ,

Das Problem sollt auch durch search help exit gelöst werden. Habt ihr ein korrekte Beispiel für search help exit?


danke im voraus
MFG
Peter

Seite 1 von 1

Vergleichbare Themen

2
Antw.
1509
Views
Gelöst: Code alter Report-Versionen einlesen.
von eberhard » 30.10.2006 15:50 • Verfasst in ABAP® Core
4
Antw.
2222
Views
in der Funktion übergebenen Parameter nutzen (gelöst)
von SeZo » 25.10.2011 10:55 • Verfasst in ABAP® für Anfänger
5
Antw.
3491
Views
Exception Abfangen bei missing parameter im form (Gelöst)
von mnd » 14.02.2013 08:31 • Verfasst in ABAP® für Anfänger
0
Antw.
1077
Views
Angabe ob Teillierferschein - Restlieferschein
von Richard_Z » 08.06.2005 16:03 • Verfasst in ABAP® für Anfänger
2
Antw.
4479
Views
Transaktionen mit Angabe des Namensraums
von Ralf Gantenbrink » 22.04.2005 15:26 • Verfasst in Basis

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Unbeantwortete Forenbeiträge

Daten an Tabelle binden
vor 11 Stunden von Bright4.5 1 / 248
aRFC im OO-Kontext
vor 4 Wochen von ralf.wenzel 1 / 1885
Hilfe bei SWEC/SWE2
letzen Monat von retsch 1 / 8489