средство поиска

bekoza

Нужно средство поиска для параметра с отражением дерева орг. структуры для программы с ЛБД pnp. Help?

sy-uname

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

Нужно средство поиска с отражением дерева орг. структуры для программы с ЛБД pnp. Help?

Причём здесь PNP? Про что речь?
Нужно средство поиска? ФМ RH_TYPE_STRUC_HELP и подобные
Или нужно увидеть в отчёте кнопку "оргструктура"? Делается через класс отчёта HR.
Или?

РМщик

PLOM

либо графика через функцию HR_SHIFTPLAN_GET_MULT_ENTRY

РМщик

еще есть средство поиска

HRBAS00OBJID2

там надо задать
PLVAR = '01'
OTYPE = 'o'.

bekoza

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

еще есть средство поиска

HRBAS00OBJID2

там надо задать
PLVAR = '01'
OTYPE = 'o'.

Спасибо! вроде получилось...
ещё вопрос! а есть ли аналогичное ср. поиска с многократным выбором (с выделением объектов чекбоксами).

РМщик

для многократного выбора используйте
функцию HR_SHIFTPLAN_GET_MULT_ENTRY

bekoza

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

для многократного выбора используйте
функцию HR_SHIFTPLAN_GET_MULT_ENTRY

Спасибо. Но я ни сталкивался с привязкой ФМ к пользовательскому параметру обявленному в программе. Не поможете?

N/A

Нужно прописать следующее событие

AT SELECTION-SCREEN ON VALUE-REQUEST FOR param.

call function 'func'.
...
...
param = result.

РМщик

ну примерно - вот так,
а там можно бантики прилепить

Code:

*
REPORT R.

DATA: OBJ LIKE OBJEC OCCURS 0 WITH HEADER LINE,
      HRP LIKE HRP1000 OCCURS 0 WITH HEADER LINE,
      DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

RANGES: OBJID FOR OBJ-OBJID .

SELECT-OPTIONS: STEXT FOR OBJ-STEXT NO INTERVALS OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.
  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR STEXT-LOW.

  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].
  CALL FUNCTION 'HR_SHIFTPLAN_GET_MULT_ENTRY'
    EXPORTING
      PLVAR         = '01'
      OTYPE         = 'O'
      BEGDA         = SY-DATUM
      ENDDA         = SY-DATUM
    TABLES
      OBJECTS_FOUND = OBJ.

  LOOP AT OBJ.
    OBJID-SIGN = 'I'.
    OBJID-OPTION = 'EQ'.
    OBJID-LOW = OBJ-OBJID.
    APPEND OBJID.
    STEXT-LOW = OBJ-STEXT.
    STEXT-SIGN = 'I'.
    STEXT-OPTION = 'EQ'.

    APPEND STEXT.
  ENDLOOP.

START-OF-SELECTION.
  CLEAR: HRP, HRP[].
  SELECT * FROM HRP1000 APPENDING TABLE HRP
     WHERE PLVAR = '01' AND OTYPE = 'O' AND
        OBJID IN OBJID AND LANGU = SY-LANGU AND
         BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM.

  WRITE:/ 'Вы выбрали:'.
  LOOP AT HRP.
    WRITE:/ HRP-OBJID, HRP-STEXT.
  ENDLOOP.

bekoza

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

ну примерно - вот так,
а там можно бантики прилепить

Code:

*
REPORT R.

DATA: OBJ LIKE OBJEC OCCURS 0 WITH HEADER LINE,
      HRP LIKE HRP1000 OCCURS 0 WITH HEADER LINE,
      DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

RANGES: OBJID FOR OBJ-OBJID .

SELECT-OPTIONS: STEXT FOR OBJ-STEXT NO INTERVALS OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.
  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR STEXT-LOW.

  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].
  CALL FUNCTION 'HR_SHIFTPLAN_GET_MULT_ENTRY'
    EXPORTING
      PLVAR         = '01'
      OTYPE         = 'O'
      BEGDA         = SY-DATUM
      ENDDA         = SY-DATUM
    TABLES
      OBJECTS_FOUND = OBJ.

  LOOP AT OBJ.
    OBJID-SIGN = 'I'.
    OBJID-OPTION = 'EQ'.
    OBJID-LOW = OBJ-OBJID.
    APPEND OBJID.
    STEXT-LOW = OBJ-STEXT.
    STEXT-SIGN = 'I'.
    STEXT-OPTION = 'EQ'.

    APPEND STEXT.
  ENDLOOP.

START-OF-SELECTION.
  CLEAR: HRP, HRP[].
  SELECT * FROM HRP1000 APPENDING TABLE HRP
     WHERE PLVAR = '01' AND OTYPE = 'O' AND
        OBJID IN OBJID AND LANGU = SY-LANGU AND
         BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM.

  WRITE:/ 'Вы выбрали:'.
  LOOP AT HRP.
    WRITE:/ HRP-OBJID, HRP-STEXT.
  ENDLOOP.

