아래 예는 Yesterday, Today, Tommorow 를 입력하는 코드 입니다.

ev_search_criteria_changed = abap_true.
CLEAR: ls_fpm_search_criteria.
ls_fpm_search_criteria-search_attribute = 'DATE_FIELDNAME'.
ls_fpm_search_criteria-sign = if_fpm_guibb_search=>gc_sign-include_search_criteria.
ls_fpm_search_criteria-operator = if_fpm_guibb_search=>gc_operators-is.
ls_fpm_search_criteria-low = 'FPM_RD_FPM_DATE_YESTERDAY'.
APPEND ls_fpm_search_criteria TO ct_fpm_search_criteria.
ls_fpm_search_criteria-operator = if_fpm_guibb_search=>gc_operators-is.
ls_fpm_search_criteria-low = 'FPM_RD_FPM_DATE_TODAY'.
APPEND ls_fpm_search_criteria TO ct_fpm_search_criteria.
ls_fpm_search_criteria-operator = if_fpm_guibb_search=>gc_operators-is.
ls_fpm_search_criteria-low = 'FPM_RD_FPM_DATE_TOMORROW'.
APPEND ls_fpm_search_criteria TO ct_fpm_search_criteria.

 

FPM_RD_FPM_DATE_TODAY 라는 특별한 값을 주면 Today로 나타 납니다.

FPM_RD_ 와 FPM_DATE_TODAY 를 붙인 값입니다.

CL_FPM_SEARCH_UIBB_SELOPT->SET_SO_REL_DATES 에서 상수 GC_PREFIX_REL_DATE = 'FPM_RD_'

CL_FPM_DATE_DEFAULT_TOKEN_PROV->IF_FPM_TOKEN_PROVIDER~RESOLVE_TOKEN 에서 상수 GC_TOKEN_TODAY = 'FPM_DATE_TODAY'

 

relative date의 장점은 variant로 저장한 것을 불러 오더라도 저장할때의 고정된 날짜가 아니라 항상 날짜를 다시 계산 한다는 점입니다.

저작자표시 변경금지

'ABAP > Floorplan Manager(FPM)' 카테고리의 다른 글

FPM tutorials  (0) 2021.06.01
abaper를 위한 Module-pool vs. FPM 용어 비교  (0) 2021.06.01
FPM cookbook (developer guide)  (0) 2021.06.01
[번역] 모바일용 FPM 작성법  (0) 2016.09.13
[번역] FPM에서 CSS 스타일 적용하기  (0) 2016.09.12

스마트택배 앱의 해외배송추적 기능이 많이 좋아졌습니다.

알리익스프레스 에서 구매한 물건을 배송 조회 등록하는 방법을 알려드리겠습니다.

알리익스프레스 앱에서 배송 조회를 해서 송장번호를 복사합니다.

N으로 시작하는거(saver shipping) 는 안되구요. 6이나 7로 시작하는 번호 됩니다.

스마트택배 앱에 입력하도록 하죠. + 버튼 누르고 직접 등록 선택합니다.

택배사를 선택하세요.

예전에는 국내택배-우체국 으로 등록했었는데....
이제 해외택배-에이씨티앤코아물류 선택하여 더 자세한 배송 정보를 받아볼 수 있습니다.
정렬이나 검색이 안되어서 좀 불편한데요. 중간쯤 내리면 있습니다.

통관 정보 추가 체크 해주시구요.
등록하면 됩니다.

배송 상세화면에서 택배사에서 보기 누르면 아래 처럼 아주 자세한 정보를 추가로 확인할 수 있어요.

'enjoy' 카테고리의 다른 글

엘프바(elfbar) 분해  (0) 2023.04.17
한국에서 알렉사 스피커 음성명령으로 스포티파이 음악 듣기  (0) 2021.04.29
새누리당 탈당 방법  (0) 2016.09.13
서울둘레길 스탬프 완주인증서 후기 추천 코스 빨리돌기  (0) 2016.08.19
추천 프로그램 BlueSoleil 8.0.395 블루투스 연결 프로그램  (0) 2013.06.13

메소드 파라미터가 매우 많습니다.

필수는 없고 모든 파라미터가 선택사항이라 필요에 따라 조합하여 사용합니다.

입력 파라미터 설명
유형1: BO IV_BO_KEY BO Key
IV_BO_NAME BO Name. 입력시 내부에서 BO Key로 변환
IV_BO_CATEGORY BO Category. TOR,TRQ,FA 의 경우 필요함. 생략시 자동 찾음.
IV_CHANGE_MODE Mode (빈값: display, C: create, U: change)
IV_KEY BO 데이터 Key
IV_SRC_INST_KEY create mode 에서 원본 데이터 키 지정
IV_TCM_TEMPLATE scale,rate,tccs 에서 템플릿 사용시
IV_REF_CREATE_MODE create mode 에서 reference mode 지정
IT_BO_DATA Shared Memory에 write
IV_SKIP_INITIAL_SCREEN Initial Screen 건너뜀
유형2: FPM IV_TARGET_APPL FPM Appl.
IV_CONFIGURATIONID FPM Config.
유형3: URL IV_EXTERNAL_URL External URL
공통 IT_PARAMETERS 추가 파라미터
IV_INPLACE_NAVIGATION 빈값: 새창으로, X: Inplace

 

 

사용 예

사용 예
예제1: TOR Key로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key      = /scmtms/if_tor_c=>sc_bo_key
    iv_bo_category = /scmtms/if_tor_const=>sc_tor_category-freight_unit
    iv_key         = lv_tor_key
).
예제2: TOR ID로 변경 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key      = /scmtms/if_tor_c=>sc_bo_key
    iv_bo_category = /scmtms/if_tor_const=>sc_tor_category-freight_unit
    iv_key         = /scmtms/cl_tor_helper_root=>return_key_for_torid( lv_tor_id )
    iv_change_mode = /bofu/if_fbi_runtime_c=>sc_change_modes-change
).
예제3: TRQ 생성 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key          = /scmtms/if_trq_c=>sc_bo_key
    iv_bo_category     = /scmtms/if_trq_const=>c_trq_category-forwarding_order
    iv_change_mode     = /bofu/if_fbi_runtime_c=>sc_change_modes-create
    iv_src_inst_key    = lv_fwq_key
    iv_ref_create_mode = /scmtms/if_ui_trq_c=>sc_action_param-ref_create_mode-fwo_from_fwq
).
예제4: schedule Key로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key = /scmtms/if_fo_schedule_c=>sc_bo_key
    iv_key    = ls_item-sched_key
).
예제5: location ID로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key     = /scmtms/if_location_c=>sc_bo_key
    it_parameters = VALUE #(
      ( key = 'LOCATION' value = ls_stop-log_locid )
    )
).
예제6: resource ID로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key     = /scmtms/if_resource_c=>sc_bo_key
    it_parameters = VALUE #(
      ( key = 'RESOURCE' value = ls_item-res_id )
    )
).
예제7: product(material) ID로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key     = /scmtms/if_mat_c=>sc_bo_key
    it_parameters = VALUE #(
      ( key = 'PRODUCT' value = ls_item-product_id )
    )
).
예제8: BP ID로 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    iv_bo_key     = /bofu/if_bupa_constants=>sc_bo_key
    it_parameters = VALUE #(
      ( key = 'PARTNER' value = lv_bp_id )
      ( key = 'ROLE' value = lv_bp_role )
    )
).
예제9: order document 조회 
/scmtms/cl_ui_navigation=>start_navigation(
  EXPORTING
    it_parameters = VALUE #(
      ( key = /scmtms/if_ui_cmn_c=>sc_wd_parameter-base_btd_tco
        value = ls_docref-btd_tco )
      ( key = /scmtms/if_ui_cmn_c=>sc_wd_parameter-base_btd_id
        value = ls_docref-btd_id )
    )
).
예제10: 스탠다드 worklist(POWL) 참고
/SCMTMS/CL_UI_ACTION_TOR->HANDLE_ACTION
저작자표시 변경금지

'ABAP > TM 물류운송관리' 카테고리의 다른 글

/SCMTMS/CL_TOR_HELPER_COMMON=>GET_TOR_DATA 와 Secondary Key 활용  (0) 2022.06.02

타임스탬프로 사용되는 타입은 두가지가 있습니다.

TIMESTAMP : 15자리 YYYYMMDDhhmmss

TIMESTAMPL : 21자리 YYYYMMDDhhmmss.ssssss

주로 사용하는 15자리 TIMESTAMP 를 기준으로 설명하겠습니다.

 

 

예를 들어 인천 에서 홍콩으로 가는 항공편의 출발시간, 도착시간을 보면서 타임스탬프의 필요성을 이해해 보도록 하게습니다.

  출발시간 도착시간
현지 시간 2022.01.01 09:00:00 2022.01.01 12:00:00
타임존 UTC+9 UTC+8
타임스탬프 (UTC 기준 시간) 2022.01.01 00:00:00 2022.01.01 04:00:00
출발지(UTC+9) 기준 시간 2022.01.01 09:00:00 2022.01.01 13:00:00
도착지(UTC+8) 기준 시간 2022.01.01 08:00:00 2022.01.01 12:00:00

보통 표시할때는 현지 시간 + 타임존 으로 표시를 합니다. 그게 이해하기 쉬우니까요. 인천 9시 출발, 홍콩 12시 도착 입니다.

그럼 비행시간을 계산하려면 어떻게 할까요? 12-9는 3시간 틀렸습니다. 타임존이 다르기 때문이죠.

비행시간을 계산하기 위해서는 출발 도착 둘다 같은 타임존을 가지도록 값을 변환해야 합니다.

위 표에서 UTC 기준, 출발지 기준, 도착지 기준 3가지 모두 비행시간을 계산할때 사용할 수 있습니다.

DB에 저장할때는 어떤값을 저장하는게 효과적일까요?

정답은 타임스탬프(=UTC 기준 시간) 입니다. 다른경우와 다르게 타임존을 저장할 필요가 없기 때문에 더 작은 공간을 차지합니다.

타임존은 출발지와 도착지 각 장소별로 저장하면 됩니다.

 

 

이제  ABAP 문법을 알아 보겠습니다.

현재 타임스탬프 가져오는 방법:

GET TIME STAMP FIELD lv_ts.

타임스탬프를 날짜, 시간 두 필드로 변환하는 방법:

CONVERT TIME STAMP lv_ts TIME ZONE sy-zonlo INTO DATE lv_date TIME lv_time.

날짜,시간 두 필드를 타임스탬프로 변환하는 방법:

CONVERT DATE lv_date TIME lv_time INTO TIME STAMP lv_ts TIME ZONE sy-zonlo.

타임스탬프를 글자표현(예: YYYY.MM.DD hh:mm:ss) 으로 변환하는 방법:

|{ lv_ts TIMEZONE = sy-zonlo }|

 

 

타임스탬프 관련 유용한 conversion routine 을 소개 합니다.

'TSTLC' : 타임존 sy-zonlo 기준으로 표시합니다. 예를들어 데이터 엘리먼트는 EHFND_TIME_STAMP 가 있습니다.

'TSTPS' : 타임존 UTC 기준으로 표시합니다. 예를들어 데이터 엘리먼트는 BCOS_TSTMP 가 있습니다.

 

 

타임존 sy-zonlo 기준으로 표시 할때의 장점:

sy-zonlo는 사용자의 타임존입니다.

각자 티코드 SU3에서 변경 할 수 있습니다.

보통 DB 테이블 마다 들어가는 생성날짜와 생성시간을 sy-datum 과 sy-uzeit 값을 넣어서 기록합니다.

국제화 시대에 맞춰 타임스탬프로 기록하면 시스템 타임존과 다른 타임존을 사용하는 사용자도 편하게 볼수있습니다.

예를들어 타임스탬프 값이 2022.01.01 00:00:00 이라면,

UTC+9 타임존 사용자는 2022.01.01 09:00:00 로 표시되고,

UTC+8 타임존 사용자는 2022.01.01 08:00:00 로 표시됩니다.

 

다음은 DB 검색시 타임스탬프로 기록된 필드를 검색하는 방법 입니다.

