Konkretniej – będziemy konwertować obrazki z postaci binarnej do stringa o podstawie 64bitowej. Taką konwersję dla dowolnego pliku można zrobić np. w takim edytorze. Po wczytaniu i przekonwertowaniu obrazka w takim edytorze otrzymamy ciąg znaków, który możemy wstawić w HTMLowy tag IMG:

<img src=”data:image/jpeg;base64,CIĄG_ZNAKÓW_OBRAZKA” height=”100″ width=”100″/>

Aby powyższy ciąg znaków otrzymać dla dokumentu zapisanego w archiwum wykorzystamy cztery moduły funkcyjne:

1. Pobieramy listę dokumentów przypisanych do pracownika – wykorzystujemy do tego funkcję ARCHIV_CONNECTINFO_GET_META. Ważne, żeby w parametrze object_id podać numer pracownika i na końcu gwiazdkę (*) np. ’10000021*’

  CALL FUNCTION 'ARCHIV_CONNECTINFO_GET_META'
    EXPORTING
      object_id    = lv_objid
      ar_object    = ''
      sap_object   = 'PREL'
    IMPORTING
      number       = lv_number_hits
    TABLES
      connect_info = lt_hit_table
    EXCEPTIONS
      OTHERS       = 1.

2. Tabela lt_hit_table zawiera wszystkie dokumenty przypisane do osoby. Nas interesują zdjęcia ( pole ar_object w tabeli = HRICOLFOTO). Szukamy wybranego wpisu (ja go zapisałam do ls_hit_table) i dla niego wywołujemy kolejną funkcję – ARCHIVEOBJECT_GET_TABLE, która pobiera plik binarnie do tabelki:

    doc_type = ls_hit_table-ar_object.
    CALL FUNCTION 'ARCHIVOBJECT_GET_TABLE'
    EXPORTING
      archiv_id                = ls_hit_table-archiv_id
      document_type            = doc_type
      archiv_doc_id            = ls_hit_table-arc_doc_id
    TABLES
      binarchivobject          = binary_tab
    EXCEPTIONS
      error_archiv             = 1
      error_communicationtable = 2
      error_kernel             = 3
      OTHERS                   = 4.

3. Obliczamy długość pliku (raczej mało elegancko):

  length = LINES( binary_tab ).
  length = length * 1024.

4. Wywołujemy funkcję SCMS_BINARY_TO_XSTRING, która stworzy nam jeden ciąg bajtów w postaci xtsringa z tabelki binarnej:

  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = length
      first_line   = 0
      last_line    = 0
    IMPORTING
      buffer       = lv_pic_xstring
    TABLES
      binary_tab   = binary_tab
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.

5. Teraz wystarczy tylko zakodować wynik do postaci stringa o podstawie 64bitowej:

  CALL FUNCTION 'SSFC_BASE64_ENCODE'
    EXPORTING
      bindata                  = lv_pic_xstring
    IMPORTING
      b64data                  = lv_picture
    EXCEPTIONS
      ssf_krn_error            = 1
      ssf_krn_noop             = 2
      ssf_krn_nomemory         = 3
      ssf_krn_opinv            = 4
      ssf_krn_input_data_error = 5
      ssf_krn_invalid_par      = 6
      ssf_krn_invalid_parlen   = 7
      OTHERS                   = 8.

W zmiennej lv_picture mamy ciąg znaków, który możemy wkleić w tag img.

Aby znaleźć logiczną bazę danych posiadając jedynie nazwę tabeli należy skorzystać z transakcji SE36 – edytor logicznej bazy danych. Wybieramy Dodatki -> Wykorzystanie tabeli i podajemy nazwę tabeli. Rezultatem jest lista logicznych baz danych, które z niej korzystają.

I tak np. dla tabeli PERNR otrzymujemy LDB: PNP (Dane podstawowe HR) i PNPCE (Dane podst. HR wraz z równoczesnymi etatami).

Ta wiedza może przydać np. przy eksploracji mało znanych nam modułów ERP, kiedy jednym z niewielu punktów zaczepienia, jakim dysponujemy jest jedna z tabel z danego obszaru. Quick&useful.

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.

Na początek: Microsoft Groups w wydaniu z nazego podwórka, czyli po polsku. Tak naprawdę każdy użytkownik, programista, czy też pasjonat technologii MS znajdzie tu coś dla siebie – dla każdego coś miłego. Ja zaczęłam od – jakżeby inaczej – Women in Technology i już pierwsze spotkanie, w którym miałam przyjemność uczestniczyć nastroiło mnie bardzo pozytywnie. Miło, gdy kobiety na co dzień współpracujące głównie z mężczyznami spotykają się w gronie innych kobiet mających podobne zainteresowania i problemy. Zdecydowanie popieram! I wybieram się na kolejne spotkanie.

Nie sposób nie wspomnieć także o Microsoft Developer Network, czyli po prostu o MSDN. Kopalnia wiedzy i informacji. Blogi, artykuły, pomoc, publikacje i mnóstwo innych.

Wygląda na to, że duże korporacje IT działają na wielu płaszczyznach podobnie zatem pojawia się pytanie: czy tylko gigant z Redmond przejawia takie inicjatywy? Z mojego punktu widzenia, w naturalny sposób uwaga kieruje się na SAP. Z całkiem niezłym efektem: SAP Developer Network, czyli SDN. Zbieżność nazw nie jest przypadkowa, zatem najbardziej można go porównać z Microsoft’owym MSDN’em. Co prawda brakuje między innymi typowych społeczności offline’owych, ale jak na firmę o dużo węższym spektrum produktów niż MS – jest co najmniej nieźle. Nie mówiąc o tym, że zna go każdy szanujący się developer, czy konsultant SAP.

Wygląda na to, że korporacje IT nauczyły się wspierać programistów i zaawansowanych użytkowników swoich produktów w bardzo prosty sposób – nimi samymi. Udostępniając serwisy wspomagające dzielenie się wiedzą i umiejętnościami, a także kontaktami i znajomościami. Popierając społeczności online i offline. Organizując konferencje (patrz: Microsoft TechEd oraz SAP TechEd – zbieżność nazw znowu nie wydaje się przypadkowa ;)). Oczywiście z drugiej strony, to wspaniałe pole do poszukiwania nowych, utalentowanych i w dodatku idealnych (bo kochających to, co robią) potencjalnych pracowników. Pytanie, kto tak naprawdę bardziej na tym korzysta – firma, czy programista-pasjonat – pozostaje otwarte.