#new_record

[tr-bayzid-blog]

When Dreams Come true😎😎😎 #new_record #new_experience (at Khoiyachora jhorna খইয়্যাছরা ঝরনা) https://www.instagram.com/p/Bs0a773ADMs/?utm_source=ig_tumblr_share&igshid=164xf0lf2jy3m

[wetheworldmagz]

Setting a new record in combating COVID19, the national capital has conducted over 1 crore coronavirus tests, which is equivalent to 50 percent of Delhi's population, said Chief Minister Arvind Kejriwal on Wednesday.

[craigbrownphd-blog-blog]

ABAP FM Create Material Price Condition With Reference to Another Material (RV_CONDITION_COPY)

Sometimes you may need to copy (create) price conditions from one material to another. Below you can find the Function Module doing this. The FM takes the reference material price condition and create a new condition for the new material. Import Parameters: P_MATCFG TYPE MARA-MATNR Reference Material F_MATNR TYPE MARA-MATNR The Material to Create Condition P_WERKS TYPE WERKS-WERKS Plant P_KSCHL TYPE T685-KSCHL Condition Type P_PLTYP TYPE T189-PLTYP Price List We will be using * PR00 and PR01 as KSCHL (Condition Type) * A699 (Condition Table for Pricing A699) table * A650 (Condition Table for Pricing A650) table I create other FM’s to get the reference material price and dates. I also included this FM’s below. Here is the source code: ZMA_F_CREATE_PRICE_COND_WR function ZMA_F_CREATE_PRICE_COND_WR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(P_MATCFG) TYPE MARA-MATNR *" REFERENCE(F_MATNR) TYPE MARA-MATNR *" REFERENCE(P_WERKS) TYPE WERKS-WERKS *" REFERENCE(P_KSCHL) TYPE T685-KSCHL *" REFERENCE(P_PLTYP) TYPE T189-PLTYP *"---------------------------------------------------------------------- data: cr like table of komv with header line, " copy_records nr, key_fields like table of komg with header line, wa_komk like komk, komk like table of komk, wa_komp like komp, komp like table of komp, lv_datab like sy-datum, lv_datbi like sy-datum. cr-mandt = sy-mandt. cr-kappl = 'V'. cr-kschl = p_kschl. data: lv_price type konp-kbetr. if p_kschl = 'PR00'. clear: lv_price. call function 'ZMA_F_GET_PRICE_BYMATNR' exporting i_kappl = 'V' i_kschl = p_kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. elseif p_kschl = 'PR01'. clear: lv_price. " Is PR01 condition exist for this material? if p_pltyp = '01'. " Does not exist call function 'ZMA_F_GET_PRICE_BYMATNR_PR01' exporting i_kappl = 'V' i_kschl = p_kschl i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. else. exit. endif. endif. check lv_price > 0. if p_kschl = 'PR00'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. elseif p_kschl = 'PR01'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES2' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. endif. cr-kpein = '1'. cr-kmein = 'ST'. key_fields-mandt = sy-mandt. key_fields-werks = p_werks. key_fields-matnr = f_matnr. key_fields-pltyp = p_pltyp. key_fields-pltyp_d = p_pltyp. append cr. data wa_pispr like table of pispr with header line. wa_pispr-matnr = p_matcfg. wa_pispr-werks = p_werks. wa_pispr-waerk = cr-waers. append wa_pispr. call function 'SPR_KOMK_KOMP_FILL' exporting pi_i_spr = wa_pispr importing pe_i_komk = wa_komk pe_i_komp = wa_komp. wa_komk-mandt = sy-mandt. wa_komk-pltyp = p_pltyp. wa_komp-matnr = f_matnr. wa_komp-pmatn = f_matnr. wa_komp-pltyp_p = p_pltyp. select single mtart from mara into wa_komp-mtart where matnr = f_matnr. data: condition_table like t681-kotabnr. if p_kschl = 'PR00'. condition_table = '699'. elseif p_kschl = 'PR01'. condition_table = '650'. endif. call function 'RV_CONDITION_COPY' exporting application = 'V' condition_table = condition_table condition_type = p_kschl date_from = lv_datab date_to = lv_datbi * enqueue = 'X' i_komk = wa_komk i_komp = wa_komp key_fields = key_fields maintain_mode = 'A' no_authority_check = 'X' keep_old_records = 'X' overlap_confirmed = 'X' importing e_komk = wa_komk e_komp = wa_komp new_record = nr tables copy_records = cr exceptions enqueue_on_record = 01 invalid_application = 02 invalid_condition_number = 03 invalid_condition_type = 04 no_authority_ekorg = 05 no_authority_kschl = 06 no_authority_vkorg = 07 no_selection = 08 table_not_valid = 09. call function 'RV_CONDITION_SAVE'. commit work. call function 'RV_CONDITION_RESET'. endfunction.   ZMA_F_GET_PRICE_BYMATNR Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) Source Code: FUNCTION ZMA_F_GET_PRICE_BYMATNR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A699 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~pltyp = I_PLTYP AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_PR01 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) FUNCTION ZMA_F_GET_PRICE_BYMATNR_PR01. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A650 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION zma_f_get_price_bymatnr_dates. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a699 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES2 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION ZMA_F_GET_PRICE_BYMATNR_DATES2. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a650 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl "AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   I hope it can help you in your projects. If you have any questions or comments, please do not hesitate to write http://bit.ly/2jEq47u #SAP #SAPCloud #AI