FUNCTION zconvert_range_date2ts.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IT_RANGE_DATE) TYPE  RANGE_DATE_T
*"  EXPORTING
*"     REFERENCE(ET_RANGE_TS) TYPE  CRMT_BUS_TIMESTAMP_RANGE_T
*"----------------------------------------------------------------------
  CONSTANTS: lc_time_end TYPE uzeit VALUE '235959'.
  DATA: ls_range_date TYPE range_date,
        ls_range_ts   TYPE crmt_bus_timestamp_range.

  CLEAR: et_range_ts.

  LOOP AT it_range_date INTO ls_range_date.
    CLEAR: ls_range_ts.
    ls_range_ts-sign = ls_range_date-sign.
    ls_range_ts-option = ls_range_date-option.

    CASE ls_range_date-option.
      WHEN 'EQ'.
        ls_range_ts-option = 'BT'.
        CONVERT DATE ls_range_date-low INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
        CONVERT DATE ls_range_date-low TIME lc_time_end INTO TIME STAMP ls_range_ts-high TIME ZONE sy-zonlo.
      WHEN 'NE'.
        ls_range_ts-option = 'NB'.
        CONVERT DATE ls_range_date-low INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
        CONVERT DATE ls_range_date-low TIME lc_time_end INTO TIME STAMP ls_range_ts-high TIME ZONE sy-zonlo.
      WHEN 'BT'
        OR 'NB'.
        CONVERT DATE ls_range_date-low INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
        CONVERT DATE ls_range_date-high TIME lc_time_end INTO TIME STAMP ls_range_ts-high TIME ZONE sy-zonlo.
      WHEN 'GE'.
        CONVERT DATE ls_range_date-low INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
      WHEN 'GT'.
        CONVERT DATE ls_range_date-low TIME lc_time_end INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
      WHEN 'LE'.
        CONVERT DATE ls_range_date-low TIME lc_time_end INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
      WHEN 'LT'.
        CONVERT DATE ls_range_date-low INTO TIME STAMP ls_range_ts-low TIME ZONE sy-zonlo.
      WHEN OTHERS.
        CONTINUE.
    ENDCASE.

    APPEND ls_range_ts TO et_range_ts.
  ENDLOOP.

ENDFUNCTION.

 

 

 

저작자표시 변경금지

'ABAP' 카테고리의 다른 글

search help exit 총정리  (0) 2023.04.25
FUNCTION ZADD_1_ALPHANUM  (0) 2022.12.20
abap2xlsx  (0) 2021.05.07
KR_POSTCODE : 한국주소입력  (0) 2021.03.31
ABAP의 BINARY SEARCH의 특이한 점은 키가 동일한 레코드중 첫번째를 찾아준다는 점  (0) 2017.10.27

MDG read helper

for BP model

for MM model

 

코드:

 

