FUNCTION yfm_rfc_practice_101.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(GV_MATKL) LIKE MARA-MATKL OPTIONAL
*" VALUE(GV_MATNR) LIKE MARA-MATNR OPTIONAL
*" VALUE(GV_MAX_ROW) TYPE I DEFAULT 0
*" TABLES
*" GI_HEADER STRUCTURE YST_HEADER_101 OPTIONAL
*"----------------------------------------------------------------------
DATA: gi_makt TYPE STANDARD TABLE OF makt WITH HEADER LINE,
gi_t006a TYPE STANDARD TABLE OF t006a WITH HEADER LINE.
DATA: lv_counter TYPE i.
RANGES : lr_matkl FOR mara-matkl,
lr_matnr FOR mara-matnr.
IF gv_matkl IS NOT INITIAL.
MOVE : gv_matkl TO lr_matkl-low,
space TO lr_matkl-high,
'EQ' TO lr_matkl-option,
'I' TO lr_matkl-sign.
APPEND lr_matkl.
ENDIF.
IF gv_matnr IS NOT INITIAL.
MOVE : gv_matnr TO lr_matnr-low,
space TO lr_matnr-high,
'EQ' TO lr_matnr-option,
'I' TO lr_matnr-sign.
APPEND lr_matnr.
ENDIF.
* Collect Master Material
SELECT matnr matkl bismt meins
INTO CORRESPONDING FIELDS OF TABLE gi_header
FROM mara
WHERE
matkl IN lr_matkl AND
matnr IN lr_matnr.
* Collect Material Decription
SELECT matnr maktx
INTO CORRESPONDING FIELDS OF TABLE gi_makt
FROM makt
FOR ALL ENTRIES IN gi_header
WHERE
matnr = gi_header-matnr AND
spras = sy-langu.
* Collect Measurement Text
SELECT msehi mseht
INTO CORRESPONDING FIELDS OF TABLE gi_t006a
FROM t006a
FOR ALL ENTRIES IN gi_header
WHERE
msehi = gi_header-meins AND
spras = sy-langu.
*Mendapatkan informasi lain yang dibutuhkan
LOOP AT gi_header.
* Maksimal pengecekan row
ADD 1 TO lv_counter.
IF lv_counter <= gv_max_row OR gv_max_row = 0.
* Mendapatkan deskripsi material
READ TABLE gi_makt WITH KEY matnr = gi_header-matnr.
IF sy-subrc = 0.
gi_header-maktx = gi_makt-maktx.
ENDIF.
* mendapatkan standar teks pengukuran
READ TABLE gi_t006a WITH KEY msehi = gi_header-meins.
IF sy-subrc = 0.
gi_header-mseht = gi_t006a-mseht.
ENDIF.
MODIFY gi_header.
ELSE.
DELETE gi_header.
ENDIF.
ENDLOOP.
ENDFUNCTION.
|
"
" Untuk menyimpan structure
" untuk mengaktifkan structure
" untuk menyimpan function
