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

OlegDm

Небольшое изменение при обработке события GET PRPS_R (договор из последнего обработанного СПП копировался в последующий СПП, поскольку при обработке последующего СПП не происходила очистка предыдущего значения договора):

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.
  CLEAR WA.
  WA-PSPID = PROJ-PSPID.
  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.

Zhasulan

У меня внутренняя таблица ссылается на структуру, которую я сам создал.
"DELETE ITAB WHERE ..." - не работает???

Besa

Zhasulan написал:

У меня внутренняя таблица ссылается на структуру, которую я сам создал.
"DELETE ITAB WHERE ..." - не работает???

Не понимаю о чем Вы? что значит ссылается, правильно объявите свою таблицу и DELETE ITAB WHERE будет работать.

Code:

data: itab like ВАША СТРУКТУРА occurs 0.

Zhasulan

Объявлено нормально.
Вот мой код.

Code:

get PRPS_R.
  wa-PSPNR = PRPS_R-PSPNR.
  wa-OBJNR = PRPS_R-OBJNR.
  wa-PSPID = PRPS_R-POSID.
  wa-POST1 = PRPS_R-POST1.
  wa-VERNA = PRPS_R-VERNA.
  wa-ASTNA = PRPS_R-ASTNA.
    APPEND wa TO itab.
    DELETE itab WHERE PSPID = wa-PSPID AND POSID = SPACE.

Говорит что 'field "WHERE" is unknown. It is neither in one of the specified tables nor defined by a "DATA" statement.