CLASS zcl_mdp_read_helper DEFINITION
  PUBLIC
  CREATE PUBLIC .

  PUBLIC SECTION.

    TYPES ts_bp_key TYPE /mdgbp/_s_bp_ky_bp_header .
    TYPES:
      tt_bp_key TYPE SORTED TABLE OF /mdgbp/_s_bp_ky_bp_header WITH NON-UNIQUE KEY bp_header .
    TYPES ts_bp_bp_header TYPE mdg_bs_bp_bp_header .
    TYPES:
      tt_bp_bp_header TYPE SORTED TABLE OF mdg_bs_bp_bp_header WITH NON-UNIQUE KEY bp_header .
    TYPES ts_bp_ad_email TYPE mdg_bs_bp_ad_email .
    TYPES:
      tt_bp_ad_email TYPE SORTED TABLE OF mdg_bs_bp_ad_email WITH NON-UNIQUE KEY bp_header addrno ad_consno .
    TYPES ts_bp_ad_fax TYPE mdg_bs_bp_ad_fax .
    TYPES:
      tt_bp_ad_fax TYPE SORTED TABLE OF mdg_bs_bp_ad_fax WITH NON-UNIQUE KEY bp_header addrno ad_consno .
    TYPES ts_bp_ad_name_o TYPE mdg_bs_bp_ad_name_o .
    TYPES:
      tt_bp_ad_name_o TYPE SORTED TABLE OF mdg_bs_bp_ad_name_o WITH NON-UNIQUE KEY bp_header addrno ad_nation .
    TYPES ts_bp_ad_name_p TYPE mdg_bs_bp_ad_name_p .
    TYPES:
      tt_bp_ad_name_p TYPE SORTED TABLE OF mdg_bs_bp_ad_name_p WITH NON-UNIQUE KEY bp_header addrno ad_nation .
    TYPES ts_bp_ad_postal TYPE mdg_bs_bp_ad_postal .
    TYPES:
      tt_bp_ad_postal TYPE SORTED TABLE OF mdg_bs_bp_ad_postal WITH NON-UNIQUE KEY bp_header addrno ad_nation .
    TYPES ts_bp_ad_tel TYPE mdg_bs_bp_ad_tel .
    TYPES:
      tt_bp_ad_tel TYPE SORTED TABLE OF mdg_bs_bp_ad_tel WITH NON-UNIQUE KEY bp_header addrno ad_consno .
    TYPES ts_bp_ad_url TYPE mdg_bs_bp_ad_url .
    TYPES:
      tt_bp_ad_url TYPE SORTED TABLE OF mdg_bs_bp_ad_url WITH NON-UNIQUE KEY bp_header addrno ad_consno .
    TYPES ts_bp_address TYPE mdg_bs_bp_address .
    TYPES:
      tt_bp_address TYPE SORTED TABLE OF mdg_bs_bp_address WITH NON-UNIQUE KEY bp_header addrno .
    TYPES ts_bp_bp_addr TYPE mdg_bs_bp_bp_addr .
    TYPES:
      tt_bp_bp_addr TYPE SORTED TABLE OF mdg_bs_bp_bp_addr WITH NON-UNIQUE KEY bp_header addrno .
    TYPES ts_bp_bp_addusg TYPE mdg_bs_bp_bp_addusg .
    TYPES:
      tt_bp_bp_addusg TYPE SORTED TABLE OF mdg_bs_bp_bp_addusg WITH NON-UNIQUE KEY bp_header addrno bp_adrknd .
    TYPES ts_bp_bp_bkdtl TYPE mdg_bs_bp_bp_bkdtl .
    TYPES:
      tt_bp_bp_bkdtl TYPE SORTED TABLE OF mdg_bs_bp_bp_bkdtl WITH NON-UNIQUE KEY bp_header bank_id .
    TYPES ts_bp_bp_ccdtl TYPE mdg_bs_bp_bp_ccdtl .
    TYPES:
      tt_bp_bp_ccdtl TYPE SORTED TABLE OF mdg_bs_bp_bp_ccdtl WITH NON-UNIQUE KEY bp_header card_id .
    TYPES ts_bp_bp_centrl TYPE mdg_bs_bp_bp_centrl .
    TYPES:
      tt_bp_bp_centrl TYPE SORTED TABLE OF mdg_bs_bp_bp_centrl WITH NON-UNIQUE KEY bp_header .
    TYPES ts_bp_bp_idnum TYPE mdg_bs_bp_bp_idnum .
    TYPES:
      tt_bp_bp_idnum TYPE SORTED TABLE OF mdg_bs_bp_bp_idnum WITH NON-UNIQUE KEY bp_header bp_idtype bp_id_num .
    TYPES ts_bp_bp_indstr TYPE mdg_bs_bp_bp_indstr .
    TYPES:
      tt_bp_bp_indstr TYPE SORTED TABLE OF mdg_bs_bp_bp_indstr WITH NON-UNIQUE KEY bp_header bp_indsct bp_indsys .
    TYPES ts_bp_bp_role TYPE mdg_bs_bp_bp_role .
    TYPES:
      tt_bp_bp_role TYPE SORTED TABLE OF mdg_bs_bp_bp_role WITH NON-UNIQUE KEY bp_header bp_rol_id .
    TYPES ts_bp_bp_taxnum TYPE mdg_bs_bp_bp_taxnum .
    TYPES:
      tt_bp_bp_taxnum TYPE SORTED TABLE OF mdg_bs_bp_bp_taxnum WITH NON-UNIQUE KEY bp_header bp_tx_typ .
    TYPES ts_bp_bp_mlt_as TYPE /mdgbpx/_s_bp_pp_bp_mlt_as .
    TYPES:
      tt_bp_bp_mlt_as TYPE SORTED TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_as WITH NON-UNIQUE KEY bp_header assgnm_id .
    TYPES ts_bp_bp_mlt_ad TYPE /mdgbpx/_s_bp_pp_bp_mlt_ad .
    TYPES:
      tt_bp_bp_mlt_ad TYPE SORTED TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_ad WITH NON-UNIQUE KEY bp_header assgnm_id addrno .
    TYPES ts_bp_bp_cus_cc TYPE mdg_bs_cust_bp_cus_cc .
    TYPES:
      tt_bp_bp_cus_cc TYPE SORTED TABLE OF mdg_bs_cust_bp_cus_cc WITH NON-UNIQUE KEY bp_header assgnm_id company .
    TYPES ts_bp_bp_cuscla TYPE mdg_bs_cust_bp_cuscla .
    TYPES:
      tt_bp_bp_cuscla TYPE SORTED TABLE OF mdg_bs_cust_bp_cuscla WITH NON-UNIQUE KEY bp_header assgnm_id class classtype ecocntr .
    TYPES ts_bp_bp_cusddb TYPE mdg_bs_cust_bp_cusddb .
    TYPES:
      tt_bp_bp_cusddb TYPE SORTED TABLE OF mdg_bs_cust_bp_cusddb WITH NON-UNIQUE KEY bp_header assgnm_id cus_dokar cus_doknr cus_doktl cus_dokvr .
    TYPES ts_bp_bp_cusdun TYPE mdg_bs_cust_bp_cusdun .
    TYPES:
      tt_bp_bp_cusdun TYPE SORTED TABLE OF mdg_bs_cust_bp_cusdun WITH NON-UNIQUE KEY bp_header assgnm_id company maber .
    TYPES ts_bp_bp_cusfcn TYPE mdg_bs_cust_bp_cusfcn .
    TYPES:
      tt_bp_bp_cusfcn TYPE SORTED TABLE OF mdg_bs_cust_bp_cusfcn WITH NON-UNIQUE KEY bp_header assgnm_id spart vkorg vtweg parvw parza .
    TYPES ts_bp_bp_cusgen TYPE mdg_bs_cust_bp_cusgen .
    TYPES:
      tt_bp_bp_cusgen TYPE SORTED TABLE OF mdg_bs_cust_bp_cusgen WITH NON-UNIQUE KEY bp_header assgnm_id .
    TYPES ts_bp_bp_custax TYPE mdg_bs_cust_bp_custax .
    TYPES:
      tt_bp_bp_custax TYPE SORTED TABLE OF mdg_bs_cust_bp_custax WITH NON-UNIQUE KEY bp_header assgnm_id aland tatyp .
    TYPES ts_bp_bp_cusulp TYPE mdg_bs_cust_bp_cusulp .
    TYPES:
      tt_bp_bp_cusulp TYPE SORTED TABLE OF mdg_bs_cust_bp_cusulp WITH NON-UNIQUE KEY bp_header assgnm_id ablad .
    TYPES ts_bp_bp_cusval TYPE mdg_bs_cust_bp_cusval .
    TYPES:
      tt_bp_bp_cusval TYPE SORTED TABLE OF mdg_bs_cust_bp_cusval WITH NON-UNIQUE KEY bp_header assgnm_id charid classtype ecocntr valcnt .
    TYPES ts_bp_bp_cuswht TYPE mdg_bs_cust_bp_cuswht .
    TYPES:
      tt_bp_bp_cuswht TYPE SORTED TABLE OF mdg_bs_cust_bp_cuswht WITH NON-UNIQUE KEY bp_header assgnm_id company witht .
    TYPES ts_bp_bp_sales TYPE mdg_bs_cust_bp_sales .
    TYPES:
      tt_bp_bp_sales TYPE SORTED TABLE OF mdg_bs_cust_bp_sales WITH NON-UNIQUE KEY bp_header assgnm_id spart vkorg vtweg .
    TYPES ts_bp_cuscctxt TYPE mdg_bs_cust_cuscctxt .
    TYPES:
      tt_bp_cuscctxt TYPE SORTED TABLE OF mdg_bs_cust_cuscctxt WITH NON-UNIQUE KEY bp_header assgnm_id company cuslangu cus_tdid .
    TYPES ts_bp_cusgentxt TYPE mdg_bs_cust_cusgentxt .
    TYPES:
      tt_bp_cusgentxt TYPE SORTED TABLE OF mdg_bs_cust_cusgentxt WITH NON-UNIQUE KEY bp_header assgnm_id cuslangu cus_tdid .
    TYPES ts_bp_cussaltxt TYPE mdg_bs_cust_cussaltxt .
    TYPES:
      tt_bp_cussaltxt TYPE SORTED TABLE OF mdg_bs_cust_cussaltxt WITH NON-UNIQUE KEY bp_header assgnm_id spart vkorg vtweg cuslangu cus_tdid .
    TYPES ts_bp_bp_compny TYPE mdg_bs_suppl_bp_compny .
    TYPES:
      tt_bp_bp_compny TYPE SORTED TABLE OF mdg_bs_suppl_bp_compny WITH NON-UNIQUE KEY bp_header assgnm_id company .
    TYPES ts_bp_bp_dunn TYPE mdg_bs_suppl_bp_dunn .
    TYPES:
      tt_bp_bp_dunn TYPE SORTED TABLE OF mdg_bs_suppl_bp_dunn WITH NON-UNIQUE KEY bp_header assgnm_id company maber .
    TYPES ts_bp_bp_porg TYPE mdg_bs_suppl_bp_porg .
    TYPES:
      tt_bp_bp_porg TYPE SORTED TABLE OF mdg_bs_suppl_bp_porg WITH NON-UNIQUE KEY bp_header assgnm_id prch_org .
    TYPES ts_bp_bp_porg2 TYPE mdg_bs_suppl_bp_porg2 .
    TYPES:
      tt_bp_bp_porg2 TYPE SORTED TABLE OF mdg_bs_suppl_bp_porg2 WITH NON-UNIQUE KEY bp_header assgnm_id prch_org ltsnr werks_d .
    TYPES ts_bp_bp_taxgrp TYPE mdg_bs_suppl_bp_taxgrp .
    TYPES:
      tt_bp_bp_taxgrp TYPE SORTED TABLE OF mdg_bs_suppl_bp_taxgrp WITH NON-UNIQUE KEY bp_header assgnm_id koart taxgr .
    TYPES ts_bp_bp_vencla TYPE mdg_bs_suppl_bp_vencla .
    TYPES:
      tt_bp_bp_vencla TYPE SORTED TABLE OF mdg_bs_suppl_bp_vencla WITH NON-UNIQUE KEY bp_header assgnm_id class classtype ecocntr .
    TYPES ts_bp_bp_venddb TYPE mdg_bs_suppl_bp_venddb .
    TYPES:
      tt_bp_bp_venddb TYPE SORTED TABLE OF mdg_bs_suppl_bp_venddb WITH NON-UNIQUE KEY bp_header assgnm_id ven_dokar ven_doknr ven_doktl ven_dokvr .
    TYPES ts_bp_bp_venfcn TYPE mdg_bs_suppl_bp_venfcn .
    TYPES:
      tt_bp_bp_venfcn TYPE SORTED TABLE OF mdg_bs_suppl_bp_venfcn WITH NON-UNIQUE KEY bp_header assgnm_id prch_org ltsnr parvw parza werks_d .
    TYPES ts_bp_bp_vengen TYPE mdg_bs_suppl_bp_vengen .
    TYPES:
      tt_bp_bp_vengen TYPE SORTED TABLE OF mdg_bs_suppl_bp_vengen WITH NON-UNIQUE KEY bp_header assgnm_id .
    TYPES ts_bp_bp_vensub TYPE mdg_bs_suppl_bp_vensub .
    TYPES:
      tt_bp_bp_vensub TYPE SORTED TABLE OF mdg_bs_suppl_bp_vensub WITH NON-UNIQUE KEY bp_header assgnm_id ltsnr ven_langu .
    TYPES ts_bp_bp_venval TYPE mdg_bs_suppl_bp_venval .
    TYPES:
      tt_bp_bp_venval TYPE SORTED TABLE OF mdg_bs_suppl_bp_venval WITH NON-UNIQUE KEY bp_header assgnm_id charid classtype ecocntr valcnt .
    TYPES ts_bp_bp_whtax TYPE mdg_bs_suppl_bp_whtax .
    TYPES:
      tt_bp_bp_whtax TYPE SORTED TABLE OF mdg_bs_suppl_bp_whtax WITH NON-UNIQUE KEY bp_header assgnm_id company land_1 witht .
    TYPES ts_bp_vencctxt TYPE mdg_bs_suppl_vencctxt .
    TYPES:
      tt_bp_vencctxt TYPE SORTED TABLE OF mdg_bs_suppl_vencctxt WITH NON-UNIQUE KEY bp_header assgnm_id company venlangu ven_tdid .
    TYPES ts_bp_vengentxt TYPE mdg_bs_suppl_vengentxt .
    TYPES:
      tt_bp_vengentxt TYPE SORTED TABLE OF mdg_bs_suppl_vengentxt WITH NON-UNIQUE KEY bp_header assgnm_id venlangu ven_tdid .
    TYPES ts_bp_venpotxt TYPE mdg_bs_suppl_venpotxt .
    TYPES:
      tt_bp_venpotxt TYPE SORTED TABLE OF mdg_bs_suppl_venpotxt WITH NON-UNIQUE KEY bp_header assgnm_id prch_org venlangu ven_tdid .
    TYPES ts_mm_key TYPE /mdgmm/_s_mm_kf_material .
    TYPES:
      tt_mm_key TYPE SORTED TABLE OF /mdgmm/_s_mm_kf_material WITH NON-UNIQUE KEY material .
    TYPES ts_mm_txt TYPE /mdgmm/_st_mm_pp_material .
    TYPES:
      tt_mm_txt TYPE SORTED TABLE OF /mdgmm/_st_mm_pp_material WITH NON-UNIQUE KEY material langu .
    TYPES ts_mm_material TYPE /mdgmm/_s_mm_pp_material .
    TYPES:
      tt_mm_material TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_material WITH NON-UNIQUE KEY material .
    TYPES ts_mm_bscdattxt TYPE /mdgmm/_s_mm_pp_bscdattxt .
    TYPES:
      tt_mm_bscdattxt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_bscdattxt WITH NON-UNIQUE KEY material langucode .
    TYPES ts_mm_classasgn TYPE /mdgmm/_s_mm_pp_classasgn .
    TYPES:
      tt_mm_classasgn TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_classasgn WITH NON-UNIQUE KEY material changeno class classtype ecocntr guid .
    TYPES ts_mm_intcmnt TYPE /mdgmm/_s_mm_pp_intcmnt .
    TYPES:
      tt_mm_intcmnt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_intcmnt WITH NON-UNIQUE KEY material langucode .
    TYPES ts_mm_marapurch TYPE /mdgmm/_s_mm_pp_marapurch .
    TYPES:
      tt_mm_marapurch TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marapurch WITH NON-UNIQUE KEY material .
    TYPES ts_mm_maraqtmng TYPE /mdgmm/_s_mm_pp_maraqtmng .
    TYPES:
      tt_mm_maraqtmng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_maraqtmng WITH NON-UNIQUE KEY material .
    TYPES ts_mm_marasales TYPE /mdgmm/_s_mm_pp_marasales .
    TYPES:
      tt_mm_marasales TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marasales WITH NON-UNIQUE KEY material .
    TYPES ts_mm_maraspm TYPE /mdgmm/_s_mm_pp_maraspm .
    TYPES:
      tt_mm_maraspm TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_maraspm WITH NON-UNIQUE KEY material .
    TYPES ts_mm_marastor TYPE /mdgmm/_s_mm_pp_marastor .
    TYPES:
      tt_mm_marastor TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marastor WITH NON-UNIQUE KEY material .
    TYPES ts_mm_marcatp TYPE /mdgmm/_s_mm_pp_marcatp .
    TYPES:
      tt_mm_marcatp TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcatp WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcbasic TYPE /mdgmm/_s_mm_pp_marcbasic .
    TYPES:
      tt_mm_marcbasic TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcbasic WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marccstng TYPE /mdgmm/_s_mm_pp_marccstng .
    TYPES:
      tt_mm_marccstng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marccstng WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcfrcst TYPE /mdgmm/_s_mm_pp_marcfrcst .
    TYPES:
      tt_mm_marcfrcst TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcfrcst WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcfrgtr TYPE /mdgmm/_s_mm_pp_marcfrgtr .
    TYPES:
      tt_mm_marcfrgtr TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcfrgtr WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcfrpar TYPE /mdgmm/_s_mm_pp_marcfrpar .
    TYPES:
      tt_mm_marcfrpar TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcfrpar WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcmrpfc TYPE /mdgmm/_s_mm_pp_marcmrpfc .
    TYPES:
      tt_mm_marcmrpfc TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcmrpfc WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcmrpls TYPE /mdgmm/_s_mm_pp_marcmrpls .
    TYPES:
      tt_mm_marcmrpls TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcmrpls WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcmrpmi TYPE /mdgmm/_s_mm_pp_marcmrpmi .
    TYPES:
      tt_mm_marcmrpmi TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcmrpmi WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcmrppp TYPE /mdgmm/_s_mm_pp_marcmrppp .
    TYPES:
      tt_mm_marcmrppp TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcmrppp WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcmrpsp TYPE /mdgmm/_s_mm_pp_marcmrpsp .
    TYPES:
      tt_mm_marcmrpsp TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcmrpsp WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcprt TYPE /mdgmm/_s_mm_pp_marcprt .
    TYPES:
      tt_mm_marcprt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcprt WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcpurch TYPE /mdgmm/_s_mm_pp_marcpurch .
    TYPES:
      tt_mm_marcpurch TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcpurch WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcqtmng TYPE /mdgmm/_s_mm_pp_marcqtmng .
    TYPES:
      tt_mm_marcqtmng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcqtmng WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcsales TYPE /mdgmm/_s_mm_pp_marcsales .
    TYPES:
      tt_mm_marcsales TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcsales WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcstore TYPE /mdgmm/_s_mm_pp_marcstore .
    TYPES:
      tt_mm_marcstore TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcstore WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_marcwrksd TYPE /mdgmm/_s_mm_pp_marcwrksd .
    TYPES:
      tt_mm_marcwrksd TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_marcwrksd WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_mardmrp TYPE /mdgmm/_s_mm_pp_mardmrp .
    TYPES:
      tt_mm_mardmrp TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mardmrp WITH NON-UNIQUE KEY material werks lgort .
    TYPES ts_mm_mardstor TYPE /mdgmm/_s_mm_pp_mardstor .
    TYPES:
      tt_mm_mardstor TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mardstor WITH NON-UNIQUE KEY material werks lgort .
    TYPES ts_mm_mbewactng TYPE /mdgmm/_s_mm_pp_mbewactng .
    TYPES:
      tt_mm_mbewactng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mbewactng WITH NON-UNIQUE KEY material bwkey bwtar .
    TYPES ts_mm_mbewcstng TYPE /mdgmm/_s_mm_pp_mbewcstng .
    TYPES:
      tt_mm_mbewcstng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mbewcstng WITH NON-UNIQUE KEY material bwkey .
    TYPES ts_mm_mbewmlac TYPE /mdgmm/_s_mm_pp_mbewmlac .
    TYPES:
      tt_mm_mbewmlac TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mbewmlac WITH NON-UNIQUE KEY material bwkey bwtar curtp .
    TYPES ts_mm_mbewmlval TYPE /mdgmm/_s_mm_pp_mbewmlval .
    TYPES:
      tt_mm_mbewmlval TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mbewmlval WITH NON-UNIQUE KEY material bwkey bwtar curtp .
    TYPES ts_mm_mbewvalua TYPE /mdgmm/_s_mm_pp_mbewvalua .
    TYPES:
      tt_mm_mbewvalua TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mbewvalua WITH NON-UNIQUE KEY material bwkey bwtar .
    TYPES ts_mm_mdmabasic TYPE /mdgmm/_s_mm_pp_mdmabasic .
    TYPES:
      tt_mm_mdmabasic TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mdmabasic WITH NON-UNIQUE KEY material werks berid .
    TYPES ts_mm_mean_gtin TYPE /mdgmm/_s_mm_pp_mean_gtin .
    TYPES:
      tt_mm_mean_gtin TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mean_gtin WITH NON-UNIQUE KEY material qteunit ean .
    TYPES ts_mm_mlanpurch TYPE /mdgmm/_s_mm_pp_mlanpurch .
    TYPES:
      tt_mm_mlanpurch TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mlanpurch WITH NON-UNIQUE KEY material aland .
    TYPES ts_mm_mlansales TYPE /mdgmm/_s_mm_pp_mlansales .
    TYPES:
      tt_mm_mlansales TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mlansales WITH NON-UNIQUE KEY material aland tatyp .
    TYPES ts_mm_mlgnstor TYPE /mdgmm/_s_mm_pp_mlgnstor .
    TYPES:
      tt_mm_mlgnstor TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mlgnstor WITH NON-UNIQUE KEY material lgnum .
    TYPES ts_mm_mlgtstor TYPE /mdgmm/_s_mm_pp_mlgtstor .
    TYPES:
      tt_mm_mlgtstor TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mlgtstor WITH NON-UNIQUE KEY material lgnum lgtyp .
    TYPES ts_mm_mpgdprodg TYPE /mdgmm/_s_mm_pp_mpgdprodg .
    TYPES:
      tt_mm_mpgdprodg TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mpgdprodg WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_mrptxt TYPE /mdgmm/_s_mm_pp_mrptxt .
    TYPES:
      tt_mm_mrptxt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mrptxt WITH NON-UNIQUE KEY material werks .
    TYPES ts_mm_mvkegrpng TYPE /mdgmm/_s_mm_pp_mvkegrpng .
    TYPES:
      tt_mm_mvkegrpng TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mvkegrpng WITH NON-UNIQUE KEY material vkorg vtweg .
    TYPES ts_mm_mvkesales TYPE /mdgmm/_s_mm_pp_mvkesales .
    TYPES:
      tt_mm_mvkesales TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_mvkesales WITH NON-UNIQUE KEY material vkorg vtweg .
    TYPES ts_mm_purchtxt TYPE /mdgmm/_s_mm_pp_purchtxt .
    TYPES:
      tt_mm_purchtxt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_purchtxt WITH NON-UNIQUE KEY material langucode .
    TYPES ts_mm_qinsptxt TYPE /mdgmm/_s_mm_pp_qinsptxt .
    TYPES:
      tt_mm_qinsptxt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_qinsptxt WITH NON-UNIQUE KEY material langucode .
    TYPES ts_mm_qmatbasic TYPE /mdgmm/_s_mm_pp_qmatbasic .
    TYPES:
      tt_mm_qmatbasic TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_qmatbasic WITH NON-UNIQUE KEY material werks art .
    TYPES ts_mm_salestxt TYPE /mdgmm/_s_mm_pp_salestxt .
    TYPES:
      tt_mm_salestxt TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_salestxt WITH NON-UNIQUE KEY material vkorg vtweg langucode .
    TYPES ts_mm_unitofmsr TYPE /mdgmm/_s_mm_pp_unitofmsr .
    TYPES:
      tt_mm_unitofmsr TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_unitofmsr WITH NON-UNIQUE KEY material qteunit .
    TYPES ts_mm_valuation TYPE /mdgmm/_s_mm_pp_valuation .
    TYPES:
      tt_mm_valuation TYPE SORTED TABLE OF /mdgmm/_s_mm_pp_valuation WITH NON-UNIQUE KEY material changeno charid classtype ecocntr guid valcnt .

    CLASS-DATA gv_debug_mode TYPE flag .

    CLASS-METHODS get_cr_from_key
      IMPORTING
        !iv_model       TYPE usmd_model
        !iv_main_entity TYPE usmd_entity
        !is_key         TYPE data
      RETURNING
        VALUE(rv_cr)    TYPE usmd_crequest .
    CLASS-METHODS get_t_sel_from_conv_api
      RETURNING
        VALUE(rt_sel) TYPE usmd_ts_sel .
    CLASS-METHODS read_entity
      IMPORTING
        !iv_entity TYPE clike
      EXPORTING
        !et_data   TYPE ANY TABLE .
    CLASS-METHODS read_bp
      IMPORTING
        !iv_key           TYPE bu_partner OPTIONAL
        !it_key           TYPE rpm_tt_bupa OPTIONAL
        !iv_read_inactive TYPE flag OPTIONAL
      EXPORTING
        !es_bp_header     TYPE ts_bp_bp_header
        !et_key           TYPE tt_bp_key
        !et_bp_header     TYPE tt_bp_bp_header
        !et_ad_email      TYPE tt_bp_ad_email
        !et_ad_fax        TYPE tt_bp_ad_fax
        !et_ad_name_o     TYPE tt_bp_ad_name_o
        !et_ad_name_p     TYPE tt_bp_ad_name_p
        !et_ad_postal     TYPE tt_bp_ad_postal
        !et_ad_tel        TYPE tt_bp_ad_tel
        !et_ad_url        TYPE tt_bp_ad_url
        !et_address       TYPE tt_bp_address
        !et_bp_addr       TYPE tt_bp_bp_addr
        !et_bp_addusg     TYPE tt_bp_bp_addusg
        !et_bp_bkdtl      TYPE tt_bp_bp_bkdtl
        !et_bp_ccdtl      TYPE tt_bp_bp_ccdtl
        !et_bp_centrl     TYPE tt_bp_bp_centrl
        !et_bp_idnum      TYPE tt_bp_bp_idnum
        !et_bp_indstr     TYPE tt_bp_bp_indstr
        !et_bp_role       TYPE tt_bp_bp_role
        !et_bp_taxnum     TYPE tt_bp_bp_taxnum
        !et_bp_mlt_as     TYPE tt_bp_bp_mlt_as
        !et_bp_mlt_ad     TYPE tt_bp_bp_mlt_ad
        !et_bp_cus_cc     TYPE tt_bp_bp_cus_cc
        !et_bp_cuscla     TYPE tt_bp_bp_cuscla
        !et_bp_cusddb     TYPE tt_bp_bp_cusddb
        !et_bp_cusdun     TYPE tt_bp_bp_cusdun
        !et_bp_cusfcn     TYPE tt_bp_bp_cusfcn
        !et_bp_cusgen     TYPE tt_bp_bp_cusgen
        !et_bp_custax     TYPE tt_bp_bp_custax
        !et_bp_cusulp     TYPE tt_bp_bp_cusulp
        !et_bp_cusval     TYPE tt_bp_bp_cusval
        !et_bp_cuswht     TYPE tt_bp_bp_cuswht
        !et_bp_sales      TYPE tt_bp_bp_sales
        !et_cuscctxt      TYPE tt_bp_cuscctxt
        !et_cusgentxt     TYPE tt_bp_cusgentxt
        !et_cussaltxt     TYPE tt_bp_cussaltxt
        !et_bp_compny     TYPE tt_bp_bp_compny
        !et_bp_dunn       TYPE tt_bp_bp_dunn
        !et_bp_porg       TYPE tt_bp_bp_porg
        !et_bp_porg2      TYPE tt_bp_bp_porg2
        !et_bp_taxgrp     TYPE tt_bp_bp_taxgrp
        !et_bp_vencla     TYPE tt_bp_bp_vencla
        !et_bp_venddb     TYPE tt_bp_bp_venddb
        !et_bp_venfcn     TYPE tt_bp_bp_venfcn
        !et_bp_vengen     TYPE tt_bp_bp_vengen
        !et_bp_vensub     TYPE tt_bp_bp_vensub
        !et_bp_venval     TYPE tt_bp_bp_venval
        !et_bp_whtax      TYPE tt_bp_bp_whtax
        !et_vencctxt      TYPE tt_bp_vencctxt
        !et_vengentxt     TYPE tt_bp_vengentxt
        !et_venpotxt      TYPE tt_bp_venpotxt .
    CLASS-METHODS read_mm
      IMPORTING
        !iv_key           TYPE matnr OPTIONAL
        !it_key           TYPE matnr_tab OPTIONAL
        !iv_read_inactive TYPE flag OPTIONAL
      EXPORTING
        !es_material      TYPE ts_mm_material
        !et_key           TYPE tt_mm_key
        !et_txt           TYPE tt_mm_txt
        !et_material      TYPE tt_mm_material
        !et_bscdattxt     TYPE tt_mm_bscdattxt
        !et_classasgn     TYPE tt_mm_classasgn
        !et_intcmnt       TYPE tt_mm_intcmnt
        !et_marapurch     TYPE tt_mm_marapurch
        !et_maraqtmng     TYPE tt_mm_maraqtmng
        !et_marasales     TYPE tt_mm_marasales
        !et_maraspm       TYPE tt_mm_maraspm
        !et_marastor      TYPE tt_mm_marastor
        !et_marcatp       TYPE tt_mm_marcatp
        !et_marcbasic     TYPE tt_mm_marcbasic
        !et_marccstng     TYPE tt_mm_marccstng
        !et_marcfrcst     TYPE tt_mm_marcfrcst
        !et_marcfrgtr     TYPE tt_mm_marcfrgtr
        !et_marcfrpar     TYPE tt_mm_marcfrpar
        !et_marcmrpfc     TYPE tt_mm_marcmrpfc
        !et_marcmrpls     TYPE tt_mm_marcmrpls
        !et_marcmrpmi     TYPE tt_mm_marcmrpmi
        !et_marcmrppp     TYPE tt_mm_marcmrppp
        !et_marcmrpsp     TYPE tt_mm_marcmrpsp
        !et_marcprt       TYPE tt_mm_marcprt
        !et_marcpurch     TYPE tt_mm_marcpurch
        !et_marcqtmng     TYPE tt_mm_marcqtmng
        !et_marcsales     TYPE tt_mm_marcsales
        !et_marcstore     TYPE tt_mm_marcstore
        !et_marcwrksd     TYPE tt_mm_marcwrksd
        !et_mardmrp       TYPE tt_mm_mardmrp
        !et_mardstor      TYPE tt_mm_mardstor
        !et_mbewactng     TYPE tt_mm_mbewactng
        !et_mbewcstng     TYPE tt_mm_mbewcstng
        !et_mbewmlac      TYPE tt_mm_mbewmlac
        !et_mbewmlval     TYPE tt_mm_mbewmlval
        !et_mbewvalua     TYPE tt_mm_mbewvalua
        !et_mdmabasic     TYPE tt_mm_mdmabasic
        !et_mean_gtin     TYPE tt_mm_mean_gtin
        !et_mlanpurch     TYPE tt_mm_mlanpurch
        !et_mlansales     TYPE tt_mm_mlansales
        !et_mlgnstor      TYPE tt_mm_mlgnstor
        !et_mlgtstor      TYPE tt_mm_mlgtstor
        !et_mpgdprodg     TYPE tt_mm_mpgdprodg
        !et_mrptxt        TYPE tt_mm_mrptxt
        !et_mvkegrpng     TYPE tt_mm_mvkegrpng
        !et_mvkesales     TYPE tt_mm_mvkesales
        !et_purchtxt      TYPE tt_mm_purchtxt
        !et_qinsptxt      TYPE tt_mm_qinsptxt
        !et_qmatbasic     TYPE tt_mm_qmatbasic
        !et_salestxt      TYPE tt_mm_salestxt
        !et_unitofmsr     TYPE tt_mm_unitofmsr
        !et_valuation     TYPE tt_mm_valuation .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS ZCL_MDP_READ_HELPER IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MDP_READ_HELPER=>GET_CR_FROM_KEY
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_MODEL                       TYPE        USMD_MODEL
* | [--->] IV_MAIN_ENTITY                 TYPE        USMD_ENTITY
* | [--->] IS_KEY                         TYPE        DATA
* | [<-()] RV_CR                          TYPE        USMD_CREQUEST
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_cr_from_key.
    DATA: lt_crequest_id TYPE usmd_cr_ts_root_node_id.

