Me and My Journey

MIL - Read Table Version 4.0

2011-08-13T06:05:00.005+07:00

[ View Screen Capture ]

MIL - Read Table Version 4.0

Name	MIL - Read Table
Version	4.0
Publish	2011-08-13
Requirement	1. SAP GUI 6.40 Patch Level 8 - 18 or Higer 2. SAP User and authorization for using RFC in SAP system 3. Microsoft .Net Framework 4.0 4. Windows Installer-3.1
Feature	New Features : · Support Windows 7 64Bit · Select Fieldname Dinamically · Automatic Update (4.x) Previous Features : version 3.1 · Favorite Table · Show Fieldname in the result data grid version 3.0 · Find SAP Table · New Look and Design using Microsoft .Net technology · Simple Query (write and check query) · Display all table field information · Multiple Tab View version 0.1 - 2.0 · Can read and download all SAP Table, but you must create a new SAP Function according to article "How to Increase Buffer in RFC_READ_TABLE Function" Source Path : Articles > All About ABAP Technique > How to Increase Buffer in RFC_READ_TABLE Function · Support multiple Read Table executing, without exit application and run again · Read most of SAP Table with 512byte buffer size · Export data to Excel
Limitation	No Limitation

How to Setting Log Mode Oracle Database in SAP

2011-08-10T00:29:00.001+07:00

Article/Tutorial	Switching from archivelog to noarchivelog
Support
Contributor	Ervan Prayogo ( ervan.prayogo@gmail.com )

This is the step how to switch oracle database from archivelog into noarchivelog.

1. Login to sqlplus.

-sqlplus /nolog

-connect / as sysdba

2. Check the database log mode.

-archive log list

3. Database must be mounted EXCLUSIVE and not open for alter database operation. Shutdown the database and mount it.

-shutdown immediate

-startup mount;

4. Setting it to noarchivelog mode

-alter database noarchivelog;

5. Setting database open for user operation

-alter database open;

Create Print Output Device

2011-08-10T00:23:00.000+07:00

Article/Tutorial	Create Print Output Device
Support
Contributor	Ervan Prayogo ( ervan.prayogo@gmail.com )

1. Run the transaction SPAD.

2. Click Extended Admin.

3. Define device attribute.

4. Access method.

5.Output printer.

6. Tray info.

7. Save setting.

8. New print output device is created.

9. Do the test print

10. Select Printer and klik Properties

11. Set Spool request Attributes to print out immediantely and check

12. Klik check to print.

ABAP Article - Display Total of Sales of the year per month

2011-08-10T00:14:00.001+07:00

Objective

▪	Creating Report

▪

Result

▪	Source Code

Transaction Code

SE38 - ABAP Editor

Tables

BKPF - Accounting Document Header

VBAK - Sales Order Header

Support

Sometimes in addition to reports in the form of tabular data, we also need a report in the form of charts or graphs. Report in the form of graphs simplify the management to see visually from numeric values. In any case, representing data in a graph can make easy to compare data, analyze trends, visualize results. There is several chart reporting tools such as Fushionchart, JPGraph, Jasper Report, etc. In this session, chart report will created in HTML using web reporting tools : FusionChart.

Prerequisite File.

1. Download source of Fusioncharts from its website or fron link here.

2. Copy folder grafik contains Fusioncharts files into directory C:\.

Creating Report

Open SE38

2.	Copy Program "YPRACTICE_301" to "YPRACTICE_303"

3.	Select All Object.

Click Local Object to save in local object.

4.	Change Program "YPRACTICE_303"

5.	Open Goto > Attributes, and change Title with "303 – Report Sales Graphical"

6.	Modified Report Declaration

Before

REPORT ypractice_301.

After

REPORT ypractice_303.

7.	Modified Tables.

Before.

*----------------------------------------------------------------------*

* Tables *

*----------------------------------------------------------------------*

TABLES : mara, makt, t006a.

After.

*----------------------------------------------------------------------*

* Tables *

*----------------------------------------------------------------------*

TABLES : bkpf, vbak.

8.	Modified Global variables.

Before.

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION *

*----------------------------------------------------------------------*

TYPES: BEGIN OF ty_header,

matkl LIKE mara-matkl, " Material Group

matnr LIKE mara-matnr, " Material Number

maktx LIKE makt-maktx, " Material Descriptiop

bismt LIKE mara-bismt, " Old material number

meins LIKE mara-meins, " Base Unit of Measure

mseht LIKE t006a-mseht, " Unit of Measurement Text

END OF ty_header.

DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE,

gi_makt TYPE STANDARD TABLE OF makt WITH HEADER LINE,

gi_t006a TYPE STANDARD TABLE OF t006a WITH HEADER LINE.

DATA: gv_width TYPE i. " Width of list

DATA: ok_code LIKE sy-ucomm,

save_ok TYPE sy-ucomm.

After.

*----------------------------------------------------------------------*

* GLOBAL VARIABLE DECRALATION *

*----------------------------------------------------------------------*

TYPES: BEGIN OF ty_header,

bulan TYPE n LENGTH 2,

total LIKE vbak-netwr,

END OF ty_header.

DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE,

gi_vbak LIKE STANDARD TABLE OF vbak WITH HEADER LINE.

DATA: gv_width TYPE i. " Width of list

DATA: ok_code LIKE sy-ucomm,

save_ok TYPE sy-ucomm.

9.	Change the Input Screen / Selection.

Before.

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK groupbox1 WITH FRAME TITLE text_101. "Declare Group Box 1

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(14) text_102 FOR FIELD so_matkl.