[redwhite7]

Με τη νίκη επί του Πανιώνιου ο Θρύλος έφτασε τις 700 νίκες στην #BasketLeague! Και εις ανώτερα Θρύλε! #Red_White #Olympiacos #New_Record

[sekitan]

コールバックの種類 コールバックとは、バリデーションの実行やデータベースへの保存などのタイミングで処理を行うための機能です。 あるタイミングで必ず実行する必要がある処理をコールバックに指定することで、モデルの一貫性を保つことができます。 Rails のコールバックの種類をまとめてみると、非常に多いことが分かります。   after_find 検索メソッドでオブジェクトが見つかったタイミングで実行されます。 検索条件を指定せずに all メソッドを呼び出すなど、検索結果が大量になる場合は注意が必要です。 検索結果の数だけコールバックが実行されますので、パフォーマンスに重大な影響を及ぼす可能性があります。   after_initialize オブジェクトがインスタンス化されたタイミングで実行されます。 User.new のようにインスタンス化した場合は、after_find は実行されずに after_initialize のみが実行されます。 after_find と同様、検索条件を指定せずに all メソッドを呼び出すなど、検索結果が大量になる場合は注意が必要です。 インスタンス化された分だけコールバックが実行されますので、パフォーマンスに重大な影響を及ぼす可能性があります。   before_validation バリデーションが行われる直前で実行されます。 主にバリデーション前に属性値を微調整する場合に用いられます。 このタイミングでは属性値にどのような型のどのような値が設定されているか保証は無いことに注意しましょう。 データベース上では文字列型であっても、数値が代入されているかもしれませんし、nil であるかもしれませんので、想定外のエラーが発生しないように気を付けましょう。   after_validation バリデーションが行われた直後に実行されます。 バリデーションに成功した後ではなく、単純にバリデーションが行なわれた後に実行されます。 そのため、before_validation と同様に、属性値にどのような型の値が設定されているか分かりませんし、nil であるかもしれません。   before_save バリデーションに成功し、実際にオブジェクトが保存される直前で実行されます。 INSERT される場合も、UPDATE される場合も呼び出されます。 INSERT もしくは UPDATE の場合だけ実行したい処理があるときは、後述する before_create / before_update を使用します。   before_create / before_update before_save の後に実行されます。 オブジェクトが登録されるとき (new_record? が true のとき) は before_create が実行されます。 オブジェクトが更新されるとき (new_record? が false のとき) は before_update が実行されます。 登録と更新のどちらの場合にも同じ処理を行うのであれば、before_save を使用すると便利です。   after_create / after_update オブジェクトが保存された直後 (after_save の直前) に実行されます。 オブジェクトが登録されたときは after_create、更新されたときは after_update が実行されます。 登録と更新のどちらの場合にも同じ処理を行うのであれば、after_save を使用すると便利です。   after_save after_create / after_update の直後、データベースへの COMMIT の直前に実行されます。 保存されたオブジェクトの関連オブジェクトを操作するなど、データベースで言うトリガーのような処理を行なう場合に使用します。   after_commit after_save の後（データベースに COMMIT された後）に実行されます。   after_rollback バリデーションエラーや SQL 実行時にエラーが発生した場合に実行されます。   after_touch touch メソッドが呼び出された直後に実行されます。 この場合は before_save や after_save など他のコールバックは実行されません。   before_destroy destroy メソッドでオブジェクトが削除される直前に実行されます。 削除の場合は before_destroy → after_destroy → after_commit の順番で実行されます。 注意として delete/delete_all メソッドで削除した場合はコールバックが呼び出されません。   after_destroy オブジェクトが削除された直後に実行されます。 データベース外で管理しているリソースを削除する場合などに使用することが多いでしょう。

