SO10, utilisation dans un programme

A- Déclenchement par la touche F1.

dans une popup...

code

B- Dans le PBO de l'écran

C-Module Fill_table:

1- je crée un contenaire

2- je crée un document

3- je rempli le document

4- je fusionne le document

5- j'afficher le document

MODULE à copier coller

MODULE fill_table OUTPUT.

* Création of container.
  IF go_container IS INITIAL.
    CREATE OBJECT go_container
      EXPORTING
        container_name              = 'CUSTOM'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc <> 0.
        MESSAGE TEXT-005 TYPE 'I' DISPLAY LIKE 'E'.
    ENDIF.
  ENDIF.

* Création of HTML object
  IF go_html_control IS INITIAL.
    CREATE OBJECT go_html_control.
  ENDIF.

* fill the table elements
  PERFORM fill_html_table.

* Merge document
  CALL METHOD go_html_control->merge_document.

* Affichage du document html.
  CALL METHOD go_html_control->display_document
    EXPORTING
      parent             = go_container
    EXCEPTIONS
      html_display_error = 1.
  IF sy-subrc <> 0.
     MESSAGE TEXT-006 TYPE 'I' DISPLAY LIKE 'E'.
  ENDIF.

ENDMODULE.                 " FILL_TABLE  OUTPUT

D-Form Fill_html_table:

1- je récupère le texte de la SO10

2- je rempli le document

3- j'afficher le document

FORM à copier coller

FORM fill_html_table.

DATA : lo_form1      TYPE REF TO cl_dd_form_area,
         lo_table0     TYPE REF TO cl_dd_table_element ##NEEDED,
         lo_tablearea0 TYPE REF TO cl_dd_table_area,
         lo_table      TYPE REF TO cl_dd_table_element ##NEEDED,
         uo_tablearea  TYPE REF TO cl_dd_table_area.
  DATA lv_line(255) TYPE c.

CONSTANTS : lc_strong TYPE sdydo_attribute VALUE 'STRONG',
              lc_1      TYPE sdydo_value VALUE '1'.

*** SO1O Text

CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = 'ST'                   " TextId
      language                = sy-langu
      name                    = 'ZEDIS_IDOC_PROCESS_BIS_TEXT'" Name of the Text
      object                  = 'TEXT'
    IMPORTING
      header                  = t_head
    TABLES
      lines                   = it_body
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.

IF sy-subrc = 0.

CLEAR lv_line.
    LOOP AT it_body INTO fs_body.
      lv_line = fs_body-tdline.
    ENDLOOP.
* récup texte
    CALL METHOD go_html_control->add_form
      IMPORTING
        formarea = lo_form1.

* Structure to be completed
    CALL METHOD lo_form1->add_text
      EXPORTING
        text         = lv_line
        sap_emphasis = lc_strong.

* Line break
    CALL METHOD lo_form1->new_line
      EXPORTING
        repeat = 1.
  ENDIF.

ENDFORM.                    " FILL_HTML_TABLE

Steeven

Vous allez entrer dans un monde que vous n'auriez jamais cru possible de créer.