ЛБД PCH

Meshok

Как сделать чтобы при выводе проекции данных из разных инфо-типов строки не повторялись. Используется ЛБД PCH.

calm

Не очень понятно

,
вы бы по-подробнее изложить суть проблемы.

Meshok

Code:

REPORT  ZRL_SECOND_ZAD                          .

TABLES: objec, gdstr.
INFOTYPES: 1000,0001,0002,1222.

DATA: name  type char80,
      spec_tabl type table of zspec_str2 with header line.

INITIALIZATION.
  pchplvar = '01'.
  pchotype = 'O'.
  pchwegid = 'O-O-S-P'.

GET OBJEC.

  IF objec-otype = 'O'.
    LOOP AT p1000 where begda LE pc-endda
                    AND endda GE pc-begda.
      spec_tabl-SHORT = objec-short.
      spec_tabl-STEXT = objec-stext.
    ENDLOOP.
  ENDIF.


  IF objec-otype = 'S'.
    LOOP AT p1000 where begda LE pc-endda
                    AND endda GE pc-begda.
      spec_tabl-CP1_SHORT = objec-short.
      spec_tabl-CP1_STEXT = objec-stext.
    ENDLOOP.
  ENDIF.

  IF objec-otype = 'P'.
    PROVIDE pernr FROM p0001
            vorna nachn nach2 FROM p0002
      BETWEEN pc-begda and pc-endda.
      CONCATENATE p0002-vorna p0002-nachn p0002-nach2 INTO name
      SEPARATED BY SPACE.
      spec_tabl-pernr = p0001-pernr.
      spec_tabl-cname = name.
    ENDPROVIDE.
    append spec_tabl.
  ENDIF.



END-OF-SELECTION.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_STRUCTURE_NAME                  = 'zspec_str2'
    TABLES
      T_OUTTAB                          = spec_tabl[]
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

вот код программы, вроде все правильно, но выскакивают повторные строки....

calm

Цитата:

но выскакивают повторные строки

Meshok, какие именно повторные строки? Для всех типов объектов или только для определенных? Какой вопрос ты задашь, такой ответ и получишь.

Если ты запускаешь отчет за период, то велика вероятность, что в этот период у челов в орг.присвоении случаются изменения и ты обрабатываешь несколько записей в P0001.
Кстати из кода совершенно неясно, для чего тебе нужен P0001. Номер табельного можно взять и из p1000 и из p0002.

Брат Мигель

Необходимо делать provide по ИТ 0001.
а внутри читать остальные ИТ на дату ИТ 0001

sy-uname

calm написал(а):

...
Кстати из кода совершенно неясно, для чего тебе нужен P0001. Номер табельного можно взять и из p1000 и из p0002.

Более того

Code:

PROVIDE pernr FROM p0001

абсолютно безсмысленен. Табельный номер нужно брать из OBJEC-OBJID (для объекта 'P' естественно)

Meshok

calm написал(а):

Цитата:

но выскакивают повторные строки

Meshok, какие именно повторные строки? Для всех типов объектов или только для определенных? Какой вопрос ты задашь, такой ответ и получишь.

Если ты запускаешь отчет за период, то велика вероятность, что в этот период у челов в орг.присвоении случаются изменения и ты обрабатываешь несколько записей в P0001.
Кстати из кода совершенно неясно, для чего тебе нужен P0001. Номер табельного можно взять и из p1000 и из p0002.

Повторные строки для всех типов объектов.
Я запускаю отчет за "сегодня" и все равно есть повторяющиеся строки.
А таб. номер я беру из p0001, потому что по заданию так нужно =)

Meshok

Брат Мигель написал:

Необходимо делать provide по ИТ 0001.
а внутри читать остальные ИТ на дату ИТ 0001

Спасибо, завтра попробую.
Я так понимаю это будет выглядить примерно так:

Code:

Provide pernr from p0001
 between begda and endda
    Provide vorna midn nachn from p0002
    between begda and endda
         ..........
         ..........
    Endprovide.
 Endprovide.

ИЛИ КАК?)

sy-uname

Meshok Строки у вас дублмруются скорее всего (сейчас нет возможности проверить) из-за пути анализа. Попробуйте вместо 'O-O-S-P' использовать 'O-S-P'

Meshok написал(а):

REPORT ZRL_SECOND_ZAD .

...
INITIALIZATION.
pchplvar = '01'.
pchotype = 'O'.
pchwegid = 'O-O-S-P'.

...

Далее что касается табельного номера - то в данной части можно не обращать на т.з - так как табельный номер является уникальным идентификатором служащего и он один и тот-же что в 0001 инфотипе, что в OBJEC-OBJID и не сожет меняться с течением времени.

Meshok

