Discussion :

[Stephane1971]

Hello,

J'essaie de créer un texte ADV sur mon article mais cela ne fonctionne pas. J'ai une erreur...

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
    
    thead-tdid     = '0001'.
    thead-tdspras  = 'F'.
    thead-tdobject = 'MVKE'.
    thead-tdname   = t_article-matnr  .

CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        client          = sy-mandt
        header          = thead
        insert          = 'X'
        savemode_direct = 'X'
      IMPORTING
        newheader       = ls_head
      TABLES
        lines           = it_text
      EXCEPTIONS
        id              = 1
        language        = 2
        name            = 3
        object          = 4
        OTHERS          = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSE.

    ENDIF.
    CALL FUNCTION 'COMMIT_TEXT'.

Je ne sais pas si je dois utiliser une autre fonction mais j'ai un retour 5 de ma fonction.

Merci beaucoup de votre aide

Meilleures salutations

Stéphane

[beuzy]

Bonjour, j'utilise CREATE_TEXT de mon coté .

[sandraros]

Le code retour OTHERS m'étonne. C'est peut-être lié au fait que le texte existe déjà. Avec les API officielles, il faut utiliser INIT_TEXT:

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
DATA ls_header TYPE thead.
DATA lt_lines  TYPE TABLE OF tline.


CALL FUNCTION 'INIT_TEXT'
    EXPORTING
      id             = ls_header-tdid
      language       = ls_header-tdspras
      name           = ls_header-tdname
      object         = ls_header-tdobject
    TABLES
      lines          = lt_lines
    EXCEPTIONS
      id             = 1
      language       = 2
      name           = 3
      object         = 4
      OTHERS         = 5.
IF sy-subrc = 0.
  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      client          = sy-mandt
      header          = ls_header
      insert          = 'X'
      savemode_direct = 'X'
    TABLES
      lines           = lt_lines
    EXCEPTIONS
      id              = 1
      language        = 2
      name            = 3
      object          = 4
      OTHERS          = 5.
  COMMIT WORK.
ENDIF.

[Stephane1971]

Hello,

Il me suffisait de mettre un concatenate de l'article organisation commerciale et canal de distribution dans le nom de l'objet.

Je vais ajouté CALL FUNCTION 'INIT_TEXT' car effectivement quand il existe cela plante.

Merci pour votre aide

Meilleures salutations