Eigenschaften | Quelltext
Titel | VIM_SAPSCRIPT_FORM_MAINT |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM VIM_SAPSCRIPT_FORM_MAINT.                                *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM VIM_SAPSCRIPT_FORM_MAINT.
    7
      LOCAL: STATUS-MODE.
    8
      DATA: VSFM_TABLE LIKE VIMDESC-VIEWNAME, VSFM_FLAG(1) TYPE C,
    9
            VSFM_FIELD LIKE VIMNAMTAB-VIEWFIELD, VSFM_HF TYPE I.
    10
    11
      IF X_HEADER-SCRFRMFLAG EQ SPACE.
    12
        MESSAGE E001(SV).
    13
        EXIT.
    14
      ENDIF.
    15
      IF VIM_NBR_OF_SCRFRM_POINTERS GT 1.
    16
        IF STATUS-MODE EQ DETAIL_BILD. GET CURSOR FIELD F. ENDIF.
    17
        SPLIT F AT '-' INTO VSFM_TABLE VSFM_FIELD.
    18
        IF X_HEADER-BASTAB NE SPACE AND X_HEADER-TEXTTBEXST NE SPACE AND
    19
           VSFM_TABLE EQ X_HEADER-TEXTTAB.
    20
          VSFM_FLAG = 'X'.
    21
        ENDIF.
    22
        READ TABLE X_NAMTAB WITH KEY VIEWFIELD = VSFM_FIELD
    23
                                     TEXTTABFLD = VSFM_FLAG.
    24
        IF X_NAMTAB-DOMNAME NE VIM_SCRFORM_DOMAIN.
    25
          MESSAGE S161(SV). " Bitte stellen Sie den Cursor auf einen Formula
    26
          CLEAR FUNCTION.
    27
          EXIT.
    28
        ENDIF.
    29
    *    ASSIGN <TABLE1>+X_NAMTAB-POSITION(X_NAMTAB-FLENGTH)
    30
    *                                       TO <VIM_SCRFORM_NAME>.
    31
        ASSIGN component x_namtab-viewfield of structure <TABLE1>
    32
         TO <VIM_SCRFORM_NAME>.
    33
        IF STATUS-MODE EQ LIST_BILD.
    34
          VSFM_HF = FIRSTLINE + L - 1.
    35
          STATUS-MODE = DETAIL_BILD.
    36
        ELSE.
    37
          VSFM_HF = NEXTLINE.
    38
        ENDIF.
    39
        READ TABLE EXTRACT INDEX VSFM_HF.
    40
        PERFORM MOVE_EXTRACT_TO_VIEW_WA.
    41
      ENDIF.
    42
      IF STATUS-MODE EQ LIST_BILD.
    43
        LOOP AT EXTRACT.
    44
          CHECK <XMARK> EQ MARKIERT.
    45
          PERFORM MOVE_EXTRACT_TO_VIEW_WA.
    46
          CALL FUNCTION 'EDIT_FORM'
    47
               EXPORTING
    48
                    FORM              = <VIM_SCRFORM_NAME>
    49
    *           LANGUAGE          = SY-LANGU
    50
                    DISPLAY           = 'X'
    51
    *           COMPONENT         = 'HEADER'
    52
               EXCEPTIONS
    53
                    UNKNOWN_ACTIVITY  = 1
    54
                    UNKNOWN_COMPONENT = 2.
    55
          IF SY-SUBRC NE 0.
    56
            MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO WITH
    57
                    SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    58
            CONTINUE.
    59
          ENDIF.
    60
          <XMARK> = NICHT_MARKIERT.
    61
          MODIFY EXTRACT.
    62
          READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
    63
          <MARK> = NICHT_MARKIERT.
    64
          MODIFY TOTAL INDEX SY-TABIX.
    65
          SUBTRACT: 1 FROM MARK_EXTRACT,
    66
                    1 FROM MARK_TOTAL.
    67
        ENDLOOP.
    68
      ELSE.                                "detail bild
    69
        CALL FUNCTION 'EDIT_FORM'
    70
             EXPORTING
    71
                  FORM              = <VIM_SCRFORM_NAME>
    72
    *             LANGUAGE          = SY-LANGU
    73
                  DISPLAY           = 'X'
    74
    *             COMPONENT         = 'HEADER'
    75
             EXCEPTIONS
    76
                  UNKNOWN_ACTIVITY  = 1
    77
                  UNKNOWN_COMPONENT = 2.
    78
        IF SY-SUBRC NE 0.
    79
          MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO WITH
    80
                  SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    81
          CLEAR FUNCTION. EXIT.
    82
        ENDIF.
    83
        IF <XMARK> EQ MARKIERT.
    84
          <XMARK> = NICHT_MARKIERT.
    85
          MODIFY EXTRACT INDEX NEXTLINE.
    86
          READ TABLE TOTAL WITH KEY <VIM_xEXTRACT_KEY> BINARY SEARCH.
    87
          <MARK> = NICHT_MARKIERT.
    88
          MODIFY TOTAL INDEX SY-TABIX.
    89
          SUBTRACT: 1 FROM MARK_EXTRACT,
    90
                    1 FROM MARK_TOTAL.
    91
        ENDIF.
    92
      ENDIF.                               "status-mode eq list_bild
    93
      CLEAR FUNCTION.
    94
    ENDFORM.                               "vim_sapscript_form_maint