SAP ABAP HR

Belajar ABAP Programming Dasar 2

noreply@blogger.com (D i o c i o) — Mon, 25 Jan 2010 08:47:00 +0000

Belajar Programming ABAP Dasar 2

Salam ABAP HR Indonesia !

Nah untuk pelajaran yang ke dua kita akan coba bikin inputan periode sebelum program di jalankan dan data akan di proses sesuai dengan periode yang di input tersebut.

Step:
1. Edit program dan tambahkan paramater untuk inputan tanggal mulai dan tanggal akhir.
* patameter untuk user input tanggal mulai dan akhir
PARAMETERS: ZBEGDA LIKE SY-DATUM,
ZENDDA LIKE SYDATUM.

2. Edit program dan tambahkan di bawah INITIALIZATION nilai awal Zbegda dan Zendda.
* nilai awal periode
ZBEGDA = SY-DATUM.
ZENDDA = SY-DATUM.

3. Edit program dan ganti line :
LOOP AT ITAB_PA0002 WHERE GBDAT > '19693112' AND GBDAT < '19710101'. Menjadi : LOOP AT ITAB_PA0002 WHERE GBDAT >= ZBEGDA AND GBDAT <= ZENDDA.

4. Untuk lebih informatif ganti tampilan inputan menjadi “Tanggal Mulai” dan “Tanggal Akhir”. Click Goto > Text Elements > Selection Texts

5. Masukan Textnya. Kemudian click tombol Activate untuk di aktifkan. Click tombol Back kembali ke source code.

Nah sekarang user bias input tanggal mulai dan akhir yang nantinya akan di seleksi di program untuk tanggal lahir berdasarkan range tersebut.

untuk code secara lengkapnya sbb:

REPORT ZPRG1 .

* Define internal table untuk PA0002 dengan strukture disamakan
DATA: ITAB_PA0002 LIKE PA0002 OCCURS 0 WITH HEADER LINE.
* Define variable Tampungan dengan type integer
DATA: ZJML_LAHIR TYPE I.

* patameter untuk user input tanggal mulai dan akhir
PARAMETERS: ZBEGDA LIKE SY-DATUM,
            ZENDDA LIKE SY-DATUM.

* tempat untuk inisialisasi variable / parameter
INITIALIZATION.
* nilai awal periode
  ZBEGDA = SY-DATUM.
  ZENDDA = SY-DATUM.

* Awal program proses akan di jalankan
START-OF-SELECTION.

* baca list PA0002 ke internal table
  SELECT * FROM PA0002 INTO TABLE ITAB_PA0002.

* hitung jumlah Employee yang lahir tahun 1970
  LOOP AT ITAB_PA0002 WHERE GBDAT >= ZBEGDA AND GBDAT <= ZENDDA.
    ZJML_LAHIR = ZJML_LAHIR + 1.
    WRITE : / ITAB_PA0002-PERNR, ITAB_PA0002-CNAME.
  ENDLOOP.

  WRITE : / 'JUMLAH : ', ZJML_LAHIR.

* akhir program proses
END-OF-SELECTION.

semoga berhasil

Belajar ABAP Programming Dasar 1.

noreply@blogger.com (D i o c i o) — Mon, 25 Jan 2010 08:09:00 +0000

Belajar Programming ABAP Dasar 1.
Salam ABAP HR Indonesia !

Sebagai dasar dari pemrogramman di SAP kita akan coba belajar nge-ABAP seperti apa ?. kita coba dari yang mudah dulu semoga gak ada kendala. kita akan bikin list report untuk Employee yang lahir di tahun 1970 dan dihitung ada berapa orang. ikuti langkah langkahnya.

1. Ketik tcode SE38 pada command field dan tekan enter.

2. Ketik nama program yang akan kita buat. Kemudian click Create.

3. Masukan Titile program yang kita buat. Tentukan Type dari atrribute program yang kita buat. Kemudian cliak save.

4. Click Tombol “Local Object” jika program tidak untuk di transport ke Server Production. Jika akan di transport maka isi Development Class kemudian Click Save. Untuk belajar kali ini kita pilih tombol “Local Object”

5. Ketik Code nya seperti dibawah ini.

REPORT ZPRG1 .

* Define internal table untuk PA0002 dengan strukture disamakan
DATA: ITAB_PA0002 LIKE PA0002 OCCURS 0 WITH HEADER LINE.
* Define variable Tampungan dengan type integer
DATA: ZJML_LAHIR TYPE I.

* tempat untuk inisialisasi variable / parameter
INITIALIZATION.


* Awal program proses akan di jalankan
START-OF-SELECTION.

* baca list PA0002 ke internal table
  SELECT * FROM PA0002 INTO TABLE ITAB_PA0002.

* hitung jumlah Employee yang lahir tahun 1970
  LOOP AT ITAB_PA0002 WHERE GBDAT > '19693112' AND GBDAT < '19710101'.
    ZJML_LAHIR = ZJML_LAHIR + 1.
    WRITE : / ITAB_PA0002-PERNR, ITAB_PA0002-CNAME.
  ENDLOOP.

  WRITE : / 'JUMLAH : ', ZJML_LAHIR.

* akhir program proses
END-OF-SELECTION.

6. Click Tombol Activate untuk mengaktivasi program yang sudah di edit / diketik.

7. Click Tombol Test (F8) untuk menjalankan program.

Nah selesai deh tinggal liat hasilnya.
program akan menampilkan nomor karaywan dan nama. serta dibaris terakhir akan di cetak jumlah Employee yang lahir tahun 1970 tersebut.

SELECT A DIRECTORY / FOLDER

noreply@blogger.com (D i o c i o) — Mon, 18 Jan 2010 05:01:00 +0000

ABAP - SELECT A DIRECTORY / FOLDER
Salam ABAP HR Indonesia !

suatu waktu ada request user untuk download file di folder tertentu, atau membaca fiel di folder tertentu dari PC mereka. pada saat program jalan kemudian memilih folder / Directory maka diperlukan code dibawah ini.

REPORT ZTEST NO STANDARD PAGE HEADING LINE-SIZE 255.

* Select Directory / Folder in Local Computer
TYPE-POOLS SSCR.
DATA: STRINGPATH TYPE STRING.
DATA RESTRICT TYPE SSCR_RESTRICT.

PARAMETERS: P_PATH LIKE RLGRAP-FILENAME.

INITIALIZATION.
* set default value 
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
       EXPORTING
            RESTRICTION = RESTRICT.
  IF SY-BATCH IS INITIAL.
    CALL FUNCTION 'WS_ULDL_PATH'
         IMPORTING
              DOWNLOAD_PATH = P_PATH.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH.
  STRINGPATH = P_PATH.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
     EXPORTING
       INITIAL_FOLDER  = STRINGPATH
    CHANGING
      SELECTED_FOLDER = STRINGPATH.
  CALL METHOD CL_GUI_CFW=>FLUSH.
  P_PATH = STRINGPATH.


START-OF-SELECTION.

* your code here ....


END-OF-SELECTION.

hasilnya

Useful Transaction codes in SAP HR module

noreply@blogger.com (D i o c i o) — Wed, 11 Nov 2009 03:35:00 +0000

Master Data
Salam ABAP HR Indonesia !

PA10 Personnel File
PA20 Display HR Master Data
PA30 Maintain HR Master Data
PA40 Personnel Events
PA41 Change Hiring Data

