Re: ALV User Command

Former Member — Fri, 06 Jul 2007 11:14:44 GMT

First get the cell info on which you are clicking by using

<b>GET_CURRENT_CELL</b>

&----

*& 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\

*******************************

If you are interested see the whole code to get an idea.....

Here by clicking on the PO number we'll call transaction ME21N.

*"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'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& 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.

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.

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

Regards,

Pavan P.

topic Re: ALV User Command in Application Development and Automation Discussions

ALV User Command

Re: ALV User Command

Re: ALV User Command

Re: ALV User Command

Re: ALV User Command

Re: ALV User Command