*IV_OBJECT_TYPE	TYPE USMD_OBJECT
*IS_OBJECT_KEY  TYPE DATA
*IV_MODEL	TYPE USMD_MODEL
*value( RT_CREQUEST_ID )  TYPE USMD_CR_TS_ROOT_NODE_ID
    cl_usmd_cr_factory=>get_cr_service_provider( )->if_usmd_cr_sp_query~retrieve_open_cr_by_object_key(
      EXPORTING
        iv_object_type = iv_main_entity
        is_object_key  = is_key
        iv_model       = iv_model
      RECEIVING
        rt_crequest_id = lt_crequest_id
    ).
*    CATCH cx_usmd_cr_root_no_model_insta. " no model instance for model name
*    CATCH cx_usmd_cr_root_bad_entity_typ. " Illegal entity typ
*    CATCH cx_usmd_cr_root_emp_entity_key. " Initial entity key.

    CHECK: lt_crequest_id IS NOT INITIAL.
    rv_cr = lt_crequest_id[ 1 ]-usmd_crequest.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MDP_READ_HELPER=>GET_T_SEL_FROM_CONV_API
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_SEL                         TYPE        USMD_TS_SEL
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_t_sel_from_conv_api.
    DATA: lo_conv_api             TYPE REF TO if_usmd_conv_som_gov_api,
          lt_object_list_db_style TYPE usmd_t_crequest_entity,
          ls_object_list_db_style TYPE usmd_s_crequest_entity,
          ls_sel                  TYPE usmd_s_sel.

    TRY.
        lo_conv_api = cl_usmd_conv_som_gov_api=>get_instance( ).
        lo_conv_api->get_object_list(
          IMPORTING
            et_object_list_db_style = lt_object_list_db_style " Change Request, Entity, Table Type
        ).
        ls_sel-sign = 'I'.
        ls_sel-option = 'EQ'.
        LOOP AT lt_object_list_db_style INTO ls_object_list_db_style WHERE usmd_entity = lo_conv_api->mv_main_entity.
          ls_sel-fieldname = ls_object_list_db_style-usmd_entity_obj.
          ls_sel-low = ls_object_list_db_style-usmd_value.
          INSERT ls_sel INTO TABLE rt_sel.
        ENDLOOP.

      CATCH cx_usmd_gov_api.                " General Processing Error GOV_API

    ENDTRY.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MDP_READ_HELPER=>READ_BP
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_KEY                         TYPE        BU_PARTNER(optional)
* | [--->] IT_KEY                         TYPE        RPM_TT_BUPA(optional)
* | [--->] IV_READ_INACTIVE               TYPE        FLAG(optional)
* | [<---] ES_BP_HEADER                   TYPE        TS_BP_BP_HEADER
* | [<---] ET_KEY                         TYPE        TT_BP_KEY
* | [<---] ET_BP_HEADER                   TYPE        TT_BP_BP_HEADER
* | [<---] ET_AD_EMAIL                    TYPE        TT_BP_AD_EMAIL
* | [<---] ET_AD_FAX                      TYPE        TT_BP_AD_FAX
* | [<---] ET_AD_NAME_O                   TYPE        TT_BP_AD_NAME_O
* | [<---] ET_AD_NAME_P                   TYPE        TT_BP_AD_NAME_P
* | [<---] ET_AD_POSTAL                   TYPE        TT_BP_AD_POSTAL
* | [<---] ET_AD_TEL                      TYPE        TT_BP_AD_TEL
* | [<---] ET_AD_URL                      TYPE        TT_BP_AD_URL
* | [<---] ET_ADDRESS                     TYPE        TT_BP_ADDRESS
* | [<---] ET_BP_ADDR                     TYPE        TT_BP_BP_ADDR
* | [<---] ET_BP_ADDUSG                   TYPE        TT_BP_BP_ADDUSG
* | [<---] ET_BP_BKDTL                    TYPE        TT_BP_BP_BKDTL
* | [<---] ET_BP_CCDTL                    TYPE        TT_BP_BP_CCDTL
* | [<---] ET_BP_CENTRL                   TYPE        TT_BP_BP_CENTRL
* | [<---] ET_BP_IDNUM                    TYPE        TT_BP_BP_IDNUM
* | [<---] ET_BP_INDSTR                   TYPE        TT_BP_BP_INDSTR
* | [<---] ET_BP_ROLE                     TYPE        TT_BP_BP_ROLE
* | [<---] ET_BP_TAXNUM                   TYPE        TT_BP_BP_TAXNUM
* | [<---] ET_BP_MLT_AS                   TYPE        TT_BP_BP_MLT_AS
* | [<---] ET_BP_MLT_AD                   TYPE        TT_BP_BP_MLT_AD
* | [<---] ET_BP_CUS_CC                   TYPE        TT_BP_BP_CUS_CC
* | [<---] ET_BP_CUSCLA                   TYPE        TT_BP_BP_CUSCLA
* | [<---] ET_BP_CUSDDB                   TYPE        TT_BP_BP_CUSDDB
* | [<---] ET_BP_CUSDUN                   TYPE        TT_BP_BP_CUSDUN
* | [<---] ET_BP_CUSFCN                   TYPE        TT_BP_BP_CUSFCN
* | [<---] ET_BP_CUSGEN                   TYPE        TT_BP_BP_CUSGEN
* | [<---] ET_BP_CUSTAX                   TYPE        TT_BP_BP_CUSTAX
* | [<---] ET_BP_CUSULP                   TYPE        TT_BP_BP_CUSULP
* | [<---] ET_BP_CUSVAL                   TYPE        TT_BP_BP_CUSVAL
* | [<---] ET_BP_CUSWHT                   TYPE        TT_BP_BP_CUSWHT
* | [<---] ET_BP_SALES                    TYPE        TT_BP_BP_SALES
* | [<---] ET_CUSCCTXT                    TYPE        TT_BP_CUSCCTXT
* | [<---] ET_CUSGENTXT                   TYPE        TT_BP_CUSGENTXT
* | [<---] ET_CUSSALTXT                   TYPE        TT_BP_CUSSALTXT
* | [<---] ET_BP_COMPNY                   TYPE        TT_BP_BP_COMPNY
* | [<---] ET_BP_DUNN                     TYPE        TT_BP_BP_DUNN
* | [<---] ET_BP_PORG                     TYPE        TT_BP_BP_PORG
* | [<---] ET_BP_PORG2                    TYPE        TT_BP_BP_PORG2
* | [<---] ET_BP_TAXGRP                   TYPE        TT_BP_BP_TAXGRP
* | [<---] ET_BP_VENCLA                   TYPE        TT_BP_BP_VENCLA
* | [<---] ET_BP_VENDDB                   TYPE        TT_BP_BP_VENDDB
* | [<---] ET_BP_VENFCN                   TYPE        TT_BP_BP_VENFCN
* | [<---] ET_BP_VENGEN                   TYPE        TT_BP_BP_VENGEN
* | [<---] ET_BP_VENSUB                   TYPE        TT_BP_BP_VENSUB
* | [<---] ET_BP_VENVAL                   TYPE        TT_BP_BP_VENVAL
* | [<---] ET_BP_WHTAX                    TYPE        TT_BP_BP_WHTAX
* | [<---] ET_VENCCTXT                    TYPE        TT_BP_VENCCTXT
* | [<---] ET_VENGENTXT                   TYPE        TT_BP_VENGENTXT
* | [<---] ET_VENPOTXT                    TYPE        TT_BP_VENPOTXT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD read_bp.
    DATA: lo_model_ext TYPE REF TO if_usmd_model_ext,
          lt_sel       TYPE usmd_ts_sel,
          ls_sel       TYPE usmd_s_sel,
          lv_readmode  TYPE usmd_readmode_ext  VALUE if_usmd_model_ext=>gc_readmode_default,
          lv_key       LIKE LINE OF it_key.
    FIELD-SYMBOLS: <ls_key> LIKE LINE OF et_key.

    CLEAR: et_key, et_bp_header, es_bp_header.

    cl_usmd_model_ext=>get_instance(
      EXPORTING
        i_usmd_model = 'BP'
      IMPORTING
        eo_instance  = lo_model_ext
    ).
    CHECK: lo_model_ext IS NOT INITIAL.

    ls_sel-fieldname = 'BP_HEADER'.
    ls_sel-sign = 'I'.
    ls_sel-option = 'EQ'.

    IF iv_key IS NOT INITIAL.
      ls_sel-low = iv_key.
      INSERT ls_sel INTO TABLE lt_sel.
    ENDIF.

    IF it_key IS NOT INITIAL.
      LOOP AT it_key INTO lv_key.
        ls_sel-low = lv_key.
        INSERT ls_sel INTO TABLE lt_sel.
      ENDLOOP.
    ENDIF.

    IF lt_sel IS INITIAL.
      lt_sel = get_t_sel_from_conv_api( ).
    ENDIF.

    CHECK: lt_sel IS NOT INITIAL.

    IF iv_read_inactive EQ abap_true.
      lv_readmode = if_usmd_model_ext=>gc_readmode_no_act.

      lo_model_ext->read_char_value(
        EXPORTING
          i_fieldname       = 'BP_HEADER'
          it_sel            = lt_sel
          i_readmode        = lv_readmode
        IMPORTING
          et_data           = et_key
      ).
      CHECK: et_key IS NOT INITIAL.
      IF lines( lt_sel ) <> lines( et_key ).
        CLEAR: lt_sel.
        LOOP AT et_key ASSIGNING <ls_key>.
          ls_sel-low = <ls_key>-bp_header.
          INSERT ls_sel INTO TABLE lt_sel.
        ENDLOOP.
      ENDIF.

      lv_readmode = if_usmd_model_ext=>gc_readmode_all_inact.
    ENDIF.

    lo_model_ext->read_char_value(
      EXPORTING
        i_fieldname       = 'BP_HEADER'
        it_sel            = lt_sel
        i_readmode        = lv_readmode
      IMPORTING
        et_data           = et_bp_header
    ).
    CHECK: et_bp_header IS NOT INITIAL.
    READ TABLE et_bp_header INTO es_bp_header INDEX 1.
    MOVE-CORRESPONDING et_bp_header TO et_key.