PA42 Fast Data Entry for Events
PRMD Maintain HR Master Data
PRMF Travel Expenses: Feature TRVFD
PRML Set Country Grouping via Popup
PRMM Personnel Events
PRMO Travel Expenses: Feature TRVCO
PRMP Travel Expenses: Feature TRVPA
PRMS Display HR Master Data
PRMT Update Matchcode
PSO3 Infotype overview
PSO4 Individual maintenance of infotypes

Time Management

PA51 Display Time Data
PA53 Display Time Data
PA61 Maintain Time Data
PA62 List Entry of Additional Data
PA63 Maintain Time Data
PA64 Calendar Entry
PA70 Fast Data Entry
PA71 Fast Entry of Time Data
PBAB Maintain vacancy assignments
PT01 Create Work Schedule
PT02 Change Work Schedule
PT03 Display Work Schedules

Payroll

PC00 Run Payroll
PC10 Payroll menu USA
PE00 Starts Transactions PE01,PE02,PE03
PE01 Schemas
PE02 Calculation Rules
PE03 Features
PE04 Create functions and operations
PE51 HR form editor
PRCA Payroll calendar
PRCT Current Settings
PRCU Printing Checks USA
PRD1 Create DME
SM31 Maintain Tables
SM12 Locked Secessions
TSTC Table lookup
SPR0 IMG
SE16 Data Browser (Table reports)
PP03 PD Tables
PP0M Change Org Unit
P013 Maintain Positions
PO03 Maintain Jobs

Benefits

PA85 Benefits - Call RPLBEN11
PA86 Benefits - Call RPLBEN07
PA87 Benefits - Call RPLBEN09
PA89 COBRA Administration
PA90 Benefits Enrollment – Individual
PA91 Benefits - Forms
PA92 Benefits Tables - Maintain
PA93 Benefits Tables - Display
PA94 Benefits - Access Reporting Tree
PA95 Benefits IMG - Jump to Views
PA96 Benefits reporting
PA97 Salary Administration - Matrix
PA98 Salary Administration
PA99 Compensation Admin. - rel.changes
PACP HR-CH: Pension fund, interface

Payroll

PC00 Run Payroll
PC10 Payroll menu USA
PE00 Starts Transactions PE01,PE02,PE03
PE01 Schemas
PE02 Calculation Rules
PE03 Features
PE04 Create functions and operations
PE51 HR form editor
PRCA Payroll calendar
PRCT Current Settings
PRCU Printing Checks USA
PRD1 Create DME
SM31 Maintain Tables
SM12 Locked Secessions
TSTC Table lookup
SPR0 IMG
SE16 Data Browser (Table reports)
PP03 PD Tables
PP0M Change Org Unit
P013 Maintain Positions
PO03 Maintain Jobs

Benefits

PA85 Benefits - Call RPLBEN11
PA86 Benefits - Call RPLBEN07
PA87 Benefits - Call RPLBEN09
PA89 COBRA Administration
PA90 Benefits Enrollment – Individual
PA91 Benefits - Forms
PA92 Benefits Tables - Maintain
PA93 Benefits Tables - Display
PA94 Benefits - Access Reporting Tree
PA95 Benefits IMG - Jump to Views
PA96 Benefits reporting
PA97 Salary Administration - Matrix
PA98 Salary Administration
PA99 Compensation Admin. - rel.changes
PACP HR-CH: Pension fund, interface

General/Reporting

PM00 Menu for HR Reports
PM01 Dialogs in HR - Create custom infotypes
PRF0 Standard Form
PSVT Dynamic Tools Menu
PAR1 Flexible employee data
PAR2 Employee list

PD - Organizational Management

PP0M Change Org Unit
PO03 Maintain Jobs
PO13 Maintain Position
PO10 Maintain Organizational Unit
PP01 Maintain Plan Data (menu-guided)
PP02 Maintain Plan Data (Open)
PP03 Maintain Plan Data (event-guided)
PP05 Number Ranges
PP06 Number Range Maintenance: HRADATA
PP07 Tasks/Descriptions
PP69 Choose Text for Organizational Unit
PP90 Set Up Organization
PPO1 Change Cost Center Assignment
PPO2 Display Cost Center Assignment
PPO3 Change Reporting Structure
PPO4 Display Reporting Structure
PPO5 Change Object Indicators (O/S)
PPO6 Change Object Indicators O/S
PPOA Display Menu Interface (with dyn.)
PPOC Create Organizational Unit
PPOM Maintain Organizational Plan
PPOS Display Organizational Plan
PQ01 Events for Work Center
PQ02 Events for Training Program
PQ03 Events for Job
PQ04 Events for Business Event Type
PQ06 Location Events
PQ07 Resource Events
PQ08 Events for External Person
PQ09 Events for Business Event Group
PQ10 Events for Organizational Unit
PQ11 Events for Qualification
PQ12 Resource Type Events
PQ13 Events for Position
PQ14 Events for Task
PQ15 Events for Company
PSO5 PD: Administration Tools
PSOA Work Center Reporting
PSOC Job Reporting
PSOG OrgManagement General Reporting
PSOI Tools Integration PA-PD
PSOO Organizational Unit Reporting
PSOS Position Reporting
PSOT Task Reporting

Recruitment

PB10 Init.entry of applicant master data
PB20 Display applicant master data
PB30 Maintain applicant master data
PB40 Applicant events
PB50 Display applicant actions
PB60 Maintain applicant actions
PB80 Evaluate vacancies
PBA0 Evaluate advertisements
PBA1 Applicant index
PBA2 List of applications
PBA3 Applicant vacancy assignment list
PBA4 Receipt of application

SAP R/3 HR Programming Overview.

noreply@blogger.com (D i o c i o) — Fri, 30 Oct 2009 06:07:00 +0000

Untuk bahan belajar buat yang ingin belajar ABAP HR Programming. Pada dasarnya untuk secara ABAP umum nya sih sama dengan modul lainnya, hanya sedikit perbedaan di HR Programming yang coba saya jelaskan di blog ini. Selamat membaca.

Ada yang disebut dengan transparan table dengan format table name nya PAnnnn dan HRPnnnn. Nnnn adalah nomor 00001 – 9999 dan dibagi-bagi lagi secara fungsi merekam datanya.
Ada yang disebut Data Cluster yang merupakan data yang tersimpan secara berjenjang didalam transparant table ( tepat gak ya istilahnya ).

Kita bahas MASTER DATA ( PA ).
Kita sebut INFOTYPE yang secara definisi :
- bisnis definisnya yaitu Group dari field-field yang secara basic isinya saling berhubungan. contohnya seperti nama, tanggal lahir, sebutan, Jenis Kelamin dimasukan ke dalam group Infotype 0002.
- Teknis definisinya yaitu Group dari atribut pada dasarnya sebuah screen yang berhubungan dengan transparant table.
Contoh screen dari infotype 00002 bisa dilihat dibawah ini.

Master Data Infotype seperti dijelaskan diatas untuk penomoran merekam data secara fungsinya. range nya seperti list dibawah ini.
0000 - 0999 : HR Master Data.
1000 - 1999 : Organisational Management / Personnel Planning
2000 - 2999 : Time Recruitment
9000 - 9999 : Customer-developed enhancements.
List semua infotype ini bisa dilihat di table V_T582A beserta descriptionnya.

Didalam Infotype bisa terbagi lagi kedalam Subtype yang mengontrol action dari infotype tersebut, contohnya seperti pada infotype 00021 ada subtype 1 untuk spouse, 2 untuk child dst.

Didalam infotype ada Time and Time Constraints pembatasan periode dari data dari mulai berlakunya data sampai data diperbaharui. fungsi ini tercermin dalam field BEGDA dan ENDDA yang merupakan validity dari sebuah record tersebut berlaku.