» Railsのコールバックまとめ TECHSCORE BLOG

[nados-bazzan]

#GYMAHOLIC #back_day #pull_down #new_record #heavy_weight #150Kg #BEAST_MODE_ACTIVATED @muhamedbazzan (at Titanium gym)

[wetheworldmagz]

Equity benchmark indices scaled new record highs during early hours on Thursday with the Sensex crossing 50,000 marks for the first time.

[craigbrownphd-blog-blog]

ABAP FM Create Material Price Condition With Reference to Another Material (RV_CONDITION_COPY)

Sometimes you may need to copy (create) price conditions from one material to another. Below you can find the Function Module doing this. The FM takes the reference material price condition and create a new condition for the new material. Import Parameters: P_MATCFG TYPE MARA-MATNR Reference Material F_MATNR TYPE MARA-MATNR The Material to Create Condition P_WERKS TYPE WERKS-WERKS Plant P_KSCHL TYPE T685-KSCHL Condition Type P_PLTYP TYPE T189-PLTYP Price List We will be using * PR00 and PR01 as KSCHL (Condition Type) * A699 (Condition Table for Pricing A699) table * A650 (Condition Table for Pricing A650) table I create other FM’s to get the reference material price and dates. I also included this FM’s below. Here is the source code: ZMA_F_CREATE_PRICE_COND_WR function ZMA_F_CREATE_PRICE_COND_WR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(P_MATCFG) TYPE MARA-MATNR *" REFERENCE(F_MATNR) TYPE MARA-MATNR *" REFERENCE(P_WERKS) TYPE WERKS-WERKS *" REFERENCE(P_KSCHL) TYPE T685-KSCHL *" REFERENCE(P_PLTYP) TYPE T189-PLTYP *"---------------------------------------------------------------------- data: cr like table of komv with header line, " copy_records nr, key_fields like table of komg with header line, wa_komk like komk, komk like table of komk, wa_komp like komp, komp like table of komp, lv_datab like sy-datum, lv_datbi like sy-datum. cr-mandt = sy-mandt. cr-kappl = 'V'. cr-kschl = p_kschl. data: lv_price type konp-kbetr. if p_kschl = 'PR00'. clear: lv_price. call function 'ZMA_F_GET_PRICE_BYMATNR' exporting i_kappl = 'V' i_kschl = p_kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. elseif p_kschl = 'PR01'. clear: lv_price. " Is PR01 condition exist for this material? if p_pltyp = '01'. " Does not exist call function 'ZMA_F_GET_PRICE_BYMATNR_PR01' exporting i_kappl = 'V' i_kschl = p_kschl i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. else. exit. endif. endif. check lv_price > 0. if p_kschl = 'PR00'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. elseif p_kschl = 'PR01'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES2' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. endif. cr-kpein = '1'. cr-kmein = 'ST'. key_fields-mandt = sy-mandt. key_fields-werks = p_werks. key_fields-matnr = f_matnr. key_fields-pltyp = p_pltyp. key_fields-pltyp_d = p_pltyp. append cr. data wa_pispr like table of pispr with header line. wa_pispr-matnr = p_matcfg. wa_pispr-werks = p_werks. wa_pispr-waerk = cr-waers. append wa_pispr. call function 'SPR_KOMK_KOMP_FILL' exporting pi_i_spr = wa_pispr importing pe_i_komk = wa_komk pe_i_komp = wa_komp. wa_komk-mandt = sy-mandt. wa_komk-pltyp = p_pltyp. wa_komp-matnr = f_matnr. wa_komp-pmatn = f_matnr. wa_komp-pltyp_p = p_pltyp. select single mtart from mara into wa_komp-mtart where matnr = f_matnr. data: condition_table like t681-kotabnr. if p_kschl = 'PR00'. condition_table = '699'. elseif p_kschl = 'PR01'. condition_table = '650'. endif. call function 'RV_CONDITION_COPY' exporting application = 'V' condition_table = condition_table condition_type = p_kschl date_from = lv_datab date_to = lv_datbi * enqueue = 'X' i_komk = wa_komk i_komp = wa_komp key_fields = key_fields maintain_mode = 'A' no_authority_check = 'X' keep_old_records = 'X' overlap_confirmed = 'X' importing e_komk = wa_komk e_komp = wa_komp new_record = nr tables copy_records = cr exceptions enqueue_on_record = 01 invalid_application = 02 invalid_condition_number = 03 invalid_condition_type = 04 no_authority_ekorg = 05 no_authority_kschl = 06 no_authority_vkorg = 07 no_selection = 08 table_not_valid = 09. call function 'RV_CONDITION_SAVE'. commit work. call function 'RV_CONDITION_RESET'. endfunction.   ZMA_F_GET_PRICE_BYMATNR Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) Source Code: FUNCTION ZMA_F_GET_PRICE_BYMATNR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A699 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~pltyp = I_PLTYP AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_PR01 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) FUNCTION ZMA_F_GET_PRICE_BYMATNR_PR01. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A650 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION zma_f_get_price_bymatnr_dates. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a699 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES2 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION ZMA_F_GET_PRICE_BYMATNR_DATES2. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a650 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl "AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   I hope it can help you in your projects. If you have any questions or comments, please do not hesitate to write http://bit.ly/2hDgy3K #SAP #SAPCloud #AI

