Передача параметров из Selection Screen в Maintenance View (ракурс ведения)

KSulimov

Здравствуйте!
Есть селекционный экран с несколькими параметрами и кнопкой "Создать". По нажатию кнопки должно осуществляться создание записи в таблице, причем через ракурс ведения. Параметры из экрана выбора должны передаться в ракурс ведения и заполнить соответствующие поля в строке.
Вероятно, передачу/прием параметров необходимо делать так:
пишу в программе с селекционным экраном:

Code:

EXPORT NUM_NAR DATE_NAR NUM_BRIG is_new TO MEMORY ID 'ID_NAR'.

в модуле PBO ракурса ведения:

Code:

IMPORT NUM_NAR DATE_NAR NUM_BRIG is_new FROM MEMORY ID 'ID_NAR'.

Модуль в PBO почему-то не отрабатывает.
И если получится передать параметры, как потом создать пустую запись и заполнить программно нужные поля?

Кодер

Постановка задачи очень извращенная. Чем обусловлена необходимость ввода данных именно через ракурс ведения?
Самый простой способ: напишите пакетник. Самый правильный способ: уточнить задачу и еще раз подумать.

KSulimov

В програмулине также осущестляется редактирование записей через ракурс ведения по заполнению параметров селекционного экрана и нажатию кнопки "Редактировать". Такая вот постановка, кроме того она наполовину реализована, а на полпути коней не меняют...
Только что подумал, может можно сделать append в таблицу Extract ?

nicky555

А чего вы пакетным вводом не сделаете?
Генерируем стандартный диалог ведения, делаем транзакцию с параметрами на SM30 для вашего ракурса, а дальше - пакетный ввод. Просто и безболезненно

KSulimov

Решено.
В PBO ракурса разместил свой модуль первым:

Code:

PROCESS BEFORE OUTPUT.
 MODULE PREPARE. " <--МОЙ МОДУЛЬ
 MODULE LISTE_INITIALISIEREN.
 LOOP AT EXTRACT WITH CONTROL
  TCTRL_ZHR_PKTO_F3T CURSOR NEXTLINE.
   MODULE LISTE_SHOW_LISTE.
   MODULE FILL_FIELDS.
 ENDLOOP.

Вот текст модуля:

Code:

MODULE PREPARE OUTPUT.
   DATA :
        NUM_NAR TYPE ZNUM_NAR, "номер наряда
        DATE_NAR TYPE DATUM,   "дата наряда
        NUM_BRIG TYPE OBJID,   "номер бригады
        is_new(1) TYPE c VALUE space.

   DEFINE assign_value.
      ASSIGN COMPONENT &1 OF STRUCTURE <vim_total_struc> TO <fs_fldval>.
      <fs_fldval> = &2.
      UNASSIGN <fs_fldval>.
   END-OF-DEFINITION.

  IMPORT NUM_NAR = NUM_NAR DATE_NAR = DATE_NAR NUM_BRIG = NUM_BRIG is_new = is_new FROM MEMORY ID 'ID_NAR'.
  <action> = 'N'.
*  assign_value 'SUM_SD' '999'.
  assign_value 'N_NAR' NUM_NAR.
  assign_value 'DATA1' DATE_NAR.
  assign_value 'F_BRIG' NUM_BRIG.
  APPEND  TOTAL.
  extract = total.
  APPEND EXTRACT.

ENDMODULE. 

sy-uname

nicky555 написал:

А чего вы пакетным вводом не сделаете?
Генерируем стандартный диалог ведения, делаем транзакцию с параметрами на SM30 для вашего ракурса, а дальше - пакетный ввод. Просто и безболезненно

Почему сразу пакетник? Почему не воспользоваться CF VIEW_MAINTENANCE или CF VIEW_MAINTENANCE_CALL ???

KSulimov

sy-uname, пользуюсь CALL FUNCTION 'VIEW_MAINTENANCE_CALL'.
Проблема все-таки не решена. После отработки описанного выше модуля, в ракурсе действительно добавляется новая строка, заполненная как мне надо. Но при сохранении вылетает в дамп при записи в БД. Кроме того эта строка не удаляется стандартной кнопкой "удалить".

sy-uname

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

