Felder aus Append anzeigen

Code: Alles auswählen.

FORM TABSTRIP_INVISIBLE_TABS.
...
  CHECK NOT TABSTRIP_ACTIVE IS INITIAL.
  CHECK NOT TABSTRIP-TEST IS INITIAL.  " Nur im Testfall testen
  LOOP AT TABSTRIP_SCREENS. " enthält alle Gruppenrahmen des Tabstrips
    TABSTRIP-DYNP  = TABSTRIP_SCREENS-SUBSC. " Dynpronummer
    TABSTRIP-GBOX  = TABSTRIP_SCREENS-GBOX.  " Gruppenrahmennummer
*{   INSERT         HRDK944958                                       
1
*** Vorabkorrektur zu OSS-Meldung 002007974700014117312004 ew20041201
*** Kundenfunktionsgruppe, die in Tabelle TAMLAYA definiert ist
    if tabstrip_screens-prog = 'SAPLZV_KUNDENSTAMMEXIT'.
      continue.
    endif.

*}   INSERT
*   Adresse immer zeigen, alles andere überprüfen
    IF TABSTRIP-GBOX NE '0001' OR TABSTRIP-ACTUALSEG NE 'LOSEG'
    AND NOT TABSTRIP-DYNP IS INITIAL
    AND NOT ( TABSTRIP-APPL = 'LOMDBPC-CS' AND
              TABSTRIP-GBOX EQ '0016' ).
      CALL SCREEN '7999'.   " Dummy-Screen für Bestimmung der
Feldstatus
    ENDIF.
  ENDLOOP.

  CLEAR TABSTRIP-TEST.
  TABSTRIP-GBOX = SAVE_GBOX.

ENDFORM.                               " tabstrip_invisible_tabs

Code: Alles auswählen.

form provide_kna1 changing fe_kna1 like kna1. 
fe_kna1 = kna1.
endform.

form return_kna1 using fi_kna1 like kna1.
kna1 = fi_kna1.
endform.

Code: Alles auswählen.

tables kna1.
field-symbols <kna1> structure kna1 default kna1.

Code: Alles auswählen.

PROCESS BEFORE OUTPUT.
  MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
  field kna1-kukla.
  MODULE USER_COMMAND_9000.

Code: Alles auswählen.

module STATUS_9000 output.
  perform rein_pbo.
endmodule.                 " STATUS_9000  OUTPUT

Code: Alles auswählen.

module USER_COMMAND_9000 input.
  perform raus_pai.
endmodule.                 " USER_COMMAND_9000  INPUT

Code: Alles auswählen.

FORM rein_pbo.
  assign ('(SAPMF02D)KNA1') to <kna1>.
  kna1 = <kna1>.
ENDFORM.

Code: Alles auswählen.

FORM raus_pai.
  <kna1> = kna1.
ENDFORM.