Перенос записей таблицы из одной системы в другую.

Arman

Здравствуйте.
Подскажите, пожалуйста, как мне перенести содержимое таблицы из одно системы в другую... Каким образом включить в запрос на перенос содержимое таблицы? Тип талбицы С.
в ведение переносы почему то не доступны (пишет "переносы не возможны")...

Спасибо.

1980

А таблица самодельная?

Arman

Да, пользовательская таблица...

Пробовал включить ее в перенос (включение отдельных объектов) - не помогло...

РМщик

с помощью вот такой нехитрой программы
можно выгрузить любую табличку в локальный файл
и загрузить ее в любой другой системе:

Code:

REPORT  ZTEST29                                 .
DATA:       VR TYPE REF TO DATA,
            VRL TYPE REF TO DATA.
PARAMETERS: D_EXPORT RADIOBUTTON GROUP R1,
            D_IMPORT RADIOBUTTON GROUP R1.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT',
        FILTYP(10) DEFAULT 'DAT' OBLIGATORY,
        USL(60),
        DELZ AS CHECKBOX.

DATA: FILEN TYPE STRING.

FIELD-SYMBOLS: <WA>, <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

  AUTHORITY-CHECK     OBJECT    'S_TABU_DIS'
                        ID        'DICBERCLS'   FIELD 'XXXX'
                        ID        'ACTVT'       FIELD '02'.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.

  CLEAR DD02L.
  SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.
  FILEN = FILENAME.
  IF  NOT DD02L-TABNAME IS INITIAL.

    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.

    IF D_EXPORT = 'X'.
      PERFORM EXPORT.
    ELSE.
      PERFORM IMPORT.
    ENDIF.


  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

*&--------------------------------------------------------------------*
*&      Form  EXPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM EXPORT.
  CLEAR <P>. REFRESH <P>.
  SELECT * FROM (TABNAM) APPENDING TABLE <P>
      WHERE (USL).
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME = FILEN
      FILETYPE = FILTYP
      CODEPAGE = '1504'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
  ELSE.
    WRITE:/ 'Ошибка выгрузки'.
  ENDIF.
ENDFORM.                    "EXPORT

*&--------------------------------------------------------------------*
*&      Form  IMPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM IMPORT.
  CLEAR <P>. REFRESH <P>.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'DAT'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    IF DELZ = 'X'.
      DELETE FROM (TABNAM).
    ENDIF.
    LOOP AT <P> ASSIGNING <WA>.
      INSERT (TABNAM) FROM <WA>.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    WRITE:/ 'Загрузка из локального файла прошла успешно'.
  ELSE.
    WRITE:/ 'Ошибка загрузки'.
  ENDIF.
ENDFORM.                    "IMPORT

Arman

Этот путь конечно хороший.. но не подходит..

Доступа в продуктив нету...

Не уже ли нет каких либо способов переноса записей таблицы стандартными методами...

Finick

Попробуй создать ракурс ведения. В нем есть перенос в запрос.
Второй вариант. Создать запрос: перенос настройки, в режиме редактирования добавить запись R3TR TABU <имя таблицы> и ключ.
Ключ задается кликом на иконку "ключ". Если таблица мандантонезависимая, поставь * - для переноса всех записей. Если мандантозависимая, поставь <мандант>*. <мандант> - № манданта из которого переносишь.

Arman

Ракурс ведения есть. Нажимаю на кнопку перенос - выдается ошибка:
"Для указанных данных невозможен никакой перенос."

второй путь сейчас пробую... как перенесут сообщу о результате... есть подозрения, что получится.. :-)

РМщик

а как называется ракурс ведения?

Skif

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

Этот путь конечно хороший.. но не подходит..

Доступа в продуктив нету...

Не уже ли нет каких либо способов переноса записей таблицы стандартными методами...

по рфс прокачиваю всё...- с помощью ФМ GET_TABLEBLOC_RFC и др.
удобно, что автоматом идёт межплатформенная конвертация полей(с межсистемной 40-47пришлось повозиться)
непонятно что значит Доступа в продуктив нету...?

Arman

PMщик, ракурс ведения называется ZMM1_DISP_VAR.

