ABAP : Dynamic ITAB for Ranges

Example of ABAP Code Dynamic Internal Table - Ranges
*---------------------------------------------------------------------*
*      Form  f_ranges_str
*      By Oka Wirasatha
*---------------------------------------------------------------------*

form F_RANGES_STR
  using FV_FIELD
        FV_SIGN FV_OPTION FV_LOW FV_HIGH.
  type-pools:
    ABAP.

  data:
    GR_STRUCTDESCR    type ref to CL_ABAP_STRUCTDESCR,
    GR_TABLEDESCR     type ref to CL_ABAP_TABLEDESCR,
    GR_DATADESCR      type ref to CL_ABAP_DATADESCR,
    GR_TYPEDESCR      type ref to CL_ABAP_TYPEDESCR,
    GT_COMPONENTS     type ABAP_COMPONENT_TAB,
    GW_COMPONENT      type line of ABAP_COMPONENT_TAB,
    GR_WA             type ref to DATA,
    GR_TAB            type ref to DATA,
    LV_TEXT(20).

  field-symbols: <fs_wa> type any,
                 <fs_val> type any,
                 <fs_tab> type TABLE.
* determine components of structure -> GT_COMPONENTS
  move 'SIGN' to GW_COMPONENT-NAME.
  GW_COMPONENT-TYPE ?= CL_ABAP_ELEMDESCR=>GET_C( P_LENGTH = 1 ).
  insert GW_COMPONENT into table GT_COMPONENTS.

  move 'OPTION' to GW_COMPONENT-NAME.
  GW_COMPONENT-TYPE ?= CL_ABAP_ELEMDESCR=>GET_C( P_LENGTH = 2 ).
  insert GW_COMPONENT into table GT_COMPONENTS.

  move 'LOW' to GW_COMPONENT-NAME.
  GW_COMPONENT-TYPE ?= CL_ABAP_ELEMDESCR=>DESCRIBE_BY_NAME( FV_FIELD ).
  insert GW_COMPONENT into table GT_COMPONENTS.

  move 'HIGH' to GW_COMPONENT-NAME.
  GW_COMPONENT-TYPE ?= CL_ABAP_ELEMDESCR=>DESCRIBE_BY_NAME( FV_FIELD ).
  insert GW_COMPONENT into table GT_COMPONENTS.

* get structure descriptor -> GR_STRUCTDESCR
  GR_STRUCTDESCR ?= CL_ABAP_STRUCTDESCR=>CREATE( GT_COMPONENTS ).

* create work area of structure GR_STRUCTDESCR -> GR_WA
  create data GR_WA type handle GR_STRUCTDESCR.
  assign GR_WA->* to <fs_wa>.

  GR_DATADESCR ?= GR_STRUCTDESCR.
  GR_TABLEDESCR ?= CL_ABAP_TABLEDESCR=>CREATE( GR_DATADESCR ).

* Create dynmaic internal table
  create data GR_TAB type handle GR_TABLEDESCR.
  assign GR_TAB->* to <fs_tab>.

  assign component 'SIGN' of structure <fs_wa> to <fs_val>.
  = FV_SIGN.
  assign component 'OPTION' of structure <fs_wa> to <fs_val>.
  = FV_OPTION.
  assign component 'LOW' of structure <fs_wa> to <fs_val>.
  = FV_LOW.
  assign component 'HIGH' of structure <fs_wa> to <fs_val>.
  = FV_HIGH.

  insert <fs_wa> into table <fs_tab>.

  loop at T_ITEM.
    concatenate 'T_ITEM-' FV_FIELD into LV_TEXT.
    assign (LV_TEXT) to <fs_val>.
    if not <fs_val> in <fs_tab>.
      delete T_ITEM.
    endif.
  endloop.
endform.                    "f_ranges_str

Comments