*    IF et_bp_centrl IS SUPPLIED.
*      CLEAR: et_bp_centrl.
*      lo_model_ext->read_char_value(
*        EXPORTING
*          i_fieldname       = 'BP_CENTRL'
*          it_sel            = lt_sel
*          i_readmode        = lv_readmode
*        IMPORTING
*          et_data           = et_bp_centrl
*      ).
*    ENDIF.
    DEFINE __read.
      IF gv_debug_mode EQ abap_true OR et_&1 IS SUPPLIED.
        CLEAR: et_&1.
        lo_model_ext->read_char_value(
          EXPORTING
            i_fieldname       = '&1'
            it_sel            = lt_sel
            i_readmode        = lv_readmode
          IMPORTING
            et_data           = et_&1
        ).
      ENDIF.
    END-OF-DEFINITION.


    __read ad_email.
    __read ad_fax.
    __read ad_name_o.
    __read ad_name_p.
    __read ad_postal.
    __read ad_tel.
    __read ad_url.
    __read address.
    __read bp_addr.
    __read bp_addusg.
    __read bp_bkdtl.
    __read bp_ccdtl.
    __read bp_centrl.
    __read bp_idnum.
    __read bp_indstr.
    __read bp_role.
    __read bp_taxnum.
    __read bp_mlt_as.
    __read bp_mlt_ad.
    __read bp_cus_cc.
    __read bp_cuscla.
    __read bp_cusddb.
    __read bp_cusdun.
    __read bp_cusfcn.
    __read bp_cusgen.
    __read bp_custax.
    __read bp_cusulp.
    __read bp_cusval.
    __read bp_cuswht.
    __read bp_sales.
    __read cuscctxt.
    __read cusgentxt.
    __read cussaltxt.
    __read bp_compny.
    __read bp_dunn.
    __read bp_porg.
    __read bp_porg2.
    __read bp_taxgrp.
    __read bp_vencla.
    __read bp_venddb.
    __read bp_venfcn.
    __read bp_vengen.
    __read bp_vensub.
    __read bp_venval.
    __read bp_whtax.
    __read vencctxt.
    __read vengentxt.
    __read venpotxt.


    IF gv_debug_mode EQ abap_true.
      BREAK-POINT.
    ENDIF.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MDP_READ_HELPER=>READ_ENTITY
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ENTITY                      TYPE        CLIKE
* | [<---] ET_DATA                        TYPE        ANY TABLE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD read_entity.
    DATA: lo_mdg_api   TYPE REF TO if_usmd_conv_som_gov_api,
          lo_model_api TYPE REF TO if_usmd_model_ext,
          lt_sel       TYPE usmd_ts_sel.

    CLEAR: et_data.

    TRY.
        lo_mdg_api = cl_usmd_conv_som_gov_api=>get_instance( ).
      CATCH cx_usmd_gov_api.
        RETURN.
    ENDTRY.
    CHECK: lo_mdg_api IS NOT INITIAL.

    cl_usmd_model_ext=>get_instance(
      EXPORTING
        i_usmd_model = lo_mdg_api->mv_model_name
      IMPORTING
        eo_instance  = lo_model_api
    ).
    CHECK: lo_model_api IS NOT INITIAL.

    lt_sel = get_t_sel_from_conv_api( ).

    lo_model_api->read_char_value(
      EXPORTING
        i_fieldname       = CONV #( iv_entity )
        it_sel            = lt_sel
      IMPORTING
        et_data           = et_data
    ).
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MDP_READ_HELPER=>READ_MM
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_KEY                         TYPE        MATNR(optional)
* | [--->] IT_KEY                         TYPE        MATNR_TAB(optional)
* | [--->] IV_READ_INACTIVE               TYPE        FLAG(optional)
* | [<---] ES_MATERIAL                    TYPE        TS_MM_MATERIAL
* | [<---] ET_KEY                         TYPE        TT_MM_KEY
* | [<---] ET_TXT                         TYPE        TT_MM_TXT
* | [<---] ET_MATERIAL                    TYPE        TT_MM_MATERIAL
* | [<---] ET_BSCDATTXT                   TYPE        TT_MM_BSCDATTXT
* | [<---] ET_CLASSASGN                   TYPE        TT_MM_CLASSASGN
* | [<---] ET_INTCMNT                     TYPE        TT_MM_INTCMNT
* | [<---] ET_MARAPURCH                   TYPE        TT_MM_MARAPURCH
* | [<---] ET_MARAQTMNG                   TYPE        TT_MM_MARAQTMNG
* | [<---] ET_MARASALES                   TYPE        TT_MM_MARASALES
* | [<---] ET_MARASPM                     TYPE        TT_MM_MARASPM
* | [<---] ET_MARASTOR                    TYPE        TT_MM_MARASTOR
* | [<---] ET_MARCATP                     TYPE        TT_MM_MARCATP
* | [<---] ET_MARCBASIC                   TYPE        TT_MM_MARCBASIC
* | [<---] ET_MARCCSTNG                   TYPE        TT_MM_MARCCSTNG
* | [<---] ET_MARCFRCST                   TYPE        TT_MM_MARCFRCST
* | [<---] ET_MARCFRGTR                   TYPE        TT_MM_MARCFRGTR
* | [<---] ET_MARCFRPAR                   TYPE        TT_MM_MARCFRPAR
* | [<---] ET_MARCMRPFC                   TYPE        TT_MM_MARCMRPFC
* | [<---] ET_MARCMRPLS                   TYPE        TT_MM_MARCMRPLS
* | [<---] ET_MARCMRPMI                   TYPE        TT_MM_MARCMRPMI
* | [<---] ET_MARCMRPPP                   TYPE        TT_MM_MARCMRPPP
* | [<---] ET_MARCMRPSP                   TYPE        TT_MM_MARCMRPSP
* | [<---] ET_MARCPRT                     TYPE        TT_MM_MARCPRT
* | [<---] ET_MARCPURCH                   TYPE        TT_MM_MARCPURCH
* | [<---] ET_MARCQTMNG                   TYPE        TT_MM_MARCQTMNG
* | [<---] ET_MARCSALES                   TYPE        TT_MM_MARCSALES
* | [<---] ET_MARCSTORE                   TYPE        TT_MM_MARCSTORE
* | [<---] ET_MARCWRKSD                   TYPE        TT_MM_MARCWRKSD
* | [<---] ET_MARDMRP                     TYPE        TT_MM_MARDMRP
* | [<---] ET_MARDSTOR                    TYPE        TT_MM_MARDSTOR
* | [<---] ET_MBEWACTNG                   TYPE        TT_MM_MBEWACTNG
* | [<---] ET_MBEWCSTNG                   TYPE        TT_MM_MBEWCSTNG
* | [<---] ET_MBEWMLAC                    TYPE        TT_MM_MBEWMLAC
* | [<---] ET_MBEWMLVAL                   TYPE        TT_MM_MBEWMLVAL
* | [<---] ET_MBEWVALUA                   TYPE        TT_MM_MBEWVALUA
* | [<---] ET_MDMABASIC                   TYPE        TT_MM_MDMABASIC
* | [<---] ET_MEAN_GTIN                   TYPE        TT_MM_MEAN_GTIN
* | [<---] ET_MLANPURCH                   TYPE        TT_MM_MLANPURCH
* | [<---] ET_MLANSALES                   TYPE        TT_MM_MLANSALES
* | [<---] ET_MLGNSTOR                    TYPE        TT_MM_MLGNSTOR
* | [<---] ET_MLGTSTOR                    TYPE        TT_MM_MLGTSTOR
* | [<---] ET_MPGDPRODG                   TYPE        TT_MM_MPGDPRODG
* | [<---] ET_MRPTXT                      TYPE        TT_MM_MRPTXT
* | [<---] ET_MVKEGRPNG                   TYPE        TT_MM_MVKEGRPNG
* | [<---] ET_MVKESALES                   TYPE        TT_MM_MVKESALES
* | [<---] ET_PURCHTXT                    TYPE        TT_MM_PURCHTXT
* | [<---] ET_QINSPTXT                    TYPE        TT_MM_QINSPTXT
* | [<---] ET_QMATBASIC                   TYPE        TT_MM_QMATBASIC
* | [<---] ET_SALESTXT                    TYPE        TT_MM_SALESTXT
* | [<---] ET_UNITOFMSR                   TYPE        TT_MM_UNITOFMSR
* | [<---] ET_VALUATION                   TYPE        TT_MM_VALUATION
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD read_mm.
    DATA: lo_model_ext TYPE REF TO if_usmd_model_ext,
          lt_sel       TYPE usmd_ts_sel,
          ls_sel       TYPE usmd_s_sel,
          lv_readmode  TYPE usmd_readmode_ext  VALUE if_usmd_model_ext=>gc_readmode_default,
          lv_key       LIKE LINE OF it_key.
    FIELD-SYMBOLS: <ls_key> LIKE LINE OF et_key.

    CLEAR: et_key, et_material, es_material.

    cl_usmd_model_ext=>get_instance(
      EXPORTING
        i_usmd_model = 'MM'
      IMPORTING
        eo_instance  = lo_model_ext
    ).
    CHECK: lo_model_ext IS NOT INITIAL.

    ls_sel-fieldname = 'MATERIAL'.
    ls_sel-sign = 'I'.
    ls_sel-option = 'EQ'.

    IF iv_key IS NOT INITIAL.
      ls_sel-low = iv_key.
      INSERT ls_sel INTO TABLE lt_sel.
    ENDIF.

    IF it_key IS NOT INITIAL.
      LOOP AT it_key INTO lv_key.
        ls_sel-low = lv_key.
        INSERT ls_sel INTO TABLE lt_sel.
      ENDLOOP.
    ENDIF.

    IF lt_sel IS INITIAL.
      lt_sel = get_t_sel_from_conv_api( ).
    ENDIF.

    CHECK: lt_sel IS NOT INITIAL.

    IF iv_read_inactive EQ abap_true.
      lv_readmode = if_usmd_model_ext=>gc_readmode_no_act.

      lo_model_ext->read_char_value(
        EXPORTING
          i_fieldname       = 'MATERIAL'
          it_sel            = lt_sel
          i_readmode        = lv_readmode
        IMPORTING
          et_data           = et_key
      ).
      CHECK: et_key IS NOT INITIAL.
      IF lines( lt_sel ) <> lines( et_key ).
        CLEAR: lt_sel.
        LOOP AT et_key ASSIGNING <ls_key>.
          ls_sel-low = <ls_key>-material.
          INSERT ls_sel INTO TABLE lt_sel.
        ENDLOOP.
      ENDIF.

      lv_readmode = if_usmd_model_ext=>gc_readmode_all_inact.
    ENDIF.

    lo_model_ext->read_char_value(
      EXPORTING
        i_fieldname       = 'MATERIAL'
        it_sel            = lt_sel
        i_readmode        = lv_readmode
      IMPORTING
        et_data           = et_material
    ).
    CHECK: et_material IS NOT INITIAL.
    READ TABLE et_material INTO es_material INDEX 1.
    MOVE-CORRESPONDING et_material TO et_key.

    IF et_txt IS SUPPLIED OR gv_debug_mode EQ abap_true.
      lo_model_ext->read_char_value(
        EXPORTING
          i_fieldname       = 'MATERIAL'
          it_sel            = lt_sel
          i_readmode        = lv_readmode
        IMPORTING
          et_data           = et_txt
      ).
    ENDIF.