sy-uname, пользуюсь CALL FUNCTION 'VIEW_MAINTENANCE_CALL'.
Проблема все-таки не решена. После отработки описанного выше модуля, в ракурсе действительно добавляется новая строка, заполненная как мне надо. Но при сохранении вылетает в дамп при записи в БД. Кроме того эта строка не удаляется стандартной кнопкой "удалить".

Значит CF как то не так используется. Или попробовать другие FM из SVIM

KSulimov

я думаю, что дело не в ФМ, т.к. после его вызова все действия происходят уже непосредственно в ракурсе ведения

nicky555

sy-uname написал(а):

nicky555 написал:

А чего вы пакетным вводом не сделаете?
Генерируем стандартный диалог ведения, делаем транзакцию с параметрами на SM30 для вашего ракурса, а дальше - пакетный ввод. Просто и безболезненно

Почему сразу пакетник? Почему не воспользоваться CF VIEW_MAINTENANCE или CF VIEW_MAINTENANCE_CALL ???

Потому, что эти ФМ не позволяют добавить или изменить запись. Их назначение - вызов стандартного диалога ведения. Опционально - с дополнительными ограничениями выбора.
Задача же, насколько я понял - добавить/изменить записи в диалоге ведения "без ручного ввода".

sy-uname

nicky555 написал:

Потому, что эти ФМ не позволяют добавить или изменить запись. Их назначение - вызов стандартного диалога ведения. Опционально - с дополнительными ограничениями выбора.
Задача же, насколько я понял - добавить/изменить записи в диалоге ведения "без ручного ввода".

Разве? А по моему кто то из VIEW_MAINTENANCE VIEW_MAINTENANCE_CALL VIEW_MAINTENANCE_LOW_LEVEL VIEW_MAINTENANCE_NO_DIALOG VIEW_MAINTENANCE_SINGLE_ENTRY вполне предназначен для использования в режиме "без ручного ввода". Иначе бы я их не упоминал.

KSulimov

Удалось реализовать вставку новой записи. Но есть один недостаток: ключевые поля сразу заполняются программно и пишутся в БД, не подлежат дальнейшему редактированию. Может кто-то знает, как это побороть?

Code:

MODULE PREPARE OUTPUT.
   DATA :
        NUM_NAR TYPE ZNUM_NAR, "номер наряда
        DATE_NAR TYPE DATUM,   "дата наряда
        NUM_BRIG TYPE OBJID,   "номер бригады
        is_new(1) TYPE c VALUE space.

   DEFINE assign_value.
      ASSIGN COMPONENT &1 OF STRUCTURE <vim_total_struc> TO <fs_fldval>.
      <fs_fldval> = &2.
      UNASSIGN <fs_fldval>.
   END-OF-DEFINITION.

  IMPORT NUM_NAR = NUM_NAR DATE_NAR = DATE_NAR NUM_BRIG = NUM_BRIG is_new = is_new FROM MEMORY ID 'ID_NAR'.
  IF is_new = 'X'.
    <action> = 'N'.
    assign_value 'MANDT' sy-mandt.
    assign_value 'AEDTM' sy-datum.
    assign_value 'UNAME' sy-uname.
    assign_value 'N_NAR' NUM_NAR.
*    assign_value 'PERNR' ''."1.
    assign_value 'RAZR' ''.
    assign_value 'SUM_SD' 0.
    assign_value 'SUM_POVR' ''.
    assign_value 'SUM_SV' ''.
    assign_value 'SUM_NIGTH' ''.
    assign_value 'SUM_PR' ''.
    assign_value 'SUM_HOL' ''.
    assign_value 'T_SD' ''.
    assign_value 'T_POVR' ''.
    assign_value 'T_SV' ''.
    assign_value 'T_NIGTH' ''.
    assign_value 'T_PR' ''.
    assign_value 'T_NORM' ''.
    assign_value 'F_BRIG' NUM_BRIG.
    assign_value 'DATA1' DATE_NAR.

    APPEND  TOTAL.
    extract = total.
    APPEND EXTRACT.

    <action> = space.
    is_new = space.
    EXPORT NUM_NAR DATE_NAR NUM_BRIG is_new TO MEMORY ID 'ID_NAR'.

  ENDIF.

ENDMODULE.              

Удав

Посмотрите на событие 05

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

Передача параметров из Selection Screen в Maintenance View (ракурс ведения)

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