Smart Forms

Code: Alles auswählen.

*Interne Tabelle anlegen

DATA: BEGIN OF header OCCURS 5.
        INCLUDE STRUCTURE thead.
DATA: END OF header.

DATA: BEGIN OF lines OCCURS 5.
        INCLUDE STRUCTURE tline.
DATA: END OF lines.

*Zusammenzug von Leifer- und Positionsnummer
concatenate zxekko-ebeln <fs>-ebelp into text_name.

CLEAR:   header, lines.
REFRESH: header, lines.

*Texte einlesen Feld ist F11 und TDOBJECT ist EKPO
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client          = sy-mandt
      id              = 'F11'
      language        = ZXEKKO-SPRAS
      name            = text_name
      object          = 'EKPO'
    IMPORTING
      header          = header
    TABLES
      lines           = lines
    EXCEPTIONS
      id              = 01
      language        = 02
      name            = 03
      not_found       = 04
      object          = 05
      reference_check = 06.

*  1.Zeile lesen
  READ TABLE lines INDEX 1.
  
*  Schaut ob Feld lines-tdline leer ist
  IF lines-tdline NE SPACE.
    ruek = 1.
  ELSE.
    ruek = 0.
  ENDIF.