Record-record dari infotype tersimpan dalam transparant table PAnnnn, dengan nnnn sesuai dengan fungsi yang telah di urai diatas tadi.

Payroll Result Data ( PCL2 )

Data payroll yang telah diproses akan tersimpan di transparant table PCL2 pada field CLUSTD. contoh beberapa cluster didalam PCL2 sbb:

- CU : Cluster Directory. Payroll directory akan tercipta untuk setiap employee dan dapat diakses untuk setiap employee secara specifik individual per payroll periode.
- RG : Payroll Result ( GB )
- B2 : Time Management Result
- ZL : Personnel shift Plan
- PS : Generated Schema
- PT : Texts for Generated Schema
contoh salah satu struktur cluster dapat dilihat pada diagram dibawah ini.

Untuk melihat payroll result bisa menggunakan tcode : PC_PAYRESULT.

HR Programming
Nah pada dasarnya HR Programming akan memanipulasi table-table diatas tadi, bisa saja membaca, menulis, mendelete sesuai kebutuhannya.

HR Programming - LOGICAL DATABASE
Didalam ABAP Programming ada disebut LOGICAL DATABASE ( LDB ) yang fungsinya sangat bermanfaat sekali kalo kita pake LDB ini, pertanyaannya kenapa pake LDB di HR Programming ?
jawabannya :
- Mampu mengurangi waktu dan tenaga dalam membuat program karena sudah di sediakan LDB ini untuk salah satu contoh dalam membuat penanganan aktifitas screen, selection screen sampai menyaring data yang dibaca dari table-table diatas tadi dengan waktu singkat dan disediakan oleh LDB ini.
- Otorisasi check nya terpusat dan terjamin.
- Mampu meningkatkan performan baik secara ABAPER nya maupun secara programnya.

HR Programming - Infotype
Jika kita sudah menggunakan LDB maka untuk mengakses Infotype kita dengan mudah membaca informasi dari infotype yang kita butuhkan dengan sedikit menambahkan coding dibawah ini misalnya.

PENDEFINISIAN.
kita mendefine statement : INFOTYPES : 0002.
dengan statement itu sebagai pengganti jika kita tidak menggunakan LDB maka kita harus mendefine sbb:
DATA : BEGIN OF P0002 OCCURS 10.
INCLUDE STRUCTURE P0002.
DATA : END OF P0002 VALID BETWEEN BEGDA AND ENDDA.
nah kelihatan bukan jika kita menggunakan LDB coding nya pun semakin irit.

PENGUMPULAN DATA.
Setelah kita mendefine infotype diatas maka kita membaca data infotype tersebut dengan hanya menggunakan statement : GET PERNR.
maka program akan mengumpulkan data dari infotype yang telah kita define diatas tadi.

PENGEVALUASI VALIDITY DATA
setelah data terbaca kemudian kita harus memilih dan memilah data record yang mana yang valid berdasarkan periode data tersebut yang sesuai dengan kebutuhan kita dengan perintah :
PROVIDE * FROM P0006
BETWEEN PN-BEGDA AND PN-ENDDA
WHERE P0006-SUBTY = ‘1’.
* additional processing
ENDPROVIDE.

Variable-variable yang perlu diingat dalam PNP LDB ini.
- PN-BEGDA dan PN-ENDDA adalah periode awal dan akhir untuk periode yang berlaku.
- PN-BEGPS dan PN-ENDPS adalah periode awal dan akhir untuk periode employee yang di seleksi.
- Untuk fungsi-fungsi LDB ini berjalan pastikan table PERNR di dekarasikan diatas program.

sampai disini dulu, untuk LDB payroll nanti di sessi tulisan berikutnya kita bahas.

INFOTYPE 0031 REFERENCE PERSONNEL NUMBERS

noreply@blogger.com (D i o c i o) — Tue, 20 Oct 2009 06:03:00 +0000

INFOTYPE 0031 REFERENCE PERSONNEL NUMBERS
Salam ABAP HR Indonesia !

Infotype 0031 digunakan jika employee yang memiliki lebih dari satu Personnel Number secara bersamaan, misalkan si A dengan nomor Employee 0001 kemudian diterminate dan di rehire dengan nomor 0005. Maka dengan Infotype 0031 kita bisa menelusuri nomor lama si A dan informasi lainnya yang otomatis akan di copy infotype-infotype lainnya di nomor 0001 jika nomor 0005 di update dengan hanya memaintain nomor lamanya di infotype 0031.

tapi bagaimana jika kita menginginkan agar TIDAK semua infotype di copy jika employee nomor 0005 di update ?.

Untuk reference personnel number ini, kita bisa memilih hanya infotype tertentu saja yang ingin link nya tetap terupdate, contohnya kita hanya ingin infotype 000, 0001, 0002 maka kita bisa di set di table V_T582A dan pastikan hanya infotype-infotype yang kita inginkan di tandai pada field "Copy Infotype".

Upload multy sheet excel into internal table

noreply@blogger.com (D i o c i o) — Thu, 14 May 2009 05:33:00 +0000

ABAP - Upload multy sheet excel into internal table
Salam ABAP HR Indonesia !

Suatu saat ada kebutuhan upload dari excel ke sap nah berhubung pakai function ALSM_EXCEL_TO_INTERNAL_TABLE ada keterbatasan yaitu hanya bisa baca sheet yang active sementara kebutuhannya pengen baca fleksibel sheet lebih dari satu. nah akhirnya aye copy function ALSM_EXCEL_TO_INTERNAL_TABLE itu ke ZALSM_EXCEL_SHEET_TO_ITAB terus di edit dikit. edit nya apa aja ada di bawah ini yuk kita simak.

1. tambah parameter zsheetnm di tab import.

2. edit source nya jadi kayak dibawah ini

FUNCTION ZALSM_EXCEL_SHEET_TO_ITAB.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(FILENAME) LIKE  RLGRAP-FILENAME
*"     VALUE(I_BEGIN_COL) TYPE  I
*"     VALUE(I_BEGIN_ROW) TYPE  I
*"     VALUE(I_END_COL) TYPE  I
*"     VALUE(I_END_ROW) TYPE  I
*"     REFERENCE(ZSHEETNAME) TYPE  ZSHEETNM
*"  TABLES
*"      INTERN STRUCTURE  ALSMEX_TABLINE
*"  EXCEPTIONS
*"      INCONSISTENT_PARAMETERS
*"      UPLOAD_OLE
*"----------------------------------------------------------------------

DATA: EXCEL_TAB     TYPE  TY_T_SENDER.
DATA: LD_SEPARATOR  TYPE  C.
FIELD-SYMBOLS: <FIELD>.
DATA: APPLICATION   TYPE  OLE2_OBJECT,
WORKBOOK      TYPE  OLE2_OBJECT,
RANGE         TYPE  OLE2_OBJECT,
WORKSHEET     TYPE  OLE2_OBJECT,
************************************************************
* added to read dedicated sheet
************************************************************
SHEETS        TYPE  OLE2_OBJECT.
************************************************************
* added to read dedicated sheet
************************************************************
DATA: H_CELL        TYPE  OLE2_OBJECT,
H_CELL1       TYPE  OLE2_OBJECT.

* Makro für Fehlerbehandlung der Methods
DEFINE M_MESSAGE.
CASE SY-SUBRC.
WHEN 0.
WHEN 1.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
WHEN OTHERS. RAISE UPLOAD_OLE.
ENDCASE.
END-OF-DEFINITION.


