CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
                IMPORTING
                  e_grid = lo_ref1.

              g_stable-row = rs_selfield-tabindex.
              CALL METHOD lo_ref1->refresh_table_display
                EXPORTING
                  is_stable = g_stable.

FORM html_top_of_page USING lw_document TYPE REF TO cl_dd_document .

  DATA : doctable TYPE REF TO cl_dd_table_element,
         col1_t1  TYPE REF TO cl_dd_area,
         col2_t1  TYPE REF TO cl_dd_area,
         col3_t1  TYPE REF TO cl_dd_area.

  DATA: lw_text1 TYPE sdydo_text_element ,
      lw_text2 TYPE sdydo_text_element ,
      lw_text3 TYPE sdydo_text_element .

  DATA: mem(20),
        text(20).
  DATA: lv_sot_akz,
        lv_lin type numc4.
* add quick table with five columns
  CALL METHOD lw_document->add_table
    EXPORTING
      no_of_columns = 3
      border        = '0'
      with_heading  = 'X'
      width         = '60%'
    IMPORTING
      table         = doctable.

* Filling columns in row
  CALL METHOD doctable->add_column
    EXPORTING
      width  = '20%'
    IMPORTING
      column = col1_t1.

* Filling columns in row

  CALL METHOD doctable->add_column
    EXPORTING
      width  = '20%'
    IMPORTING
      column = col2_t1.

  CALL METHOD doctable->add_column
    EXPORTING
      width  = '20%'
    IMPORTING
      column = col3_t1.

  "---------------------------------------
  CALL METHOD doctable->new_row.

*Now adding the texts

  READ TABLE gs_header INDEX 1.

  CONCATENATE   'Вид заказа:' gs_header-auart ' '
                 INTO lw_text1 SEPARATED BY space.   "todays date


  CONCATENATE   'BE: ' gs_header-bukrs ' '
                 INTO lw_text2 SEPARATED BY space.   "todays date

  CONCATENATE  'Сбытовая организ:' gs_header-vkorg ' '
                 INTO lw_text3 SEPARATED BY space.   "todays date

  CALL METHOD col1_t1->add_text
    EXPORTING
      text = lw_text1.

  CALL METHOD col2_t1->add_text
    EXPORTING
      text = lw_text2.

  CALL METHOD col3_t1->add_text
    EXPORTING
      text = lw_text3.

  "--------------------------------------

  "---------------------------------------
  CALL METHOD doctable->new_row.

*Now adding the texts

  CONCATENATE   'Група закупок:' gs_header-vtweg ' '
                 INTO lw_text1 SEPARATED BY space.   "todays date


  CONCATENATE   'Поставщик:'  gs_header-kunnr ' '
                 INTO lw_text2 SEPARATED BY space.   "todays date

  CONCATENATE  'Завод получатель:'  gs_header-zavod ' '
                 INTO lw_text3 SEPARATED BY space.   "todays date

  CALL METHOD col1_t1->add_text
    EXPORTING
      text = lw_text1.

  CALL METHOD col2_t1->add_text
    EXPORTING
      text = lw_text2.

  CALL METHOD col3_t1->add_text
    EXPORTING
      text = lw_text3.

  "--------------------------------------

  "---------------------------------------
  CALL METHOD doctable->new_row.

*Now adding the texts

  CONCATENATE   'Склад получателя:'  gs_header-sclad ' '
                 INTO lw_text1 SEPARATED BY space.   "todays date


  CONCATENATE   'Завод для поиск.партий:'  gs_header-zterm ' '
                 INTO lw_text2 SEPARATED BY space.   "todays date

  CONCATENATE  'Склад для поиск.партий:'   gs_header-scladp ' '
                 INTO lw_text3 SEPARATED BY space.   "todays date

  CALL METHOD col1_t1->add_text
    EXPORTING
      text = lw_text1.

  CALL METHOD col2_t1->add_text
    EXPORTING
      text = lw_text2.

  CALL METHOD col3_t1->add_text
    EXPORTING
      text = lw_text3.

  "--------------------------------------

  CALL METHOD doctable->new_row.
  CALL METHOD col1_t1->new_line.
  CALL METHOD doctable->new_row.
  CALL METHOD col1_t1->new_line.

     CONCATENATE   'Все позиций:'  gv_lines ' '
                 INTO lw_text1 SEPARATED BY space.   "todays date

  CALL METHOD col1_t1->add_text
    EXPORTING
      text = lw_text1.

  CALL METHOD doctable->new_row.

  LOOP AT gt_poz WHERE check EQ 'X' AND icon IS INITIAL AND ebeln IS INITIAL AND ( sot_priz EQ 'ДА' OR sot_priz EQ 'АК' ).

    lv_sot_akz = 'X'.


  ENDLOOP.


  LOOP AT gt_poz WHERE check EQ 'X' AND icon IS INITIAL AND ebeln IS INITIAL .

   add 1 to  lv_lin .

  ENDLOOP.


IF lv_lin eq gv_lines.

    CONCATENATE   'Выбранные позиций:'  gv_lines
                 INTO lw_text1 SEPARATED BY space.   "todays date

  else.

  IF lv_sot_akz IS INITIAL.
    CONCATENATE   'Выбранные позиций:'  lv_cont ' / 35'
                 INTO lw_text1 SEPARATED BY space.   "todays date

  ELSE.

    CONCATENATE   'Выбранные позиций:'  lv_cont ' / 15'
                 INTO lw_text1 SEPARATED BY space.   "todays date

  ENDIF.

ENDIF.





  CALL METHOD col1_t1->add_text
    EXPORTING
      text = lw_text1.

ENDFORM.