Текущее время: Ср, авг 15 2018, 06:51

Часовой пояс: UTC + 4 часа


Правила форума


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 12:23 
Ассистент
Ассистент

Зарегистрирован:
Вт, мар 20 2018, 12:16
Сообщения: 25
На основе таблицы zobur необходимо сформировать отчет ALV со списком полей:
ФИО - ИТ0002-NACHN + ИТ0002-VORNA + ИТ0002-MIDNM.
DEV_NAME - поле DEV_name из таблицы zobur
DEV_MNF - поле DEV_MNF из таблицы zobur.
Пример кода, не судите строго, только начинаю изучать))))
Code:
tables: pernr,zobur .
infotypes: 0002.

data: begin of itab occurs 0 ,
  pernr type p0002-pernr,
  name like p0001-ename,
  DEV_MNf like Zobur-DEV_MNf,
  DEV_MODEL like Zobur-DEV_MODEL ,
  ADD_INFO like Zobur-ADD_INFO ,
  end of itab.

data: begin of itab1 occurs 0,
  pernr like p0002-pernr,
  name like p0001-ename,
  DEV_MNf like Zobur-DEV_MNf,
  DEV_MODEL like Zobur-DEV_MODEL ,
  ADD_INFO like Zobur-ADD_INFO ,
  end of itab1.



data: name like p0001-ename.
DATA: gc_alv_table TYPE REF TO cl_salv_table.



initialization.

pnptimed = 'D'.
start-of-selection.

get pernr.
provide * from p0002  between pn-begda and pn-endda.

    concatenate p0002-nachn  p0002-vorna  p0002-MIDNM into name.

    itab1-pernr = p0002-pernr.
   itab1-name = name.

append itab1.
select * from zobur
into corresponding fields of table itab
  where pernr = itab1-pernr.

  endprovide.


  end-of-selection.


cl_salv_table=>factory( IMPORTING r_salv_table = gc_alv_table
                          CHANGING t_table = itab[] ).
gc_alv_table->display( ).

возможно как-то перенести поле Name из таблицы itab1 в itab? Или какие есть еще варианты написать данный отчет?


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 12:34 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 325
Я бы по другому организовал блок GET.

Code:
GET pernr.

    CLEAR itab.
   SELECT SINGLE  * FROM zobur
          INTO CORRESPONDING FIELDS OF  itab
                          WHERE pernr = pernr-pernr.
         

  LOOP AT p0002 WHERE begda <= pn-endda AND endda >= pn-begda.
     
        itab-pernr = p0002-pernr.
        CONCATENATE p0002-nachn  p0002-vorna  p0002-MIDNM INTO itab-name SEPARATED BY space.
       append itab.
  ENDLOOP.

  end-of-selection.


cl_salv_table=>factory( IMPORTING r_salv_table = gc_alv_table
                          CHANGING t_table = itab[] ).
gc_alv_table->display( ).



зачем две таблицы?


Последний раз редактировалось Kuranov.Dmitry Вт, мар 20 2018, 12:49, всего редактировалось 4 раз(а).

Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 12:36 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 17:25
Сообщения: 2952
Пол: Мужской
Наверное, чтобы предупредить шквал элементарных вопросов, Вам имеет смысл что нибудь почитать для начинающих
http://sapboard.ru/forum/viewtopic.php?f=13&t=23150
http://sapboard.ru/forum/viewtopic.php?f=13&t=80772
, погуглить, https://www.sapnuts.com/courses/core-abap/internal-table-work-area/internal-table-operations.html, понажимать f1 в абап редакторе


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 13:19 
Ассистент
Ассистент

Зарегистрирован:
Вт, мар 20 2018, 12:16
Сообщения: 25
Kuranov.Dmitry написал(а):
Я бы по другому организовал блок GET.

Code:
GET pernr.

    CLEAR itab.
   SELECT SINGLE  * FROM zobur
          INTO CORRESPONDING FIELDS OF  itab
                          WHERE pernr = pernr-pernr.
         

  LOOP AT p0002 WHERE begda <= pn-endda AND endda >= pn-begda.
     
        itab-pernr = p0002-pernr.
        CONCATENATE p0002-nachn  p0002-vorna  p0002-MIDNM INTO itab-name SEPARATED BY space.
       append itab.
  ENDLOOP.

  end-of-selection.


cl_salv_table=>factory( IMPORTING r_salv_table = gc_alv_table
                          CHANGING t_table = itab[] ).
gc_alv_table->display( ).



зачем две таблицы?


В таблице zobur по ТН имеется несколько записей


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 13:35 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 325
exotik написал(а):

В таблице zobur по ТН имеется несколько записей


логично, по тем у которых была смена второго ИТ в периоде ,будет две записи.

А как надо? по последней записи?
Скорректируйте цикл LOOP.


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Вт, мар 20 2018, 13:38 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 325
Code:
CLEAR itab.
   SELECT SINGLE  * FROM zobur
          INTO CORRESPONDING FIELDS OF  itab
                          WHERE pernr = pernr-pernr.
         
  CHECK sy-subrc EQ 0.  "Отсеиваем ТН у которых нет данных в zobur

  LOOP AT p0002 WHERE begda <= pn-endda AND endda >= pn-endda. "Берем запись активную на конец периода
        itab-pernr = p0002-pernr.
        CONCATENATE p0002-nachn  p0002-vorna  p0002-MIDNM INTO itab-name SEPARATED BY space.
       append itab.
  ENDLOOP.


Пометить тему как нерешенную
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!  Тема решена
СообщениеДобавлено: Вт, мар 20 2018, 13:50 
Ассистент
Ассистент

Зарегистрирован:
Вт, мар 20 2018, 12:16
Сообщения: 25
Kuranov.Dmitry написал(а):
Code:
CLEAR itab.
   SELECT SINGLE  * FROM zobur
          INTO CORRESPONDING FIELDS OF  itab
                          WHERE pernr = pernr-pernr.
         
  CHECK sy-subrc EQ 0.  "Отсеиваем ТН у которых нет данных в zobur

  LOOP AT p0002 WHERE begda <= pn-endda AND endda >= pn-endda. "Берем запись активную на конец периода
        itab-pernr = p0002-pernr.
        CONCATENATE p0002-nachn  p0002-vorna  p0002-MIDNM INTO itab-name SEPARATED BY space.
       append itab.
  ENDLOOP.


Большое спасибо!
Вышел такой селект.
Code:


   SELECT  * FROM zobur
          into CORRESPONDING FIELDS OF itab
                          WHERE pernr = pernr-pernr.

  CHECK sy-subrc = 0.  "Отсеиваем ТН у которых нет данных в zobur
LOOP AT p0002 WHERE begda <= pn-endda AND endda >= pn-endda. "Берем запись активную на конец периода
        itab-pernr = p0002-pernr.
        CONCATENATE p0002-nachn  p0002-vorna  p0002-MIDNM INTO itab-name SEPARATED BY space.
       append itab.
  ENDLOOP.
endselect.


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Необходима помощь с отчетом ALV!!!
СообщениеДобавлено: Ср, мар 21 2018, 01:55 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Чт, окт 06 2005, 17:44
Сообщения: 2930
Откуда: Москва
exotik написал(а):
Вышел такой селект.

Неправильный вышел select. Посмотрите внимательнее на код Kuranov.Dmitry

_________________
С уважением,
Удав.


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 8 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB