Использование логической базы PROJ

Zhasulan

Здравствуйте!!!
В своем отчете использую логическую базу данных - PROJ.
Вытаскиваю с PRPS_R СПП элементы затем с EKKO название договоров к этим СПП.
Работает нормально, но в итоге выводятся только все СПП на которые есть договора.
Можно ли как-нибудь сделать чтобы выводились и СПП без договоров???
Заранее благодарю!!

Zhasulan

Не PROJ а PSJ что то я запарился...
Извеняюсь :oops:

John Doe

Попробуй так:

Code:

NODES: PRPS_R, EKKO.

DATA: BEGIN OF ITAB OCCURS 0,
        POSID TYPE PS_POSID,
        EBELN TYPE EBELN,
      END OF ITAB.
DATA: HCAT TYPE LVC_S_FCAT,
      FCAT TYPE LVC_T_FCAT.

DEFINE ADD_FIELD.
  CLEAR HCAT.
  HCAT-COL_POS = &1.
  HCAT-FIELDNAME = &2.
  HCAT-OUTPUTLEN = &3.
  HCAT-SCRTEXT_M = HCAT-COLTEXT = &4.
  APPEND HCAT TO FCAT.
END-OF-DEFINITION.

START-OF-SELECTION.
GET EKKO.

GET PRPS_R.
  ITAB-POSID = PRPS_R-POSID.
  ITAB-EBELN = EKKO-EBELN.
  APPEND ITAB.

END-OF-SELECTION.
  ADD_FIELD '1' 'POSID' '24' 'WBS element'.
  ADD_FIELD '2' 'EBELN' '10' 'Purchase order'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      IT_FIELDCAT_LVC = FCAT
    TABLES
      T_OUTTAB        = ITAB[].

Zhasulan

Спасибо!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
Кажется работает!!!

Zhasulan

вытаскивает все СПП. Пишет какие то договора??
Проверил, оказалось что путает договора, т.е. пишет название договоров к нетой СПП??
Из-за чего не могу вытащить затраты на какую либо СПП???

John Doe

Извиняюсь, неправильно написал. Вот рабочий код.

Code:

NODES: PRPS_R, EKKO.

DATA: BEGIN OF WA,
        POSID TYPE PS_POSID,
        EBELN TYPE EBELN,
      END OF WA,
      ITAB LIKE WA OCCURS 0.
DATA: HCAT TYPE LVC_S_FCAT,
      FCAT TYPE LVC_T_FCAT.

DEFINE ADD_FIELD.
  CLEAR HCAT.
  HCAT-COL_POS = &1.
  HCAT-FIELDNAME = &2.
  HCAT-OUTPUTLEN = &3.
  HCAT-SCRTEXT_M = HCAT-COLTEXT = &4.
  APPEND HCAT TO FCAT.
END-OF-DEFINITION.

START-OF-SELECTION.

GET PRPS_R.
  CLEAR WA.
  WA-POSID = PRPS_R-POSID.
  APPEND WA TO ITAB.

GET EKKO LATE.
  WA-EBELN = EKKO-EBELN.
  APPEND WA TO ITAB.
  DELETE ITAB WHERE POSID = WA-POSID AND EBELN = SPACE.

END-OF-SELECTION.
  ADD_FIELD '1' 'POSID' '24' 'WBS element' .
  ADD_FIELD '2' 'EBELN' '10' 'Purchase order'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      IT_FIELDCAT_LVC = FCAT
    TABLES
      T_OUTTAB        = ITAB.

Zhasulan

Code:

DELETE ITAB WHERE POSID = WA-POSID AND EBELN = SPACE.

Удаляет строку если нет договора???

Zhasulan

а если так??

Code:

get PRPS_R.
  report-PSPID = PRPS_R-POSID.

get EKKO late.
    report-EBELN = EKKO-EBELN.  

  collect report.

Zhasulan

понял эту строчку...
удаление предыдущего АППЕНДА??

Code:

DELETE ITAB WHERE POSID = WA-POSID AND EBELN = SPACE.

Zhasulan

У меня участвуют три таблицы.
PROJ, PRPS_R, EKKO.
Даже если по вашему делаю все равно не получается ругается на delete?
А вашу прогу скопировал работает, но остается одна строчка где написана не СПП а проект?

Zhasulan

Я так понимаю это из-за того что к екко приходит две записи в ITAB определение проекта и его СПП.

John Doe

И снова код (извиняюсь, трудно объяснить)

Code:

NODES: PROJ, PRPS_R, EKKO.

DATA: BEGIN OF WA,
        PSPID TYPE PS_PSPID,
        POSID TYPE PS_POSID,
        EBELN TYPE EBELN,
      END OF WA,
      ITAB LIKE WA OCCURS 0.
DATA: HCAT TYPE LVC_S_FCAT,
      FCAT TYPE LVC_T_FCAT.

DEFINE ADD_FIELD.
  CLEAR HCAT.
  HCAT-COL_POS = &1.
  HCAT-FIELDNAME = &2.
  HCAT-OUTPUTLEN = &3.
  HCAT-SCRTEXT_M = HCAT-COLTEXT = &4.
  APPEND HCAT TO FCAT.
END-OF-DEFINITION.

START-OF-SELECTION.

GET PROJ.
  CLEAR WA.
  WA-PSPID = PROJ-PSPID.
  APPEND WA TO ITAB.

GET PRPS_R.
  WA-POSID = PRPS_R-POSID.
  APPEND WA TO ITAB.
  DELETE ITAB WHERE PSPID = WA-PSPID AND POSID = SPACE.

GET EKKO LATE.
  WA-EBELN = EKKO-EBELN.
  APPEND WA TO ITAB.
  DELETE ITAB WHERE POSID = WA-POSID AND EBELN = SPACE.

END-OF-SELECTION.
  ADD_FIELD '1' 'PSPID' '24' 'Project' .
  ADD_FIELD '2' 'POSID' '24' 'WBS element' .
  ADD_FIELD '3' 'EBELN' '10' 'Purchase order'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      IT_FIELDCAT_LVC = FCAT
    TABLES
      T_OUTTAB        = ITAB.

Попытаюсь:
1. Структура конкретной ЛБД похожа на пирамидку: на 1 проект (событие GET PROJ) может быть найдено несколько СПП элементов (событие GET PRPS_R), а для каждого СПП элемента может быть найдено несколько заказов на закупку (событие GET EKKO).
2. Если в событии GET PRPS_R данных не найдется - обработка вернется к предыдущему событию. Соотвественно, заполнение таблицы (APPEND) необходим в каждом событии, а не в конце последнего. Поэтому у Вас изначально записи без заказов не выбирались - COLLECT или APPEND стоял видимо в последнем событии GET EKKO.
3. Удаление предыдущего APPEND выполняется как раз из-за 2-го пункта. Если записи находятся в последующем событии - запись из первого события становится не нужной.

Zhasulan

----------------------------------------------------------------------------
| Project | WBS element | Purchase order |
|----------|-----------------------|-------------|
| Проект | СПП верх уровня | здесь пусто |
| Проект | СПП нижн уровня| Договор |
| Проект | СПП нижн уровня| Договор |
| Проект | СПП нижн уровня| Договор |
|_______|________________|_______|

Принцип таков.
К договорам цепляются СПП нижнего уровня.
Структура проектов такая:
1. Определение проекта.
2.СПП верхнего уровня
3.СПП нижнего уровня.
Так вот у 'определения проекта' маска такая же как и у 'СПП верхнего уровня', а у 'СПП нижнего' начало такое же а потом идет /01 или /02 и т.д.
Все такая у нас структура. Может поэтому и первая строка появляется??

John Doe

Ну если не нужны СПП элементы "верхнего уровня" - удалите их исз списка. Событию GET PRPS_R абсолютно плевать какого уровня СПП - если он привязан к проекту, то его выберут.

Zhasulan

А как мне удалить??
Мне то нужно все СПП даже на которые нет договоров, а если я буду ориентироваться на пустое поле то не получится???

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

Использование логической базы PROJ

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