SAP-ABAP

SAP ALE(Application Link Enabling

2010-10-24T17:14:00.001+07:00

How to set ALE, look into the below links :

http://www.youtube.com/watch?v=JyYiZY18WjI&feature=related
http://www.youtube.com/watch?v=RXAK8iEcxkc&feature=related

Embed SAP View in an ABAP Program

2010-07-03T11:24:00.000+07:00

Please read this link : http://naveenvishal.wordpress.com/2009/07/27/embed-view-in-program/#more-472

Customize for maintenance view

2010-07-03T11:20:00.002+07:00

Please follow the below steps :

- You create a VIEW MAINTENANCE TABLE for your table;
- Generate a Table Maintenance for this view (not for the table);
- After generating the Table Maintenance go to Enviroment->Modification->Events

Please refer this link for the detail events :
http://help.sap.com/saphelp_47x200/helpdata/en/91/ca9f0ea9d111d1a5690000e82deaaa/frameset.htm

help link : http://forums.sdn.sap.com/message.jspa?messageID=1755550

Hide and Unhide source code in ABAP

2010-07-03T09:31:00.000+07:00

read this link : http://naveenvishal.wordpress.com/2009/08/08/hide-source-code/

Save Text for PO Notes

2010-07-03T09:14:00.001+07:00

IF ls_theadtab-neu EQ 'X'.
CALL FUNCTION 'INIT_TEXT'
EXPORTING
id = l_thead-tdid
language = my_langu
name = l_thead-tdname
object = l_thead-tdobject
IMPORTING
header = l_thead
TABLES
lines = lt_tline
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc IS INITIAL.
MOVE-CORRESPONDING l_thead TO ls_theadtab.
ENDIF.

LOOP AT im_textlines INTO l_textline.
l_tline-tdformat = l_textline-tdformat.
l_tline-tdline = l_textline-tdline .
APPEND l_tline TO lt_tline.
ENDLOOP.

CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = l_thead
IMPORTING
function = l_txfunction
TABLES
lines = lt_tline
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc IS INITIAL.
ls_theadtab-neu = space.
IF NOT l_txfunction IS INITIAL.
CALL METHOD update_change_doc

EXPORTING
im_tdid = ls_theadtab-tdid
im_tdspras = ls_theadtab-tdspras
im_function = l_txfunction.
ls_theadtab-fixie = space.
ENDIF.
MODIFY my_theadtab FROM ls_theadtab INDEX l_tabix.

ELSE.

READ TABLE my_theadtab INTO ls_theadtab WITH KEY
tdobject = my_text_manager_type->tdobject
tdid = l_textid.
CHECK sy-subrc IS INITIAL.
CALL METHOD delete_text
EXPORTING
im_tdid = ls_theadtab-tdid
im_tdspras = ls_theadtab-tdspras
im_tdobject = ls_theadtab-tdobject
im_tdname = ls_theadtab-tdname.

ls_theadtab-neu = 'X'.
MODIFY TABLE my_theadtab FROM ls_theadtab.

ENDIF.

LMEREQF12

id = 'B01'.
language = E
name = 0010012535
object = EBANH

related link : http://iorboaz.blogspot.com/2007/05/sap-abap-putsave-text-in-sap.html

Split text to be words

2010-05-19T21:04:00.000+07:00

DATA: str1 TYPE string,
str2 TYPE string,
str3 TYPE string,
itab TYPE TABLE OF string with header Line,
text TYPE string.

text = 'What a drag it is getting old'.

*SPLIT text AT space INTO: str1 str2 str3,
* TABLE itab.

SPLIT text AT space INTO TABLE itab.
break hcl_kamal1.

LOOP AT itab.
case SY-TABIX.
WHEN 1.
str1 = itab.
WHEN 2.
ENDCASE.

ENDLOOP.

t-code I18N

2010-05-01T12:39:00.001+07:00

I18N is t-code for changing screen display from MS Word to Old screen.

List of tables for Stock Movement/Stock Card

2010-05-01T11:14:00.003+07:00

List of tables for Stock Movement / Stock Card report :

1. MBEW : stock on hand per today
2. MBEWH : stock on hand per period
3. MKPF : Material Document Header (Movement table header)
4. MSEG : Material Document Detail (Movement table Detail)
5. MARA : Material Master
6. MAKT : Material Description
7. MARD : Material Location Data

List of report for Stock Movement / Stock Card report :

1. MM60 : Material List
2. MB5B : Movement Stock per Location
3. MC.9 : Movement Stock per Location
4. MB51 : Material Document List
5. MB52 : Warehouse stocks of Material Summary

Task List table

2010-04-29T08:33:00.010+07:00

Access for Task List table, as following :

1. Using t-code CA03 (material) and will save to table :
MAPL (PLNTY,PLNNR,PLNAL)
2. Using t-code IA03/IH03 (Equipment) and will save to table :
EAPL (PLNTY,PLNNR,PLNAL)
3. Using t-code IA07 (General Maintenance Task List)

Related to other tables, as following :

1. PLKO (PLNTY,PLNNR,PLNAL)
2. PLWP(PLNTY,PLNNR,PLNAL,PLNKN)
2. PLAS (PLNTY,PLNNR,PLNAL,PLNKN, LOKEZ # Not equal to 'X' )
3. PLPO (PLNTY,PLNNR,PLNKN)
4. PLMZ (PLNTY,PLNNR,PLNKN, LOKEZ # Not equal to 'X', STLTY,STLNR, STLKN, STLAL(alternatif BOM))
5. STAS (STLTY,STLNR, STLAL,STLKN,LKENZ # "X") => Alternatif BOM
5. STPO( STLTY,STLNR, STLKN) --> STPO-IDNRK

Dynamic Code

2009-10-28T20:49:00.005+07:00

Try this..We create the coding in the notepad then this program will compile the coding and running the coding. I call this program as ABAP Query Analyzer.

*Dynamic manipulation of report programs
*......................................................................
*: Report ZDYNAMICCODE :
*:.....................................................................
*: Execute ABAP from a PC file(.txt) :
*: Therefor allowing any abap code to be executed on any client :
*: which contains this program :
*: :
*.....................................................................:
REPORT zdynamiccode .

TABLES rlgrap.

*selection screen creation
PARAMETER: p_file(200) TYPE c,
p_temp(30) TYPE c DEFAULT 'Z123TEMP_REPORT_FOR_CODE'.

*data declaration
DATA: it_tab TYPE filetable,
gd_subrc TYPE i,
answer TYPE c.

TYPES: BEGIN OF t_abapcode,
row(72) TYPE c,
END OF t_abapcode.
DATA: it_abapcode TYPE STANDARD TABLE OF t_abapcode INITIAL SIZE 0,
it_store TYPE STANDARD TABLE OF t_abapcode INITIAL SIZE 0.

DATA: filename TYPE string.

************************************************************************
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*Selecting a File, plus inserting default file extension
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title = 'Select File'
default_filename = '*.txt'
multiselection = ' '
CHANGING
file_table = it_tab
rc = gd_subrc.

LOOP AT it_tab INTO p_file.
ENDLOOP.

************************************************************************
*START-OF-SELECTION.
START-OF-SELECTION.

*move file name into a field with type compatable with FM
filename = p_file.

*upload file from PC
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = filename
TABLES
data_tab = it_abapcode
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc EQ 0.
* Check if report name being used fro temorary code already exists as
* any code will be over written and lost
READ REPORT p_temp INTO it_store.
IF sy-subrc NE 0.
* Please note any existing code in the program will be lost!!!!
INSERT REPORT p_temp FROM it_abapcode.
SUBMIT (p_temp) AND RETURN.
DELETE REPORT p_temp.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = 'Report used to store temporary code already
exists!!! Do you want to overwrite it?'
IMPORTING
answer = answer.
IF sy-subrc EQ 0.
IF answer EQ '1'. "yes
* Please note any existing code in the program will be lost!!!!
INSERT REPORT p_temp FROM it_abapcode.
SUBMIT (p_temp) AND RETURN.
DELETE REPORT p_temp.
ENDIF.
ENDIF.
ENDIF.
ENDIF.

Source : http://www.sapdev.co.uk/tips/dynamic/dyn_prog.htm

ABAP Query

2009-10-08T12:53:00.000+07:00

Step for create abap query :

There are five steps for creating our own query for searching data based on keyword.

1. Creation of user group.

/NSQ03--- create user group---- write user group name & description.

2. Creation of Infoset.

/NSQ02 --- create Infoset---- write infoset name and description--- Select logical database--- select CKM.

Create field group --- copy required parameters for under field group--- Generate infoset.

3. Assignment of user group with Infoset.

/NSQ03-- - enter user group and infoset--- select user group for assignment--- save.

4. Creation of Query.

/NSQ01--- create query ---- select infoset--- Basic list icon click--- go to MARA General Material --- select check box under column “list fields” & “selection fields” for each parameter selected in logical database set—Execute query--- copy “Repository data “ from system status.

5. Creation of transaction code.

/NSE93--- Create transaction code---- paste copied “Repository data” in program field--- creates the transaction code.

Edit program in Production Server

2009-10-03T21:39:00.003+07:00

Step to change program in Production server as following this :

1. Open SE38 and search program LSTRDU34 then click Display button.
2. Set breakpoint for line "IF sy-subrc NE 0".
3. Open SE38 and search program LSTRDU44 then click display button.
4. Set breakpoint for line "IF sy-subrc NE 0".
5. Open SE38 and search program which you want to edit.
6. Then click Change Button.
7. It will run program LSTRDU34 and stop to the breakpoint..Then you must change the value sy-subrc = 0.
8. After that click F8 button.
9. CHANGE YOUR CODING.
10. Then click Activate button.
11. It will run program LSTRDU44 and stop to the breakpoint..Then you must change the value sy-subrc = 0.
12. Click F8 button.
13. You already change your coding.

Note : Need authorization to change value in Debug mode.

Tips for READ TABLE using BINARY SEARCH

2009-09-14T20:59:00.001+07:00

When using BINARY SEARCH...DON'T FORGET TO SORT fields which are keys.
Example :

SORT tab_knvv_kunag BY kunnr vkorg vtweg spart.
READ TABLE tab_knvv_kunag INTO rec_knvv_kunag WITH KEY kunnr = rec_header-kunag
vkorg = rec_header-vkorg
vtweg = rec_header-vtweg
spart = rec_header-spart BINARY SEARCH.

unlock user's session

2009-07-30T21:11:00.002+07:00

using t-code SM04 to lock or unlock user's session.

Archaving using t-code SARA

2009-07-30T21:02:00.003+07:00

When we want to do the write process..we must maintain the document which want to archive..it is used the selection-screen..we can customize the selection-screen display. After we customize the selection-screen display...we must map between object name and the selection-screen display customizing with t-code (AOBJ).

Clearing open items (G/L Account)

2009-07-30T20:53:00.003+07:00

T-Code -> Report for G/L Account open/clear items is FBL3N.

T-Code ->Clear G/L Account open items is F-03. This t-code is used for one by one clear items (manual).

T-Code -> Automatic Clear G/L Account open items is F.13.

ABAP Code For a Progress BAR

2009-07-29T14:00:00.001+07:00

Please find below code for displaying a progress bar in ABAP. Once you execute this code a progress bar will be displayed in the status bar. You need to manipulate the code in such a way so that it can be displayed in your program.

REPORT ZEX_PROGRESSIND .

DATA: A LIKE SY-UCOMM.

DO 100 TIMES.
DO 300 TIMES.
GET TIME.
ENDDO.
A(3) = SY-INDEX.A+3 = '%'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = SY-INDEX
TEXT = A.
ENDDO.

WRITE: / 'Complete'.

source : http://abaplovers.blogspot.com/2008/05/abap-code-for-progress-bar.html

How to upload employee photo

2009-07-23T11:28:00.000+07:00

1. Create a number range for SAP Archive Link :
IMG->Basis Components->Basis Services->SAP Archive Link->Basic Settings->Maintain number ranges.
Tcode OANR. Create range 01 from 0000000001 to 9999999999 without the external number flag.

2. Document type HRICOLFOTO must exist with document class JPG.
IMG->Basis Components->Basis Services->SAP Archive Link->System Settings->Maintain document types.
Table TOAVE, Tcode OAC2.

3. Document type HRICOLFOTO must be linked to object type PREL and IT0002.
IMG->Personnel Management->Personnel Administration->Tools->Optical Archiving->Set up Optical Archiving in HR.
View V_T585O, no Tcode. In all three columns there ara minuses, don’t put a flag in the check box.

4. Check which content repository (Archive) is linked to document type HRICOLFOTO and object type PREL.
IMG->Basis Components->Basis Services->SAP Archive Link->Basic Settings->Maintain Links.
Table TOAOM_C, Tcode OAC3

5. Create this content repository with storage type FILE archive.
IMG->Basis Components->Basis Services->SAP Archive Link->Basic Settings->Maintain content repositories.
Tcode OAC0
Storage type FILE archive can be attained by clicking on the field Storage type and clicking somewhere else in the screen with the right mouse button. Choose Possible entries and only then you get a list of all values. FILE Archive is entry number 08. Choose Version no. 0031 and Archive path something (e.g. C:\).

6. Link photo to personnel number.
Menu->Tools->Business Documents->Miscellaneous->Stored Documents. Tcode OAAD.
Click on the Create button. Business object PREL and Docyment type HRICOLFOTO. Click on create (fill in the right personnel number in the pop up and click Continue). Choose the photo (as a JPG file) from the place where it is saved (e.g. hard disk). SAP will notify that the Stored Document was created succesfully. Photo is visible via PA10, PA20, PA30, PA40. Double-click to magnify photo.

To delete archived document :
Tcode OAAD, click Find. In docyment type field select HRICOLFOTO and after execute you get a list of all documents. Select appropriate document and click on delete icon.

Don't forget to adjust IT0002 header!!!!

Please also see SAP Note 488281. Here's some of what it says:

1. The pictures (.jpg or .bmp) must be available on your PC.
2. Start transaction OAAD.
3. Choose function 'documents -> create'
4. Choose as business object 'PREL' and as document type 'HRICOLFOTO'
5. Push the create button
6. Fill in the appropriate personnel number

This solution requires SAP Archivelink to be installed.

Use SICF tcode that displays lot of services. Under sap --> bc there is a service called content server interface. Activate this service.

Now Create the A2 repository with TCode OAC0.

While creating the repository, keep the Document Area blank, Storage type as R/3 database, Rep. Sub-type will appear as Normal by default, Version No. as 0046 and in Contents table put 'SDOKCONT1' as the table name.

This will set the config part. Now upload the picture using tcode OAAD.

Source : http://www.sap-img.com/human/how-to-upload-employee-photo.htm

t-code "SNote"

2009-07-23T11:21:00.002+07:00

t-code 'SNote" is used for uploading or download sapnote..When there is error from sap..you must check in service.sap.com first..if there is patch/sap note then using this tcode to upload it..

using menu GOTO/Upload Note...

Moving Cursor to Next row by pressing Enter in Classical ALV

2009-07-05T22:29:00.001+07:00

This event will run when the user edits the column field then press the enter button.
It is used for The edited ALV Grid.

*&---------------------------------------------------------------------*
*& This code snippet shows how to use the classical ALV grid to
*&   perform the excel like feature: Move cursor to next row by
*&   pressing enter
*&---------------------------------------------------------------------*


REPORT ZTEST_NP_GRID_EDIT.

*
* Data Declration

TYPE-POOLS: SLIS.
*
TYPES: BEGIN OF TY_SFLIGHT.
INCLUDE TYPE SFLIGHT.
TYPES: BOX TYPE CHAR1,
     END  OF TY_SFLIGHT.
*
*
DATA: GT_SFLIGHT TYPE TABLE OF TY_SFLIGHT.
DATA: GS_LAYOUT  TYPE SLIS_LAYOUT_ALV.
DATA: LT_EVTS    TYPE SLIS_T_EVENT,
    LA_EVTS    LIKE LINE OF LT_EVTS.
*
DATA: GS_REPORT TYPE SY-CPROG,
    GS_TITLE  TYPE LVC_TITLE.

*
* Start of Selection
START-OF-SELECTION.
*
* Report
  GS_REPORT = SY-CPROG.
GS_TITLE  = 'Move Cursor to next row by pressing Enter'.


*
* Selection.
  SELECT * FROM SFLIGHT
       INTO CORRESPONDING FIELDS OF TABLE GT_SFLIGHT.

*
* Layout
  GS_LAYOUT-EDIT = 'X'.

*
* Event for Data Changed
  LA_EVTS-NAME = 'DATA_CHANGED'.
 LA_EVTS-FORM = 'GET_DATA_CHANGED'.
 APPEND LA_EVTS TO LT_EVTS.

*
* Call ABAP List Viewer (ALV)
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_GRID_TITLE       = GS_TITLE
    I_CALLBACK_PROGRAM = GS_REPORT
    I_STRUCTURE_NAME   = 'SFLIGHT'
    IS_LAYOUT          = GS_LAYOUT
    IT_EVENTS          = LT_EVTS
  TABLES
    T_OUTTAB           = GT_SFLIGHT.

*
*&---------------------------------------------------------------------*
*&      Form  get_data_changed
*&---------------------------------------------------------------------*
*       Here we will get the current cell and than add 1 to it to move
*         to next row. Than we will call the method to set the new row
*----------------------------------------------------------------------*
FORM GET_DATA_CHANGED USING RR_DATA_CHANGED
      TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.
*
DATA: LO_GRID TYPE REF TO CL_GUI_ALV_GRID.
*
DATA: LE_ROW     TYPE I,
      LE_VALUE   TYPE C,
      LE_COL     TYPE I,
      LES_ROW_ID TYPE LVC_S_ROW,
      LES_COL_ID TYPE LVC_S_COL,
      LES_ROW_NO TYPE LVC_S_ROID.

*
* Get the ALV Object reference
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
  IMPORTING
    E_GRID = LO_GRID.

*
* Get the Current Cell
  CALL METHOD LO_GRID->GET_CURRENT_CELL
  IMPORTING
    E_ROW     = LE_ROW
    E_VALUE   = LE_VALUE
    E_COL     = LE_COL
    ES_ROW_ID = LES_ROW_ID
    ES_COL_ID = LES_COL_ID
    ES_ROW_NO = LES_ROW_NO.

*
* Set to the next cell
  DESCRIBE TABLE  GT_SFLIGHT LINES SY-INDEX.
LES_ROW_ID-INDEX  = LES_ROW_ID-INDEX  + 1.
LES_ROW_NO-ROW_ID = LES_ROW_NO-ROW_ID + 1.
IF LES_ROW_ID-INDEX LE SY-INDEX.
  CALL METHOD LO_GRID->SET_CURRENT_CELL_VIA_ID
    EXPORTING
      IS_ROW_ID    = LES_ROW_ID
      IS_COLUMN_ID = LES_COL_ID
      IS_ROW_NO    = LES_ROW_NO.
ENDIF.

ENDFORM.                    "get_data_changed

source : http://help-abap.blogspot.com/2008/09/moving-cursor-to-next-row-by-pressing.html

Displaying messages in ABAP

2009-06-29T11:30:00.000+07:00

It is a good article to display messages in ABAP.

source : http://abaplovers.blogspot.com/2008/02/displaying-messages-in-abap.html

ALV using OOPS method - 2

2009-06-28T22:19:00.003+07:00

Try it at home...it looks good.

Don't forget to create "Screen 100" and activate PBO Output and PAI Input
*&---------------------------------------------------------------------*
*& Report ZALV_DOUBLECLICK *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT zalv_doubleclick .

*"Table declarations...................................................
TABLES: ekko, " Purchasing Document Header
cdhdr, " Change document header
sscrfields. " Fields on selection screens

*"Selection screen elements............................................
SELECT-OPTIONS:
s_ebeln FOR ekko-ebeln, " Purchasing Document Number
s_lifnr FOR ekko-lifnr, " Vendor's account number
s_ekgrp FOR ekko-ekgrp, " Purchasing group
s_bedat FOR ekko-bedat, " Purchasing Document Date
s_udate FOR cdhdr-udate. " Creation date of the change
" document
*" Data declarations...................................................
"--------------------------------------------------------------------

*Field String to hold Purchase Document Number *
"--------------------------------------------------------------------
DATA:
BEGIN OF fs_ebeln,
ebeln(90) TYPE c, " Purchase Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
END OF fs_ebeln,

"--------------------------------------------------------------------

*Field String to hold Purchase Document Header *
"--------------------------------------------------------------------
BEGIN OF fs_ekko,
ebeln TYPE ekko-ebeln, " Purchasing Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
END OF fs_ekko,

"--------------------------------------------------------------------

*Field String to hold Account Number and name of the Vendor *
"--------------------------------------------------------------------
BEGIN OF fs_lfa1,
lifnr TYPE lfa1-lifnr, " Account Number of Vendor
name1 TYPE lfa1-name1, " Name1
END OF fs_lfa1,

"--------------------------------------------------------------------

*Field String to hold Change date and the name of the user *
"--------------------------------------------------------------------
BEGIN OF fs_cdhdr,
objectclas TYPE cdhdr-objectclas, " Object Class
objectid TYPE cdhdr-objectid, " Object value
changenr TYPE cdhdr-changenr, " Document change number
username TYPE cdhdr-username, " User name
udate TYPE cdhdr-udate, " Creation date of the change document
END OF fs_cdhdr,

"--------------------------------------------------------------------

*Field String to hold Change document items *
"--------------------------------------------------------------------
BEGIN OF fs_cdpos,
objectclas TYPE cdpos-objectclas," Object class
objectid(10) TYPE c, " Object Value
changenr TYPE cdpos-changenr, " Document change number
tabname TYPE cdpos-tabname, " Table Name
fname TYPE cdpos-fname, " Field Name
value_new TYPE cdpos-value_new, " New contents of changed field
value_old TYPE cdpos-value_old, " Old contents of changed field
END OF fs_cdpos,

"--------------------------------------------------------------------

*Field String to hold Date Element Name *
"--------------------------------------------------------------------
BEGIN OF fs_dataele,
tabname TYPE dd03l-tabname, " Table Name
fieldname TYPE dd03l-fieldname, " Field Name
rollname TYPE dd03l-rollname, " Data element (semantic domain)
END OF fs_dataele,

"--------------------------------------------------------------------

*Field String to hold Short Text of the Date Element *
"--------------------------------------------------------------------
BEGIN OF fs_text,
rollname TYPE dd04t-rollname, " Data element (semantic domain)
ddtext TYPE dd04t-ddtext, " Short Text Describing R/3 Repository
"Objects
END OF fs_text,

"--------------------------------------------------------------------

*Field String to hold data to be displayed on the ALV grid *
"--------------------------------------------------------------------
BEGIN OF fs_outtab,
ebeln TYPE ekko-ebeln, " Purchasing Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
werks TYPE lfa1-werks, " Plant
name1 TYPE lfa1-name1, " Name1
username TYPE cdhdr-username, " User name
udate TYPE cdhdr-udate, " Creation date of the change document
ddtext TYPE dd04t-ddtext, " Short Text Describing R/3 Repository
"Objects
value_new TYPE cdpos-value_new, " New contents of changed field
value_old TYPE cdpos-value_old, " Old contents of changed field
END OF fs_outtab,

"--------------------------------------------------------------------

*Internal table to hold Purchase Document Number *
"--------------------------------------------------------------------
t_ebeln LIKE STANDARD TABLE OF fs_ebeln,

"--------------------------------------------------------------------

*Internal table to hold Purchase Document Header *
"--------------------------------------------------------------------
t_ekko LIKE STANDARD TABLE OF fs_ekko,

"--------------------------------------------------------------------

*Temp Internal table to hold Purchase Document Header *
"--------------------------------------------------------------------
t_ekko_temp LIKE STANDARD TABLE OF fs_ekko,

"--------------------------------------------------------------------

*Internal table to hold Account number and Name of the Vendor *
"--------------------------------------------------------------------
t_lfa1 LIKE STANDARD TABLE OF fs_lfa1,

"--------------------------------------------------------------------

*Internal Table to hold Change date and the name of the user *
"--------------------------------------------------------------------
t_cdhdr LIKE STANDARD TABLE OF fs_cdhdr,

"--------------------------------------------------------------------

*Internal Table to hold Change document items *
"--------------------------------------------------------------------
t_cdpos LIKE STANDARD TABLE OF fs_cdpos,

"--------------------------------------------------------------------

*Temp. Internal Table to hold Change document items *
"--------------------------------------------------------------------
t_cdpos_temp LIKE STANDARD TABLE OF fs_cdpos,

"--------------------------------------------------------------------

*Internal Table to hold Data Element Name *
"--------------------------------------------------------------------
t_dataele LIKE STANDARD TABLE OF fs_dataele,

"--------------------------------------------------------------------

*Temp. Internal Table to hold Data Element Name *
"--------------------------------------------------------------------
t_dataele_temp LIKE STANDARD TABLE OF fs_dataele,

"--------------------------------------------------------------------

*Internal Table to hold Short Text of the Date Element *
"--------------------------------------------------------------------
t_text LIKE STANDARD TABLE OF fs_text,

"--------------------------------------------------------------------

*Internal Table to hold data to be displayed on the ALV grid *
"--------------------------------------------------------------------
t_outtab LIKE STANDARD TABLE OF fs_outtab.

"--------------------------------------------------------------------

*C L A S S D E F I N I T I O N *
"--------------------------------------------------------------------
CLASS lcl_event_handler DEFINITION DEFERRED.

*" Data declarations...................................................
"--------------------------------------------------------------------

*Work variables *
"--------------------------------------------------------------------
DATA:
w_ebeln TYPE ekko-ebeln, " Purchasing Document Number
w_lifnr TYPE ekko-lifnr, " Vendor's account number
w_ekgrp TYPE ekko-ekgrp, " Purchasing group
w_value TYPE ekko-ebeln, " Reflected Value
w_space VALUE ' ', " Space
w_flag TYPE i, " Flag Variable
w_variant TYPE disvariant, " Variant

*ALV Grid
w_grid TYPE REF TO cl_gui_alv_grid,

*Event Handler
w_event_click TYPE REF TO lcl_event_handler,

*Field catalog table
t_fieldcat TYPE lvc_t_fcat.

"--------------------------------------------------------------------

*AT SELECTION-SCREEN EVENT *
"--------------------------------------------------------------------

AT SELECTION-SCREEN ON s_ebeln.

*Subroutine to validate Purchase Document Number.
PERFORM validate_pd_num.

AT SELECTION-SCREEN ON s_lifnr.

*Subroutine to validate Vendor Number.
PERFORM validate_ven_num.

AT SELECTION-SCREEN ON s_ekgrp.

*Subroutine to validate Purchase Group.
PERFORM validate_pur_grp.

"--------------------------------------------------------------------

*START-OF-SELECTION EVENT *
"--------------------------------------------------------------------

START-OF-SELECTION.

* Subroutine to select all Purchase orders.
PERFORM select_po.

CHECK w_flag EQ 0.

* Subroutine to select Object values.
PERFORM select_obj_id.
CHECK w_flag EQ 0.

* Subroutine to select Changed values.
PERFORM select_changed_value.
CHECK w_flag EQ 0.

* Subroutine to Select Purchase Orders.
PERFORM select_pur_doc.

* Subroutine to select Vendor Details.
PERFORM select_vendor.

* Subroutine to select Text for the Changed values.
PERFORM description.
"--------------------------------------------------------------------

*END-OF-SELECTION EVENT *
"--------------------------------------------------------------------

END-OF-SELECTION.

IF NOT t_ekko IS INITIAL.

* Subroutine to populate the Output Table.
PERFORM fill_outtab.

* Subroutine to build Field Catalog.
PERFORM prepare_field_catalog CHANGING t_fieldcat.
CALL SCREEN 100.
ENDIF. " IF NOT T_EKKO...

* CLASS LCL_EVENT_HANDLER DEFINITION

* Defining Class which handles events
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
METHODS:
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id.

ENDCLASS. " LCL_EVENT_HANDLER DEFINITION

* CLASS LCL_EVENT_HANDLER IMPLEMENTATION

* Implementing the Class which can handle events
CLASS lcl_event_handler IMPLEMENTATION .

* ---Handle Double Click
METHOD handle_hotspot_click .

* Subroutine to get the HotSpot Cell information.
PERFORM get_cell_info.

SET PARAMETER ID 'BES' FIELD w_value.

CALL TRANSACTION 'ME23N'.

ENDMETHOD. " HANDLE_HOTSPOT_CLICK

ENDCLASS. " LCL_EVENT_HANDLER
"&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
"&---------------------------------------------------------------------

*PBO Event
MODULE status_0100 OUTPUT.

SET PF-STATUS 'OOPS'.
SET TITLEBAR 'TIT'.

*Subroutine to fill the Variant Structure
PERFORM fill_variant.

IF w_grid IS INITIAL.

CREATE OBJECT w_grid
EXPORTING
* i_shellstyle = 0
* I_LIFETIME =
i_parent = cl_gui_container=>screen0
* I_APPL_EVENTS =
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* I_FCAT_COMPLETE = SPACE
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
OTHERS = 5.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF. " IF SY-SUBRC 0

CALL METHOD w_grid->set_table_for_first_display
EXPORTING

* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME =
is_variant = w_variant
i_save = 'A'

i_default = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
CHANGING
it_outtab = t_outtab
it_fieldcatalog = t_fieldcat
* IT_SORT =
* IT_FILTER =
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF. " IF SY-SUBRC 0.

ENDIF. " IF W_GRID IS INITIAL

CREATE OBJECT w_event_click.
SET HANDLER w_event_click->handle_hotspot_click FOR w_grid.

ENDMODULE. " STATUS_0100 OUTPUT
"&---------------------------------------------------------------------
*& Module USER_COMMAND_0100 INPUT
"&---------------------------------------------------------------------

*PAI Event
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
perform free_objects.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
perform free_objects.
LEAVE PROGRAM.
WHEN 'CANCEL'.
perform free_objects.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

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

*& Form free_objects

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

* Free Objects

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

form free_objects .

CALL METHOD w_grid->free

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3.

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. " free_objects

"&---------------------------------------------------------------------
*& Form PREPARE_FIELD_CATALOG
"&---------------------------------------------------------------------

*Subroutine to build the Field catalog

*<--P_T_FIELDCAT Field Catalog Table FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat . DATA ls_fcat TYPE lvc_s_fcat. * Purchasing group... ls_fcat-fieldname = 'EKGRP'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Purchasing Document Number... ls_fcat-fieldname = 'EBELN'. ls_fcat-ref_table = 'EKKO' . ls_fcat-emphasize = 'C411'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-hotspot = 'X'. APPEND ls_fcat TO pt_fieldcat . CLEAR ls_fcat . * Name of Person who Created the Object... ls_fcat-fieldname = 'ERNAM'. ls_fcat-ref_table = 'EKKO'. ls_fcat-outputlen = '15' . APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Purchasing Document Date... ls_fcat-fieldname = 'BEDAT'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Vendor's account number... ls_fcat-fieldname = 'LIFNR'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Account Number of Vendor or Creditor... ls_fcat-fieldname = 'NAME1'. ls_fcat-ref_table = 'LFA1'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Vendor Name'(001). ls_fcat-seltext = 'Vendor Name'(001). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Creation date of the change document... ls_fcat-fieldname = 'UDATE'. ls_fcat-ref_table = 'CDHDR'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Change Date'(002). ls_fcat-seltext = 'Change Date'(002). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * User name of the person responsible in change document... ls_fcat-fieldname = 'USERNAME'. ls_fcat-ref_table = 'CDHDR'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Modified by'(003). ls_fcat-seltext = 'Modified by'(003). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Short Text Describing R/3 Repository Objects... ls_fcat-fieldname = 'DDTEXT'. ls_fcat-ref_table = 'DD04T'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '15'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Old contents of changed field... ls_fcat-fieldname = 'VALUE_OLD'. ls_fcat-ref_table = 'CDPOS'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '12'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * New contents of changed field... ls_fcat-fieldname = 'VALUE_NEW'. ls_fcat-ref_table = 'CDPOS'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '12'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. ENDFORM. " PREPARE_FIELD_CATALOG "&--------------------------------------------------------------------- *& Form SELECT_PO "&--------------------------------------------------------------------- *Subroutine to select all the Purchase Orders *There are no interface parameters to be passed to this subroutine. FORM select_po . SELECT ebeln " Purchasing Document Number ernam " Name of Person who Created the Object lifnr " Vendor's account number ekgrp " Purchasing group bedat " Purchasing Document Date FROM ekko PACKAGE SIZE 10000 APPENDING TABLE t_ebeln WHERE ebeln IN s_ebeln AND bedat IN s_bedat. ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s401(m8). ENDIF. " IF SY-SUBRC NE 0 ENDFORM. " SELECT_PO "&--------------------------------------------------------------------- *& Form SELECT_OBJ_ID "&--------------------------------------------------------------------- *Subroutine to select Object ID *There are no interface parameters to be passed to this subroutine. FORM select_obj_id . IF NOT t_ebeln IS INITIAL. SELECT objectclas " Object Class objectid " Object value changenr " Document change number username " User name udate " Creation date FROM cdhdr INTO TABLE t_cdhdr FOR ALL ENTRIES IN t_ebeln WHERE objectid EQ t_ebeln-ebeln AND udate IN s_udate AND tcode IN ('ME21N','ME22N','ME23N'). * ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s833(m8) WITH 'Header Not Found'(031). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_EBELN IS INITIAL ENDFORM. " SELECT_OBJ_ID "&--------------------------------------------------------------------- *& Form SELECT_CHANGED_VALUE *&--------------------------------------------------------------------- *Subroutine to select Changed Values *There are no interface parameters to be passed to this subroutine. FORM select_changed_value . IF NOT t_cdhdr IS INITIAL. SELECT objectclas " Object class objectid " Object value changenr " Document change number tabname " Table Name fname " Field Name value_new " New contents of changed field value_old " Old contents of changed field FROM cdpos PACKAGE SIZE 10000 APPENDING TABLE t_cdpos FOR ALL ENTRIES IN t_cdhdr WHERE objectclas EQ t_cdhdr-objectclas AND objectid EQ t_cdhdr-objectid AND changenr EQ t_cdhdr-changenr. ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s833(m8) WITH 'Item Not Found'(032). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_CDHDR IS INITIAL t_cdpos_temp[] = t_cdpos[]. ENDFORM. " SELECT_CHANGED_VALUE "&--------------------------------------------------------------------- *& Form SELECT_PUR_DOC "&--------------------------------------------------------------------- *Subroutine to select Purchase Order Details *There are no interface parameters to be passed to this subroutine. FORM select_pur_doc . IF NOT t_cdpos IS INITIAL. SORT t_ebeln BY ebeln. LOOP AT t_cdpos INTO fs_cdpos. READ TABLE t_ebeln INTO fs_ebeln WITH KEY ebeln = fs_cdpos-objectid BINARY SEARCH. IF sy-subrc NE 0. DELETE TABLE t_ebeln FROM fs_ebeln. ENDIF. " IF SY-SUBRC NE 0. ENDLOOP. " LOOP AT T_CDPOS... LOOP AT t_ebeln INTO fs_ebeln. MOVE fs_ebeln-ebeln TO fs_ekko-ebeln. MOVE fs_ebeln-ernam TO fs_ekko-ernam. MOVE fs_ebeln-lifnr TO fs_ekko-lifnr. MOVE fs_ebeln-ekgrp TO fs_ekko-ekgrp. MOVE fs_ebeln-bedat TO fs_ekko-bedat. APPEND fs_ekko TO t_ekko. ENDLOOP. " LOOP AT T_EBELN... t_ekko_temp[] = t_ekko[]. ENDIF. " IF NOT T_CDPOS IS INITIAL ENDFORM. " SELECT_PUR_DOC "&--------------------------------------------------------------------- *& Form SELECT_VENDOR "&--------------------------------------------------------------------- *Subroutine to select Vendor details *There are no interface parameters to be passed to this subroutine. FORM select_vendor . IF NOT t_ekko IS INITIAL. SORT t_ekko_temp BY lifnr. DELETE ADJACENT DUPLICATES FROM t_ekko_temp COMPARING lifnr. SELECT lifnr " Account Number of Vendor or Creditor name1 " Name 1 FROM lfa1 INTO TABLE t_lfa1 FOR ALL ENTRIES IN t_ekko_temp WHERE lifnr EQ t_ekko_temp-lifnr. IF sy-subrc NE 0. MESSAGE s002(m8) WITH 'Master Details'(033). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_EKKO IS INITIAL ENDFORM. " SELECT_VENDOR "&--------------------------------------------------------------------- *& Form DESCRIPTION "&--------------------------------------------------------------------- *Subroutine to get the description *There are no interface parameters to be passed to this subroutine. FORM description . IF NOT t_cdpos IS INITIAL. SORT t_cdpos_temp BY tabname fname. DELETE ADJACENT DUPLICATES FROM t_cdpos_temp COMPARING tabname fname . SELECT tabname " Table Name fieldname " Field Name rollname " Data element FROM dd03l INTO TABLE t_dataele FOR ALL ENTRIES IN t_cdpos_temp WHERE tabname EQ t_cdpos_temp-tabname AND fieldname EQ t_cdpos_temp-fname. IF NOT t_dataele IS INITIAL. t_dataele_temp[] = t_dataele[]. SORT t_dataele_temp BY rollname. DELETE ADJACENT DUPLICATES FROM t_dataele_temp COMPARING rollname. SELECT rollname " Data element ddtext " Short Text Describing R/3 Repository Objects FROM dd04t INTO TABLE t_text FOR ALL ENTRIES IN t_dataele_temp WHERE rollname EQ t_dataele_temp-rollname AND ddlanguage EQ sy-langu. IF sy-subrc NE 0. EXIT. ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_DATAELE IS INITIAL. ENDIF. " IF NOT T_CDPOS IS INITIAL. ENDFORM. " DESCRIPTION "&--------------------------------------------------------------------- *& Form FILL_OUTTAB "&--------------------------------------------------------------------- *Subroutine to populate the Outtab *There are no interface parameters to be passed to this subroutine. FORM fill_outtab . SORT t_cdhdr BY objectclas objectid changenr. SORT t_ekko BY ebeln. SORT t_lfa1 BY lifnr. SORT t_dataele BY tabname fieldname. SORT t_text BY rollname. LOOP AT t_cdpos INTO fs_cdpos. READ TABLE t_cdhdr INTO fs_cdhdr WITH KEY objectclas = fs_cdpos-objectclas objectid = fs_cdpos-objectid changenr = fs_cdpos-changenr BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_cdhdr-username TO fs_outtab-username. MOVE fs_cdhdr-udate TO fs_outtab-udate. READ TABLE t_ekko INTO fs_ekko WITH KEY ebeln = fs_cdhdr-objectid BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_ekko-ebeln TO fs_outtab-ebeln. MOVE fs_ekko-ernam TO fs_outtab-ernam. MOVE fs_ekko-lifnr TO fs_outtab-lifnr. MOVE fs_ekko-ekgrp TO fs_outtab-ekgrp. MOVE fs_ekko-bedat TO fs_outtab-bedat. READ TABLE t_lfa1 INTO fs_lfa1 WITH KEY lifnr = fs_ekko-lifnr BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_lfa1-name1 TO fs_outtab-name1. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. MOVE fs_cdpos-value_new TO fs_outtab-value_new. MOVE fs_cdpos-value_old TO fs_outtab-value_old. READ TABLE t_dataele INTO fs_dataele WITH KEY tabname = fs_cdpos-tabname fieldname = fs_cdpos-fname BINARY SEARCH. IF sy-subrc EQ 0. READ TABLE t_text INTO fs_text WITH KEY rollname = fs_dataele-rollname BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_text-ddtext TO fs_outtab-ddtext. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. APPEND fs_outtab TO t_outtab. CLEAR fs_outtab. ENDLOOP. ENDFORM. " FILL_OUTTAB "&--------------------------------------------------------------------- *& Form GET_CELL_INFO "&--------------------------------------------------------------------- *Subroutine to get the Cell Information *--> W_VALUE Holds the value of Hotspot clicked
FORM get_cell_info .

CALL METHOD w_grid->get_current_cell
IMPORTING

* E_ROW =
e_value = w_value

* E_COL =
* ES_ROW_ID =
* ES_COL_ID =
* ES_ROW_NO =
.
ENDFORM. " GET_CELL_INFO

"&---------------------------------------------------------------------
*& Form VALIDATE_PD_NUM
"&---------------------------------------------------------------------
*Subroutine to validate Purchase Document Number
*There are no interface parameters to be passed to this subroutine.
FORM validate_pd_num .

IF NOT s_ebeln[] IS INITIAL.
SELECT ebeln " Purchase Document Number
FROM ekko
INTO w_ebeln
UP TO 1 ROWS
WHERE ebeln IN s_ebeln.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e717(m8).
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EBELN[]...

ENDFORM. " VALIDATE_PD_NUM

"&---------------------------------------------------------------------
*& Form VALIDATE_VEN_NUM
"&---------------------------------------------------------------------

*Subroutine to validate Vendor Number

*There are no interface parameters to be passed to this subroutine.
FORM validate_ven_num .

IF NOT s_lifnr[] IS INITIAL.
SELECT lifnr " Vendor Number
FROM lfa1
INTO w_lifnr
UP TO 1 ROWS
WHERE lifnr IN s_lifnr.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e002(m8) WITH w_space.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_LIFNR[]...

ENDFORM. " VALIDATE_VEN_NUM
"&---------------------------------------------------------------------
*& Form VALIDATE_PUR_GRP
"&---------------------------------------------------------------------

*Subroutine to validate the Purchase Group

*There are no interface parameters to be passed to this subroutine.
FORM validate_pur_grp .

IF NOT s_ekgrp[] IS INITIAL.
SELECT ekgrp " Purchase Group
FROM t024
INTO w_ekgrp
UP TO 1 ROWS
WHERE ekgrp IN s_ekgrp.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e622(m8) WITH w_space.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EKFRP[]...

ENDFORM. " VALIDATE_PUR_GRP
"&---------------------------------------------------------------------
*& Form FILL_VARIANT
"&---------------------------------------------------------------------

*Subroutine to fill the Variant Structure

*There are no interface parameters to be passed to this subroutine
FORM fill_variant .
*Filling the Variant structure
w_variant-report = sy-repid.
w_variant-username = sy-uname.
ENDFORM. " FILL_VARIANT

source : http://abapreports.blogspot.com/2008/06/double-click-with-alv-oops.html

ALV using OOPS method

2009-06-28T22:00:00.001+07:00

This document describes how to create an ALV using OOPS method in few steps. It will help the beginners to start with.

Procedure

Step 1: Create a container. There are 2 containers. They are docking and custom.

For eg.. Create docking container.

Go to SE38.Create a program. Use Pattern button to create object for docking container. Click ABAP Object Pattern radio button.

CREATE OBJECT o_docking

EXPORTING

* PARENT =

* REPID =

* DYNNR =

* SIDE = DOCK_AT_LEFT

* EXTENSION = 50

* STYLE =

* LIFETIME = lifetime_default

* CAPTION =

* METRIC = 0

RATIO = '95'

* NO_AUTODEF_PROGID_DYNNR =

* NAME =

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_ERROR = 2

* CREATE_ERROR = 3

* LIFETIME_ERROR = 4

* LIFETIME_DYNPRO_DYNPRO_LINK = 5

* others = 6

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Step 2: Create a grid inside the container.

Use Pattern button to create the same. Make the parent of grid as container.

CREATE OBJECT o_grid

EXPORTING

* I_SHELLSTYLE = 0

* I_LIFETIME =

i_parent = o_docking

* I_APPL_EVENTS = space

* I_PARENTDBG =

* I_APPLOGPARENT =

* I_GRAPHICSPARENT =

* I_NAME =

* EXCEPTIONS

* ERROR_CNTL_CREATE = 1

* ERROR_CNTL_INIT = 2

* ERROR_CNTL_LINK = 3

* ERROR_DP_CREATE = 4

* others = 5

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Step 3: Call the function LVC_FIELDCATALOG_MERGE to get the fieldcatalog.

Pass the structure name.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

* I_BUFFER_ACTIVE =

I_STRUCTURE_NAME = 'MARA'

* I_CLIENT_NEVER_DISPLAY = 'X'

* I_BYPASSING_BUFFER =

* I_INTERNAL_TABNAME =

CHANGING

ct_fieldcat = i_fieldcat

* EXCEPTIONS

* INCONSISTENT_INTERFACE = 1

* PROGRAM_ERROR = 2

* OTHERS = 3

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Step 4: Call the method of grid set_table_for_first_display to display the output.

w_variant-report = sy-repid.

CALL METHOD o_grid->set_table_for_first_display

EXPORTING

* I_BUFFER_ACTIVE =

* I_BYPASSING_BUFFER =

* I_CONSISTENCY_CHECK =

* I_STRUCTURE_NAME =

IS_VARIANT = w_variant

I_SAVE = 'A'

* I_DEFAULT = 'X'

* IS_LAYOUT =

* IS_PRINT =

* IT_SPECIAL_GROUPS =

* IT_TOOLBAR_EXCLUDING =

* IT_HYPERLINK =

* IT_ALV_GRAPHICS =

* IT_EXCEPT_QINFO =

CHANGING

it_outtab = itab

IT_FIELDCATALOG = i_fieldcat

* IT_SORT =

* IT_FILTER =

* EXCEPTIONS

* INVALID_PARAMETER_COMBINATION = 1

* PROGRAM_ERROR = 2

* TOO_MANY_LINES = 3

* others = 4

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Step 5: Fill the internal table itab with values by using logic.

select * from mara into table itab up to 100 rows.

call screen 9000.

Create a screen by double clicking 9000 in the above line. Fill the description for the screen. In the flow logic, uncomment the PBO and PAI module and create those in main program (for simplicity).

Step 6: Create GUI status as below. Create GUI Title if required.

Step 7: Free the memory occupied once the 'BACK, EXIT' or 'CANCEL' button is clicked. Use Pattern button to call the method 'FREE' of cl_gui_alv_grid.

Complete Code

data : itab type standard table of mara,"Output Internal table

i_fieldcat type standard table of lvc_s_fcat,"Field catalog

wa type mara,

w_variant type disvariant,

o_docking type ref to cl_gui_docking_container,"Docking Container

o_grid type ref to cl_gui_alv_grid."Grid

select * from mara into table itab up to 100 rows.

call screen 9000.

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

*& Module STATUS_9000 OUTPUT

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

* text

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

module STATUS_9000 output.
if o_docking is initial.
SET PF-STATUS 'ZSTATUS'. "GUI Status

SET TITLEBAR 'ZTITLE'. "Title

* Creating Docking Container

CREATE OBJECT o_docking

EXPORTING

RATIO = '95'.

IF sy-subrc eq 0.

* Creating Grid

CREATE OBJECT o_grid

EXPORTING

i_parent = o_docking.

ENDIF.

* Filling the fieldcatalog table

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'MARA'

CHANGING

ct_fieldcat = i_fieldcat

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3.

w_variant-report = sy-repid.

* Displaying the output

CALL METHOD o_grid->set_table_for_first_display

EXPORTING

IS_VARIANT = w_variant

I_SAVE = 'A'

CHANGING

it_outtab = itab

IT_FIELDCATALOG = i_fieldcat

EXCEPTIONS

INVALID_PARAMETER_COMBINATION = 1

PROGRAM_ERROR = 2

TOO_MANY_LINES = 3

others = 4.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endif.

endmodule. " STATUS_9000 OUTPUT

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

*& Module USER_COMMAND_9000 INPUT

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

* PAI

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

module USER_COMMAND_9000 input.

data lv_ucomm type sy-ucomm.

lv_ucomm = sy-ucomm.

CASE lv_ucomm.

WHEN 'CANCEL' OR 'EXIT'.

perform free_objects.

LEAVE PROGRAM.

when 'BACK'.

perform free_objects.

set screen '0'.

leave screen.

ENDCASE.

endmodule. " USER_COMMAND_9000 INPUT

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

*& Form free_objects

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

* Free Objects

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

form free_objects .

CALL METHOD o_grid->free

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL METHOD o_docking->free

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3.

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. " free_objects

source : https://wiki.sdn.sap.com/wiki/display/Snippets/ABAP-7%20Steps%20to%20create%20OOPS%20ALV(for%20beginners)

CONVERT_DATE_TO_EXTERNAL sap function module

2009-06-28T21:29:00.002+07:00

The below code shows how function module CONVERT_DATE_TO_EXTERNAL is used to convert a date field from is internal storage format to the users specific display format i.e. from YYYYMMDD to DD/MM/YYYY.

Convert date to users prefered output 

data: ld_date_int type datum,
     ld_date_ext type datum.

 CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
   EXPORTING
     date_internal            = ld_date_int
   IMPORTING
     date_external            = ld_date_ext
   EXCEPTIONS
     date_internal_is_invalid = 1
     OTHERS                   = 2.

One of a function module is 'CONVERT_DATE_TO_INTERNAL'

Transaction FI Report

2009-06-28T16:51:00.003+07:00

FSI0 - Execute report
FSI1 - Create Report
FSI2 - Change Report
FSI3 - Display Report
FSI4 - Create Form
FSI5 - Change Form
FSI6 - Display Form
FSIB - Background processing
FSIC - Maintain Currency Translation Type
FSIG - Balance Sheet Reports Criteria Group
FSIK - Maintain Key Figures
FSIM - Report Monitor
FSIO - Transport reports
FSIP - Transport forms
FSIQ - Import reports from client 000

I don't know what the function is used..I only attach it first...may be i will use these t-codes someday.

Calculate delivery quantity field in Sales Order

2009-06-24T10:19:00.003+07:00

Yo can find the delivered quantity via a function, it is not as easy asreading the confirmed quantity..

Use of function may look like this

Data: lT_VBFA type VBFA occurs 0 with header line,
lT_VBUP type VBUP occurs 0 with header line,
lT_VBEP type VBEPVB occurs 0 with header line,
lT_VBAP type VBAPVB occurs 0 with header line,
l_vsmng like vbepvb-vsmng.

SELECT * FROM vbup INTO TABLE lt_vbup
WHERE vbeln EQ vbeln ANDposnr EQ my_posnr.

SELECT * FROM vbfa INTO TABLE l_vbfa
WHERE vbelv EQ vbeln ANDposnv EQ my_posnr.

SELECT * FROM vbep INTO TABLE l_vbep
WHERE vbeln EQ vbeln ANDposnr EQ my_posnr .

SELECT * FROM vbap INTO TABLE l_vbap
WHERE vbeln EQ vbeln ANDposnr EQ my_posnr .

call function 'RV_SCHEDULE_CHECK_DELIVERIES'
exporting
fbeleg = vbeln
fposnr = my_posnr

tables
fvbfa = lt_vbfa
fvbup = lt_vbup
fxvbep = lt_vbep
fvbap = lt_vbap.

loop at lt_vbep where posnr eq my_posnr.
add lt_vbep-vsmng to l_vsmng. " tot.deliv.quan
endloop.

source : sini

Changing Color of ALV GRID in SAP ABAP

2009-06-24T10:15:00.003+07:00

source : sini
atau here

SAP ABAP Decimal Places in Currency

2009-06-17T13:03:00.000+07:00

If you wish to find the decimal places in the currency you can use the following function module.
G_DECIMAL_PLACES_GET The table that stores the Currencies in SAP system (Currency Codes) is TCURC. The code below shows the decimal places for a particular currency.
REPORT ZEX_CURRENCY .
Parameters: p_curr(10).
Data: d_decpl like TCURX-CURRDEC.
CALL FUNCTION 'G_DECIMAL_PLACES_GET'
EXPORTING
CURRENCY = p_curr
IMPORTING
DECIMAL_PLACES = d_decpl .

Write: 'Decimal Places ', d_decpl.

Source : http://abaplovers.blogspot.com/2008/06/sap-abap-decimal-places-in-currency.html

Hide Parameter/Select Option in Selection Screen

2009-06-08T14:33:00.002+07:00

We can Hide parameter / select option in selection screen dynamically by manipulating screen object.

SCREEN is like an internal table with a header line. However, you do not have to declare it in your program. Go to debugging mode and then view structure of screen.

You can modify SCREEN in your ABAP program during the PBO event of a screen. Its contents override the static attributes of the screen fields for a single screen call. The only statements that you can use with SCREEN are:

LOOP AT SCREEN....
MODIFY SCREEN....
ENDLOOP.

We can hide parameter by set screen-active to 0.Here is example of how to hide parameter in selection screen. Write it, and change click on radiobutton to hide parameter.
REPORT ZAALGAL0006.
DATA: d_ucomm LIKE sy-ucomm.
PARAMETERS: p_grpa1(10) MODIF ID A,p_grpa2(5) MODIF ID A,p_grpb1(2) MODIF ID B.
PARAMETERS: p_actA RADIOBUTTON GROUP rad1 USER-COMMAND ACT DEFAULT 'X',
p_actB RADIOBUTTON GROUP rad1.AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.
AT SELECTION-SCREEN OUTPUT.
LOOP AT screen.
IF p_actA = 'X'.
IF screen-group1 = 'B'.
screen-active = 0.
ENDIF.
ELSEIF p_actB = 'X'.
IF screen-group1 = 'A'.
screen-active = 0.
ENDIF.
ENDIF.
MODIFY screen.
ENDLOOP.

START-OF-SELECTION.

source : http://abap-gallery.blogspot.com/2007/07/hide-parameter-select-option-in.html

Searh BADI for each transaction

2009-06-07T16:59:00.001+07:00

1. Go to tcode se93, enter the transection name eg va01 click display button. get the package name.
2. Go to tcode se84->enhancement->Bussiness-addins->definition,enter the package name and execute.

here you get the list of all the enhancement badi's for the given package.

source :https://www.sdn.sap.com/irj/scn/thread?threadID=1360407

other link : https://www.sdn.sap.com/irj/scn/advancedsearch?query=how+to+implement+badi&cat=sdn_all

Function for Convert minus sign to the left

2009-06-06T19:52:00.001+07:00

data prnamt(18).

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
VALUE = prnamt(18).

Print Form PO (Purchase Order)

2009-05-31T13:29:00.000+07:00

When you create add on program for Print Out Form PO ( Purchase Order), you will use t-code (SE38). To get parameter PO number from ME23N, you need to add coding like this in below :

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

*& Form entry_neu

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

* text

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

* -->ENT_RETCO text

* -->ENT_SCREEN text

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

FORM entry_neu USING ent_retco ent_screen.

CLEAR ent_retco.

MOVE nast-objky TO p_ebeln.

* Collect data from several tables

PERFORM f_collect_data.

** Display form

PERFORM f_display_form.

ENDFORM. "entry_neu

After you already finish to develop. You need to assign the program Id in Output Type using t-code spro.

Declare Work Area

2009-05-28T19:39:00.001+07:00

There are two options or more to define workarea, but we must define internal table firstly.

DATA : it_mara TYPE STANDARD TABLE OF mara.

DATA : wa_mara LIKE LINE OF it_mara.
OR
DATA : wa_mara TYPE mara.

Parked document

2009-05-22T21:31:00.002+07:00

If you search Parked document FI, you must give an attention for table :

VBSEGS : Parked document for GL Transaction
VBSEGD : Parked document for SD Transaction
VBSEGK : Parked document for Purchasing Transaction

BSEG is only for Posted document.

DELETE ADJACENT DUPLICATE

2009-05-16T22:00:00.001+07:00

l_tab_detail[] = tab_detail[].
SORT l_tab_detail BY vbeln vgbel.
DELETE ADJACENT DUPLICATES FROM l_tab_detail COMPARING vbeln vgbel.

Field Catalog in ALV

2009-05-16T21:52:00.006+07:00

Field catalog containing descriptions of the list output fields. You can use fields of the catalog to determine the number format and column properties of the list to be displayed.

The field catalog contains more than 60 fields, some of which are only used internally. The field catalog is defined in the Data Dictionary through table type LVC_T_FCAT.

fieldname " Fieldname

ref_tabname " Reference Tablename

ref_fieldname " Reference Fieldname

no_out " (O)blig.(X)no out

outputlen " Output length

seltext_l " long key word

seltext_m " middle key word

seltext_s " short key word

reptext_ddic " heading (ddic)

round " round in write statement

do_sum " sum up

hotspot " 'X' = hotspot is active -> Event click

decimals_out " decimals in write statement

currency

quantity

qfieldname " field with quantity unit

cfieldname " field with currency unit

checkbox " 'X' = checkbox or ' ' = not checkbox

icon " 'X' = icon or ' ' = not icon

fix_column " 'X' = Fix Column On or ' ' = Fix Column off

key " 'X' = Key or ' ' = not Key

* For field currency, there are two options :
1. fixed currency
t_fieldcat-cfieldname = fu_cfield.
t_fieldcat-ctabname = fu_types.

2. variable currency.
t_fieldcat-datatype = 'CURR'.
t_fieldcat-currency = fu_curr.

* For field quantity :
qfieldname
qtabname

* For field "do_sum" is "C" or "X'. It will display on Sum of this Field in ALV (Akan melakukan penjumlahan langsung pada saat display di ALV)

* For field "just" is Justification : L, R, C

* For field "ref_tabname " and "ref_fieldname" are structure (nama field, length) diambil dari reference field of table. If you define new field which doesn't have a relation of table..It would be better to fill empty..and you must define other field category in ALV such as "seltext_l", "seltext_m", "seltext_s"

Record VBPA

2009-05-16T21:40:00.003+07:00

VBPA is Sales Document : Partner table. It explains one customer can have different ship code or different payee or sales employee.
It could be interesting, it is not only header table but every item can have different ship code or etc.
So, this image explain how the record item can be saved if it has different ship code.
It will save ship code of header and only save the different ship code of item (item tertentu). If the item has the same ship code with header..it doesn't create a record in vbpa table.

SELECT OPTIONS or RANGES

2009-05-16T21:25:00.000+07:00

Difference Between Select-Options & Ranges

What are the difference between SELECT-OPTIONS & RANGES?
Here both SELECT-OPTIONS & RANGES works for the same purpose. They both are used for the range selection from selection screen. The main diff. between them is, while we use SELECT-OPTIONS system implicitly creates the select options internal table which contains the fields of SIGN,OPTION,LOW & HIGH. But in case of RANGES, this internal table should be defined explicitly.
Eg. to SELECT-OPTIONS :
-----------------------------------------
REPORT YARSELECT.
TABLES YTXLFA1.
SELECT-OPTIONS : VENDOR FOR YTXLFA1-LIFNR.
INITIALIZATION.
VENDOR-LOW = 1000. " It specifies the range starting value.
VENDOR-HIGH = 2000. " It specifies the range ending value.
VENDOR-OPTION = 'BT'. " specifies ranges value is in between.
VENDOR-SIGN = 'I'. "specifies both inclussive.
APPEND VENDOR.
- - - -
- - - -
SELECT LIFNR LAND1 NAME1 FROM LFA1 INTO TABLE ITAB
WHERE LIFNR IN VENDOR.
Eg. to RANGES:
-------------------------
REPORT YARRANGE.
TABLES YTXLFA1.
RANGES: VENDOR FOR YTXFLA1-LIFNR.
- - - -
- - - --
- - - -
SELECT LIFNR LAND1 NAME1 FROM LFA1 INTO TABLE ITAB
WHERE LIFNR IN VENDOR.
Here with RANGES user has to design an internal table with fields -
SIGN,OPTION,LOW and HIGH EXPLICITLY.
--------------------------------------------------------------------------------------------------------->
Example:

select-options: bukrs for zstock-bukrs.

Should the user fill in 'ABFI' in BUKRS on the selection screen, BUKRS will look like this:

IEQABFI

This is because BUKRS is set as a table as follows:

begin of bukrs occurs 0,
SIGN(1) type c,
OPTION(2) type c,
LOW like bukrs,
HIGH like bukrs,
end of bukrs.

Now, when you create the following range, it will have the exact same fields set inside its table:

Ranges: bukrs for zstock-bukrs.

The difference is, because ranges doesn't show on the selection screen, you will have to fill it yourself, meaning you will have to fill bukrs-sign, bukrs-option, bukrs-low & bukrs-high all manually.

Some tips:
Sign is always I (for Include) or E (for Exclude)
Option can be a whole range, which includes:
EQ (Equal)
BT (Between))
CP (Contain Pattern)
So let's say you want to have the range check for all company codes not starting with AB, you will set your code as follow:

ranges: bukrs for zstock-bukrs.

bukrs-sign = 'E'. "Exclude
bukrs-option = 'CP'. "Pattern
bukrs-low = 'AB*'. "Low Value
bukrs-high = ''. "High Value
append bukrs.

Always remember to APPEND your range when you fill it, as the WHERE clause checks against the lines of the range table, not against the header line.

Hope this explains it well enough.
--------------------------------------------------------------------------------------------------------->
What does SIGN "I" & "E" mean?
The "I" stands for Include, and the "E" for Exclude.

The easiest way to learn how the range selections work is, create the following dummy program:

report dummy.
tables: mara.
select-options: matnr for mara-matnr.
start-of-selection.
loop at matnr.
write: / matnr-sign,
matnr-option,
matnr-low,
matnr-high.
endloop.

Run this program, and fill in a lot of junk into MATNR. Fill in some includes, some excludes, some ranges, etc., and you will soon realise how the system builds ranges (select-options). Once you know that, you can fill your own ranges quickly and efficiently.

Function Determine Due Date

2009-05-16T21:12:00.003+07:00

this function is used for counting due date of invoice. Table invoice doesn't have duedate field, it must count from payment terms rules. In payment terms rules, duedate can be counted from one of this fields namely base line date or document date or manually or ...(I forget) and will be saved in bseg or bsid/bsad or bsik/bsak - in baseline date field (zbfdt). So, this function will help for counting duedate.

REPORT ZVR_INCLUDE2 .
tables : faede,bseg.
parameters :vbeln like bseg-vbeln,
koart like bseg-koart.
data :str1 like faede.
str1-rebzg = vbeln.
str1-koart = koart.
CALL FUNCTION 'DETERMINE_DUE_DATE'
EXPORTING
I_FAEDE = str1
IMPORTING
E_FAEDE = str1
* EXCEPTIONS
* ACCOUNT_TYPE_NOT_SUPPORTED = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

write :/ 'net date ',str1-netdt.

Convert SMARTFORMS To PDF

2009-05-11T08:52:00.001+07:00

PARAMETERS : p_werks TYPE t001w-werks.
PARAMETERS : p_file LIKE rlgrap-filename DEFAULT 'C:\temp\1.pdf'.

DATA : v_fnam TYPE rs38l_fnam.
DATA : flag TYPE char1.
DATA : file TYPE string.
DATA : mi_bytecount TYPE i.
DATA : lines LIKE tline OCCURS 100 WITH HEADER LINE.

*Control Parameters
DATA : it_ssfctrlop TYPE TABLE OF ssfctrlop.
DATA : wa_ssfctrlop TYPE ssfctrlop.

*Output Options
DATA : it_output_options TYPE TABLE OF ssfcompop.
DATA : wa_output_options TYPE ssfcompop.

*Job Output Info
DATA : it_job_output_info TYPE TABLE OF ssfcrescl.
DATA : wa_job_output_info TYPE ssfcrescl.

*Job Output Options
DATA : it_job_output_options TYPE TABLE OF ssfcresop.
DATA : wa_job_output_options TYPE ssfcresop.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZSAMPLE_FORM'
IMPORTING
fm_name = v_fnam.

wa_ssfctrlop-no_dialog = 'X'.
wa_ssfctrlop-getotf = 'X'.
wa_ssfctrlop-preview = 'X'.
APPEND wa_ssfctrlop TO it_ssfctrlop.

wa_output_options-tdnoprev = 'X'.
wa_output_options-tdtitle = sy-title.
wa_output_options-tdnewid = 'X'.
APPEND wa_output_options TO it_output_options.

CALL FUNCTION v_fnam
EXPORTING
control_parameters = wa_ssfctrlop
output_options = wa_output_options
p_werks = p_werks
IMPORTING
job_output_info = wa_job_output_info
job_output_options = wa_job_output_options.

*Convert to PDF
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_filesize = mi_bytecount
TABLES
otf = wa_job_output_info-otfdata
lines = lines
EXCEPTIONS
err_conv_not_possible = 1
err_bad_otf = 2.

*Download to ur PC
file = p_file.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = mi_bytecount
filename = file
filetype = 'BIN'
TABLES
data_tab = lines[].
IF sy-subrc = 0.
MESSAGE 'Downloaded Successfully' TYPE 'S'.
ENDIF.

Source : http://sap.ittoolbox.com/groups/technical-functional/sap-dev/convert-smartforms-form-in-pdf-1002213

IDOC Scenario

2009-03-27T15:38:00.004+07:00

I have tried to IDOC SAP..but i tried from another source..you can try this at home...please download from this link

Table BSID and BSAD

2009-03-15T19:51:00.006+07:00

Table BSID and BSAD

the both of tables are FI tables and have a relation within Customer.

Document Header table : BKPF -> Accounting Document Header
Fields : BUKRS ->Company Code
BELNR->Accounting Document Header
GJAHR->Fiscal Year
These fields is important. Because Document Header can be repeated every year or other Company Code.

Document Segment : BSEG -> Accounting Document Segment
Fields : BUKRS-> Company Code
BELNR->Accounting Document Header
GJAHR->Fiscal Year
BUZEI->Number of Line Item Within Accounting Document
HKONT->General Ledger Account
SHKZG->Debit/Credit Indicator
S -> Debit
H -> Credit
This table is detail table. It would be very big records, because every posting accounting document will update this table. I can say it is Journal GL Table.

Allocation Table : BSID ->Accounting: Secondary Index for Customers -> Open Items
Fields : KUNNR -> Customer Number 1

I call this table as Allocation Table, because :
1. We can know total amount of every payment to allocate invoice.
2. Or Credit Memo can allocate to invoice
This table fill open invoice (It hasn't been paid yet) or Payment of invoice hasn't been fully (belum Lunas)
example :
Invoice 1000
Payment1 200
Payment2 400

Allocation Table : BSAD ->Accounting: Secondary Index for Customers -> Closed Items
It is the same as BSID, but it only fills invoice has been paid fully (Lunas)
example :
Invoice 1000
Payment1 200
Payment2 400
Payment3 400

Function modules: Amount and Currency

2009-03-10T20:04:00.002+07:00

CURRENCY_AMOUNT_SAP_TO_IDOC - Convert currency to IDOC format
CONVERT_TO_LOCAL_CURRENCY - Conversion of currency
CLOI_PUT_SIGN_IN_FRONT Move the negative sign from the left hand side of a number, to the right hand side of the number. Note that The result will be left justified (like all
character fields), not right justified as numbers normally are.
CONVERT_TO_FOREIGN_CURRENCY Convert local currency to foreign currency.
CONVERT_TO_LOCAL_CURRENCY Convert from foreign currency to local currency

Example 1: Convert amount to/from string

Amount to string:

CALL FUNCTION 'HRCM_AMOUNT_TO_STRING_CONVERT'
 EXPORTING
   betrg                         = 3000
   WAERS                         = 'DKK'
*   NEW_DECIMAL_SEPARATOR         =
*   NEW_THOUSANDS_SEPARATOR       =
 IMPORTING
  STRING                        =  slam.

String to amount:

CALL FUNCTION 'HRCM_STRING_TO_AMOUNT_CONVERT'
 EXPORTING
   string                    = slam2
   DECIMAL_SEPARATOR         = '.'
*   THOUSANDS_SEPARATOR       =

   WAERS                     = 'HUF'
IMPORTING
  BETRG                     = b2
* EXCEPTIONS
*   CONVERT_ERROR             = 1
*   OTHERS                    = 2.


source :http://erpgenie.com/utilities/1155-function-modules-amount-and-currency

TABLE VBUK VBUP VBFA

2009-03-05T16:28:00.001+07:00

TABLE VBUK VBUP VBFA

* VBUK is Status Header table. It could be from Sales Order table (VBAK), Delivery Order table (LIKP), and Billing table (VBRK).

VBELN = Sales and Distribution Document Number
LFSTK = Delivery status
LFGSK = Overall delivery status for all items
FKSTK = Billing status
FKSAK = Billing status (order-related billing document)
BUCHK = Posting Status of Billing Document
etc

*VBUP is Status Detail table. It could be from Sales Order detail table (VBAP), Delivery Order detail table (LIPS), and Billing detail table (VBRP).

VBELN = Sales and Distribution Document Number
LFSTA = Delivery status
LFGSA = Overall delivery status of the item
FKSTA = Billing status of delivery-related billing documents
FKSAA = Billing status for order-related billing documents
etc

*VBFA is Sales Document Flow. It is a detail table. You can see relation between Sales Order and Delivery Order and Post Good Issue and Sales Invoice OR relation between Delivery Order and Sales Invoice

VBELV = Preceding sales and distribution document
POSNV = Preceding item of an SD document
VBELN = Subsequent sales and distribution document
POSNN = Subsequent item of an SD document
RFMNG = Referenced quantity in base unit of measure
MEINS = Base Unit of Measure
RFWRT = Reference value
WAERS = Statistics currency

Be Careful When you report Sales Invoice Amount from this table. If you need to collect subsequent document (Sales Invoice), because it can fill Sales Invoice Cancellation.
?? Be careful for Delivery order, for RFWRT field never fills value (0).

Table2 Billing

2009-03-05T15:35:00.001+07:00

Table VBRK

*VBRK is Sales Invoice table.
VBRK is used for saving Sales Invoice Header data, Credit Memo Header data, etc.
Some fields which i will explain, have special attention for me.

VBELN = Billing Document
FKART = Billing Type
FKTYP = Billing category
VBTYP = SD document category
M = Invoice
N = Invoice Cancellation
O = Credit Memo
P = Debit Memo
S = Credit Memo cancellation
etc
KURRF = Exchange rate for FI postings
WAERK = SD document currency
VKORG = Sales Organization
VTWEG = Distribution Channel
BZIRK = Sales district
KNUMV = Number of the document condition
FKDAT = Billing date for billing index and printout
ZTERM = Terms of payment key
NETWR = Net value in document currency
KUNRG = Payer
KUNAG = Sold-to party
SFAKN = Cancelled billing document number
It is only filled if the document is the document cancel and SFAKN is the document billing reference
FKSTO = Billing document is cancelled.
FKSTO, it explain that the document has been cancelled.
so, if you want to know which document has cancelled the billing,
you have to search VBRK table again which field is VBRK.SFAKN = VBRK.VBELN

*VBRP is sales invoice detail table.
VBELN = Billing Document
POSNR = Billing item
FKIMG = Actual Invoiced Quantity
VRKME = Sales unit
MEINS = Base Unit of Measure
NETWR = Net value of the billing item in document currency
VGBEL = Document number of the reference document (Related with table LIPS)
VGPOS = Item number of the reference item (Related with table LIPS)
AUBEL = Sales Document
AUPOS = Sales Document Item
MATNR = Material Number
SPART = Division
VKGRP = Sales group
VKBUR = Sales office

Table KNC1

2009-03-05T15:26:00.007+07:00

It is a good table because fills summary AR Customer per month/year.
I have to thank to Mr. Popo (one of the KOMTEK member).
So, if you want to create a Summary AR customer report using this table.

Table2 SalesOrder

2009-03-05T10:48:00.005+07:00

Table VBAK

* VBAK is Sales Order Header table. But I don't explain for relation with other table,
you can download sap-table.exe in www.sap-interface.com or you can search it in google.
VBAK is used for saving Sales Order Header data, Sales Inquiry Header, Sales Quotation Header and Return Order Header data.

Some fields which i will explain, have special attention for me.
Vbeln = Sales Document
Audat = document date
Vbtyp = SD Document Category
A = Inquiry
B = Quotation
C = Order
I = Order w/o charge
H = Returns
etc
Auart = Sales Document type
This is for specific document. It depends on customizing from the functional.
Netwr = Net Value of the Sales Order in Document Currency
This value don't include Tax Amount. So, if you want to get Pricing condition, you can search on KONV table (Please read my blog about table KONV& KONP)
Waerk = SD document currency
Vkorg = Sales Organization
Vtweg = Distribution Channel
SPart = Division
Vkgrp = Sales group
Vkbur = Sales office
BSTnk = Customer purchase order number
Kunnr = Sold to Party (Customer)
VGBel = Document number of the reference document. Reference Document from Quotation
KNUMV = Number of the document condition (Relation for table KONV)

* VBAP is Sales Order Detail table.It is nothing special for me, so i just copy paste fields which are almost used every creating report
VBELN = Sales Document (Related with VBAK.VBELN)
POSNR = Sales Document Item
MATNR = Material Number
KWMENG = Cumulative order quantity in sales units
VRKME = Sales unit
MEINS = Base Unit of Measure
SPART = Division
NETWR = Net value of the order item in document currency
WAERK = SD document currency
Plant = Plant (Own or External)
LGORT = Storage Location
VSTEL = Shipping Point/Receiving Point
KNUMH = Number of condition record from batch determination (Relation for table KONP)

*VBPA is Partner table of Sales Document. You can get Sales Employee field from this table.
VBELN = Sales and Distribution Document Number (Related with VBAK.VBELN)
POSNR = Item number of the SD document
PARVW = Partner function
AG = Sold to party
RE = Bill to party
RG = Payer
WE = Ship to Party
VE = Sales Employee
KUNNR = Customer Number 1
PERNR = Personnel Number

*VBKD is Business data table of Sales Document. You can get Exchange Rate amount and Sales District fields.
VBELN = Sales and Distribution Document Number (Related with VBAK.VBELN)
POSNR = Item number of the SD document (Related with VBAP.POSNR)
Be Careful..untuk exchange rate amount sebenarnya berdasarkan item number,
jika customizing bisa menyatakan satu document hanya berlaku satu currency maka POSNR berisi '000000'
BZIRK = Sales district
KURSK = Exchange Rate for Price Determination
ZTERM = Terms of payment key

Dialog Transaction Execution dari kutipan BC402

2009-03-01T22:12:00.000+07:00

You assign a dialog transaction to a module pool. The following steps occur when you run a dialog transaction:

First, the LOAD-OF-PROGRAM event is triggered. Once this event block has been executed, the ABAP processor passes control to the screen processor. For an example of how to use this new event, refer to the example in the Function Groups and Function Modules unit.
The screen processor processes the intial screen specified in the transaction definition. The initial screen can be a selection screen (regardless of the program type). The PROCESS BEFORE OUTPUT event is triggered and control passes to the ABAP processor, which processes the first PBO module.
The ABAP processor executes the processing block and returns control to the screen processor. Once all PBO modules have been processed, the contents of any ABAP fields with identically-named corresponding fields on the screen are transported to the relevant screen fields. Then the screen is displayed (screen contents, active title, active status).
Once the user has chosen a dialog function (such as ENTER), the contents of the screen fields are transported back to the corresponding identically-named fields in the ABAP program, and the processing blocks that belong to the PROCESS AFTER INPUT event are processed. The system then continues by processing the next screen

The only processing logic that is processed in a dialog transaction are the statements belonging to the LOAD-OF-PROGRAM event and those occurring in the various modules.
However, you can also use the statement LEAVE TO LIST-PROCESSING. This makes all of the list processing events available to you.

Table KONV & KONP

2009-03-01T21:26:00.001+07:00

Table KONV dan KONP merupakan table condition price pada SD (Sales & Distribution).
Keduanya ada hubungan dengan Sales Order dan Sales Invoice.
u/ table KONV punya relation table VBAK (Sales Order) dengan field KONV.KNUMV= VBAK.KNUMV
dan juga punya relation dengan table VBRK (Sales Invoice) yaitu atau KONV.KNUMV= VBRK.KNUMV
Tapi yg jadi catatan khusus adalah isi table KONV bukan berisi satu baris aja tapi tergantung dari detail table VBAP atau detail table VBRP. Misal 1 Sales Order (VBAK) ada 3 Order Detail (VBAP) maka di table KONV akan memiliki 3 detail juga(+Detail Kondisi). Oleh karena itu salah dua primary key KONV adalah KNUMV dan KPOSN.