SELECT-OPTIONS so_matkl FOR mara-matkl OBLIGATORY DEFAULT '001'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(14) text_103 FOR FIELD so_matnr.

SELECT-OPTIONS so_matnr FOR mara-matnr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox1. "End Group Box 1

SELECTION-SCREEN BEGIN OF BLOCK groupbox2 WITH FRAME TITLE text_201. "Declare Group Box 2

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_202 FOR FIELD p_fname.

PARAMETERS p_fname LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\abap_report_01.html'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox2. "End Group Box 2

After.

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK groupbox1 WITH FRAME TITLE text_101. "Declare Group Box 1

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(14) text_102 FOR FIELD so_gjahr.

SELECT-OPTIONS so_gjahr FOR bkpf-gjahr OBLIGATORY DEFAULT '2000' NO-EXTENSION NO INTERVALS.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(14) text_103 FOR FIELD so_waerk.

SELECT-OPTIONS so_waerk FOR vbak-waerk OBLIGATORY DEFAULT 'USD' NO-EXTENSION NO INTERVALS.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox1. "End Group Box 1

SELECTION-SCREEN BEGIN OF BLOCK groupbox2 WITH FRAME TITLE text_201. "Declare Group Box 2

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_202 FOR FIELD p_fname.

PARAMETERS p_fname LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\grafik\grafik_test.html'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK groupbox2. "End Group Box 2

10.	Change the initialization.

Before.

*----------------------------------------------------------------------*

*INITIALIZATION

*----------------------------------------------------------------------*

INITIALIZATION.

text_101 = 'Selection Parameter'.

text_102 = 'Material Group'.

text_103 = 'Material Number'.

text_201 = 'Save Html File'.

text_202 = 'File Location'.

PERFORM fm_initialization.

After.

*----------------------------------------------------------------------*

*INITIALIZATION

*----------------------------------------------------------------------*

INITIALIZATION.

text_101 = 'Selection Parameter'.

text_102 = 'Year'.

text_103 = 'Currency'.

text_201 = 'Save Html File'.

text_202 = 'File Location'.

PERFORM fm_initialization.

11.	Change form collect data.

Before.

*&--------------------------------------------------------------------*

*& Form fm_collect_data

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_collect_data.

* Collect Master Material

SELECT matnr matkl bismt meins

INTO CORRESPONDING FIELDS OF TABLE gi_header

FROM mara

WHERE

matkl IN so_matkl AND

matnr IN so_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.

* Notes :

* Avoid using inner join

ENDFORM. "FM_COLLECT_DATA

After.

*&--------------------------------------------------------------------*

*& Form fm_collect_data

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_collect_data.

DATA : lv_low LIKE sy-datum,

lv_high LIKE sy-datum.

CONCATENATE so_gjahr-low '01' '01' INTO lv_low.

CONCATENATE so_gjahr-low '12' '31' INTO lv_high.

* Collect

SELECT vbeln audat netwr waerk

INTO CORRESPONDING FIELDS OF TABLE gi_vbak

FROM vbak

WHERE

( audat BETWEEN lv_low AND lv_high ) AND

waerk IN so_waerk.

ENDFORM. "FM_COLLECT_DATA

12.	Change fm_process_data

Before.

*&--------------------------------------------------------------------*

*& Form FM_PROCESS_DATA

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_process_data.

*Get other requirement information

LOOP AT gi_header.

* Get Material Description

READ TABLE gi_makt WITH KEY matnr = gi_header-matnr.

IF sy-subrc = 0.

gi_header-maktx = gi_makt-maktx.

ENDIF.

* Get Measurement Text

READ TABLE gi_t006a WITH KEY msehi = gi_header-meins.

IF sy-subrc = 0.

gi_header-mseht = gi_t006a-mseht.

ENDIF.

MODIFY gi_header.

ENDLOOP.

ENDFORM. "FM_PROCESS_DATA

After.

*&--------------------------------------------------------------------*

*& Form FM_PROCESS_DATA

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_process_data.

DATA : lv_date1 LIKE sy-datum,

lv_date2 LIKE sy-datum,

lv_bulan TYPE n LENGTH 2,

lv_total LIKE vbak-netwr.

DO 12 TIMES.

ADD 1 TO lv_bulan.

CONCATENATE so_gjahr-low lv_bulan '01' INTO lv_date1.

CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'

EXPORTING

day_in = lv_date1

IMPORTING

last_day_of_month = lv_date2.

CLEAR : gi_header, lv_total.

SORT gi_vbak BY audat.

LOOP AT gi_vbak WHERE audat BETWEEN lv_date1 AND lv_date2.

ADD gi_vbak-netwr TO lv_total.

ENDLOOP.

gi_header-bulan = lv_bulan.

gi_header-total = lv_total.

APPEND gi_header.

ENDDO.

ENDFORM. "FM_PROCESS_DATA

13.	Change fm_display_data.

Before.

*&--------------------------------------------------------------------*

*& Form fm_display_data

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_display_data.

REFRESH gi_html_code.

PERFORM fm_create_css.

write_code1 ''.

write_code1 '

* Create Header Text

write_code1 '

* Display Data to Screen

LOOP AT gi_header.

write_code1 '

write_code3 '

write_code1 '

ENDLOOP.

* End of Line

write_code1 '

Mat. Group	Mat. No.	Description	Old Mat. No.	Base Unit of Measure	Measure
' gi_header-matkl '	' gi_header-matnr '	' gi_header-maktx '	' gi_header-bismt '	' gi_header-meins '	' gi_header-mseht '

write_code1 ''.

PERFORM fm_create_html_file TABLES gi_html_code USING p_fname.

PERFORM fm_load_html USING p_fname.

CALL SCREEN 2000.

ENDFORM. "fm_display_data

After.

*&--------------------------------------------------------------------*

*& Form fm_display_data

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM fm_display_data.

DATA : lv_total(20),

title(50),

lv_bulan TYPE n LENGTH 2.

DATA : li_tmp LIKE STANDARD TABLE OF gi_html_code WITH HEADER LINE.

REFRESH gi_html_code.

CONCATENATE 'Report Grafik Penjualan Tahun &nbsp' so_gjahr-low INTO title.

* Create Header Text and referencing source of JQuery

write_code1 ''.

perform fm_create_css.

write_code1 ''.

write_code1 '

write_code3 '

' title '

* Display Data to Screen

write_code1 '

DO 12 TIMES.

ADD 1 TO lv_bulan.

write_code3 '

ENDDO.

write_code1 '

write_code3 '

LOOP AT gi_header.

REFRESH : li_tmp.

* Eliminate thousand separator and change decimals separator

WRITE gi_header-total TO lv_total CURRENCY so_waerk-low.

REPLACE ALL OCCURRENCES OF '.' IN lv_total WITH ''.

CONDENSE lv_total.

REPLACE ALL OCCURRENCES OF ',' IN lv_total WITH '.'.

write_code3 '

ENDLOOP.

write_code1 '

	' lv_bulan '
' so_gjahr-low '	' lv_total '

* Java Script for retrieving data from HTML tables.

write_code1 ' '.

* End of Line

write_code1 '

write_code1 ''.

PERFORM fm_create_html_file TABLES gi_html_code USING p_fname.

PERFORM fm_load_html USING p_fname.

CALL SCREEN 2000.

ENDFORM. "fm_display_data

14.	Now change the CSS style on fm_create_css.

Before.

FORM fm_create_css.

write_code1 ''.

ENDFORM. "fm_create_css

After.

FORM fm_create_css.

write_code1 ''.

ENDFORM.

15.	Activate and run.

16.	Create T-code YP303

17.

Finished.

Result.

▪	Input Selection

▪

Output

MM - Stock Opname

2010-10-25T17:02:00.000+07:00

Jalur Menu	SAP Menu > Logistics > Material Management
Kode Transaksi	MIGO
Kontributor	Wahyu Arif Dermawan ( wahyuarifdermawan@gmail.com )

Stock Opname adalah proses melihat persediaan material yang ada di gudang, tujuan dilakukan stock opname adalah untuk mencocokan jumlah persediaan yang tertera di sistem/ SAP dengan persediaan fisik yang ada digudang.

Berikut ini langkah-langkah yang dilakukan dalam melakukan proses stock opname.

1. Lihat ketersediaan material yang ada di gudang dengan transaksi code MB52 atau dari SAP-menu masuk ke

SAP Menu->Logistics->Material Management->Inventory Management->Environment->Stock

akan muncul tampilan seperti di bawah ini, isikan data plant dan storage location penyimpanan material.

2. Setalah melengkapi selection screen execute data, dengan menekan F8 atau klik icon

, maka akan muncul screen yang menampilkan data-data persediaan dalam sistem.

3. Setelah diketahui kondisi ketersediaan barang maka samakan jumlah stok yang ada di sistem dengan yang ada secara fisik di gudang dengan

transaksi code ME01 atau melalui path SAP Menu->Logistics->Material Management->Physical Inventory->Phys. Inventory Doc.

Fields	Data
Doc. Date	Tanggal membuat document PID
Planned count Date	Tanggal rencana akan melakukan stok opname
Plant	3000
Storage location	0001
Other Information	Pilih antara posting block dan freeze book inventory

Di tab other information terdapat:

•	Posting block: jika kita thick ini, maka kita tidak dapat melakukan segala movement untuk material tersebut pada plant dan storage location yang akan kita lakukan stok opname.

•

Freeze book inventory: jika kita thick ini, maka kita masih dapat melakukan movement pada material tersebut pada plant dan storage location yang akan kita lakukan stok opname, contoh penghitungan menggunakan freeze book : misal stok pada saat stok opname 10 lalu terdapat good issue 5 dan good receipt 3 maka hasil yang akan kita catat di stok opname kita adalah 10-5+3=8, dikarena hal ini akan beresiko timbul perbedaan pencatatan di stok kita nanti maka penulis menyarankan menggunakan posting block.

NB: semua option diatas akan telah selesai setelah document tersebut selesai di kerjakan dan di post.

4. Akan muncul screen input data masukkan nomer material number yang akan dilakukan stock opname.

Setelah di inputkan maka kita dapat menekan enter atau tombol

sehingga akan muncul nomer PID (physical inventory document) di pojok kiri bawah seperti dibawah

Setelah kita dapat kan nomer PID nya maka kita dapat melakukan transaksi berikutnya, yaitu mencetak document.

5. Cetak PID dengan menggunakan transaksi kode MI21, atau mengikuti path

SAP Menu->Logistics->Material Management->Physical Inventory->Phys. Inventory Doc.

Fields	Data
Physical inventory document	Masukkan nomer PID 100001130
Fiscal Year	Tahun fiskal
Plant	3000
Storage location	0001

Setelah semua nya di input maka kita dapat mengexecutenya dengan cara menekan tombol . Maka akan muncul tampilan sebagai berikut:

Isikan field output decice dengan LOCL, maksudnya adalah SAP akan membaca secara default printer mana yang menjadi default pada

komputer Anda, jika sudah kita dapat menekan tombol print preview untuk melihat hasil nya maka akan muncul tampilan seperti di bawah:

6. Setelah bagian gudang mengechek material yang ada di gudang, maka bagian gudang akan memberikan kembali document yang telah kita

berikan dengan data jumlah barang yang sesuai dengan stok di fisik gudang kita. Maka langkah selanjutnya kita dapat menginputkan data

yang ada di document tadi ke SAP dengan menggunakan t-code MI04, atau mengikuti path ini

SAP Menu->Logistics->Material Management->Physical Inventory->Inventory Count

7. Tekan enter untuk masuk ke dalam screen input data, input data sesuai dengan ketersediaan barang aktual di gudang.

8. Setelah kita inputkan jumlah sesuai data yang kita terima dari hasil pengecekan kuantitas fisik barang di gudang, maka kita dapat menyimpan

data kita dengan menekan tombol

sehingga akan muncul pesan dipojok kiri bawah seperti gambar berikut,

9. Langkah selanjutnya adalah mengecek perbedaan stok dari yang ada dalam sistem, dengan stok di gudang kita.

Transaksi kode yang digunakan adalah MI20, atau dengan mengikuti path

SAP Menu->Logistics->Material Management->Physical Inventory->Difference

maka akan muncul screen seperti berikut:

masukkan plant 3000, storage location 0001, dan nomer PID 100001130

Setelah itu kita tekan tombol , maka akan muncul tampilan dibawah ini.

10. Setelah kita melihat perbedaan jumlah dan harga antara di SAP dan stok fisik digudang kita, maka kita dapat melakukan post document.

Dengan menggunakan t-code MI07 atau mengikuti path berikut

SAP Menu->Logistics->Material Management->Physical Inventory->Difference

Fields	Data
Phys. Inventory doc.	Nomer PID
Fiscal year	Tahun fiscal
Posting date	Tanggal dimana kita akan posting hasil stok opname kita

11. Tekan enter, maka akan muncul tampilan screen seperti berikut, masukkan reason/ sebab terjadi perbedaan kuantitas fisik barang antara

persediaan yang ada di gudang dengan yang tercatat dalam sistem.

12. Setelah mengisikian informasi tambahan maka kita dapat menyimpan atau mempostnya dengan menekan tombol .

Sehingga akan muncul tampilan dipojok kiri bawah,

13. Kita dapat melihat hasil dari stok opname kita di SAP menggunakan t-code MB52 dengan mengikuti langkah seperti ditahap ke-1 diatas,

Hasil stock opname adalah sebagai berikut:

14. Proses Stock Opname Selesai

MM Reporting - Stock for Posting Date

2010-10-25T16:54:00.000+07:00

Jalur Menu	SAP Menu > Logistics > Material Management > Inventory Management > Environment > Stock
Kode Transaksi	MB5B
Kontributor	Muhammad Subhan ( msubhan99@yahoo.com )

Report Stock for Posting Date adalah report yang dapat digunakan untuk menampilkan posisi stock material di level plant dan juga storage locations pada range tanggal tertentu.

Berikut ini adalah langkah-langkah untuk menampilkan Report Stock for Posting Date

1. Menu path untuk kode transaksi MB5B.

2. Langkah pertama adalah dengan menetapkan selection parameter pada initial screen MB5B.

Stock Type:

•	Storage Loc/Batch Stock à stock yang akan ditampilkan adalah stock di level storage location atau batch (jika stock material di-manage dengan batch)

•	Valuated Stock à stock yang akan ditampilkan adalah valuated stock saja. Valuated stock

•	Special Stock à hanya stock dengan special stock indicator yang akan ditampilkan

Settings

Totals Only – Non-Hierarchical Representation à Layout tampilan adalah dalam bentuk summary yang berisi informasi opening stock, total receipt quantity, total issue quantity dan closing stock.

3. Setelah melengkapi parameter di selection screen, click execute button dan akan muncul screen berikut

Di dalam report tersebut, kita dapat melihat opening stock, total receipt quantity, total issue quantity serta closing stock dari masing-masing material sesuai kriteria pada selection screen.

BASIS Tutorial - Basic Knowledge (Revisi 1)

2010-09-20T17:44:00.000+07:00

BASIS Tutorial - Basic Knowledge
(Revision 1)

>> Download <<

Created by :

Dadan Ridwan and Albertus Reinandang

Contributor
Technical
>> Ahmad Imron
>> Danar Andri Prasetyo
>> Muhammad Fajrin
>> Irsyad Ferdian Nur
>> Dyan Pravita Sari

This file is generated : Monday September 20, 2010
Go to http://www.sap-interface.com/ to get the actual version.

© 2008-2010 www.sap-interface.com

[ABAP Function] Function Module Examples Code - Date Calculation

2010-09-16T19:37:00.000+07:00

Objective	Knowledge using SAP Standard Function Module to calculate the calendar system
Support
Contributor	Albertus Reinandang ( reinandang@yahoo.com )

1.	BCA_US_DATES_CALC_UNIT : Calculating the difference of the start date and end date.

Example :
REPORT ztest_fm101 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_begda LIKE sy-datum DEFAULT '20080514',
pa_endda LIKE sy-datum DEFAULT sy-datum.

START-OF-SELECTION.

DATA : lv_count LIKE bca_us_bkk_td-term.

CALL FUNCTION 'BCA_US_DATES_CALC_UNIT'
EXPORTING
i_start_date = pa_begda
i_end_date = pa_endda
i_periodunit = '1'
IMPORTING
e_return = lv_count.

WRITE : / lv_count.

2.	/SAPHT/DRM_CALC_DATE : Add or subtract from the date of the input.

Example :

REPORT ztest_fm102 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_date LIKE bkpf-bldat DEFAULT sy-datum,
pa_day LIKE bseg-dtws1,
pa_month LIKE bseg-dtws2,
pa_sign DEFAULT '+' OBLIGATORY,
pa_year LIKE bseg-dtws3.

START-OF-SELECTION.

DATA : lv_date LIKE sy-datum.

CALL FUNCTION '/SAPHT/DRM_CALC_DATE'
EXPORTING
date = pa_date
days = pa_day
months = pa_month
sign = '+'
years = pa_year
IMPORTING
calc_date = lv_date.

WRITE : / lv_date.

[ABAP Function] Function Module Examples Code - Unit Conversion

2010-09-16T19:36:00.000+07:00

Objective	Knowledge using SAP Standard Function Module for unit material
Support
Contributor	Albertus Reinandang ( reinandang@yahoo.com )

1.	UNIT_CONVERSION_SIMPLE : Convert the quantity without knowing the material

Example :

REPORT ztest_fm201 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_new LIKE t006-msehi OBLIGATORY,
pa_old LIKE t006-msehi OBLIGATORY,
pa_value LIKE plfh-mgvgw DEFAULT 10 OBLIGATORY.

START-OF-SELECTION.

DATA : lv_value_new LIKE plfh-mgvgw.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
input = pa_value
round_sign = 'X'
unit_in = pa_old
unit_out = pa_new
IMPORTING
output = lv_value_new.

WRITE : / lv_value_new.

2.	CF_UT_UNIT_CONVERSION : Convert the quantity of a material.

Example :

REPORT ztest_fm20 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_matnr LIKE mara-matnr OBLIGATORY,

pa_meins LIKE mara-meins,
pa_new LIKE t006-msehi OBLIGATORY,
pa_old LIKE t006-msehi OBLIGATORY,
pa_value LIKE plfh-mgvgw DEFAULT 10 OBLIGATORY.

START-OF-SELECTION.

DATA : lv_value_new LIKE plfh-mgvgw.

CALL FUNCTION 'CF_UT_UNIT_CONVERSION'
EXPORTING
matnr_imp = pa_matnr

meins_imp = pa_meins
unit_new_imp = pa_new
unit_old_imp = pa_old
value_old_imp = pa_value
IMPORTING
value_new_exp = lv_value_new
.

WRITE : / lv_value_new.

3.	MATERIAL_UNIT_CONVERSION : Convert the quantity of a material with a two-step process and support for the quantity in a very large number.

Example :
REPORT ztest_fm203 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_matnr LIKE mara-matnr OBLIGATORY,
pa_meins LIKE mara-meins OBLIGATORY,
pa_new LIKE t006-msehi OBLIGATORY,
pa_old LIKE t006-msehi OBLIGATORY,
pa_value LIKE plfh-mgvgw DEFAULT 10 OBLIGATORY.

START-OF-SELECTION.

DATA : lv_value_tmp LIKE plfh-mgvgw,
lv_value_new LIKE plfh-mgvgw.

"Step 1
CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
EXPORTING
matnr = pa_matnr
input = pa_value
meinh = pa_old
kzmeinh = 'X'
meins = pa_meins
IMPORTING
output = lv_value_tmp
EXCEPTIONS
conversion_not_found = 01
input_invalid = 02
material_not_found = 03
meinh_not_found = 04
meins_missing = 05
no_meinh = 06
output_invalid = 07
overflow = 08.
IF sy-subrc = 8.
RAISE overflow.
ENDIF.

"Step 2
CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
EXPORTING
matnr = pa_matnr
input = lv_value_tmp
meinh = pa_new
kzmeinh = space
meins = pa_meins
IMPORTING
output = lv_value_new
EXCEPTIONS
conversion_not_found = 01
input_invalid = 02
material_not_found = 03
meinh_not_found = 04
meins_missing = 05
no_meinh = 06
output_invalid = 07
overflow = 08.
IF sy-subrc = 8.
RAISE overflow.
ENDIF.

WRITE : / lv_value_new.

[ABAP Function] Function Module Examples Code - Purchase Order

2010-09-16T19:35:00.000+07:00

Objective	Knowledge using SAP Standard Function Module to retrieve information on the Purchase Order document without using Bapi
Support
Contributor	Albertus Reinandang ( reinandang@yahoo.com )

MEPO_DOC_READ : Read the entire document PO documents in a transaction.

Example :

REPORT ztest_fm301 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS : pa_ebeln LIKE ekko-ebeln OBLIGATORY.

START-OF-SELECTION.
DATA: lw_status_header TYPE mepo_status.

CALL FUNCTION 'MEPO_DOC_INITIALIZE'.
CALL FUNCTION 'MEPO_DOC_READ'
EXPORTING
im_ebeln = pa_ebeln
im_tcode = 'ME23N'
im_trtyp = 'A'.

PERFORM get_status_header IN PROGRAM saplmepo
CHANGING lw_status_header.

WRITE : / 'PO Header Status'.
WRITE : / sy-uline.
WRITE : / 'Purchase Order Quantity : ', lw_status_header-quantity_ordered,
/ 'Quantity as Per Vendor Confirmation : ', lw_status_header-quantity_confirmed,
/ 'Quantity of Goods Received : ', lw_status_header-quantity_delivered,
/ 'Goods Receipt Blocked Stock in Order Unit : ', lw_status_header-quantity_restr_stock,
/ 'Open Quantity : ', lw_status_header-quantity_open,
/ 'Quantity invoiced : ', lw_status_header-quantity_invoiced.

[ABAP Function] Function Module Examples Code - Table Log

2010-09-16T19:33:00.001+07:00

Objective	Knowledge using SAP Standard Function Module to retrieve information about table log
Support
Contributor	Albertus Reinandang ( reinandang@yahoo.com )

C14O_CD_OBJECTS_READ : Reading all the data changes from the relevant table.

Example :

REPORT ztest_fm401 NO STANDARD PAGE HEADING LINE-SIZE 1023.

TABLES : dd02l.

PARAMETERS : p_tbname LIKE dd02l-tabname DEFAULT 'MARA'.

SELECT-OPTIONS : s_datum FOR sy-datum NO-EXTENSION DEFAULT sy-datum.

PARAMETERS : p_objct LIKE cdhdr-objectid.

DATA : li_object_tab LIKE STANDARD TABLE OF cdkeytab WITH HEADER LINE,
li_cd_hpos_tab LIKE STANDARD TABLE OF cdred WITH HEADER LINE.

START-OF-SELECTION.
CALL FUNCTION 'C14O_CD_OBJECTS_READ'
EXPORTING
i_tablename = p_tbname
i_valfrom = s_datum-low
i_valto = s_datum-high
i_object = p_objct
TABLES
i_object_tab = li_object_tab
e_cd_hpos_tab = li_cd_hpos_tab.

LOOP AT li_cd_hpos_tab.
WRITE : / li_cd_hpos_tab-CHANGENR, '|',
li_cd_hpos_tab-USERNAME, '|',
li_cd_hpos_tab-UDATE, '|',
li_cd_hpos_tab-UTIME, '|',
li_cd_hpos_tab-TCODE, '|',
li_cd_hpos_tab-TABNAME, '|',
li_cd_hpos_tab-TABKEY, '|',
li_cd_hpos_tab-FNAME, '|',
li_cd_hpos_tab-FTEXT, '|',
li_cd_hpos_tab-F_OLD, '|',
li_cd_hpos_tab-F_NEW, '|'.

ENDLOOP.

[ABAP Function] Function Module Examples Code - Amount Conversion

2010-09-16T19:30:00.002+07:00

Objective	Knowledge using SAP Standard Function Module for amount conversion
Support
Contributor	Albertus Reinandang ( reinandang@yahoo.com )

SPELL_AMOUNT : Spell Out Numbers

Example :

REPORT ztest_fm501 NO STANDARD PAGE HEADING LINE-SIZE 1023.

PARAMETERS: p_amount LIKE bseg-wrbtr,
p_curr LIKE bkpf-waers DEFAULT 'IDR',
p_langu LIKE sy-langu DEFAULT sy-langu.

START-OF-SELECTION.
DATA : lw_words LIKE spell.

CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
amount = p_amount
currency = p_curr
* FILLER = ' '
language = p_langu
IMPORTING
in_words = lw_words
* EXCEPTIONS
* NOT_FOUND = 1
* TOO_LARGE = 2
* OTHERS = 3
.
WRITE : p_amount CURRENCY p_curr COLOR 1, ' = ',
lw_words-word COLOR 2.

ABAP Tutorial - Basic Knowledge (Revisi 7)

2010-09-16T19:27:00.001+07:00

ABAP - Basic Knowledge
(Revision 7)

>> Download <<

Created by :

Albertus Reinandang

Contributor
Technical
>> Mawan Sugiyanto
>> Danar Andri Prasetyo
>> Yance Ciputra
>> Alfarisi
>> Kenindi Setawijaya
>> Muhammad Fajrin
>> Kristian Fredy

Functional
>> Dyan Pravita Sari
>> Robinton
>> Wahyu Arif Dermawan

This file is generated : Thursday September 16, 2010
Go to http://www.sap-interface.com/ to get the actual version.

© 2008-2010 www.sap-interface.com

Read TABLE v02

2010-05-12T18:19:00.001+07:00

*&---------------------------------------------------------------------*
*& Report YABApa_TOOLS_READ_TABLE_02
*&
*&---------------------------------------------------------------------*
*& Created By : Albertus Reinandang
*& Date : 12.05.2010 *
*&---------------------------------------------------------------------*

REPORT yabapa_tools_read_table_02.

TABLES : dd02l, dd03l,soid.

DATA : gi_dd02l LIKE STANDARD TABLE OF dd02l WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK zblk01 WITH FRAME TITLE text_101.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_102 FOR FIELD so_tbma.
SELECT-OPTIONS : so_tbma FOR dd02l-tabname." DEFAULT 'ZTA*'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_103 FOR FIELD pa_spara.
PARAMETERS pa_spara TYPE c LENGTH 3 DEFAULT ',' OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_104 FOR FIELD pa_data.
PARAMETERS : pa_data LIKE sonv-flag.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_105 FOR FIELD pa_dir.
PARAMETERS : pa_dir TYPE string DEFAULT 'c:\backup\dictionary\'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK zblk01.

*SELECTION-SCREEN BEGIN OF BLOCK zblk02 WITH FRAME TITLE text_201.
*
*SELECTION-SCREEN BEGIN OF LINE.
*SELECT-OPTIONS so_row FOR soid-accnt NO-EXTENSION
* DEFAULT 1 TO 1000.
*SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN END OF BLOCK zblk02.