* check parameters
IF I_BEGIN_ROW > I_END_ROW. RAISE INCONSISTENT_PARAMETERS. ENDIF.
IF I_BEGIN_COL > I_END_COL. RAISE INCONSISTENT_PARAMETERS. ENDIF.

* set seperator. Direct move is not sufficient (cause of hex type)
ASSIGN LD_SEPARATOR TO <FIELD> TYPE 'X'.
<FIELD> = GC_HEX_TAB.

* open file in Excel
IF APPLICATION-HEADER = SPACE OR APPLICATION-HANDLE = -1.
CREATE OBJECT APPLICATION 'Excel.Application'.
M_MESSAGE.
ENDIF.
CALL METHOD  OF APPLICATION    'Workbooks' = WORKBOOK.
M_MESSAGE.
CALL METHOD  OF WORKBOOK 'Open'    EXPORTING #1 = FILENAME.
M_MESSAGE.
*  set property of application 'Visible' = 1.
*  m_message.

************************************************************
* added to read dedicated sheet
************************************************************
IF ZSHEETNAME NE ''.
* Determine number of sheets
CALL METHOD OF APPLICATION 'Sheets' = SHEETS.
M_MESSAGE.

*    CALL METHOD OF SHEETS 'Count' = SHEETNO.
*    M_MESSAGE.

* Activate sheet number L_ACTIVE_SHEET with tab name
CALL METHOD OF APPLICATION 'Worksheets' = WORKSHEET
EXPORTING #1 = ZSHEETNAME.
M_MESSAGE.

CALL METHOD OF WORKSHEET 'Activate'.
M_MESSAGE.

*    GET PROPERTY OF worksheets 'Name' = ZSHEETNAME.
ENDIF.
************************************************************
* added to read dedicated sheet
************************************************************

GET PROPERTY OF  APPLICATION 'ACTIVESHEET' = WORKSHEET.
M_MESSAGE.

* mark whole spread sheet
CALL METHOD OF WORKSHEET 'Cells' = H_CELL
EXPORTING #1 = I_BEGIN_ROW #2 = I_BEGIN_COL.
M_MESSAGE.
CALL METHOD OF WORKSHEET 'Cells' = H_CELL1
EXPORTING #1 = I_END_ROW #2 = I_END_COL.
M_MESSAGE.

CALL METHOD  OF WORKSHEET 'RANGE' = RANGE
EXPORTING #1 = H_CELL #2 = H_CELL1.
M_MESSAGE.
CALL METHOD OF RANGE 'SELECT'.
M_MESSAGE.

* copy marked area (whole spread sheet) into Clippboard
CALL METHOD OF RANGE 'COPY'.
M_MESSAGE.

* Without control flush, CLPB_IMPORT does not find any data
CALL FUNCTION 'CONTROL_FLUSH'
EXCEPTIONS
OTHERS = 3.

* read clipboard into ABAP
CALL FUNCTION 'CLPB_IMPORT'
TABLES
DATA_TAB   = EXCEL_TAB
EXCEPTIONS
CLPB_ERROR = 1
OTHERS     = 2.
IF SY-SUBRC <> 0.
MESSAGE A037(ALSMEX).
ENDIF.

PERFORM SEPARATED_TO_INTERN_CONVERT TABLES EXCEL_TAB INTERN
USING  LD_SEPARATOR.

* clear clipboard
REFRESH EXCEL_TAB.
CALL FUNCTION 'CLPB_EXPORT'
TABLES
DATA_TAB   = EXCEL_TAB
EXCEPTIONS
CLPB_ERROR = 1
OTHERS     = 2.

* quit Excel and free ABAP Object - unfortunately, this does not kill
* the Excel process
CALL METHOD OF APPLICATION 'QUIT'.
M_MESSAGE.

FREE   OBJECT APPLICATION.
M_MESSAGE.

* >>>>> Begin of change note 575877
* to kill the Excel process it's necessary to free all used objects
FREE OBJECT H_CELL.       M_MESSAGE.
FREE OBJECT H_CELL1.      M_MESSAGE.
FREE OBJECT RANGE.        M_MESSAGE.
FREE OBJECT WORKSHEET.    M_MESSAGE.
FREE OBJECT WORKBOOK.     M_MESSAGE.
*  FREE OBJECT application.  m_message.
* >>>>>> End of change note 575877
ENDFUNCTION.

3. nah tinggal di pake deh functionnya, contohnya :


* --Load Excel actual sheet
REFRESH ITDATA.
CALL FUNCTION 'ZALSM_EXCEL_SHEET_TO_ITAB'
EXPORTING
FILENAME    = ZFILESRC
I_BEGIN_COL = BCOL
I_BEGIN_ROW = BROW
I_END_COL   = ECOL
I_END_ROW   = EROW
ZSHEETNAME  = 'Actual'
TABLES
INTERN      = ITDATA.

nah kalo mau liat di web lainnya bisa liat di sini nih karena aye dapet idenya dari situ : https://www.sdn.sap.com/irj/scn/thread?tstart=0&threadID=1272542&messageID=7207436

selamat mencoba yeeee.

SAP ABAP – PHP Connector dan RFC

noreply@blogger.com (D i o c i o) — Tue, 21 Apr 2009 01:57:00 +0000

SAP ABAP – PHP Connector dan RFC
Salam ABAP HR Indonesia !

Kali ini aye mau bahas Interface antara SAP dan PHP. Skenario Applikasinya gini, aye mau bikin semacem ESS untuk employee gunanya untuk employee bisa mengecek sisa cutinya masing-masing melalui WEB, sementara data nye ada di SAP ( background-nye ). Kurang lebih gambarannya gitu aje ye…. Gak usah yg gede-gede dulu nyang penting ketangkep malingnya…… maksudnye idenya. Sebenernya nyang kayak gini sih di SAP versi baru ( netweaver bo ) itu lebih mudah karena udeh ade java nye, atau bisa pake SOAP, atau SOA atau pake .NET atau VB connector tapi nyang ini ni sekarang kita coba pake PHP connector karena gratis dan mudah.

Nyang kite butuhin sekarang sih ya mungkin :
1. SAP, ya emang sebagai background system nya, semua data employee ada di sini, termasuk data cuti employee yang nanti kita butuhkan untuk coba disini ye.
2. Application Server, nah nanti kite coba pake yang simple aje install aje XAMPP biar cepet ye.
3. PHP udah include di nomor 2 diatas tuh kalo kite udah install.
4. PHP Connector bisa di download disini .

Nah kalo nyang kite butuhin udeh ade semua tinggal kita ikutin step-step nye ye, yuk kite mulai, start your engine, get set and …… goooo

Step 1 : Install Application server XAMPP nye, ikutin aje ye, aye anggap udah bisa lah cara install XAMPP ini. Nanti biasenye udan terinstall juga PHP nye disitu.

Step 2 : Taro deh PHP connector DLL nye di PHP server nye. Kalo pake PHP 5 biasenye ada di folder …\xampp\php\ext kalo di php 4 biasenye ada di folder …\xampp\php\extentions

Step 3 : Edit file php.ini tambahin -> extension=php_saprfc.dll di bagian extention nye ye. Bisa di test Saprfc dll itu jalan ape enggak lewat phpinfo() tau kan ? Kalo keliatan ada berarti udah on tuh.

Step 4 : bikin folder working\cuti di htdocs

Step 5 : taro file saprfc.php di folder working\cuti itu ye ( coba baca2 deh saprfc.php nye isinye ye )

Step 6 : bikin file Infocuti.php isinye kayak dibawah ini codingnye.

<html>
<head>
</head>
<body>
<fieldset><legend>Absence Quota</legend>
<?
$zpernr = '';
echo "<form method='POST' action='getcuti.php'>
Employee Number  : <input type='text' name='zpernr' value='$zpernr' size='8' Maxlength='8'>&nbsp&nbsp<input type='submit' name='submit' value='Submit'>
</form>";
?>
</fieldset>
</body>
</html>

Step 7 : Bikin lagi di folder tadi ye file getcuti.php nyang isi nye dibawah niii.

<?php 
include("infocuti.php");
require_once("saprfc.php");
$zpernr = $_POST["zpernr"];
?>

<html>
<head>
</head>

<body>

<fieldset><legend>Information</legend>
<?
//Create Object to login SAP
$rfc = new saprfc(array(
"logindata"=>array(
"ASHOST"=>"10.1.10.11"   // application server
,"SYSNR"=>"00"           // system number
,"CLIENT"=>"805"         // client
,"USER"=>"dicky.z"       // user
,"PASSWD"=>"dickyz"      // password
)
,"show_errors"=>false   // let class printout errors
,"debug"=>false)) ;      // detailed debugging information

if ( ! $rfc ){exit;}

//set date
list($d, $m, $y, ) = split('-', date("d-m-Y"));
$zdesta = $y."0101";
$zdeend = $y."1231";
$zdesta = "18000101";
$zdeend = "99991231";

// Call-Function
$result = $rfc->callFunction("Z_GET_ABSENCE_QUOTA",
array(array("IMPORT","ZPERNR","$zpernr"),
array("IMPORT","ZSUBTY","01"),
array("IMPORT","ZDEDDA","$zdesta"),
array("IMPORT","ZDEDEN","$zdeend"),
array("EXPORT","ZENAME",""),
array("TABLE" ,"ZP2006",array())
));

// Call successfull?
if ($rfc->getStatus() == SAPRFC_OK) {

if ($result["ZENAME"]==''){
echo "Employee number not found, please verify...";
$rfc->logoff();
exit;
}

echo "<table><tr><td>Employee Number</td><td>:</td><td>",$zpernr,"</td></tr>";
echo "<tr><td>Name</td><td>:</td><td>",$result["ZENAME"],"</td></tr></table><br>";
?>
<table border='1' bordercolorlight='#000000'>
<tr><th>Start</th><th>End</th><th>Deduction Start</th><th>Deduction End</th><th>Quota</th><th>Quota used</th></tr>
<?
echo "<caption>Quota : ",$zdesta," - ",$zdeend,"</caption>";

$zquota = 0;
$zused = 0;
$zn = 0;
foreach ($result["ZP2006"] as $detail) {
if ($zn==0){ 
echo "<tr CLASS='a'>"; $zn++; }
else{
echo "<tr CLASS='b'>"; $zn--; }
echo "<td>", $detail["BEGDA"],"</td>
<td>", $detail["ENDDA"],"</td>
<td>", $detail["DESTA"],"</td>
<td>", $detail["DEEND"],"</td>
<td align='right'>", $detail["ANZHL"]," day(s)</td>
<td align='right'>", $detail["KVERB"]," day(s)</td></tr>";
$zquota = $zquota + $detail["ANZHL"];
$zused = $zused + $detail["KVERB"];
}

echo "<tr><td colspan=4>Total</td><td align='right'>",$zquota," day(s)</td><td align='right'>",$zused," day(s)</td></tr>";
echo "<tr><td colspan=5>Balance</td><td align='right'>",$zquota-$zused," day(s)</td></tr>";
?></table><?

} else {
// No, print long Version of last Error
$rfc->printStatus();
// or print your own error-message with the strings received from
//   $sap->getStatusText() or $sap->getStatusTextLong()
}

$rfc->logoff();

?>

</fieldset>
</body></html>

Step 8 : Untuk file getcuti.php perhatikan coding nye nyang bagian

$rfc = new saprfc(array(
"logindata"=>array(
"ASHOST"=>"10.1.10.11" // application server
,"SYSNR"=>"00" // system number
,"CLIENT"=>"805" // client
,"USER"=>"dicky.z" // user
,"PASSWD"=>"dickyz" // password
)
,"show_errors"=>false // let class printout errors
,"debug"=>false)) ; // detailed debugging information

Harus di sesuaikan dengan login yang nantinye ente pake di SAP nye ye..

Step 9 : Kite bikin Coding RFC di SAP nye ye, lewat SE37 kita bikin function namenye Z_GET_ABSENCE_QUOTA.

Coding Abap nye dibawah ini

FUNCTION Z_GET_ABSENCE_QUOTA.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(ZPERNR) LIKE  P2006-PERNR
*"     VALUE(ZSUBTY) LIKE  P2006-SUBTY
*"     VALUE(ZDEDDA) LIKE  P2006-DESTA
*"     VALUE(ZDEDEN) LIKE  P2006-DEEND
*"  EXPORTING
*"     VALUE(ZENAME) LIKE  P0002-CNAME
*"  TABLES
*"      ZP2006 STRUCTURE  PA2006
*"----------------------------------------------------------------------

* Get Quota infty 2006

SELECT * FROM PA2006 INTO zp2006 WHERE PERNR eq zpernr
AND SUBTY eq zsubty
AND DESTA ge zdedda
AND DESTA le zdeden.
*                         AND DEEND ge zdeden.
APPEND zp2006.
CLEAR zp2006.
ENDSELECT.

* Get Personnal Data Infty 0002
INFOTYPES: 0002.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
TCLAS     = 'A'
PERNR     = zpernr
INFTY     = '0002'
BEGDA     = zdedda
ENDDA     = zdeden
TABLES
INFTY_TAB = p0002.
READ TABLE p0002 INDEX 1.
ZENAME = p0002-CNAME.

ENDFUNCTION.

Step 10 : Nanti tinggal di test kurang lebih hasilnye kayak gini.

silahkan.... selamat mencoba
Kalo ade salah salah mohon di koreksi ye…. Namanya juga sama-sama belajar.

ini ada link yg thema nya same

Buat yang Belajar ABAP - Software Mini SAP

noreply@blogger.com (D i o c i o) — Tue, 14 Apr 2009 09:15:00 +0000

Buat yang mau belajar SAP ABAP di rumah bisa di download source nya di bawah ini. aye dapet dari forum gak tau siapa yang punya. download aja deh jadi bisa belajar SAP ABAP dirumah.

NB: This does not include the functional modules... only good for ABAP/4 programmers.

Link Disk1:
http://rapidshare.com/files/795136/MiniSapCd1.part1.rar
http://rapidshare.com/files/795954/MiniSapCd1.part2.rar
http://rapidshare.com/files/810556/MiniSapCd1.part3.rar
http://rapidshare.com/files/810409/MiniSapCd1.part4.rar
http://rapidshare.com/files/819126/MiniSapCd1.part5.rar
http://rapidshare.com/files/818884/MiniSapCd1.part6.rar
http://rapidshare.com/files/828305/MiniSapCd1.part7.rar
http://rapidshare.com/files/827340/MiniSapCd1.part8.rar