Это так в моей программе, а в вашем примере все работает отлично(((

Besa

Zhasulan написал:

Объявлено нормально.
Вот мой код.

Code:

get PRPS_R.
  wa-PSPNR = PRPS_R-PSPNR.
  wa-OBJNR = PRPS_R-OBJNR.
  wa-PSPID = PRPS_R-POSID.
  wa-POST1 = PRPS_R-POST1.
  wa-VERNA = PRPS_R-VERNA.
  wa-ASTNA = PRPS_R-ASTNA.
    APPEND wa TO itab.
    DELETE itab WHERE PSPID = wa-PSPID AND POSID = SPACE.

Говорит что 'field "WHERE" is unknown. It is neither in one of the specified tables nor defined by a "DATA" statement.

Это так в моей программе, а в вашем примере все работает отлично(((

У меня не ругается, покажите как Вы объявили таблицу и структуру.

Zhasulan

Code:

itab like ZPS_NKC1 occurs 0 with header line,
wa like itab.

ZPS_NKC1 - моя структура.

John Doe

WA по-человечески объявите, хотя бы как как LINE OF...

Добавил: проверил, не важно.

Zhasulan

Code:

wa   like ZPS_NKC1 occurs 0 with header line,
itab like ZPS_NKC1 occurs 0 with header line.

и так не работает??

Besa

Zhasulan написал:

Code:

wa   like ZPS_NKC1 occurs 0 with header line,
itab like ZPS_NKC1 occurs 0 with header line.

и так не работает??

приведите весь код пжста, может вы что то не в тех блоках обработки прописали или еще что. А так как Вы сейчас объявили это не правильно.

Zhasulan

Code:

report  like ZPS_NKC1 occurs 0 with header line,
rep like ZPS_NKC1 occurs 0 with header line,


START-OF-SELECTION.

  PERFORM E04_COMMENT_BUILD  USING GT_LIST_TOP_OF_PAGE[].

get PROJ.
  clear report.
  clear rep.
  pgjahr = pperiod-low+0(4).
  rep-JPSPNR  = PROJ-PSPNR.
  rep-JPOST1  = PROJ-POST1.
  rep-JPSPID  = PROJ-PSPID.
  rep-JJPOST1 = PROJ-POST1.
  rep-PLFAZ   = PROJ-PLFAZ. 
  rep-PLSEZ   = PROJ-PLSEZ.
    APPEND rep TO report.

get PRPS_R.
  
  clear rep.
  rep-JPSPNR  = PROJ-PSPNR.
  rep-JPOST1  = PROJ-POST1.
  rep-JPSPID  = PROJ-PSPID. 
  rep-JJPOST1 = PROJ-POST1.  
  rep-PLFAZ   = PROJ-PLFAZ.  
  rep-PLSEZ   = PROJ-PLSEZ.
  rep-PSPNR = PRPS_R-PSPNR.
  rep-OBJNR = PRPS_R-OBJNR.
  rep-PSPID = PRPS_R-POSID.
  rep-POST1 = PRPS_R-POST1. 
  rep-VERNA = PRPS_R-VERNA.
  rep-ASTNA = PRPS_R-ASTNA.
    APPEND rep TO report.
    DELETE report WHERE PSPID = rep-PSPID AND POSID = SPACE.

get EKKO late.
  if EKKO-BSTYP = 'K'.
    rep-EBELN = EKKO-EBELN.     
    rep-BEDAT = EKKO-BEDAT.
    rep-KDATE = EKKO-KDATE.
    rep-LIFNR = EKKO-LIFNR.
  endif.
  if EKKO-BSTYP   = 'F'.
    rep-EBELN  = EKKO-KONNR.                                
  endif.
  APPEND rep TO report.
 DELETE report WHERE POSID = rep-POSID AND EBELN = SPACE.

END-OF-SELECTION.

[/code]

Besa

назовите таблицу подругому, и вобще не используйте в названиях переменных зарезервированные слова.

Zhasulan

хорошо, спасибо!!
сейчас переделаю.

Zhasulan

Code:

data:wa  like ZPS_NKC1 occurs 0 with header line,
itab like ZPS_NKC1 occurs 0 with header line,


START-OF-SELECTION.

  PERFORM E04_COMMENT_BUILD  USING GT_LIST_TOP_OF_PAGE[].

get PROJ.
  clear report.
  clear rep.
  pgjahr = pperiod-low+0(4).
  wa-JPSPNR  = PROJ-PSPNR.
  wa-JPOST1  = PROJ-POST1.
  wa-JPSPID  = PROJ-PSPID.
  wa-JJPOST1 = PROJ-POST1.
  wa-PLFAZ   = PROJ-PLFAZ.
  wa-PLSEZ   = PROJ-PLSEZ.
    APPEND wa TO itab.

get PRPS_R.
 
  clear wa.
  wa-JPSPNR  = PROJ-PSPNR.
  wa-JPOST1  = PROJ-POST1.
  wa-JPSPID  = PROJ-PSPID.
  wa-JJPOST1 = PROJ-POST1. 
  wa-PLFAZ   = PROJ-PLFAZ. 
  wa-PLSEZ   = PROJ-PLSEZ.
  wa-PSPNR = PRPS_R-PSPNR.
  wa-OBJNR = PRPS_R-OBJNR.
  wa-PSPID = PRPS_R-POSID.
  wa-POST1 = PRPS_R-POST1.
  wa-VERNA = PRPS_R-VERNA.
  wa-ASTNA = PRPS_R-ASTNA.
    APPEND wa TO itab.
    DELETE report WHERE PSPID = wa-PSPID AND POSID = SPACE.

get EKKO late.
  if EKKO-BSTYP = 'K'.
    wa-EBELN = EKKO-EBELN.     
    wa-BEDAT = EKKO-BEDAT.
    wa-KDATE = EKKO-KDATE.
    wa-LIFNR = EKKO-LIFNR.
  endif.
  if EKKO-BSTYP   = 'F'.
    wa-EBELN  = EKKO-KONNR.                               
  endif.
  APPEND wa TO itab.
 DELETE itab WHERE POSID = wa-POSID AND EBELN = SPACE.

END-OF-SELECTION.

OlegDm

тебе когда говорили про зарезервированные слова - имели ввиду REPORT.

Zhasulan

Все сделал теперь не ругается!!спасибо огромное за ваше терпение))) :oops:

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

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

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