[craigbrownphd-blog-blog]

ABAP FM Create Material Price Condition With Reference to Another Material (RV_CONDITION_COPY)

Sometimes you may need to copy (create) price conditions from one material to another. Below you can find the Function Module doing this. The FM takes the reference material price condition and create a new condition for the new material. Import Parameters: P_MATCFG TYPE MARA-MATNR Reference Material F_MATNR TYPE MARA-MATNR The Material to Create Condition P_WERKS TYPE WERKS-WERKS Plant P_KSCHL TYPE T685-KSCHL Condition Type P_PLTYP TYPE T189-PLTYP Price List We will be using * PR00 and PR01 as KSCHL (Condition Type) * A699 (Condition Table for Pricing A699) table * A650 (Condition Table for Pricing A650) table I create other FM’s to get the reference material price and dates. I also included this FM’s below. Here is the source code: ZMA_F_CREATE_PRICE_COND_WR function ZMA_F_CREATE_PRICE_COND_WR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(P_MATCFG) TYPE MARA-MATNR *" REFERENCE(F_MATNR) TYPE MARA-MATNR *" REFERENCE(P_WERKS) TYPE WERKS-WERKS *" REFERENCE(P_KSCHL) TYPE T685-KSCHL *" REFERENCE(P_PLTYP) TYPE T189-PLTYP *"---------------------------------------------------------------------- data: cr like table of komv with header line, " copy_records nr, key_fields like table of komg with header line, wa_komk like komk, komk like table of komk, wa_komp like komp, komp like table of komp, lv_datab like sy-datum, lv_datbi like sy-datum. cr-mandt = sy-mandt. cr-kappl = 'V'. cr-kschl = p_kschl. data: lv_price type konp-kbetr. if p_kschl = 'PR00'. clear: lv_price. call function 'ZMA_F_GET_PRICE_BYMATNR' exporting i_kappl = 'V' i_kschl = p_kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. elseif p_kschl = 'PR01'. clear: lv_price. " Is PR01 condition exist for this material? if p_pltyp = '01'. " Does not exist call function 'ZMA_F_GET_PRICE_BYMATNR_PR01' exporting i_kappl = 'V' i_kschl = p_kschl i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = lv_price. else. exit. endif. endif. check lv_price > 0. if p_kschl = 'PR00'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. elseif p_kschl = 'PR01'. call function 'ZMA_F_GET_PRICE_BYMATNR_DATES2' exporting i_kappl = cr-kappl i_kschl = cr-kschl i_pltyp = p_pltyp i_matnr = p_matcfg i_date = sy-datum importing e_kbetr = cr-kbetr e_konwa = cr-waers e_datab = lv_datab e_datbi = lv_datbi. endif. cr-kpein = '1'. cr-kmein = 'ST'. key_fields-mandt = sy-mandt. key_fields-werks = p_werks. key_fields-matnr = f_matnr. key_fields-pltyp = p_pltyp. key_fields-pltyp_d = p_pltyp. append cr. data wa_pispr like table of pispr with header line. wa_pispr-matnr = p_matcfg. wa_pispr-werks = p_werks. wa_pispr-waerk = cr-waers. append wa_pispr. call function 'SPR_KOMK_KOMP_FILL' exporting pi_i_spr = wa_pispr importing pe_i_komk = wa_komk pe_i_komp = wa_komp. wa_komk-mandt = sy-mandt. wa_komk-pltyp = p_pltyp. wa_komp-matnr = f_matnr. wa_komp-pmatn = f_matnr. wa_komp-pltyp_p = p_pltyp. select single mtart from mara into wa_komp-mtart where matnr = f_matnr. data: condition_table like t681-kotabnr. if p_kschl = 'PR00'. condition_table = '699'. elseif p_kschl = 'PR01'. condition_table = '650'. endif. call function 'RV_CONDITION_COPY' exporting application = 'V' condition_table = condition_table condition_type = p_kschl date_from = lv_datab date_to = lv_datbi * enqueue = 'X' i_komk = wa_komk i_komp = wa_komp key_fields = key_fields maintain_mode = 'A' no_authority_check = 'X' keep_old_records = 'X' overlap_confirmed = 'X' importing e_komk = wa_komk e_komp = wa_komp new_record = nr tables copy_records = cr exceptions enqueue_on_record = 01 invalid_application = 02 invalid_condition_number = 03 invalid_condition_type = 04 no_authority_ekorg = 05 no_authority_kschl = 06 no_authority_vkorg = 07 no_selection = 08 table_not_valid = 09. call function 'RV_CONDITION_SAVE'. commit work. call function 'RV_CONDITION_RESET'. endfunction.   ZMA_F_GET_PRICE_BYMATNR Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) Source Code: FUNCTION ZMA_F_GET_PRICE_BYMATNR. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A699 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~pltyp = I_PLTYP AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_PR01 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) FUNCTION ZMA_F_GET_PRICE_BYMATNR_PR01. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl FROM A650 AS a INTO st_itab WHERE a~kappl = I_KAPPL AND a~kschl = I_KSCHL AND a~matnr = I_MATNR AND a~datab = I_DATE. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION zma_f_get_price_bymatnr_dates. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a699 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   ZMA_F_GET_PRICE_BYMATNR_DATES2 Import Parameters: I_KAPPL TYPE KONH-KAPPL Application I_KSCHL TYPE KONH-KSCHL Condition type I_PLTYP TYPE A699-PLTYP Price list type I_MATNR TYPE MARA-MATNR Material Number I_DATE TYPE KONH-DATAB Valid-From Date Export Parameters: E_KBETR TYPE KONP-KBETR Rate (condition amount or percentage) where no scale exists E_KONWA TYPE KONP-KONWA Rate unit (currency or percentage) E_DATAB TYPE SY-DATUM Valid-From Date E_DATBI TYPE SY-DATUM Valid-To Date FUNCTION ZMA_F_GET_PRICE_BYMATNR_DATES2. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" REFERENCE(I_KAPPL) TYPE KONH-KAPPL *" REFERENCE(I_KSCHL) TYPE KONH-KSCHL *" REFERENCE(I_PLTYP) TYPE A699-PLTYP *" REFERENCE(I_MATNR) TYPE MARA-MATNR *" REFERENCE(I_DATE) TYPE KONH-DATAB *" EXPORTING *" REFERENCE(E_KBETR) TYPE KONP-KBETR *" REFERENCE(E_KONWA) TYPE KONP-KONWA *" REFERENCE(E_DATAB) TYPE SY-DATUM *" REFERENCE(E_DATBI) TYPE SY-DATUM *"---------------------------------------------------------------------- TYPES: BEGIN OF ty_itab, knumh LIKE konp-knumh, kappl LIKE konp-kappl, datab LIKE sy-datum, datbi LIKE sy-datum, END OF ty_itab. DATA: st_itab TYPE ty_itab. TYPES: BEGIN OF ty_itab_konp, kbetr LIKE konp-kbetr, konwa LIKE konp-konwa, END OF ty_itab_konp. DATA: st_itab_konp TYPE ty_itab_konp. TYPES: tt_itab TYPE STANDARD TABLE OF ty_itab. DATA: itab TYPE tt_itab. SELECT SINGLE a~knumh a~kappl a~datab a~datbi FROM a650 AS a INTO st_itab WHERE a~kappl = i_kappl AND a~kschl = i_kschl "AND a~pltyp = i_pltyp AND a~matnr = i_matnr AND a~datab = i_date. SELECT SINGLE p~kbetr p~konwa FROM konp AS p INTO st_itab_konp WHERE p~knumh = st_itab-knumh AND p~kappl = st_itab-kappl. IF sy-subrc = 0. e_kbetr = st_itab_konp-kbetr. e_konwa = st_itab_konp-konwa. e_datab = st_itab-datab. e_datbi = st_itab-datbi. ENDIF. ENDFUNCTION.   I hope it can help you in your projects. If you have any questions or comments, please do not hesitate to write http://bit.ly/2idBdZb #SAP #SAPCloud #AI