Link Disk2:
http://rapidshare.com/files/828319/MiniSapCd2.part01.rar
http://rapidshare.com/files/902524/MiniSapCd2.part02.rar
http://rapidshare.com/files/902316/MiniSapCd2.part03.rar
http://rapidshare.com/files/936050/MiniSapCd2.part04.rar
http://rapidshare.com/files/935692/MiniSapCd2.part05.rar
http://rapidshare.com/files/947683/MiniSapCd2.part06.rar
http://rapidshare.com/files/1320189/MiniSapCd2.part07.rar
http://rapidshare.com/files/1363944/MiniSapCd2.part08.rar
http://rapidshare.com/files/1378747/MiniSapCd2.part09.rar
http://rapidshare.com/files/1378696/MiniSapCd2.part10.rar
http://rapidshare.com/files/1378689/MiniSapCd2.part11.rar
http://rapidshare.com/files/1378679/MiniSapCd2.part12.rar
http://rapidshare.com/files/1440674/MiniSapCd2.part13.rar

SM30 Delimited Date

noreply@blogger.com (D i o c i o) — Fri, 03 Apr 2009 02:37:00 +0000

ABAP - SM30 Delimited Date
Salam ABAP HR Indonesia !

Biasanya di modul HR, setiap data memakai delimit date untuk setiap perubahan data yang ada. Contoh nya nih seperti ilustrasi dibawah ini. Setiap kali data ditambahkan maka secara otomatis endda akan terpotong.

Untuk delimited date SAP mempunyai fungsi standard yang langsung bisa ditambahkan pada configurasi table dengan cara seperti dibawah ini.

1. SE11 kemudian masukan nama table.
2. Click Change
3. Pilih Menu Utilities > Table Maintenance Generator.

4. Kemudian pilih Menu Environment > Validity range

Setelah itu maka kalo kita lihat di coding nya akan kelihatan pada Screens nya akan ada tambahan seperti dibawah ini.

Seperti yg dijelaskan di depan setelah menambahkan validity range hasilnya secara otomatis endda akan terpotong sehari sebelum tanggal record baru.

Nah masalahnya bagaimana kalo record itu kita delete maka seharusnya tanggal endda harus di sesuaikan dengan endda sebelumnya supaya secara periode data tidak terjadi gap.

Contoh : Jika saya mendelete pada record Personnel Area 100 dengan begda 01.02.2009 dan endda 28.02.2009, maka record akan menjadi seperti pada gambar berikut.

User menginginkan agar data Endda dikembalikan sesuai dengan endda record yang di delete. Bisa dilihat pada gambar ini. Endda record Personnel area 1000 dengan begda 01.01.2009 dan dengan endda yang berubah menjadi 28.02.2009 sesuai dengan endda record yang di delete.

Untuk itu kita harus tambahkan coding di dalam configurasi table nya ( blom ketemu dari standard SAP nya, bagi yg udah tau dan nemu standardnya ya bagi-bagi lah infonya ). Caranya sbb:

Masuk ke SE11 Lakukan seperti step 1,2,3 diatas. Kemudian step ke 4 sbb:

4. Pilih Menu Environment > Modification > Events

5. Masukan Event seperti dibawah ini. Ingat setiap memasukan event click editor disamping nya supaya link sesuai dengan performnya.

Coding nya sbb:

*----------------------------------------------------------------------*
***INCLUDE ZDC_ZONA_UDF .
*----------------------------------------------------------------------*

* Variable tampungan endda yang akan di delete
* yang nanti nya di replace ke record sebelumnya
DATA: ZDELETED_ENDDA LIKE SY-DATUM.
DATA: ZIZONA LIKE ZPAZONA OCCURS 0 WITH HEADER LINE.
DATA: ZKEYLINE LIKE LINE OF ZIZONA.
DATA: ZLINE LIKE LINE OF ZIZONA.
DATA: ZLEN TYPE I.

*---------------------------------------------------------------------*
* FORM ZGET_ZONA_BEFORE_DELETE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM ZGET_ZONA_BEFORE_DELETE.
* BREAK-POINT.
ZLINE = TOTAL.
PERFORM ZGET_KEYLEN CHANGING ZLEN.
LOOP AT TOTAL.
IF TOTAL(ZLEN) EQ ZLINE(ZLEN).
* ambil endda nya untuk di replace ke record sebelumnya
ZDELETED_ENDDA = ZLINE-ENDDA.
EXIT.
ELSE.
* simpen key record sebelumnya
ZKEYLINE = TOTAL(ZLEN).
ENDIF.
ENDLOOP.
ENDFORM.

*---------------------------------------------------------------------*
* FORM ZGET_ZONA_AFTER_DELETE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM ZGET_ZONA_AFTER_DELETE.

IF ZKEYLINE NE ''.
LOOP AT TOTAL.
* baca record sebelumya
CHECK TOTAL(ZLEN) EQ ZKEYLINE.
* BREAK-POINT.
* simpen record sebelumnya untuk di delete
* supaya gak bentrok
ZIZONA = TOTAL.
APPEND ZIZONA.
* Update endda
ZLINE = TOTAL.
DELETE TOTAL.
ZLINE-ENDDA = ZDELETED_ENDDA.
TOTAL = ZLINE.
* record sebelunya dianggap new
CONCATENATE TOTAL 'N' INTO TOTAL.
APPEND TOTAL.
SORT TOTAL.
EXIT.
ENDLOOP.
LOOP AT EXTRACT.
* baca record sebelumnya
CHECK EXTRACT(ZLEN) EQ ZKEYLINE.
* Update endda
ZLINE = EXTRACT.
DELETE EXTRACT.
ZLINE-ENDDA = ZDELETED_ENDDA.
EXTRACT = ZLINE.
APPEND EXTRACT.
SORT EXTRACT.
EXIT.
ENDLOOP.
ENDIF.
ENDFORM.

*---------------------------------------------------------------------*
* FORM ZGET_ZONA_BEFORE_SAVE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM ZGET_ZONA_BEFORE_SAVE.
* BREAK-POINT.

READ TABLE ZIZONA INDEX 1.
IF SY-SUBRC EQ 0.
DELETE ZPAZONA FROM TABLE ZIZONA.
ENDIF.
CLEAR: ZKEYLINE.
REFRESH: ZIZONA.
CLEAR: SY-SUBRC.

ENDFORM.

*---------------------------------------------------------------------*
* FORM ZGET_KEYLEN *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM ZGET_KEYLEN CHANGING ZKEYLEN.
CLEAR: ZKEYLEN.

LOOP AT X_NAMTAB WHERE KEYFLAG = 'X' AND TEXTTABFLD <> 'X'.
ZKEYLEN = ZKEYLEN + X_NAMTAB-FLENGTH.
ENDLOOP.

ENDFORM.

Selamat Mencoba Yeeee....
kalo ada cara yang lebih bagus kasih tau yee

Kumpulan contoh Code ABAP koleksi lama gue

noreply@blogger.com (D i o c i o) — Tue, 03 Feb 2009 02:58:00 +0000

SAP : Kumpulan contoh Code ABAP koleksi lama gue

Lumayan buat contekan kalo ada project terus lagi mentok bisa buat referensi teknik-teknik programming nya yang diambil dari sumber-sumber orang-orang yang udah master di ABAP nya tuh. gue sih ambil dari berbagai sumber di internet bisa di liat di http://diocio.wordpress.com

INFOTYPE 0031 - REFERENCE PERSONNEL NUMBERS

noreply@blogger.com (D i o c i o) — Thu, 15 Jan 2009 03:58:00 +0000

Kenapa sih kita gak bisa liat data infotype 0031 lewat SE16 atau SE11 ?
Enggak seperti infotype-infotype lainnya kita bisa liat data yang tersimpan di table lewat se11 atau se16, tapi untuk infotype 0031 gak bisa.