Skif, доступ в продуктив не дают. Разрабатываем в одной системе, тестируем в другой, а потом инсотранцы переносят все в продуктив..

Finick, второй предложенный путь помог.

Всем большое спасибо!

flipper

привет всем

вот интересно, а можно ли как нибудь перенести данные таблицы с LRAW полем(cluster database) в другую систему?
или только через RFC?
и в случае с RFC, объяните как...

спасиб

Mitya

РМщик написал(а):

Code:

REPORT  ZTEST29.
DATA:       VR TYPE REF TO DATA,
            VRL TYPE REF TO DATA.
PARAMETERS: D_EXPORT RADIOBUTTON GROUP R1,
            D_IMPORT RADIOBUTTON GROUP R1.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.
PARAMETERS: FILENAME LIKE  RLGRAP-FILENAME DEFAULT 'C:\TABLE.TXT',
        FILTYP(10) DEFAULT 'DAT' OBLIGATORY,
        USL(60),
        DELZ AS CHECKBOX.

DATA: FILEN TYPE STRING.

FIELD-SYMBOLS: <WA>, <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

  AUTHORITY-CHECK     OBJECT    'S_TABU_DIS'
                        ID        'DICBERCLS'   FIELD 'XXXX'
                        ID        'ACTVT'       FIELD '02'.
  IF SY-SUBRC <> 0.
    LEAVE PROGRAM.
  ENDIF.

  CLEAR DD02L.
  SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.
  FILEN = FILENAME.
  IF  NOT DD02L-TABNAME IS INITIAL.

    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.

    IF D_EXPORT = 'X'.
      PERFORM EXPORT.
    ELSE.
      PERFORM IMPORT.
    ENDIF.


  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

*&--------------------------------------------------------------------*
*&      Form  EXPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM EXPORT.
  CLEAR <P>. REFRESH <P>.
  SELECT * FROM (TABNAM) APPENDING TABLE <P>
      WHERE (USL).
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME = FILEN
      FILETYPE = FILTYP
      CODEPAGE = '1504'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    WRITE:/ 'Выгрузка прошла успешно в файл ',FILENAME.
  ELSE.
    WRITE:/ 'Ошибка выгрузки'.
  ENDIF.
ENDFORM.                    "EXPORT

*&--------------------------------------------------------------------*
*&      Form  IMPORT
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM IMPORT.
  CLEAR <P>. REFRESH <P>.
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME = FILENAME
      FILETYPE = 'DAT'
    TABLES
      DATA_TAB = <P>
    EXCEPTIONS
      OTHERS   = 1.
  IF SY-SUBRC = 0.
    IF DELZ = 'X'.
      DELETE FROM (TABNAM).
    ENDIF.
    LOOP AT <P> ASSIGNING <WA>.
      INSERT (TABNAM) FROM <WA>.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    WRITE:/ 'Загрузка из локального файла прошла успешно'.
  ELSE.
    WRITE:/ 'Ошибка загрузки'.
  ENDIF.
ENDFORM.                    "IMPORT

Проблема в том что в 46С этот код не прокатывает на этапе генерации.
Как можно в 46С извратится?

Dalt

Извратиться...хех, вот вам один способ, кстати очень быстрый. Лезите в базу данных, выгружаете свою табличку по ключу манданта, потом делаете вот так:

update sapr3.table t set t.mandt = 'номер манданта*куда' where t.mandt = 'номер манданта*откуда'

а потом затягиваете выгруженную табличку в базу, и у вас теперь будет записи в обоих мандантах. :lol:

Dalt

Сорри, увидел что доступа в продуктив нету...способ отпадает

ArmAnn

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

Извратиться...хех, вот вам один способ, кстати очень быстрый. Лезите в базу данных, выгружаете свою табличку по ключу манданта, потом делаете вот так:

update sapr3.table t set t.mandt = 'номер манданта*куда' where t.mandt = 'номер манданта*откуда'

а потом затягиваете выгруженную табличку в базу, и у вас теперь будет записи в обоих мандантах. :lol:

интересно, и как это поможет перенести данные в другую систему? :shock:

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

Перенос записей таблицы из одной системы в другую.

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