INITIALIZATION.

text_101 = 'Transport to txt File'.
text_102 = 'Table Name '.
text_103 = 'Sparator'.
text_104 = 'With Data'.
text_105 = 'Directory'.
* text_201 = 'Row Selection'.

START-OF-SELECTION.
PERFORM fm_collect_data.
PERFORM fm_process_data.

*&---------------------------------------------------------------------*
*& Form fm_collect_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fm_collect_data.
SELECT *
INTO TABLE gi_dd02l
FROM dd02l
WHERE tabname IN so_tbma.

ENDFORM. "fm_collect_data

*&---------------------------------------------------------------------*
*& Form fm_process_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fm_process_data.
DATA : lv_filename1 TYPE string,
lv_filename2 TYPE string,
lv_no_data.

DATA : li_options LIKE STANDARD TABLE OF rfc_db_opt WITH HEADER LINE,
li_fields LIKE STANDARD TABLE OF rfc_db_fld WITH HEADER LINE,
li_data LIKE STANDARD TABLE OF ytab WITH HEADER LINE,
"YTAB -> Lihat pada ABAP Tutorial "Cara Meningkatkan Buffer pada Function RFC_READ_TABLE"
li_table_structure LIKE STANDARD TABLE OF dfies WITH HEADER LINE.

IF pa_data = ' '.
lv_no_data = 'X'.
ENDIF.

CONDENSE pa_dir.
LOOP AT gi_dd02l.
REFRESH : li_options, li_fields, li_data, li_table_structure.
CONCATENATE pa_dir gi_dd02l-tabname '_STRUCTURE.txt' INTO lv_filename1.
CONCATENATE pa_dir gi_dd02l-tabname '_CONTENT.txt' INTO lv_filename2.
CONDENSE : lv_filename1, lv_filename2.

"YRFC_READ_TABLE -> Lihat pada ABAP Tutorial "Cara Meningkatkan Buffer pada Function RFC_READ_TABLE"
CALL FUNCTION 'YRFC_READ_TABLE'
EXPORTING
query_table = gi_dd02l-tabname
delimiter = pa_spara
no_data = lv_no_data
TABLES
OPTIONS = li_options
fields = li_fields
data = li_data
table_structure = li_table_structure.

"Download Stucture
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = lv_filename1
show_transfer_status = ' '
TABLES
data_tab = li_table_structure.

"Download Data
IF pa_data = 'X'.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = lv_filename2
show_transfer_status = ' '
TABLES
data_tab = li_data.
ENDIF.

ENDLOOP.

ENDFORM. "fm_process_data

Read TABLE v01

2010-05-12T18:13:00.001+07:00

*&---------------------------------------------------------------------*
*& Report YABAP_TOOLS_READ_TABLE_01 *
*& *
*&---------------------------------------------------------------------*
*& Created By : Mawan Sugiyanto *
*& Date : 01.07.2008 *
*& *
*& Edited By : Albertus Reinandang *
*& Date : 17.07.2008 *
*&---------------------------------------------------------------------*

REPORT yabap_tools_read_table_01 .

TABLES : dd02l, dd03l,soid.
DATA : gv_tablename TYPE c LENGTH 100,
gv_tablelist TYPE STANDARD TABLE OF dd02l WITH HEADER LINE,
gv_tabfield TYPE STANDARD TABLE OF dd03l WITH HEADER LINE.

DATA : BEGIN OF i_temp OCCURS 0,
linedata TYPE c LENGTH 4096,
END OF i_temp.

SELECTION-SCREEN BEGIN OF BLOCK zblk01 WITH FRAME TITLE text_101.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_102 FOR FIELD pa_tabnm.
PARAMETERS pa_tabnm TYPE dd02l-tabname DEFAULT 'YOUR TABLE NAME' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(19) text_103 FOR FIELD pa_spara.
PARAMETERS pa_spara TYPE c LENGTH 3 DEFAULT ',' OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK zblk01.

SELECTION-SCREEN BEGIN OF BLOCK zblk02 WITH FRAME TITLE text_201.

SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS so_row FOR soid-accnt NO-EXTENSION
DEFAULT 1 TO 1000.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK zblk02.

INITIALIZATION.
text_101 = 'Transport to txt File'.
text_102 = 'Table Name '.
text_103 = 'Sparator'.
text_201 = 'Row Selection'.

START-OF-SELECTION.

PERFORM get_tableinformation.
PERFORM get_and_download.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form GET_TABLEINFORMATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_tableinformation .
SELECT * INTO CORRESPONDING FIELDS OF TABLE gv_tablelist
FROM dd02l
WHERE tabname = pa_tabnm.
IF sy-subrc = 0 AND LINES( gv_tablelist ) = 1.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gv_tabfield FROM dd03l
WHERE tabname = pa_tabnm ORDER BY position ASCENDING.
IF sy-subrc = 0.
ELSE.
MESSAGE 'No field(s) name found.' TYPE 'I'.
ENDIF.
ELSE.
MESSAGE 'Table does not exist, please enter right table name' TYPE 'I'.
ENDIF.
ENDFORM. " GET_TABLEINFORMATION

*&---------------------------------------------------------------------*
*& Form get_and_download
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_and_download .
FIELD-SYMBOLS :

TYPE table,
TYPE data,
TYPE ANY.

DATA : fieldcat TYPE lvc_t_fcat , wadata TYPE lvc_s_fcat.
DATA : dyn_itab TYPE REF TO data,wa TYPE REF TO data, gv_tampung TYPE c LENGTH 100.
DATA : i_text(4096) TYPE c OCCURS 0,
lv_row_count TYPE i,
lv_row_max TYPE i,
lv_filename LIKE rlgrap-filename.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = pa_tabnm
CHANGING
ct_fieldcat = fieldcat[].

CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = fieldcat[]
IMPORTING
ep_table = dyn_itab.

ASSIGN dyn_itab->* TO

.
CREATE DATA wa LIKE LINE OF

.
ASSIGN wa->* TO .

IF so_row-high > 0.
lv_row_max = so_row-low + so_row-high - 1.
ENDIF.

SELECT * FROM (pa_tabnm) INTO .

lv_row_count = lv_row_count + 1.
IF lv_row_count GE so_row-low.
WRITE :/.
LOOP AT gv_tabfield.
ASSIGN COMPONENT gv_tabfield-fieldname OF STRUCTURE TO .

WRITE TO gv_tampung NO-GROUPING.
CONDENSE gv_tampung.
IF gv_tampung IS INITIAL.
gv_tampung = space.
ENDIF.
CONCATENATE i_temp-linedata gv_tampung INTO i_temp-linedata SEPARATED BY pa_spara.
ENDLOOP.
WRITE :/ i_temp-linedata.
APPEND i_temp.

IF lv_row_max > 0 AND lv_row_count GE lv_row_max.
EXIT.
ENDIF.

CLEAR i_temp.
ENDIF.
ENDSELECT.

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
EXPORTING
i_field_seperator = ''
TABLES
i_tab_sap_data = i_temp
CHANGING
i_tab_converted_data = i_text
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.

concatenate 'C:\' pa_tabnm '.txt' into lv_filename.

CALL FUNCTION 'DOWNLOAD'
EXPORTING
* BIN_FILESIZE = ' '
* CODEPAGE = ' '
filename = lv_filename
* FILETYPE = ' '
* ITEM = ' '
* MODE = ' '
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* FILEMASK_MASK = ' '
* FILEMASK_TEXT = ' '
* FILETYPE_NO_CHANGE = ' '
* FILEMASK_ALL = ' '
* FILETYPE_NO_SHOW = ' '
* SILENT = 'S'
* COL_SELECT = ' '
* COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
* IMPORTING
* ACT_FILENAME =
* ACT_FILETYPE =
* FILESIZE =
* CANCEL =
TABLES
data_tab = i_text
* FIELDNAMES =
* EXCEPTIONS
* INVALID_FILESIZE = 1
* INVALID_TABLE_WIDTH = 2
* INVALID_TYPE = 3
* NO_BATCH = 4
* UNKNOWN_ERROR = 5
* GUI_REFUSE_FILETRANSFER = 6
* OTHERS = 7
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM. "get_and_download

List Perusahaan Pengguna SAP

2010-02-04T11:34:00.003+07:00

Berikut ini adalah List Perusahaan Pengguna SAP di Indonesia :

No	Nama Perusahaan
1	ABC
2	Anugerah Pharmindo Lestari
3	Astra Honda Motor
4	Astra International
5	Bakrie Telecom
6	Bank BRI
7	Bank Central Asia
8	Bank Danamon Indonesia
9	Bank International Indonesia
10	Bank Mandiri
11	Bentoel Malang
12	Bimboli
13	Bina Nusantara (Binus)
14	Blue Bird Group
15	BMW Indonesia
16	Bogasari
17	Bridgestone
18	British Petrolium Indonesia
19	Bukaka Singtel International
20	Chandra Asri
21	Duta Palma
22	Elnusa
23	Emerio Indonesia
24	Excelcomindo Pratama
25	FUCHS Indonesia
26	Garuda Indonesia
27	Goodyear
28	Hero Supermarket
29	Indofood Agri Resources
30	Indofood Sukses Makmur
31	Indosat
32	Jaya Mandiri Sukses
33	Karakatau Steel
34	Komatsu Indonesia
35	Kompas Gramedia
36	Krama Yudha Tiga Berlian / Mitsubishi (Automotive)
37	Kurnia Alam Segar
38	Lion Wings
39	Mayora
40	Medco Energi Internasional
41	Minamas
42	Mitra Adi Perkasa (Retail)
43	Multi Bintang Indonesia
44	Nestle Indonesia
45	NTS AXIS
46	PABRIK CAT & TINTA PACIFIC
47	Parezelyuz Indonesia
48	Patra Niaga (Distributor Pertamina / Retail)
49	Perfetti van Melle
50	Pertamina
51	PLN
52	PTSI Pekanbaru
53	RAPP (Riau Andalas Pulp n Paper)
54	Sari Roti
55	Sayap Mas Utama
56	Semen Gresik
57	Semen Padang
58	Serasi Auto Raya (TRAC)
59	Sinarmas
60	Sinarmas Pulp and Paper (ARARA)
61	SMART
62	Sunrise Bumi Textile
63	Surya Citra Media
64	Telekomunikasi Indonesia
65	Tempo Group
66	Tirta Alam Segar
67	Titan Kimia Nusantara
68	Tuban Petrochemical Industries Indonesia
69	Ultra Jaya Milk
70	Unilever
71	UNZA VITALIS
72	Wing Surya
73	Wiraswasta Gemilang Indonesia

Jika rekan-rekan ada yg mengetahui perusahaan lain selain diatas mohon di informasikan ke kami.

Terimakasih,

Table Log

2010-01-07T13:43:00.001+07:00

C14O_CD_OBJECTS_READ : Membaca seluruh perubahan data dari table yang bersangkutan.

Contoh :