*    IF et_BSCDATTXT IS SUPPLIED.
*      CLEAR: et_BSCDATTXT.
*      lo_model_ext->read_char_value(
*        EXPORTING
*          i_fieldname       = 'BSCDATTXT'
*          it_sel            = lt_sel
*          i_readmode        = lv_readmode
*        IMPORTING
*          et_data           = et_BSCDATTXT
*      ).
*    ENDIF.
    DEFINE __read.
      IF gv_debug_mode EQ abap_true OR et_&1 IS SUPPLIED.
        CLEAR: et_&1.
        lo_model_ext->read_char_value(
          EXPORTING
            i_fieldname       = '&1'
            it_sel            = lt_sel
            i_readmode        = lv_readmode
          IMPORTING
            et_data           = et_&1
        ).
      ENDIF.
    END-OF-DEFINITION.



    __read bscdattxt.
    __read classasgn.
    __read intcmnt.
    __read marapurch.
    __read maraqtmng.
    __read marasales.
    __read maraspm.
    __read marastor.
    __read marcatp.
    __read marcbasic.
    __read marccstng.
    __read marcfrcst.
    __read marcfrgtr.
    __read marcfrpar.
    __read marcmrpfc.
    __read marcmrpls.
    __read marcmrpmi.
    __read marcmrppp.
    __read marcmrpsp.
    __read marcprt.
    __read marcpurch.
    __read marcqtmng.
    __read marcsales.
    __read marcstore.
    __read marcwrksd.
    __read mardmrp.
    __read mardstor.
    __read mbewactng.
    __read mbewcstng.
    __read mbewmlac.
    __read mbewmlval.
    __read mbewvalua.
    __read mdmabasic.
    __read mean_gtin.
    __read mlanpurch.
    __read mlansales.
    __read mlgnstor.
    __read mlgtstor.
    __read mpgdprodg.
    __read mrptxt.
    __read mvkegrpng.
    __read mvkesales.
    __read purchtxt.
    __read qinsptxt.
    __read qmatbasic.
    __read salestxt.
    __read unitofmsr.
    __read valuation.



    IF gv_debug_mode EQ abap_true.
      BREAK-POINT.
    ENDIF.
  ENDMETHOD.
ENDCLASS.
저작자표시

'ABAP > MDG 기준정보' 카테고리의 다른 글

MDG staging table 가비지 데이터 삭제 처리 프로그램  (0) 2023.06.15
MDG BP 생성/수정 CR 만드는 로직  (0) 2021.12.15

SAP의 가이드 문서 예제에는 Govenence API 를 사용했는데,

FPM UI에서 주로 사용하는 Convenience API 로 만들어 보았습니다.

 

코드:

 

FUNCTION ZMDP_CREATE_CR_SUPPL1P1.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  EXPORTING
*"     REFERENCE(EV_CR) TYPE  USMD_CREQUEST
*"     REFERENCE(EV_ERROR) TYPE  FLAG
*"     REFERENCE(ET_MESSAGE) TYPE  BAPIRET2_TAB
*"----------------------------------------------------------------------
  DATA: lo_mdg_api         TYPE REF TO if_usmd_conv_som_gov_api,
        lt_entity_data     TYPE usmd_gov_api_ts_ent_data,
        ls_entity_data     TYPE usmd_gov_api_s_ent_data,
        lo_cx_usmd_gov_api TYPE REF TO cx_usmd_gov_api,
        ls_message         TYPE bapiret2,
        lv_key_bp_header   TYPE /mdgbp/_s_bp_pp_bp_header-bp_header,
        lv_key_assgnm_id   TYPE /mdgbpx/_s_bp_pp_bp_mlt_as-assgnm_id,
        lv_key_addrno      TYPE /mdgbp/_s_bp_pp_bp_addr-addrno,
        lt_key_bp_header   TYPE TABLE OF /mdgbp/_s_bp_ky_bp_header,
        ls_key_bp_header   TYPE /mdgbp/_s_bp_ky_bp_header,
        lt_key_addrno      TYPE TABLE OF /mdgbp/_s_bp_ky_addrno,
        ls_key_addrno      TYPE /mdgbp/_s_bp_ky_addrno,
        lt_bp_header       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_header,
        ls_bp_header       TYPE /mdgbp/_s_bp_pp_bp_header,
        lt_bp_role         TYPE TABLE OF /mdgbp/_s_bp_pp_bp_role,
        ls_bp_role         TYPE /mdgbp/_s_bp_pp_bp_role,
        lt_bp_mlt_as       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_as,
        ls_bp_mlt_as       TYPE /mdgbpx/_s_bp_pp_bp_mlt_as,
        lt_bp_centrl       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_centrl,
        ls_bp_centrl       TYPE /mdgbp/_s_bp_pp_bp_centrl,
        lt_bp_vengen       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_vengen,
        ls_bp_vengen       TYPE /mdgbpx/_s_bp_pp_bp_vengen,
        lt_bp_porg         TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_porg,
        ls_bp_porg         TYPE /mdgbpx/_s_bp_pp_bp_porg,
        lt_bp_mlt_ad       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_ad,
        ls_bp_mlt_ad       TYPE /mdgbpx/_s_bp_pp_bp_mlt_ad,
        lt_address         TYPE TABLE OF /mdgbp/_s_bp_pp_address,
        ls_address         TYPE /mdgbp/_s_bp_pp_address,
        lt_bp_addr         TYPE TABLE OF /mdgbp/_s_bp_pp_bp_addr,
        ls_bp_addr         TYPE /mdgbp/_s_bp_pp_bp_addr,
        lt_bp_addusg       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_addusg,
        ls_bp_addusg       TYPE /mdgbp/_s_bp_pp_bp_addusg,
        lt_ad_name_o       TYPE TABLE OF /mdgbp/_s_bp_pp_ad_name_o,
        ls_ad_name_o       TYPE /mdgbp/_s_bp_pp_ad_name_o,
        lt_ad_postal       TYPE TABLE OF /mdgbp/_s_bp_pp_ad_postal,
        ls_ad_postal       TYPE /mdgbp/_s_bp_pp_ad_postal,
        lt_ad_tel          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_tel,
        ls_ad_tel          TYPE /mdgbp/_s_bp_pp_ad_tel,
        lt_ad_fax          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_fax,
        ls_ad_fax          TYPE /mdgbp/_s_bp_pp_ad_fax,
        lt_ad_url          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_url,
        ls_ad_url          TYPE /mdgbp/_s_bp_pp_ad_url,
        lv_index           TYPE i.

  CLEAR: ev_cr, ev_error, et_message.

  TRY.
********************************************************************************************
* 초기화.
********************************************************************************************
      cl_usmd_conv_som_gov_api=>get_instance(
        EXPORTING
          iv_model_name = 'BP'
        RECEIVING
          ro_so_gov_api = lo_mdg_api
      ).

      lo_mdg_api->refresh_buffers( ).
      lo_mdg_api->set_environment(
        EXPORTING
          iv_crequest_type   = 'SUPPL1P1'
          iv_process         = 'SUP1'
          iv_create_crequest = abap_true
      ).
      lo_mdg_api->set_crequest_attributes(
        EXPORTING
          iv_crequest_text   = |공급업체 생성 { sy-datum }|
      ).
      lo_mdg_api->enqueue_crequest( iv_lock_mode = 'E' ).




********************************************************************************************
* BP_HEADER
********************************************************************************************
      lo_mdg_api->create_entity_tmp_key(
        EXPORTING
          iv_entity = 'BP_HEADER'
        IMPORTING
          es_key    = ls_key_bp_header
      ).
      lv_key_bp_header = ls_key_bp_header-bp_header.

      CLEAR: ls_bp_header.
      ls_bp_header-bp_header = lv_key_bp_header.
      ls_bp_header-bp_guid = cl_system_uuid=>create_uuid_x16_static( ).
      ls_bp_header-bu_group = '0001'.
      ls_bp_header-bu_type = '2'.
      ls_bp_header-txtlg = 'test'.
      INSERT ls_bp_header INTO TABLE lt_bp_header.

      PERFORM write_entity USING lo_mdg_api 'BP_HEADER' lt_bp_header.

********************************************************************************************
* BP_ROLE
********************************************************************************************
      CLEAR: ls_bp_role.
      ls_bp_role-bp_header = lv_key_bp_header.
      ls_bp_role-bp_rol_id = 'FLVN01'.
      INSERT ls_bp_role INTO TABLE lt_bp_role.

      PERFORM write_entity USING lo_mdg_api 'BP_ROLE' lt_bp_role.

