Eigenschaften | Quelltext
Titel | VIM_MODIFY_VIEW_ENTRY |
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_MODIFY_VIEW_ENTRY                                   *
    3
    *&--------------------------------------------------------------------*
    4
    * update/insert entry, process all checks                             *
    5
    *&--------------------------------------------------------------------*
    6
    FORM vim_modify_view_entry USING value(vmve_exix) TYPE i
    7
                                     vmve_rc TYPE i.
    8
      DATA: h_ix TYPE i, h_act(1) TYPE c, hact2(1) TYPE c,
    9
            fieldname TYPE fnam_____4.
    10
      FIELD-SYMBOLS: <guid> TYPE ANY, <old_guid> TYPE ANY,
    11
                     <guid_wa> TYPE ANY,
    12
                     <extract_val> TYPE ANY, <total_val> TYPE ANY.
    13
      CLEAR vmve_rc.
    14
      nextline = exind = vmve_exix.
    15
    * new: transfer of changed entries from EXTRACT into TOTAL via dynps
    16
    * ... first: handle read-only fields and subset fields
    17
      IF x_header-subsetflag NE space OR
    18
         x_header-rdonlyflag NE space OR
    19
         x_header-adrnbrflag NE space.
    20
        IF <xact> NE neuer_eintrag.
    21
          READ TABLE total WITH KEY <vim_xextract_key>
    22
                           BINARY SEARCH.
    23
          h_act = <action>.
    24
        ELSE.
    25
          h_act = <xact>.
    26
        ENDIF.
    27
        LOOP AT x_namtab WHERE readonly EQ rdonly
    28
                           OR  ( readonly EQ subset AND
    29
                                 keyflag EQ space ).
    30
          ASSIGN COMPONENT x_namtab-viewfield
    31
           OF STRUCTURE <vim_extract_struc> TO <extract_val>.
    32
          CHECK sy-subrc = 0.
    33
          IF <xact> NE neuer_eintrag.
    34
            ASSIGN COMPONENT x_namtab-viewfield
    35
             OF STRUCTURE <vim_total_struc> TO <total_val>.
    36
            IF sy-subrc = 0.
    37
              <extract_val> = <total_val>.
    38
            ENDIF.
    39
    *        extract+x_namtab-position(x_namtab-flength) =
    40
    *            total+x_namtab-position(x_namtab-flength).
    41
          ELSE.
    42
            ASSIGN COMPONENT x_namtab-viewfield
    43
             OF STRUCTURE <initial> TO <total_val>.
    44
            IF sy-subrc = 0.
    45
              <extract_val> = <total_val>.
    46
            ENDIF.
    47
    *        extract+x_namtab-position(x_namtab-flength) =
    48
    *            <initial>+x_namtab-position(x_namtab-flength).
    49
          ENDIF.
    50
        ENDLOOP.
    51
        IF sy-subrc EQ 0.
    52
          hact2 = <xact>. <xact> = h_act.
    53
          MODIFY extract INDEX vmve_exix.
    54
          <xact> = hact2.
    55
        ENDIF.
    56
      ENDIF.
    57
      PERFORM move_extract_to_view_wa.
    58
    * ... second: handle address number and GUID
    59
      CLEAR vim_upgr_address_number.
    60
      IF x_header-adrnbrflag NE space.
    61
        IF x_header-adrnbrflag = 'N'.
    62
          vim_upgr_address_number = <address_number>.
    63
        ENDIF.
    64
        IF <xact> NE neuer_eintrag.
    65
          <address_number> = <vim_total_address_number>.
    66
        ELSE.
    67
          CLEAR <address_number>.
    68
        ENDIF.
    69
      ENDIF.
    70
      IF x_header-guidflag <> space AND <xact> <> neuer_eintrag.
    71
    * update only, GUID will be set in UPDATE_TAB for new entries
    72
        LOOP AT x_namtab WHERE domname IN vim_guid_domain.
    73
          CONCATENATE x_header-maintview x_namtab-viewfield
    74
           INTO fieldname SEPARATED BY '-'.
    75
          ASSIGN COMPONENT x_namtab-viewfield
    76
           OF STRUCTURE <vim_extract_struc> TO <guid>.
    77
          ASSIGN COMPONENT x_namtab-viewfield
    78
           OF STRUCTURE <vim_total_struc> TO <old_guid>.
    79
    *      ASSIGN extract+x_namtab-position(x_namtab-flength) TO <guid>
    80
    *       CASTING TYPE (fieldname).
    81
    *      ASSIGN total+x_namtab-position(x_namtab-flength) TO <old_guid>
    82
    *       CASTING TYPE (fieldname).
    83
          IF <guid> IS INITIAL AND <old_guid> IS INITIAL.
    84
    * no GUID-value imported from remote system and GUID not yet set in
    85
    * current entry
    86
            PERFORM vim_make_guid USING x_namtab-viewfield.
    87
            ASSIGN (fieldname) TO <guid_wa> CASTING TYPE (fieldname).
    88
            <guid> = <guid_wa>.
    89
    * (including event 27)
    90
          ELSEIF <guid> IS INITIAL.
    91
    * use old GUID
    92
            <guid> = <old_guid>.
    93
            IF x_header-frm_af_uid <> space.
    94
              PERFORM (x_header-frm_af_uid) IN PROGRAM (x_header-fpoolname)
    95
                                        USING <old_guid>
    96
                                        CHANGING <guid>
    97
                                                 <vim_extract_struc>.
    98
            ELSEIF x_header-frm_af_uid <> space.
    99
    * overwrite old GUID with GUID from remote client... or not?
    100
              PERFORM (x_header-frm_af_uid) IN PROGRAM (x_header-fpoolname)
    101
                                        USING <old_guid>
    102
                                        CHANGING <guid>
    103
                                                 <vim_extract_struc>.
    104
            ENDIF.
    105
          ENDIF.
    106
        ENDLOOP.
    107
      ENDIF.
    108
      IF <xact> EQ neuer_eintrag.
    109
        status-action = hinzufuegen.
    110
        <vim_extract_struc> = <initial>.
    111
        IF x_header-bastab NE space AND
    112
           x_header-texttbexst NE space.
    113
          <vim_xextract_text> = <text_initial_x>.
    114
        ENDIF.
    115
        <xact> = leer.
    116
      ELSE.
    117
        status-action = aendern. <xact> = h_act.
    118
      ENDIF.
    119
      MODIFY extract INDEX vmve_exix.
    120
    * ...third: call screen a la replace
    121
      CASE status-type.
    122
        WHEN einstufig.
    123
          PERFORM vim_imp_call_screen USING liste.
    124
        WHEN zweistufig.
    125
          IF <xact> EQ leer.
    126
            neuer = 'J'.
    127
          ENDIF.
    128
          PERFORM process_detail_screen USING 'C'.
    129
      ENDCASE.
    130
      status-action = <status>-st_action = aendern.
    131
      IF ok_code EQ 'IGN '. vmve_rc = 4. CLEAR ok_code. EXIT. ENDIF.
    132
      IF function EQ 'ABR '. vmve_rc = 8. CLEAR function. EXIT. ENDIF.
    133
    ENDFORM.                               "vim_modify_view_entry