Спасибо!

bekoza

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

ну примерно - вот так,
а там можно бантики прилепить

Code:

*
REPORT R.

DATA: OBJ LIKE OBJEC OCCURS 0 WITH HEADER LINE,
      HRP LIKE HRP1000 OCCURS 0 WITH HEADER LINE,
      DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

RANGES: OBJID FOR OBJ-OBJID .

SELECT-OPTIONS: STEXT FOR OBJ-STEXT NO INTERVALS OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.
  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR STEXT-LOW.

  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].
  CALL FUNCTION 'HR_SHIFTPLAN_GET_MULT_ENTRY'
    EXPORTING
      PLVAR         = '01'
      OTYPE         = 'O'
      BEGDA         = SY-DATUM
      ENDDA         = SY-DATUM
    TABLES
      OBJECTS_FOUND = OBJ.

  LOOP AT OBJ.
    OBJID-SIGN = 'I'.
    OBJID-OPTION = 'EQ'.
    OBJID-LOW = OBJ-OBJID.
    APPEND OBJID.
    STEXT-LOW = OBJ-STEXT.
    STEXT-SIGN = 'I'.
    STEXT-OPTION = 'EQ'.

    APPEND STEXT.
  ENDLOOP.

START-OF-SELECTION.
  CLEAR: HRP, HRP[].
  SELECT * FROM HRP1000 APPENDING TABLE HRP
     WHERE PLVAR = '01' AND OTYPE = 'O' AND
        OBJID IN OBJID AND LANGU = SY-LANGU AND
         BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM.

  WRITE:/ 'Вы выбрали:'.
  LOOP AT HRP.
    WRITE:/ HRP-OBJID, HRP-STEXT.
  ENDLOOP.

Вопрос! А для чего используется это:
DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

РМщик

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

Вопрос! А для чего используется это:
DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

здесь - не надо

а вообще - для обновления экранных полей

bekoza

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

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

Вопрос! А для чего используется это:
DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.

здесь - не надо

а вообще - для обновления экранных полей

а по конкретней насчет обновления экранных полей, если можно?

РМщик

Code:

*&---------------------------------------------------------------------*
*& Report  ZTEST61111                                                  *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZTEST61111                              .

DATA: OBJ LIKE OBJEC OCCURS 0 WITH HEADER LINE,
      HRP LIKE HRP1000 OCCURS 0 WITH HEADER LINE,
      DYN LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.


RANGES: OBJID FOR OBJ-OBJID .

SELECT-OPTIONS: STEXT FOR OBJ-STEXT NO INTERVALS OBLIGATORY.

SELECTION-SCREEN: SKIP,
                  COMMENT 1(8) HOBJID.

AT SELECTION-SCREEN OUTPUT.
  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].

AT SELECTION-SCREEN ON VALUE-REQUEST FOR STEXT-LOW.

  CLEAR: OBJ, OBJ[], OBJID, OBJID[], DYN, DYN[],
       STEXT, STEXT[].
  CALL FUNCTION 'HR_SHIFTPLAN_GET_MULT_ENTRY'
    EXPORTING
      PLVAR         = '01'
      OTYPE         = 'O'
      BEGDA         = SY-DATUM
      ENDDA         = SY-DATUM
    TABLES
      OBJECTS_FOUND = OBJ.

  CLEAR: HOBJID.
  LOOP AT OBJ.
    OBJID-SIGN = 'I'.
    OBJID-OPTION = 'EQ'.
    OBJID-LOW = OBJ-OBJID.
    APPEND OBJID.
    STEXT-LOW = OBJ-STEXT.
    STEXT-SIGN = 'I'.
    STEXT-OPTION = 'EQ'.
    HOBJID = OBJ-OBJID.
    APPEND STEXT.
  ENDLOOP.
  CLEAR: DYN, DYN[].
  DYN-FIELDNAME = 'HOBJID'.
  DYN-FIELDVALUE = HOBJID.
  APPEND DYN.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME     = SY-CPROG
      DYNUMB     = SY-DYNNR
    TABLES
      DYNPFIELDS = DYN
    EXCEPTIONS
      OTHERS     = 8.


START-OF-SELECTION.
  CLEAR: HRP, HRP[].
  SELECT * FROM HRP1000 APPENDING TABLE HRP
     WHERE PLVAR = '01' AND OTYPE = 'O' AND
        OBJID IN OBJID AND LANGU = SY-LANGU AND
         BEGDA <= SY-DATUM AND ENDDA >= SY-DATUM.

  WRITE:/ 'Вы выбрали:'.
  LOOP AT HRP.
    WRITE:/ HRP-OBJID, HRP-STEXT.
  ENDLOOP.

bekoza

2 PMщик

Добрый день!
Вопрос о многократном выборе параметра: при выборе двух и более орг. структур, кнопка многократного выбора не менятется (превращяется в зеленый цвет

). Как это сделать?

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

средство поиска

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