Discussion :

[khlaifimed]

Salut les experts
je suis débutant en SAP et je suis en train de faire un programme qui a comme but de copier une ligne dans un ALV et que la copie de la ligne sélectionnée soit éditable pour modifier la base et les autres lignes restent non éditables

j'ai essayé avec ce code mais pas de resultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
"set the copied line editable
        PERFORM make_line_editable USING index_cpy   " l'index de  ligne copie
                                  CHANGING lt_celltab.
        INSERT LINES OF lt_celltab INTO TABLE tb_out-celltab.


  "refresh displaying
        CALL METHOD gr_alvgrid->refresh_table_display.


-------------------------------------------------------
FORM make_line_editable  USING    index_cpy TYPE i
                        CHANGING lt_celltab TYPE lvc_t_styl .
  DATA : ls_celltab TYPE lvc_s_styl.

  LOOP AT gt_fieldcat.
*    gt_fieldcat-tabname = 'TB_OUT'.
    IF sy-tabix = index_cpy.
      loop at gt_fieldcat.
      CASE gt_fieldcat-fieldname.
        WHEN 'ZDTCOMMO'
             OR 'MEINH'
             OR 'WAERS'
             OR 'WKGTOT'
             OR 'MEGTOT'
             OR 'PSPID'.
          ls_celltab-fieldname = gt_fieldcat-fieldname.
          ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.

          gt_fieldcat-edit = 'X'.
          MODIFY gt_fieldcat.
          INSERT  ls_celltab INTO TABLE lt_celltab.
      ENDCASE.
     endloop.
    ENDIF.
  ENDLOOP.

ENDFORM.                    " AKE_LINE_EDITABLE

[sandraros]

Hello,
Il y a des programmes de test fournis par SAP, pour rendre des cellules éditables dynamiquement, voir par exemple BCALV_EDIT_02.
Sandra

[khlaifimed]

Merci Sandra

c'est bien fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
FORM make_line_editable  USING    index_cpy TYPE i.

  DATA l_tb_out    LIKE LINE OF  tb_out.
  DATA ls_stylerow TYPE lvc_s_styl.
  DATA lt_styletab TYPE lvc_t_styl.

  LOOP AT tb_out INTO l_tb_out.

    CLEAR l_tb_out-celltab[].

    IF sy-tabix NE  index_cpy .

      ls_stylerow-style     = cl_gui_alv_grid=>mc_style_disabled .

    ELSE.

      ls_stylerow-style     = cl_gui_alv_grid=>mc_style_enabled .

    ENDIF.

    APPEND ls_stylerow TO lt_styletab .
    INSERT LINES OF lt_styletab INTO TABLE l_tb_out-celltab.
    MODIFY tb_out FROM l_tb_out.
    CLEAR lt_styletab[].

  ENDLOOP.



ENDFORM.                    " MAKE_LINE_EDITABLE