all of instructions have been instructed completely on YouTube
and below the Code OF WDDOMODIFYVIEW
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | METHOD wddomodifyview . DATA : pa0001 TYPE TABLE OF p0001. DATA : p0001 TYPE p0001. DATA lo_nd_data TYPE REF TO if_wd_context_node. DATA lo_el_data TYPE REF TO if_wd_context_element. DATA ls_data TYPE wd_this->element_data. DATA lt_data TYPE TABLE OF wd_this->element_data. lo_nd_data = wd_context->get_child_node( name = wd_this->wdctx_data ). DATA OBJECT_TEXT TYPE P1000-STEXT. DATA: "BEGIN OF VACANCIES OCCURS 5, vac_objid type t750x-objid, vac_endda type t750x-endda, vac_begda type t750x-begda, vac_statu type t750x-statu, vac_stext type hrp1000-stext "KVHN875886 . DATA : lt_t750b TYPE TABLE OF t750b, lt_t750a TYPE TABLE OF t750a, lt_t750x TYPE TABLE OF t750x, lx_t750x TYPE t750x, lx_t750a TYPE t750a, lx_t750C TYPE t750c, lx_t750b TYPE t750b. SELECT * FROM t750b INTO TABLE lt_t750b WHERE rcins = '3'. SELECT SINGLE * FROM T750C INTO lx_t750C WHERE RCINS EQ '3'. CHECK lt_t750b IS NOT INITIAL. SELECT * FROM t750a INTO TABLE lt_t750a FOR ALL ENTRIES IN lt_t750b WHERE offid EQ lt_t750b-offid . LOOP AT lt_t750b INTO lx_t750b. READ TABLE lt_t750a INTO lx_t750a WITH KEY offid = lx_t750b-offid. CHECK sy-subrc IS INITIAL. SELECT SINGLE * FROM t750x INTO lx_t750x WHERE otype EQ lx_t750a-otype AND objid EQ lx_t750a-objid * AND BEGDA LE T750B-PBDAT "LAK1540862 AND endda GE lx_t750b-pbdat . "XDPK0 vac_endda = lx_t750x-ENDDA. vac_begda = lx_t750x-BEGDA. vac_objid = lx_t750a-OBJID. CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT' "XDPK011277 EXPORTING "XDPK011277 otype = 'S' "XDPK011277 objid = vac_objid "XDPK011277 begda = vac_begda "XDPK011277 * ENDDA = "XDPK011277 endda = vac_endda IMPORTING "XDPK011277 object_text = object_text "XDPK011277 EXCEPTIONS "XDPK011277 nothing_found = 1 "XDPK011277 wrong_objecttype = 2 "XDPK011277 missing_costcenter_data = 3 "XDPK011277 missing_object_id = 4 "XDPK011277 OTHERS = 5. ls_data-begda = lx_t750x-begda. ls_data-endda = lx_t750x-endda. ls_data-offid = lx_t750b-offid. ls_data-position_c = object_text."lx_t750c-iname. ls_data-position_n = space. REFRESH pa0001. CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING TCLAS = 'A' PERNR = lx_t750x-respo INFTY = '0001' BEGDA = lx_t750x-begda ENDDA = lx_t750x-endda * BYPASS_BUFFER = ' ' * IMPORTING * SUBRC = TABLES INFTY_TAB = pa0001 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2 . READ TABLE pa0001 INTO p0001 WITH KEY endda = '99991231'. CHECK sy-subrc IS INITIAL. ls_data-line_n = p0001-pernr. ls_data-line_c = p0001-ename. append ls_data to lt_data. ENDLOOP. lo_nd_data->bind_table( EXPORTING new_items = lt_data " List of Elements or Model Data * set_initial_elements = ABAP_TRUE " If TRUE, Set Initial Elements Otherwise Add * index = " Index of Context Element ). ENDMETHOD. Instagram : https://www.instagram.com/thered_beard/ YouTube : TheRed_Beard |
Well written articles like yours renews my faith in today's writers. The article is very informative. Thanks for sharing such beautiful information.
ReplyDeleteBest Data Migration tools
Penetration testing companies USA
What is Data Lake
Artificial Intelligence in Banking
What is Data analytics
Big data Companies USA
Thanks for sharing this Information. SAP Dynpro Institute in Gurgaon
ReplyDelete