[ TUTORIAL SAP ] - ABAP BASIC Part 8

[ TUTORIAL SAP ] - ABAP BASIC Part 8
Pada kesempatan kali ini saya akan membahas bagaimana mengoperasikan fungsi matematika menggunakan data dari SAP.
Langsung tonton videonya jangan lupa subscribe share and comment. Like jika kalian suka videonya dan dislike kalau kalian tidak suka. Saya sertakan juga source code dari program yang saya buat di video supaya memudahkan kalian untuk belajar.
Terima kasih

Kunjungi juga video lainnya:

Source Code

*&---------------------------------------------------------------------*
*& Report ZHELLO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZHELLO.

TABLES ekpo. " Tabel PO item

SELECT-OPTIONS: s_ebeln FOR ekpo-ebeln.

" Definisikan internal tabel
TYPES: BEGIN OF ty_ekpo,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
txz01 TYPE ekpo-txz01,
netpr TYPE ekpo-netpr, " ini juga yang akan kita gunakan operasi matematikannya
menge TYPE ekpo-menge, " ini yang akan kita gunakan operasi matematikannya
total TYPE ekpo-netwr,
END OF ty_ekpo.

**Definisikan internal tabel
DATA: gt_ekpo TYPE TABLE OF ty_ekpo,
gw_ekpo TYPE ty_ekpo.

START-OF-SELECTION.

**Biasakan selalu refresh internal tabel dan clear work area
REFRESH: gt_ekpo.
CLEAR: gw_ekpo.

SELECT ebeln ebelp matnr txz01 menge netpr FROM ekpo INTO CORRESPONDING FIELDS OF TABLE gt_ekpo
WHERE ebeln IN s_ebeln.
IF sy-subrc NE 0.
MESSAGE 'Data tidak ada' TYPE 'I'.
ELSEIF sy-subrc EQ 0.

***Operasikan dulu
LOOP AT gt_ekpo INTO gw_ekpo.
gw_ekpo-total = gw_ekpo-menge * gw_ekpo-netpr.
MODIFY gt_ekpo FROM gw_ekpo TRANSPORTING total.
ENDLOOP.

***Dari maksud diatas adalah, kita mengalikan menge dengan netpr dan kita masukkan dalam work area total, lalu kita masukkan hasil work area dalam internal
***tabel menggunakan syntax MODIFY
***sekarang kita coba tampilkan hasilnya

LOOP AT gt_ekpo INTO gw_ekpo.
WRITE:/ gw_ekpo-ebeln, gw_ekpo-ebelp, gw_ekpo-matnr, gw_ekpo-txz01, gw_ekpo-netpr, gw_ekpo-menge, gw_ekpo-total.
ENDLOOP.

ENDIF.

Follow juga social media saya