********************************************************************************************
* BP_MLT_AS
********************************************************************************************
      lv_key_assgnm_id = 1.
      CLEAR: ls_bp_mlt_as.
      ls_bp_mlt_as-bp_header = lv_key_bp_header.
      ls_bp_mlt_as-assgnm_id = lv_key_assgnm_id.
      ls_bp_mlt_as-as_type = 'SUPPL'.
      ls_bp_mlt_as-object_id = lv_key_bp_header.
      ls_bp_mlt_as-standard = abap_true.
      INSERT ls_bp_mlt_as INTO TABLE lt_bp_mlt_as.

      PERFORM write_entity USING lo_mdg_api 'BP_MLT_AS' lt_bp_mlt_as.

*********************************************************************************************
* ADDRNO
*********************************************************************************************
      lo_mdg_api->create_entity_tmp_key(
        EXPORTING
          iv_entity = 'ADDRNO'
        IMPORTING
          es_key    = ls_key_addrno
      ).
      lv_key_addrno = ls_key_addrno-addrno.

      INSERT ls_key_addrno INTO TABLE lt_key_addrno.

      PERFORM write_entity USING lo_mdg_api 'ADDRNO' lt_key_addrno.

*********************************************************************************************
* BP_MLT_AD
*********************************************************************************************
      CLEAR: ls_bp_mlt_ad.
      ls_bp_mlt_ad-addrno = 'XXDEFAULT'.
      ls_bp_mlt_ad-assgnm_id = lv_key_assgnm_id.
      ls_bp_mlt_ad-bp_header = lv_key_bp_header.
      INSERT ls_bp_mlt_ad INTO TABLE lt_bp_mlt_ad.

      PERFORM write_entity USING lo_mdg_api 'BP_MLT_AD' lt_bp_mlt_ad.

*********************************************************************************************
* ADDRESS
*********************************************************************************************
      CLEAR: ls_address.
      ls_address-bp_header = lv_key_bp_header.
      ls_address-addrno = lv_key_addrno.
      ls_address-type = 1.
      INSERT ls_address INTO TABLE lt_address.

      PERFORM write_entity USING lo_mdg_api 'ADDRESS' lt_address.

*********************************************************************************************
* BP_ADDR
*********************************************************************************************
      CLEAR: ls_bp_addr.
      ls_bp_addr-bp_header = lv_key_bp_header.
      ls_bp_addr-addrno = lv_key_addrno.
      ls_bp_addr-addr_guid = cl_system_uuid=>create_uuid_x16_static( ).
      INSERT ls_bp_addr INTO TABLE lt_bp_addr.

      PERFORM write_entity USING lo_mdg_api 'BP_ADDR' lt_bp_addr.

*********************************************************************************************
* BP_ADDUSG
*********************************************************************************************
      CLEAR: ls_bp_addusg.
      ls_bp_addusg-bp_header = lv_key_bp_header.
      ls_bp_addusg-addrno = lv_key_addrno.
      ls_bp_addusg-bp_adrknd = 'XXDEFAULT'.
      INSERT ls_bp_addusg INTO TABLE lt_bp_addusg.

      PERFORM write_entity USING lo_mdg_api 'BP_ADDUSG' lt_bp_addusg.

*********************************************************************************************
* AD_POSTAL
*********************************************************************************************
      CLEAR: ls_ad_postal.
      ls_ad_postal-bp_header = lv_key_bp_header.
      ls_ad_postal-addrno = lv_key_addrno.
      ls_ad_postal-ref_posta = 'KR'.
      ls_ad_postal-langu_com = '3'.
      ls_ad_postal-post_cod1 = '12345'.
      ls_ad_postal-city1 = '주소1'.
      ls_ad_postal-street = '주소2'.
      INSERT ls_ad_postal INTO TABLE lt_ad_postal.

      PERFORM write_entity USING lo_mdg_api 'AD_POSTAL' lt_ad_postal.

*AD_URL 인터넷 주소
*AD_TEL 전화번호
*AD_FAX 팩스번호
*AD_EMAIL 전자메일 주소

********************************************************************************************
* BP_CENTRL
********************************************************************************************
      CLEAR: ls_bp_centrl.
      ls_bp_centrl-bp_header = lv_key_bp_header.
*      ls_bp_centrl-bpkind = 'P001'.
*      ls_bp_centrl-title_bp = '0003'.
      ls_bp_centrl-name_org1 = 'test'.
      INSERT ls_bp_centrl INTO TABLE lt_bp_centrl.

      PERFORM write_entity USING lo_mdg_api 'BP_CENTRL' lt_bp_centrl.

********************************************************************************************
* BP_VENGEN
********************************************************************************************
      CLEAR: ls_bp_vengen.
      ls_bp_vengen-assgnm_id = lv_key_assgnm_id.
      ls_bp_vengen-bp_header = lv_key_bp_header.
      ls_bp_vengen-lifnr = lv_key_bp_header.
      ls_bp_vengen-ktokk = 'A000'.
      INSERT ls_bp_vengen INTO TABLE lt_bp_vengen.

      PERFORM write_entity USING lo_mdg_api 'BP_VENGEN' lt_bp_vengen.

**********************************************************************
*BP_PORG
**********************************************************************
      CLEAR: ls_bp_porg.
      ls_bp_porg-assgnm_id = lv_key_assgnm_id.
      ls_bp_porg-bp_header = lv_key_bp_header.
      ls_bp_porg-prch_org = '1100'.
      INSERT ls_bp_porg INTO TABLE lt_bp_porg.

      CLEAR: ls_bp_porg.
      ls_bp_porg-assgnm_id = lv_key_assgnm_id.
      ls_bp_porg-bp_header = lv_key_bp_header.
      ls_bp_porg-prch_org = '1200'.
      INSERT ls_bp_porg INTO TABLE lt_bp_porg.

      PERFORM write_entity USING lo_mdg_api 'BP_PORG' lt_bp_porg.



*VENGENTXT 텍스트(공급업체 일반 데이터)
*BP_VENVAL 공급업체: 특징 값(분류)
*BP_VENSUB 공급업체 하위 범위
*BP_VENDDB 문서 링크에 대한 기본 데이터
*BP_VENCLA 공급업체: 클래스 지정(분류)
*BP_TAXGRP 세금 그룹화(공급업체)
*BP_COMPNY 회사 코드




********************************************************************************************
* 저장.
********************************************************************************************
      lo_mdg_api->confirm_entity_data( ).
      lo_mdg_api->check( ).
      IF lo_mdg_api->mv_successfully_checked EQ abap_true.
        lo_mdg_api->set_action( cl_usmd_crequest_action=>gc_draft_action-submit ).
        lo_mdg_api->save( ).
        ev_cr = lo_mdg_api->mv_crequest_id.
      ENDIF.

    CATCH cx_uuid_error.
    CATCH cx_usmd_gov_api INTO lo_cx_usmd_gov_api.
      ev_error = abap_true.
  ENDTRY.


  PERFORM get_message USING lo_mdg_api et_message.
  lo_mdg_api->dequeue_entity_all( ).
  lo_mdg_api->dequeue_crequest( ).
  lo_mdg_api->refresh_buffers( ).


ENDFUNCTION.

FUNCTION ZMDP_CREATE_CR_SUPPL2P1.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IV_BP_ID) TYPE  BU_BUSINESSPARTNER
*"  EXPORTING
*"     REFERENCE(EV_CR) TYPE  USMD_CREQUEST
*"     REFERENCE(EV_ERROR) TYPE  FLAG
*"     REFERENCE(ET_MESSAGE) TYPE  BAPIRET2_TAB
*"----------------------------------------------------------------------
  DATA: lo_mdg_api         TYPE REF TO if_usmd_conv_som_gov_api,
        lo_usmd_model      TYPE REF TO if_usmd_model_ext,
        lt_sel             TYPE usmd_ts_sel,
        lo_cx_usmd_gov_api TYPE REF TO cx_usmd_gov_api,
        ls_message         TYPE bapiret2,
        lv_key_bp_header   TYPE /mdgbp/_s_bp_pp_bp_header-bp_header,
        lv_key_assgnm_id   TYPE /mdgbpx/_s_bp_pp_bp_mlt_as-assgnm_id,
        lv_key_addrno      TYPE /mdgbp/_s_bp_pp_bp_addr-addrno,
        lt_key_bp_header   TYPE TABLE OF /mdgbp/_s_bp_ky_bp_header,
        ls_key_bp_header   TYPE /mdgbp/_s_bp_ky_bp_header,
        lt_key_addrno      TYPE TABLE OF /mdgbp/_s_bp_ky_addrno,
        ls_key_addrno      TYPE /mdgbp/_s_bp_ky_addrno,
        lt_bp_header       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_header,
        ls_bp_header       TYPE /mdgbp/_s_bp_pp_bp_header,
        lt_bp_role         TYPE TABLE OF /mdgbp/_s_bp_pp_bp_role,
        ls_bp_role         TYPE /mdgbp/_s_bp_pp_bp_role,
        lt_bp_mlt_as       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_as,
        ls_bp_mlt_as       TYPE /mdgbpx/_s_bp_pp_bp_mlt_as,
        lt_bp_centrl       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_centrl,
        ls_bp_centrl       TYPE /mdgbp/_s_bp_pp_bp_centrl,
        lt_bp_vengen       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_vengen,
        ls_bp_vengen       TYPE /mdgbpx/_s_bp_pp_bp_vengen,
        lt_bp_porg         TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_porg,
        ls_bp_porg         TYPE /mdgbpx/_s_bp_pp_bp_porg,
        lt_bp_mlt_ad       TYPE TABLE OF /mdgbpx/_s_bp_pp_bp_mlt_ad,
        ls_bp_mlt_ad       TYPE /mdgbpx/_s_bp_pp_bp_mlt_ad,
        lt_address         TYPE TABLE OF /mdgbp/_s_bp_pp_address,
        ls_address         TYPE /mdgbp/_s_bp_pp_address,
        lt_bp_addr         TYPE TABLE OF /mdgbp/_s_bp_pp_bp_addr,
        ls_bp_addr         TYPE /mdgbp/_s_bp_pp_bp_addr,
        lt_bp_addusg       TYPE TABLE OF /mdgbp/_s_bp_pp_bp_addusg,
        ls_bp_addusg       TYPE /mdgbp/_s_bp_pp_bp_addusg,
        lt_ad_name_o       TYPE TABLE OF /mdgbp/_s_bp_pp_ad_name_o,
        ls_ad_name_o       TYPE /mdgbp/_s_bp_pp_ad_name_o,
        lt_ad_postal       TYPE TABLE OF /mdgbp/_s_bp_pp_ad_postal,
        ls_ad_postal       TYPE /mdgbp/_s_bp_pp_ad_postal,
        lt_ad_tel          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_tel,
        ls_ad_tel          TYPE /mdgbp/_s_bp_pp_ad_tel,
        lt_ad_fax          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_fax,
        ls_ad_fax          TYPE /mdgbp/_s_bp_pp_ad_fax,
        lt_ad_url          TYPE TABLE OF /mdgbp/_s_bp_pp_ad_url,
        ls_ad_url          TYPE /mdgbp/_s_bp_pp_ad_url,
        lv_index           TYPE i.

  CLEAR: ev_cr, ev_error, et_message.

  TRY.
********************************************************************************************
* 초기화.
********************************************************************************************
      cl_usmd_conv_som_gov_api=>get_instance(
        EXPORTING
          iv_model_name = 'BP'
        RECEIVING
          ro_so_gov_api = lo_mdg_api
      ).
      cl_usmd_model_ext=>get_instance(
        EXPORTING
          i_usmd_model = 'BP'
        IMPORTING
          eo_instance  = lo_usmd_model
      ).
      lv_key_bp_header = iv_bp_id.
      lt_sel = VALUE #( ( fieldname = 'BP_HEADER' sign = 'I' option = 'EQ' low = lv_key_bp_header ) ).

********************************************************************************************
* BP_HEADER
********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_HEADER' lt_sel lt_bp_header.
      IF lt_bp_header IS INITIAL.
        " IV_BP_ID 에 해당하는 BP가 없음. 에러 처리.
        ev_error = abap_true.
        RETURN.
      ENDIF.

********************************************************************************************
* BP_MLT_AS
********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_MLT_AS' lt_sel lt_bp_mlt_as.
      READ TABLE lt_bp_mlt_as INTO ls_bp_mlt_as WITH KEY as_type = 'SUPPL'.
      IF sy-subrc EQ 0.
        lv_key_assgnm_id = ls_bp_mlt_as-assgnm_id.
      ELSE.
        " C/V 유형 다름. 에러 처리.
        ev_error = abap_true.
        RETURN.
      ENDIF.