Дело в том что путь анализа должен быть "o-o-s-p" по условию задания =(
Но я думаю что связи дублируются не из-за этого.
В моей группе люди которые делали отчеты с ЛБД PNP, перед проекцией табельного номера и имени сотрудника использовали макрос rp_provide_from_last и строки у них перестали повторяться.
Но в PCH нет такого макроса =(.

sy-uname

Meshok написал(а):

Дело в том что путь анализа должен быть "o-o-s-p" по условию задания =(
Но я думаю что связи дублируются не из-за этого.
В моей группе люди которые делали отчеты с ЛБД PNP, перед проекцией табельного номера и имени сотрудника использовали макрос rp_provide_from_last и строки у них перестали повторяться.
Но в PCH нет такого макроса =(.

Ну, ё-моё. Вы отчёт делаете или в бубен стучите? Если у вас принципиально некоторве объекты могут быть вызваны несколько раз, то проверяйте нахлждение данных объектов таблице перед помещением туда записи.
Что там у кого не стало повторяться в PNP - это не важно (хотя rp_provide_from_last тут не причём), у вас ведь PCH

Meshok

Цитата:

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

Да не некоторые, а все! И ошибка не в правильности выбора пути анализа, а скорее всего в самой выборке! Поэтому я и кинул код, думал специалисты сразу увидят косяк.

Задачка-то вообще нулевая по идее.

Вывести всех сотрудников, должности,которые они занимают и организационные единицы в которых они работают. Остальные условия вы уже знаете (путь анализа и табельный номер).

sy-uname

Meshok написал(а):

Да не некоторые, а все! И ошибка не в правильности выбора пути анализа, а скорее всего в самой выборке! Поэтому я и кинул код, думал специалисты сразу увидят косяк.

Ну так вот и смотрите код - у вас на каждый вызов get objec для объекта типа 'P' добавляется одна запись в таблицу.

Code:

 ENDPROVIDE.
append spec_tabl.
ENDIF. " IF objec-otype = 'P'. 

как видно append находится за рамками цикла Provide Endprovide, который в итоге на количество записей не влияет..
Сколько вызовов get objec (тип P) столько и записей в таблице. Задать ключ и/или просто проверять наличие записей во внутренней таблице Вы не хотите, менять путь анализа тоже. Вам нужны магические артефакты, заклинания в виде неких макросов? Таких не существует.

Цитата:

Задачка-то вообще нулевая по идее.
Вывести всех сотрудников, должности,которые они занимают и организационные единицы в которых они работают. Остальные условия вы уже знаете (путь анализа и табельный номер).

и что? Думать уже запрещено? Табельный номер он и есть табельный номер, ненужно в даннном случае для его получения гонять цикл по ИТ 0001.

В конце концов - поменяйте 'O-O-S-P' (это ведь недолго) на 'O-S-P' - посмотрите что изменилось. Поменяйте обратно - смотрите что, для чего и в какой последовательности у вас вызывается get objec. Понавставляёте write-ов для контроля. Проверьте какие интервалы дат заданы и заданы-ли они вообще.
А то получается - у вас "Задание №2 по ЛБД", а нам решать.

Брат Мигель

Meshok написал(а):

Брат Мигель написал:

Необходимо делать provide по ИТ 0001.
а внутри читать остальные ИТ на дату ИТ 0001

Спасибо, завтра попробую.
Я так понимаю это будет выглядить примерно так:

Code:

Provide pernr from p0001
 between begda and endda
    Provide vorna midn nachn from p0002
    between begda and endda
         ..........
         ..........
    Endprovide.
 Endprovide.

ИЛИ КАК?)

Нет, не нужен второй провайд нужно например сделать loop и ограничить p0002-begda between p0001-begda and p0001-endda.
иначе опять ерунда будет.

Meshok

Брат Мигель написал:

Meshok написал(а):

Брат Мигель написал:

Необходимо делать provide по ИТ 0001.
а внутри читать остальные ИТ на дату ИТ 0001

Спасибо, завтра попробую.
Я так понимаю это будет выглядить примерно так:

Code:

Provide pernr from p0001
 between begda and endda
    Provide vorna midn nachn from p0002
    between begda and endda
         ..........
         ..........
    Endprovide.
 Endprovide.

ИЛИ КАК?)

Нет, не нужен второй провайд нужно например сделать loop и ограничить p0002-begda between p0001-begda and p0001-endda.
иначе опять ерунда будет.

Попробовал, результат тот же самый.

Цитата:

В конце концов - поменяйте 'O-O-S-P' (это ведь недолго) на 'O-S-P' - посмотрите что изменилось.

Пробовал, результат тот же самый. =(

Цитата:

А то получается - у вас "Задание №2 по ЛБД", а нам решать.

sy-uname!Что значит "нам решать"! Вы так в каждом топике пишите? Я вас не заставляю решать, а спросил в чем может быть проблема. Все что вы советовали я перепробовал.

Еще вопрос появился: объясните плз как работает provide? И чем его работа отличается от loop'a?
спасибо

ЛБД PCH

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