Pomoc wyszukiwania dla PCHOBJID w raporcie z PNP
February 3, 2010, SAP.
Spotkałam się ostatnio z problemem w programie w SAP HR, konkretniej w HR-PA. Piszę aplikację, która w założeniu opiera się na bazie PNP, ale pewna jej funkcjonalność korzysta ze struktury organizacyjnej, czyli z bazy PCH. Wygenerowanie pól ekranu selekcji, takiego jak w programie opartym na bazie PCH nie stanowi większego problemu. Kłopot pojawia się dopiero, kiedy chcemy dodać pomoc wyszukiwania do pola ID obiektu – standardową dla ekranu selekcji raportu ze struktury.
Po krótkim google’owaniu odpowiedź znajduje się np. w tym poście. Krótko mówiąc należy użyć makra rhxmacro dodając poniższe cztery linijki:
Na początku programu…
INCLUDE rhxmacro.
…w sekcji INITIALIZATION…
rhx-f4-objid-data.
…i jeszcze…
AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_obj_o-low.
rhx-f4-objid-low pchplvar pchotype so_obj_o ” ”.
Wszystko byłoby pięknie, gdyby nie to, że w makrze rhxmacro jest błąd powodujący niekompilowanie się kodu (ach, ten SAP..). Ostatnia zmiana wprowadzana przez SAPa jest z marca 2009 roku i wygląda na to, że ktoś wprowadzał zmiany do makra, ale pracy nie skończył. Potem prawdopodobnie z którąś z not ‘poprawka’ poszła do użytkowników. Błąd powodujący niekompilowanie się kodu makra jest bardzo prosty – aby go naprawić należy usunąć jedną linijkę, która próbuje wyczyścić nieistniejącą zmienną (usuniętą w trakcie ‘poprawiania’ makra).
Zatem finalnie, aby móc cieszyć się pięknym search helpem należy utworzyć nowe klienckie makro (niestety) będące poprawioną (już definitywnie) i okrojoną do naszych potrzeb wersją rhxmacro. Kod poniżej.
*INCLUDE ZRHXMACRO
DEFINE RHX-F4-OBJID-DATA.
TABLES PLOGI.
DATA : %F4_REPID LIKE SY-REPID.
DATA : %F4_DYNNR LIKE SY-DYNNR.
DATA : %F4_LINES TYPE I.
DATA : %F4_SUBRC LIKE SY-SUBRC. “XMK E-MSG
DATA : %F4_T77EO LIKE T77EO. “XMK #431960
DATA : BEGIN OF %F4_MACO_TAB OCCURS 1,
PLVAR LIKE PLOG-PLVAR,
OTYPE LIKE PLOG-OTYPE,
OBJID LIKE OBJEC-REALO,
END OF %F4_MACO_TAB.
DATA : %F4_PCHOBJID_LINES TYPE I.
DATA : %F4_PLVAR LIKE WPLOG-PLVAR.
DATA : %F4_OTYPE LIKE WPLOG-OTYPE.
DATA : %F4_OLD_OTYPE LIKE WPLOG-OTYPE.
DATA : %F4_SEL_OBJECTS LIKE OBJEC OCCURS 10 WITH HEADER LINE.
DATA : %F4_MARKED_OBJECTS LIKE HRSOBID OCCURS 10 WITH HEADER LINE.
END-OF-DEFINITION.
DEFINE RHX-F4-OBJID-LOW.
SET EXTENDED CHECK OFF.
%F4_REPID = SY-REPID.
%F4_DYNNR = SY-DYNNR.
DESCRIBE TABLE &3 LINES %F4_LINES.
IF &4 EQ SPACE.
PERFORM CHECK_PLVAR_F4(RHXCHK00) USING &1 %F4_SUBRC.
CHECK %F4_SUBRC = 0.
ENDIF.
IF &5 EQ SPACE.
IF &2 IS INITIAL.
CALL FUNCTION ‘ASK_OTYPE’
EXPORTING
D_OTYPE = &2
IMPORTING
OTYPE = &2
EXCEPTIONS
NO_OTYPE_SET = 2
WRONG_OTYPE_SET = 4.
ENDIF.
ENDIF.
IF SY-DYNNR EQ ‘1000′.
%F4_OLD_OTYPE = &2.
CLEAR: %F4_MARKED_OBJECTS.
REFRESH: %F4_MARKED_OBJECTS.
%F4_MARKED_OBJECTS-PLVAR = &1.
%F4_MARKED_OBJECTS-OTYPE = &2.
CLEAR %F4_T77EO.
SELECT SINGLE * FROM T77EO INTO %F4_T77EO.
LOOP AT &3 WHERE SIGN = ‘I’.
CASE &3-OPTION.
WHEN ‘EQ’.
%F4_MARKED_OBJECTS-SOBID = &3-LOW.
APPEND %F4_MARKED_OBJECTS.
WHEN ‘BT’.
IF %F4_T77EO IS INITIAL.
SELECT * FROM PLOGI
WHERE OBJID >= &3-LOW AND
OBJID <= &3-HIGH AND
OTYPE EQ &2 AND
PLVAR EQ &1.
%F4_MARKED_OBJECTS-SOBID = PLOGI-OBJID.
APPEND %F4_MARKED_OBJECTS.
ENDSELECT.
ENDIF.
ENDCASE.
ENDLOOP.
CALL FUNCTION ‘RH_OBJID_REQUEST’
EXPORTING
PLVAR = &1
OTYPE = &2
DYNPRO_REPID = %F4_REPID
DYNPRO_DYNNR = %F4_DYNNR
DYNPRO_PLVARFIELD = &4
DYNPRO_OTYPEFIELD = &5
SET_MODE = ‘X’
IMPORTING
SEL_PLVAR = %F4_PLVAR
SEL_OTYPE = %F4_OTYPE
TABLES
SEL_OBJECTS = %F4_SEL_OBJECTS
MARKED_OBJECTS = %F4_MARKED_OBJECTS
EXCEPTIONS
CANCELLED = 1
WRONG_CONDITION = 2
NOTHING_FOUND = 3
ILLEGAL_MODE = 4
INTERNAL_ERROR = 5
OTHERS = 6.
IF &5 NE SPACE AND
%F4_OLD_OTYPE NE %F4_OTYPE.
REFRESH &3.
ENDIF.
IF SY-SUBRC EQ 0.
REFRESH: &3.
CLEAR: &3.
LOOP AT %F4_SEL_OBJECTS.
&3-LOW = %F4_SEL_OBJECTS-REALO.
&3-OPTION = ‘EQ’.
&3-SIGN = ‘I’.
APPEND &3.
ENDLOOP.
CLEAR: %F4_SEL_OBJECTS.
REFRESH: %F4_SEL_OBJECTS.
else. “Note1265523
clear: %f4_sel_objects, %f4_sel_objects[].
clear: %f4_marked_objects, %f4_marked_objects[].
clear: &3-low, &3[].
ENDIF.
ELSE.
PERFORM OBJID_REQUEST_PLVAR_OTYPE
USING SPACE &1 &2
%F4_REPID %F4_DYNNR
SPACE SPACE
%F4_PLVAR %F4_OTYPE
&3-LOW.
IF &4 NE SPACE.
&1 = %F4_PLVAR.
ENDIF.
IF &5 NE SPACE.
&2 = %F4_OTYPE.
ENDIF.
EXIT.
ENDIF.
DESCRIBE TABLE &3 LINES %F4_PCHOBJID_LINES.
IF %F4_PCHOBJID_LINES GT %F4_LINES.
IF %F4_LINES EQ 0.
MESSAGE S026(PP).
ELSE.
MESSAGE S027(PP).
ENDIF.
ELSE.
ENDIF.
******CLEAR : SUBRC. <— to linijka, którą należy usunąć z oryginalnego makra
READ TABLE &3 INDEX 1.
IF SY-SUBRC GT 0.
CLEAR &3.
ENDIF.
IF &4 NE SPACE.
&1 = %F4_PLVAR.
ENDIF.
IF &5 NE SPACE.
&2 = %F4_OTYPE.
ENDIF.
SET SCREEN SY-DYNNR.
LEAVE SCREEN.
SET EXTENDED CHECK ON.
END-OF-DEFINITION.
Swoją drogą to nadaje się do zgłoszenia developerom z SAPa.
UGG Boots on February 20, 2010
This article was very useful for a paper I am writing for my thesis.
Thanks
Bernice Franklin