Текущее время: Ср, июл 23 2025, 11:58

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




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Использование кластеров в SE38
СообщениеДобавлено: Ср, июл 11 2007, 10:25 
Начинающий
Начинающий

Зарегистрирован:
Ср, июл 11 2007, 10:13
Сообщения: 5
Приветствую всех САПЕРОВ...

Помогите пожалуйста умным советом,
как из SE38 достать данные которые хранятся в кластере UR
RT- +различные поля ... :?:
Буду рад любому совету... :!:


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Использование кластеров в SE38
СообщениеДобавлено: Ср, июл 11 2007, 10:36 
Гуру-эксперт
Гуру-эксперт

Зарегистрирован:
Вт, сен 07 2004, 17:47
Сообщения: 2988
Mr.Kuznecov написал(а):
Приветствую всех САПЕРОВ...

Помогите пожалуйста умным советом,
как из SE38 достать данные которые хранятся в кластере UR
RT- +различные поля ... :?:
Буду рад любому совету... :!:


Cмотри как это сделано в H99CWTR0 или что написано в курсе HR350

_________________
"После" - не значит "вследствие"


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, июл 11 2007, 10:38 
Начинающий
Начинающий

Зарегистрирован:
Ср, июл 11 2007, 10:13
Сообщения: 5
У меня этот курс обрезанный (т.е. неполный)
если можно отправьте на mr.Kuznecov@mail.ru небитый
Спасиб за оперативность ... неожидал


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, июл 11 2007, 16:17 
Менеджер
Менеджер
Аватара пользователя

Зарегистрирован:
Пн, июн 05 2006, 14:48
Сообщения: 701
Откуда: Mosсow
Пол: Мужской
Что-то типа этого:

Code:
INCLUDE: rpc2rx00,
         pc2rxru0,
         rpppxd00.

TABLES: pernr, pyorgscreen, pytimescreen, pcl1, pcl2.

* Определяем структуру для выгрузки RGDIR
DATA: BEGIN OF rgdir OCCURS 100.
        INCLUDE STRUCTURE pc261.
DATA: END OF rgdir.
* Определяем структуру для выгрузки EVPDIR
DATA: BEGIN OF evpdir OCCURS 100.
        INCLUDE STRUCTURE pc261.
DATA: END OF evpdir.
DATA: BEGIN OF COMMON PART buffer.
INCLUDE rpppxd10.
DATA: END OF COMMON PART buffer.

INCLUDE  rpppxm00.

.....................

* Вытаскиваем каталог клатера
  CALL FUNCTION 'CU_READ_RGDIR'
    EXPORTING
      persnr          = pernr-pernr
    IMPORTING
      molga           = country
    TABLES
      in_rgdir        = rgdir
    EXCEPTIONS
      no_record_found = 1
      OTHERS          = 2.

IF sy-subrc <> 0.
    EXIT.
  ENDIF.
  clear per_0.

  do.
    if per_0 is initial.
      CONCATENATE pyabrj0 pyabrp0 INTO per_0.
    else.
      if per_0 >= per_1.
        exit.
      else.
        if per_0+4(2) = 12.
          per_0+4(2) = '01'.
          per_0(4) = per_0(4) + 1.
        else.
          per_0 = per_0 + 1.
        endif.
      endif.
    endif.
  CALL FUNCTION 'CD_EVALUATION_PERIODS'
    EXPORTING
      bonus_date      = '00000000'
      inper_modif     = '01'
      inper           = per_0
      pay_type        = ''
      pay_ident       = ''
    TABLES
      rgdir           = rgdir
      evpdir          = evpdir
    EXCEPTIONS
      no_record_found = 1
      OTHERS          = 2.
  IF sy-subrc = 0.
    LOOP AT evpdir WHERE srtza <> 'O' .
      rx-key-pernr = pernr-pernr.
      rx-key-seqno = evpdir-seqnr.
      rp-imp-c2-ur.

      CASE evpdir-srtza.
        WHEN 'A'.
          c = 1.
        WHEN 'P'.
          c = -1.
      ENDCASE.


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

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


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

Сейчас этот форум просматривают: Google [Bot]


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

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