Текущее время: Пн, июл 14 2025, 19:41

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


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


ВНИМАНИЕ!

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



Начать новую тему Ответить на тему  [ Сообщений: 37 ]  На страницу Пред.  1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 08:51 
Гуру-эксперт
Гуру-эксперт

Зарегистрирован:
Вт, авг 24 2004, 07:19
Сообщения: 3952
Откуда: ECC 6.0, South Kazakhstan
Небольшое изменение при обработке события 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.



Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 09:23 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
У меня внутренняя таблица ссылается на структуру, которую я сам создал.
"DELETE ITAB WHERE ..." - не работает???


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 09:40 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 16:25
Сообщения: 3109
Пол: Мужской
Zhasulan написал:
У меня внутренняя таблица ссылается на структуру, которую я сам создал.
"DELETE ITAB WHERE ..." - не работает???

Не понимаю о чем Вы? что значит ссылается, правильно объявите свою таблицу и DELETE ITAB WHERE будет работать.
Code:
data: itab  like ВАША СТРУКТУРА occurs 0.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 11:53 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
Объявлено нормально.
Вот мой код.

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.

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


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:06 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 16:25
Сообщения: 3109
Пол: Мужской
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.

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

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


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:11 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
Code:
itab like ZPS_NKC1 occurs 0 with header line,
wa like itab.


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


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:14 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Ср, ноя 03 2004, 14:51
Сообщения: 1912
Откуда: КраснАдар
Пол: Мужской
WA по-человечески объявите, хотя бы как как LINE OF...

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


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:23 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
Code:
wa   like ZPS_NKC1 occurs 0 with header line,
itab like ZPS_NKC1 occurs 0 with header line.


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


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:26 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 16:25
Сообщения: 3109
Пол: Мужской
Zhasulan написал:
Code:
wa   like ZPS_NKC1 occurs 0 with header line,
itab like ZPS_NKC1 occurs 0 with header line.


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

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


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:35 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
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]


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:40 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 16:25
Сообщения: 3109
Пол: Мужской
назовите таблицу подругому, и вобще не используйте в названиях переменных зарезервированные слова.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:44 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
хорошо, спасибо!!
сейчас переделаю.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 12:50 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
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.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 13:08 
Гуру-эксперт
Гуру-эксперт

Зарегистрирован:
Вт, авг 24 2004, 07:19
Сообщения: 3952
Откуда: ECC 6.0, South Kazakhstan
тебе когда говорили про зарезервированные слова - имели ввиду REPORT.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения:
СообщениеДобавлено: Пн, ноя 10 2008, 14:57 
Старший специалист
Старший специалист

Зарегистрирован:
Вт, июл 29 2008, 16:07
Сообщения: 351
Откуда: Astana
Пол: Мужской
Все сделал теперь не ругается!!спасибо огромное за ваше терпение))) :oops: :oops:


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 37 ]  На страницу Пред.  1, 2, 3  След.

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


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

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


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

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