Công ty CP dịch thuật miền trung - MIDtrans said…
Mình đã tìm thấy các thông tin cần thiết ở đây, cảm ơn bạn. Mình cũng muốn giới thiệu về một Công ty dịch thuật uy tín - Công ty dịch thuật miền trung - MIDtrans , trụ sở chính chính tại địa chỉ 02 Hoàng Diệu, TP Đồng Hới, tỉnh Quảng Bình có Giấy phép kinh doanh số 3101023866 cấp ngày 9/12/2016 là đơn vị chuyên cung cấp dịch vụ dịch thuật, phiên dịch dành các cá nhân. Hệ thống thương hiệu và các Công ty dịch thuật con trực thuộc: dịch thuật an giang - dịch thuật miền trung tại địa chỉ 110 Trân Hưng Đạo TP Long Xuyên, An giang là địa chỉ chuyên cung cấp dịch vụ dịch thuật công chứng tại Long Xuyên, Châu Đốc, An Giang ; công ty dịch thuật hcm - dịch thuật sài gòn 247 , địa chỉ 47 Điện Biên Phủ, Phường Đakao, Quận 1 TP HCM, dịch thuật buôn mê thuột, đăk lăk : địa chỉ 100 , Lê lợi, TP Buôn Mê Thuột là nhà cung ứng dịch vụ dịch thuật uy tín hàng đầu tại Đăk Lăk; vietnamese translation : dịch vụ dịch thuật cho người nước ngoài có nhu cầu, giao diện tiếng Anh dễ sử dụng; dịch thuật công chứng gò vấp : nhà cung ứng dịch vụ dịch vụ dịch thuật phiên dịch hàng đầu tại Quận Bình Thạnh, TP HCM; dịch thuật đà nẵng : Địa chỉ 54 Đinh Tiên Hoàng, Quận Hải Châu, TP Đà Nẵng chuyên cung cấp dịch vụ dịch thuật công chứng, dịch thuật chuyên ngành tại Đà Nẵng; dịch thuật hà nội midtrans : địa chỉ 101 Láng Hạ, Đống Đa, Hà Nội là nhà cung ứng dịch vụ biên dịch, phiên dịch chuyên nghiệp tại địa bàn Hà Nội. Chúng tôi chuyên cung cấp các dịch vụ biên dịch và phiên dịch, dịch thuật công chứng chất lượng cao hơn 50 ngôn ngữ khác nhau như tiếng Anh, Nhật, Hàn, Trung, Pháp, Đức, Nga, Tây Ban Nha, Bồ Đào Nha, Ý, Ba Lan, Phần Lan, Thái Lan, Hà Lan, Rumani, Lào, Campuchia, Philippin, Indonesia, La Tinh, Thụy Điển, Malaysia, Thổ Nhĩ Kỳ..vv... Dịch thuật MIDtrans tự hào với đội ngũ lãnh đạo với niềm đam mê, khát khao vươn tầm cao trong lĩnh vực dịch thuật, đội ngũ nhân sự cống hiến và luôn sẵn sàng cháy hết mình. Chúng tôi phục vụ từ sự tậm tâm và cố gắng từ trái tim những người dịch giả.Tự hào là công ty cung cấp dịch thuật chuyên ngành hàng đầu với các đối tác lớn tại Việt nam trong các chuyên ngành hẹp như: y dược (bao gồm bệnh lý), xây dựng (kiến trúc), hóa chất, thủy nhiệt điện, ngân hàng, tài chính, kế toán. Các dự án đã triển khai của Công ty dịch thuật chuyên nghiệp MIDtrans đều được Khách hàng đánh giá cao và đạt được sự tín nhiệm về chất lượng biên phiên dịch đặc biệt đối với dịch hồ sơ thầu , dịch thuật tài liệu tài chính ngân hàng, dịch thuật tài liệu y khoa đa ngữ chuyên sâu. Đó là kết quả của một hệ thống quản lý chất lượng dịch thuật chuyên nghiệp, những tâm huyết và kinh nghiệm biên phiên dịch nhiều năm của đội ngũ dịch giả của chúng tôi. Hotline: 0947688883. email: info@dichthuatmientrung.com.vn . Các bạn ghé thăm site ủng hộ nhé. Cám ơn nhiều
April 5, 2019 at 7:30 PM
Post a Comment

Popular posts from this blog

ABAP Dialog Programming : Set Filter data of Table Control

Example ABAP code for Filter data of table control *---------------------------------------------------------------------* *      Form  F_filter_data *---------------------------------------------------------------------* *  By Oka Wirasatha *---------------------------------------------------------------------* form F_FILTER_DATA .   field-symbols :     <selected_col> type CXTAB_COLUMN.   data : LW_COLS like TC_ITEM-COLS.   data : GT_FIELDCAT type LVC_T_FCAT.   data LAYO type LVC_S_LAYO.   data : GT_FILTER_INDEX type LVC_T_FIDX,          LT_SELCOL type table of LVC_S_COL with header line.   data : LT_FILT type LVC_T_FILT,          LW_FILT type LVC_S_FILT,          LT_LAYOUT type LVC_S_LAYO. * find out if a column is selected.   loop at TC_ITEM-COLS assigning <selected_col>.     if <selected_col>-SELECTED = 'X'.       LT_SELCOL-FIELDNAME = <selected_col>-SCREEN-NAME+7(10).       append LT_SELCOL.     endif.   endloop.   call
Read more

Step by step Create SAP LIS Report

Steps in LIS EXTRACTION: T.code - :MC18 – create field catalog 1. Characteristic Catalog Application-01-Sales and Distribution, 02-Purchasing, 03-Inventory Controlling, etc.. Catalog category 1. Characteristic catalog, 2. Key figures catalog 3. Date catalog Select characteristic catalog and enter, click on characteristic select the source table and it will be display the relevant source field and select the source field, copy + close, copy. Save, similarly create key figures catalog T.code : MC21 – create infostructure Example – Inforstructure : S789 Application – 01 Choose characteristic select the catalog, select the fields, copy + close Choose key figures catalog select the key figures ,copy + close, save and generate T.code – MC24 – create updating Infostructure : S789 Update group : 01- Sales document, delivery, billing document ,enter Select the key figures click on rules for key figures give suggest rules, copy save and generate Click on updating (activate updatin
Read more

SAP Bapi Price Change (MR21)

Image
when i am try find BAPI for change prince on search engine, I'm Found BAPI_M_REVAL_CREATEPRICECHANGE but in this BAPI block by statement .... * Im Standard deaktiviert error_flag = 'X'. IF ( NOT error_flag IS INITIAL ). EXIT. ENDIF. ..... Why ?? until now I don't no why this BAPI is block !!. My solution is just copy to Z_BAPI .. and remove that statement and running well. Note : minimal required for parameters table MATERIAL_PRICE_LIST is plant = ft_list-werks. material = ft_list-matnr. curr_type = '10'. IF ft_list-vprsv = 'S'. change_std_price = 'X'. std_price = ft_list-nstpr * 100. ELSE. change_mov_price = 'X'. moving_pr = ft_list-nstpr * 100. ENDIF. currency = ft_list-waers. iso_code = ft_list-waers. price_unit = ft_list-peinh. quantity_unit = ft_list-meins. isocode_unit = ft_list-meins. hope can help for change price (MR21).
Read more