********************************************************************************************
* CR 생성
********************************************************************************************
      lo_mdg_api->refresh_buffers( ).
      lo_mdg_api->set_environment(
        EXPORTING
          iv_crequest_type   = 'SUPPL2P1'
          iv_process         = 'SUP2'
          iv_create_crequest = abap_true
      ).
      lo_mdg_api->set_crequest_attributes(
        EXPORTING
          iv_crequest_text   = |공급업체 변경 { sy-datum }|
      ).
      lo_mdg_api->enqueue_crequest( iv_lock_mode = 'E' ).

      ls_key_bp_header-bp_header = lv_key_bp_header.
      APPEND ls_key_bp_header TO lt_key_bp_header.
      lo_mdg_api->enqueue_entity( VALUE #( ( entity = 'BP_HEADER' tabl = REF #( lt_key_bp_header ) ) ) ).

********************************************************************************************
* BP_ROLE
********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_ROLE' lt_sel lt_bp_role.
      PERFORM write_entity USING lo_mdg_api 'BP_ROLE' lt_bp_role.

*********************************************************************************************
* BP_ADDR
*********************************************************************************************

      PERFORM read_entity USING lo_usmd_model 'BP_ADDR' lt_sel lt_bp_addr.
      IF lt_bp_addr IS NOT INITIAL.
        READ TABLE lt_bp_addr INTO ls_bp_addr INDEX 1.
        lv_key_addrno = ls_bp_addr-addrno.
        ls_key_addrno-addrno = lv_key_addrno.
        INSERT ls_key_addrno INTO TABLE lt_key_addrno.
      ELSE.
        " 기존에 주소가 없는 경우.
        lo_mdg_api->create_entity_tmp_key(
          EXPORTING
            iv_entity = 'ADDRNO'
          IMPORTING
            es_key    = ls_key_addrno
        ).
        lv_key_addrno = ls_key_addrno-addrno.
        INSERT ls_key_addrno INTO TABLE lt_key_addrno.
        PERFORM write_entity USING lo_mdg_api 'ADDRNO' lt_key_addrno.

        CLEAR: ls_bp_addr.
        ls_bp_addr-bp_header = lv_key_bp_header.
        ls_bp_addr-addrno = lv_key_addrno.
        ls_bp_addr-addr_guid = cl_system_uuid=>create_uuid_x16_static( ).
        INSERT ls_bp_addr INTO TABLE lt_bp_addr.
        PERFORM write_entity USING lo_mdg_api 'BP_ADDR' lt_bp_addr.

        CLEAR: ls_bp_addusg.
        ls_bp_addusg-bp_header = lv_key_bp_header.
        ls_bp_addusg-addrno = lv_key_addrno.
        ls_bp_addusg-bp_adrknd = 'XXDEFAULT'.
        INSERT ls_bp_addusg INTO TABLE lt_bp_addusg.
        PERFORM write_entity USING lo_mdg_api 'BP_ADDUSG' lt_bp_addusg.

        CLEAR: ls_address.
        ls_address-bp_header = lv_key_bp_header.
        ls_address-addrno = lv_key_addrno.
        ls_address-type = 1.
        INSERT ls_address INTO TABLE lt_address.
        PERFORM write_entity USING lo_mdg_api 'ADDRESS' lt_address.

      ENDIF.

*********************************************************************************************
* BP_MLT_AD
*********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_MLT_AD' lt_sel lt_bp_mlt_ad.
      PERFORM write_entity USING lo_mdg_api 'BP_MLT_AD' lt_bp_mlt_ad.

*********************************************************************************************
* AD_POSTAL
*********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'AD_POSTAL' lt_sel lt_ad_postal.
      LOOP AT lt_ad_postal INTO ls_ad_postal.
        ls_ad_postal-ref_posta = 'KR'.
        MODIFY lt_ad_postal FROM ls_ad_postal.
      ENDLOOP.
      PERFORM write_entity USING lo_mdg_api 'AD_POSTAL' lt_ad_postal.

*AD_URL 인터넷 주소
*AD_TEL 전화번호
*AD_FAX 팩스번호
*AD_EMAIL 전자메일 주소

********************************************************************************************
* BP_CENTRL
********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_CENTRL' lt_sel lt_bp_centrl.
      PERFORM write_entity USING lo_mdg_api 'BP_CENTRL' lt_bp_centrl.

********************************************************************************************
* BP_VENGEN
********************************************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_VENGEN' lt_sel lt_bp_vengen.
      PERFORM write_entity USING lo_mdg_api 'BP_VENGEN' lt_bp_vengen.

**********************************************************************
*BP_PORG
**********************************************************************
      PERFORM read_entity USING lo_usmd_model 'BP_PORG' lt_sel lt_bp_porg.
      PERFORM write_entity USING lo_mdg_api 'BP_PORG' lt_bp_porg.



*VENGENTXT 텍스트(공급업체 일반 데이터)
*BP_VENVAL 공급업체: 특징 값(분류)
*BP_VENSUB 공급업체 하위 범위
*BP_VENDDB 문서 링크에 대한 기본 데이터
*BP_VENCLA 공급업체: 클래스 지정(분류)
*BP_TAXGRP 세금 그룹화(공급업체)
*BP_COMPNY 회사 코드




********************************************************************************************
* 저장.
********************************************************************************************
      lo_mdg_api->confirm_entity_data( ).
      lo_mdg_api->check( ).
      IF lo_mdg_api->mv_successfully_checked EQ abap_true.
        lo_mdg_api->set_action( cl_usmd_crequest_action=>gc_draft_action-submit ).
        lo_mdg_api->save( ).
        ev_cr = lo_mdg_api->mv_crequest_id.
      ENDIF.

    CATCH cx_uuid_error.
    CATCH cx_usmd_gov_api INTO lo_cx_usmd_gov_api.
      ev_error = abap_true.
  ENDTRY.


  PERFORM get_message USING lo_mdg_api et_message.
  lo_mdg_api->dequeue_entity_all( ).
  lo_mdg_api->dequeue_crequest( ).
  lo_mdg_api->refresh_buffers( ).


ENDFUNCTION.


FUNCTION zmdp_conv_usmdmsg_to_bapiret2.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IS_USMDMSG) TYPE  USMD_S_MESSAGE
*"  EXPORTING
*"     REFERENCE(ES_BAPIRET2) TYPE  BAPIRET2
*"----------------------------------------------------------------------
  CLEAR: es_bapiret2.

  MESSAGE ID is_usmdmsg-msgid TYPE is_usmdmsg-msgty NUMBER is_usmdmsg-msgno
    WITH is_usmdmsg-msgv1 is_usmdmsg-msgv2 is_usmdmsg-msgv3 is_usmdmsg-msgv4
    INTO es_bapiret2-message.


  es_bapiret2-type = sy-msgty.
  es_bapiret2-id = sy-msgid.
  es_bapiret2-number = sy-msgno.
  es_bapiret2-message_v1 = sy-msgv1.
  es_bapiret2-message_v2 = sy-msgv2.
  es_bapiret2-message_v3 = sy-msgv3.
  es_bapiret2-message_v4 = sy-msgv4.
  es_bapiret2-row = is_usmdmsg-row.
  es_bapiret2-field = is_usmdmsg-fieldname.

ENDFUNCTION.



FORM write_entity USING io_mdg_api iv_entity it_data.
  DATA: lo_mdg_api     TYPE REF TO if_usmd_conv_som_gov_api,
        lt_entity_data TYPE usmd_gov_api_ts_ent_data,
        ls_entity_data TYPE usmd_gov_api_s_ent_data.

  lo_mdg_api = io_mdg_api.

  CLEAR: lt_entity_data, ls_entity_data.
  ls_entity_data-entity = iv_entity.
  ls_entity_data-entity_data = REF #( it_data ).
  APPEND ls_entity_data TO lt_entity_data.

  lo_mdg_api->write_entity_data( it_entity_data = lt_entity_data ).
ENDFORM.
FORM read_entity USING io_usmd_model iv_entity it_sel et_data.
  DATA: lo_usmd_model  TYPE REF TO if_usmd_model_ext.

  lo_usmd_model = io_usmd_model.
  lo_usmd_model->read_char_value(
    EXPORTING
      i_fieldname       = iv_entity
      it_sel            = it_sel
      if_no_flush       = abap_true
    IMPORTING
      et_data           = et_data
  ).
ENDFORM.
FORM get_message USING io_mdg_api TYPE REF TO if_usmd_conv_som_gov_api
                       et_message TYPE bapiret2_tab.
  DATA: lt_usmd_msg TYPE usmd_t_message,
        ls_usmd_msg TYPE usmd_s_message,
        ls_bapiret2 TYPE bapiret2.

  lt_usmd_msg = io_mdg_api->get_messages( ).

  LOOP AT lt_usmd_msg INTO ls_usmd_msg.
    IF ls_usmd_msg-msgid EQ 'MDG_BS_BP' AND ls_usmd_msg-msgno EQ '057'.
      " 필요 없는 메시지.
      CONTINUE.
    ENDIF.
    CALL FUNCTION 'ZMDP_CONV_USMDMSG_TO_BAPIRET2'
      EXPORTING
        is_usmdmsg  = ls_usmd_msg
      IMPORTING
        es_bapiret2 = ls_bapiret2.
    APPEND ls_bapiret2 TO et_message.
  ENDLOOP.

ENDFORM.
저작자표시

'ABAP > MDG 기준정보' 카테고리의 다른 글

MDG staging table 가비지 데이터 삭제 처리 프로그램  (0) 2023.06.15
ZCL_MDP_READ_HELPER  (0) 2021.12.15

패키지를 내부 오브젝트 포함하여 한방에 삭제하는 방법이 없습니다.

abapGit을 사용하면 가능한데요.

 

저작자표시 변경금지

'ABAP > abapGit' 카테고리의 다른 글

abap2json  (0) 2023.06.09
KR_POSTCODE : 한국주소입력 Version 2.0  (3) 2021.07.09
abapGit 활용 - 패키지(개발클래스) 전체 다운로드  (0) 2021.07.07
abapGit 으로 프로그램 설치하기 간단하게 설명  (0) 2021.07.02
abap2xlsx helper  (0) 2021.07.02

https://github.com/boy0korea/KR_POSTCODE

 

boy0korea/KR_POSTCODE

South Korea Postal Code in ABAP & WDA & FPM. Contribute to boy0korea/KR_POSTCODE development by creating an account on GitHub.

github.com

KR_POSTCODE 는 SAP용 주소입력 API 입니다.

다음주소API 화면을 ABAP(or WDA or FPM) 에서 호출 하고 결과를 받을 수 있습니다.

스탠다드 주소 입력 부분을 enhnace 했기 때문에 KR 국가 선택시 서치헬프로 입력할 수 있습니다.

 

 

 

저작자표시 변경금지

'ABAP > abapGit' 카테고리의 다른 글

abap2json  (0) 2023.06.09
abapGit 활용 - 패키지(개발클래스) 전체 삭제  (0) 2021.07.15
abapGit 활용 - 패키지(개발클래스) 전체 다운로드  (0) 2021.07.07
abapGit 으로 프로그램 설치하기 간단하게 설명  (0) 2021.07.02
abap2xlsx helper  (0) 2021.07.02

오른쪽 상단의 도구 모양 아이콘 누르고

Package to ZIP

끝.

 

다른곳에 설치하는 방법은 아래 링크를 참고하세요.

https://boy0.tistory.com/174

 

abapGit 으로 프로그램 설치하기 간단하게 설명

자세한 설명은 다음 글을 참고하세요. [번역] abapGit 설치 방법 간단하게 설명합니다. https://raw.githubusercontent.com/abapGit/build/main/zabapgit.abap 위 파일을 다운로드 해서 SE38로 프로그램을 만듭니..

boy0.tistory.com

 

저작자표시 변경금지

'ABAP > abapGit' 카테고리의 다른 글

abapGit 활용 - 패키지(개발클래스) 전체 삭제  (0) 2021.07.15
KR_POSTCODE : 한국주소입력 Version 2.0  (3) 2021.07.09
abapGit 으로 프로그램 설치하기 간단하게 설명  (0) 2021.07.02
abap2xlsx helper  (0) 2021.07.02
[번역] abapGit 설치 방법  (0) 2021.05.08

ABAP method parameters

 

    DATA: lt_callstack   TYPE abap_callstack,
          ls_callstack   TYPE abap_callstack_line,
          lo_class_desc  TYPE REF TO cl_abap_classdescr,
          ls_method_desc TYPE abap_methdescr,
          ls_param_desc  TYPE abap_parmdescr.
    FIELD-SYMBOLS: <lv_value> TYPE any.

    CALL FUNCTION 'SYSTEM_CALLSTACK'
      EXPORTING
        max_level = 1
      IMPORTING
        callstack = lt_callstack.
    READ TABLE lt_callstack INTO ls_callstack INDEX 1.
    lo_class_desc ?= cl_abap_classdescr=>describe_by_name( cl_oo_classname_service=>get_clsname_by_include( ls_callstack-include ) ).
    READ TABLE lo_class_desc->methods INTO ls_method_desc WITH KEY name = ls_callstack-blockname.
    LOOP AT ls_method_desc-parameters INTO ls_param_desc.
      ASSIGN (ls_param_desc-name) TO <lv_value>.
      " ...

    ENDLOOP.
저작자표시 변경금지

'ABAP > ABAP-OO' 카테고리의 다른 글

ABAP OOP tutorial  (0) 2021.05.31
[Link] ABAP OO 동영상 강좌  (0) 2016.11.16
[번역] ABAP RTTI 동적 스트럭쳐, 인터널테이블 생성  (0) 2014.03.24
ABAP 클래스 UML 표시  (0) 2011.12.21
[Link] ABAP Freak Show  (0) 2010.11.11

+ Recent posts

티스토리툴바