Nah ini jawabannya. ( diambil dari link ini http://sap.ittoolbox.com/groups/technical-functional/sap-hr/reference-pers-numbers-1252496?cv=expanded)

As background information I'd like to tell you thatsince release 4.6C apparently SAP do not use the table PA0031 anymore.

The data model for the reference numbers was very poor and not absolutelystable. Therefore a new object called 'central person' has been intro-duced.
This object does not carry any information than the relationshipsto the related employees.

For each person we store an Object (Object type 'CP') and relatethe employee contracts (Object type 'P') to the Object (Infotype 1001).

The Infotype 0031 can still be used but we do not store thisinfotype physically in table PA0031 any more.

If you check the PA0031 on DB for your pernr you will see no entry. In normal circumstances, the central person is automatically created foreach new employee.
However, the central persons and links for theTo delete CP objects, use the standard program RHRHDL00 - Delete Data Records from Personnel Planning Database.

If you are migrating from a release below 4.6C you have to create the CP using the report RPU46CX_CENTRAL_PERSON_ONLINE - XPRA: Conversion of Reference Personnel Numbers.

Nah untuk lihat isi infotype 0031 bisa lewat t code -> Run this T.Code for Reference Personnel Number : S_AHR_61016358
Atau ada function -> HR_READ_0031_DB to retrieve the data you require.

SAP HR - Payroll Result

noreply@blogger.com (D i o c i o) — Tue, 13 Jan 2009 07:56:00 +0000

Payroll Result
Salam ABAP HR Indonesia !

Di ABAP HR kadang harus membaca Payroll result untuk keperluan report/program. Gimana sih cara baca payroll result nye ? Karena kan payroll result disimpan dalam cluster table, nah makanya perlu cara khusus untuk bacanya.

Pertama sih untuk lebih gampang pake logical database PNP yang biasa di pake di module HR ini.
Untuk gambaran pamakaian Logical database PNP bisa diliat di gambar dibawah ini deh. Jadi bisa keliatan kalo logical database PNP akan membaca semua table yang diperlukan sehigga prorgam yang kita bikin bisa langsung baca sesuai dengan ketentuan selection screen yang sudah di saring. Jadi kita gak perlu baca satu persatu table karena sudah di sediakan logical database PNP di internal table nya, tinggal di manipulasi atau kita proses sesuai dengan program yang akan kita bikin.

Strukture Logical Database untuk Payroll Result itu kayak gini nih ilustrasinya.

Keuntungan-keuntungan kalo kita pake logical database.

Kita bisa akses payroll result dengan cepat dan lebih mudah.
Mudah dan caranya sudah standard dalam membaca payroll result Antarmukanya yang standard dalam pemakaiannya.
Kemampuan yang lebih baik dibanding kalo kita gak pake LDB dengan transparant table untuk menyeleksi data.
Coding yang lebih singkat berkurang hingga 60%.
Bisa bikin report/program jadi lebih cepet.
Lebih terintegrasi dengan seluruh proses payroll

Bisa di liat deh perbandingan nya secara coding seperti ilustrasi dibawah ini.

Ini contoh dari coding kalo kita mau bikin report untuk baca payroll result.

Bisa juga kita pake macro biar lebih cepat dan lebih simpe program nya, kayak gini gambarannya.

Nah untuk perbandingan perbedaan coding versi lama dengan coding versi baru bisa keliatan dari ilustrasi dibawah ini.

Nah dari gambaran diatas terserah deh mau cara yang A apa yang B bedanya yang satu pake macro untuk mindahin data ke internal table yang satu lagi langsung di baca.
Nah kalo yang pake macro gambaran mekanisme nya kayak dibawah ini.

Jelas gak ya kira-kira dari uraian diatas ?, semoga jelas deh ya kalo gak jelas silahkan di tanyakan. Kali-kali aja gue bisa jawab, kalo gak bisa jawab nanti gue tanya lagi ke orang-orang yang bisa jawab jadi biar sama-sama belajar.
O iya ini ada infotype-infotype yang berguna kalo kita baca payroll result.

SELAMAT MENCOBA

ABAP - CALCULATOR

noreply@blogger.com (D i o c i o) — Fri, 09 Jan 2009 11:25:00 +0000

Lagi liat-liat contoh program ada nemu calculator nih, lumayan sih buat liat-liat gak kalah sama calculatornya windows.

A SAP Pop-out Calculator

*
* Written by : SAP Basis, ABAP Programming and Other IMG Stuff
* http://www.sap-img.com
*
* A Pop-out Calculator for the users
*
REPORT ZCALCULATOR.

DATA: X_VALUE(15) TYPE C.

call function 'FITRV_CALCULATOR'
* EXPORTING
* INPUT_VALUE =
* CURRENCY =
* START_COLUMN = '10'
* START_ROW = '10'
IMPORTING
OUTPUT_VALUE = X_VALUE
EXCEPTIONS
INVALID_INPUT = 1
CALCULATION_CANCELED = 2
OTHERS = 3.

IF SY-SUBRC = 0.
WRITE:/ 'Output Value ', X_VALUE.
ENDIF.

*-- End of Program

Yang berhubungan dengan ABAP HR

noreply@blogger.com (D i o c i o) — Fri, 09 Jan 2009 11:09:00 +0000

Ini pokoknya yang berhubungan dengan ABAP HR.

Database Tables in HR

· Personnel Administration (PA) - master and time data infotype tables (transparent tables).
PAnnnn: e.g. PA0001 for infotype 0001

· Personnel Development (PD) - Org Unit, Job, Position, etc. (transparent tables).
HRPnnnn: e.g. HRP1000 for infotype 1000

· Time/Travel expense/Payroll/Applicant Tracking data/HR work areas/Documents (cluster)
PCLn: e.g. PCL2 for time/payroll results.

Tentang Custer Table.
Cluster Table kombinasi dari beberapa table yang keynya biasanya identik di gabung secara pisik dalam satu record dalam database.
Data ditulis dalam databse dengan format terkompresi.
Akse yang cepat dalam membaca/mencari record jika primary key nya sudah di ketahui.
Terdifine di dalam data dictionary sebagai transparant table.
Program External tidak dapat membaca/menginterprestasikan data di dalam cluster table.
Diperlukan element bahasa khusus EXPORT TO DATABASE, IMPORT TO DATABASE dan DELETE
FROM DATABASE yang digunakan untuk memproses di dalam cluster table.
Contoh cluster table :
PCL1 - Database for HR work area;
PCL2 - Accounting Results (time, travel expense and payroll);
PCL3 - Applicant tracking data;
PCL4 - Documents, Payroll year-end Tax data

ABAP HR Logical Database ( LDB )

noreply@blogger.com (D i o c i o) — Fri, 09 Jan 2009 10:48:00 +0000

Logical Database atau disebut LDB adalah suatu program khusus ABAP/4 yang di kombinasikan dengan isi database table tertentu, dengan LDB memudahkan abaper dalam menyaring/menyeleksi data dari table untuk di baca dalam programnya.

Dengan kata lain, LDB adalah metode program ABAP yang membaca dan memproses data. Yang mana secara berurutan akan menyediakan data yang mana data yang diberikan ke program secara terstruktur.

The LDB biasanya terdiri dari komponen-komponen berikut:

Structure
Selections
Database programs

Bagaimana Logical Database digunakan ?
1. saat membuat sebuah program ABAP
Dengan memasukan Selection (SELECT-OPTION dan Parameters) pada Selection Screen logical database atau program
2. Pada saat run-time
Pada saat run-time, system memproses event dalam program dan dalam logical database secara berurutan.

Sebelum program menampilkan layar selection screen, Pada bagian Initializations akan berjalan untuk menset sesuatu yang akan di tampilkan di selection screen. contoh nya memberikan nilai default pada selection screen tanggal dengan nilai tanggal current date.

Logical Database tidak hanya mengecek kelengkapan dan kebenaran data yang di masukan di selection screen, tapi juga akan memeriksa otorisasi yang di miliki pengguna terhadap data yang akan di baca.

Pada Bagian START-OF-SELECTION maka program akan melakukan proses awal. Logical Database akan membaca data sesuai dengan pilihan dan otorisasi yg dimiliki user pada saat perintah GET dilaksanakan.

3. Merancang Layar Selection Screen.
Standard Selection Logical Database memiliki standard tampilan SELECT-OPTION dan PARAMETERS sesuai dengan urutan deklarasi. jadi system otomatis menampilkan selection screen seperti itu .
Tapi Anda dapat menentukan pilihan anda sendiri untuk layar Logical database ini dengan memilih field-field yang akan di tampilkan.

contoh LDB di HR adalah biasanya pake PNP. fungsi PNP ini seperti :

sebagai standard selection screen, biasanya setiap program abap report ada selection screen untuk menginput periode, seleksi data dan parameter lainnya.
Data Retrieval, dalam menyeleksi data yang akan di baca dalam program.
Authorization check.

dalam menggunakan PNP ini specifikasi yang harus di ikutkan di dalam program seperti berikut :

Create data structures for infotypes.

INFOTYPES: 0001, "ORG ASSIGNMENT
0002, "PERSONAL DATA
0008. "BASIC PAY

ini fungsinya membuat internal table yang langsung berhubungan dengan LDB yang akan menampung data dari LDB ke dalam struktur yang di define, kalo liat contoh diatas maka nantinya data dari LDB akan di tampung di internal table P0001, P0002, P0008.

Fill data structures with the infotype records.

Start-of-selection.
GET PERNR.
End-0f-selection.

nah disini membaca data per emplyee dari database berdasarkan kriteria dari LDB diatas tadi yang akan masuk ke internal table P0001, P0002,P0008. jadi data di internal table itu bisa di proses sesuai dan sudah valid sesuai kriteria datanya.

biasanya data yang sudah di baca dengan GET pernr diatas tadi dilakukan lagi seleksi berdasarkan periode yang sesuai dengan kriteria yang dinginkan dengan menyeleksi perintah :
GET PERNR.
PROVIDE * FROM Pnnnn BETWEEN PN/BEGDA AND PN/ENDDA
If Pnnnn-XXXX = ' '. write:/ Pnnnn-XXXX. endif.
ENDPROVIDE.

atau kalo mau lebih pendek lagi codingnya pake macro kayak gini
RP-PROVIDE-FROM-LAST P0006 1 PN/BEGDA PN/ENDDA.

ABAP - MACRO

noreply@blogger.com (D i o c i o) — Fri, 09 Jan 2009 10:14:00 +0000

Tau kan macro ?, di SAP ada RMAC module disitu kumpulan macro yang dibuat khusus untuk memudahkan pembuatan program/Abap sehingga coding tidak terlalu panjang dengan fungsi yang dipakai berulang-ulang.

Macro berisi cuplikan code program yang dibuat untuk melakukan suatu pekerjaan sehingga dapat dipakai berkali-kali, seperti function module.

SAP sih sudah membuatkan standard macro yang sudah ada tapi kalo kita mau nambah dan bikin sendiri tinggal di masukin ke tabel TRMAC, atau bisa di lihat di program include DBPNPMAC , yang bisa kita pakai macro nya dengan mendeklarasikan include DBPNPMAC terlebih dahulu diatas program..

biar lebih jelas ada contoh yang aye dapet dari baca-baca terus dipake di program. contohnya :

Macro untuk baca(read) infotype. Nama macronya -> RP-READ-INFOTYPE

REPORT ZHR00001.
INFOTYPE: 0002.
PARAMETERS: PERNR LIKE P0002-PERNR.
RP-READ-INFOTYPE PERNR 0002 P0002 .
PROVIDE * FROM P0002
if ... then ...endif.
ENDPROVIDE.

keliatan kan huruf yg di tebelin, perintahnya kalo pake macro cuma 1 baris, kalo gak pake macro bisa lebih dari 4 baris.
artinya : program membaca infotype 00002 yang akan di tampung di internal table P0002 dengan kriteria periode data mulai dari tanggal sampai .

Macro untuk ubah(update) infotype. Nama macronya -> RP-UPDATE

Sebelum update data infotype, data harus di baca dulu supaya ada di internal table. kemudian data di ubah yang ada di internal table baru nanti di save ke table infotype dengan conding kayak gini nih.

INFOTYPES: Pnnnn NAME OLD, "nyiapin internal table buat tampungan
Pnnnn NAME NEW. "sama ini juga internal table untuk tampungan data
GET PERNR. "nah yang ini baca data menggunakan LDB ( logical database )
PROVIDE * FROM OLD "awal blok ini untuk menyaring data sesuai kriteria yang diinginkan
WHERE .... = ... "Change old record
*Save old record in alternate table
NEW = OLD.
ENDPROVIDE. "Akhir blok
RP-UPDATE OLD NEW. "Update changed record

Dengan macro data yang kita baca lebih akurat, code jadi lebih singkat, program berjalan lebih cepat.

Belajar ABAP Dialog Programming

noreply@blogger.com (D i o c i o) — Thu, 08 Jan 2009 10:13:00 +0000

Belajar Dialog Programming

Buat yang lagi belajar mungkin ini bisa tambah ngerti tentang dialog programming di SAP. kita mulai dari yang simple aja deh ya.

1. bikin di SE38 program nya. Isi Nama programkemudian click Tombol Create.

Isi title nya, dan pilih type dari program module pool. Kemudian click tombol save.
Click tombol local object.

Click tombol Object list, untuk melihat object yang ada, disisi kiri.

2. Create screen. Click kanan di Object list pilih Create screen.
Isi Screen number nya, kita mulai dengan 9000.

Isi Description dari screen nya, kemujdian click tombol Layout diatas untuk mulai mendisain screen.

Buat Screen seperi contoh, untuk button isikan di BTN1 sebagai fctCode sebagai nilai pada saat button di click.
Save screen kemudian keluar dari screen layout.

Click Tab Flow Logic untuk menulis code logic dari program.

Copy Paste codin di bawah ini.

PROGRAM ZHELLO .
DATA: ZNAMA(80) TYPE C.
*---------------------------------------------------------------------*
* MODULE USER_COMMAND_9000 INPUT *
*---------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
WHEN 'BTNI'.
MESSAGE I014(DEMOOFFICEINTEGRATIO) WITH ZNAMA.
WHEN 'EXIT' OR 'CANCEL' OR 'BACK'.
LEAVE SCREEN.
ENDCASE.
ENDMODULE.
*---------------------------------------------------------------------*
* MODULE STATUS_9000 OUTPUT *
*---------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'MSTATUS'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_9000 OUTPUT

3. Create GUI Status. Berfungsi untuk navigasi.
Click kanan di object list create Gui Status.

4. Create Transaction Code, untuk memanggil program yang kita bikin. Caranya sama click kanan di object list pilih create transacation. Isi tcode nya, isi programnya dengan program yang kita bikin, isi screen nya sesuai yang screen yang kita bikin.

nah selesai deh...
tinggal di test dengan memanggil tcode nya zhello. selamat mencoba ya.... kalo gak bisa tanya aja.