Re: ViewCluster Modification Problem

hi,

happy new Year!

thank your for your Answer, i've solved the problem as folowing:

TYPES: BEGIN OF ty_prc .
        INCLUDE STRUCTURE v_prc.
        INCLUDE STRUCTURE vimflagtab.
TYPES: END OF ty_prc.
DATA: gs_prc TYPE ty_prc.

  DATA:
        lv_error_flag   TYPE vcl_flag_type,
        header_wa LIKE vimdesc,
        wa_prc LIKE v_prc.
 
  PERFORM vcl_set_table_access_for_obj
          USING
             vcl_last_view
          CHANGING
             lv_error_flag.
  IF lv_error_flag IS NOT INITIAL.
    EXIT.
  ENDIF.

  READ TABLE <vcl_header> INDEX 1 INTO header_wa.

  CASE vcl_last_view. 
      WHEN 'V_PRC'.
      LOOP AT <vcl_extract> INTO gs_prc.

        CASE gs_prc-action.
          WHEN 'U'. "Eintrag wurde MODIFIZIERT
            MOVE-CORRESPONDING gs_prc TO wa_prc.
            wa_prc-aedat = sy-datum.
            wa_prc-aenam = sy-uname.
            PERFORM edit_view_entry IN PROGRAM (header_wa-fpoolname)
            TABLES <vcl_extract>
              <vcl_total>
              <vcl_header>
              <vcl_namtab>
              <vcl_dpl_sellist>
          USING wa_prc 'UPD'.
            CLEAR wa_prc.
          WHEN 'N'. "Eintrag wurde neu angelegt
            MOVE-CORRESPONDING gs_prc TO wa_prc.
            wa_prc-erdat = sy-datum.
            wa_prc-ernam = sy-uname.
            PERFORM edit_view_entry IN PROGRAM (header_wa-fpoolname)
            TABLES <vcl_extract>
              <vcl_total>
              <vcl_header>
              <vcl_namtab>
              <vcl_dpl_sellist>
          USING wa_prc 'UPD'.
            CLEAR wa_prc.
        ENDCASE.
      ENDLOOP.
endcase.  

regards

Adalbert