Friday, September 6, 2019

WEBDYNPRO TABLE

well, hello again, this time i will teach you how to create a simple yet powerfull webdynpro applications.

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 

3 comments:

  1. The article is so appealing. You should read this article before choosing the Big data modernization solutions you want to learn.

    ReplyDelete
  2. Is your Binance account verification still pending? Verification errors need to be fixed instantly and in order to do so, you can take guidance from the team of skilled professionals who are there to guide you. You can always call on Binance support number which is functional always to attend users queries who are there to assist you. By connecting with the team , you can always take fruitful guidance from the experts who are there to assist you at every step. Reach the team as per your convenience and get quality solutions from the team in fraction of time. Binance Helpline Phone Number

    ReplyDelete