Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Smartforms in PP and FI

Former Member

‎2008 Mar 20 9:22 AM

0 Kudos
74

can anyone give me the list of smartforms, scripts and their dirver prgs.. in the modules PP and FI?

1 REPLY 1

Former Member

‎2008 Mar 20 9:32 AM

0 Kudos
50

&----

*& Report : ZTEST_SEARCH_FORMNAME

*

*

&----

*& This program will help you to search the SMARTFORM either Standard

  • Or Customer created in your compatiable language.

  • *

&----

REPORT ZTEST_SEARCH_FORMNAME .

TYPE-POOLS: SLIS.

TABLES: STXFADM, STXFADMT.

DATA: BEGIN OF ITAB OCCURS 0,

FORMNAME LIKE STXFADM-FORMNAME,

MASTERLANG LIKE STXFADM-MASTERLANG,

DEVCLASS LIKE STXFADM-DEVCLASS,

VERSION LIKE STXFADM-VERSION,

FIRSTUSER LIKE STXFADM-FIRSTUSER,

FIRSTDATE LIKE STXFADM-FIRSTDATE,

FIRSTTIME LIKE STXFADM-FIRSTTIME,

LASTUSER LIKE STXFADM-LASTUSER,

LASTDATE LIKE STXFADM-LASTDATE,

FORMTYPE LIKE STXFADM-FORMTYPE,

CAPTION LIKE STXFADMT-CAPTION,

END OF ITAB.

DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

WA_LAYOUT TYPE SLIS_LAYOUT_ALV.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_DEV FOR STXFADM-DEVCLASS NO INTERVALS.

SELECT-OPTIONS: S_FORM FOR STXFADM-FORMNAME NO INTERVALS.

SELECTION-SCREEN SKIP 1.

PARAMETERS: P_LANG LIKE T002-SPRAS DEFAULT 'EN'.

SELECTION-SCREEN END OF BLOCK B1.

PERFORM F_SELECT_DATA.

PERFORM F_LAYOUT.

PERFORM F_FIELDCAT.

PERFORM DISPLAY.

&----

*& Form f_select_data

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM F_SELECT_DATA .

SELECT

A~FORMNAME

A~MASTERLANG

A~DEVCLASS

A~VERSION

A~FIRSTUSER

A~FIRSTDATE

A~FIRSTTIME

A~LASTUSER

A~LASTDATE

A~FORMTYPE

B~CAPTION

FROM STXFADM AS A INNER JOIN STXFADMT AS B ON

AFORMNAME = BFORMNAME INTO TABLE ITAB WHERE

A~DEVCLASS IN S_DEV AND

A~FORMNAME IN S_FORM AND

B~LANGU = P_LANG.

IF SY-SUBRC = 0.

SORT ITAB BY FORMNAME.

ELSE.

MESSAGE I398(00) WITH 'No Form Exits for this selection criteria'.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " f_select_data

&----

*& Form display

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SYST-CPROG

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

TABLES

T_OUTTAB = ITAB.

IF SY-SUBRC 0.

ENDIF.

ENDFORM. " display

&----

*& Form f_fieldcat

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM F_FIELDCAT .

DATA: WA_COL TYPE I VALUE 1.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-003. " Form Name

WA_FIELDCAT-FIELDNAME = 'FORMNAME'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-004. " Smart form Text

WA_FIELDCAT-FIELDNAME = 'CAPTION'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-005. "Package

WA_FIELDCAT-FIELDNAME = 'DEVCLASS'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-006. "First User

WA_FIELDCAT-FIELDNAME = 'FIRSTUSER'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-007. "First Date

WA_FIELDCAT-FIELDNAME = 'FIRSTDATE'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-008. "Version

WA_FIELDCAT-FIELDNAME = 'VERSION'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-009. "Master Language

WA_FIELDCAT-FIELDNAME = 'MASTERLANG'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-COL_POS = WA_COL + 1.

WA_FIELDCAT-SELTEXT_L = TEXT-010. "Last User

WA_FIELDCAT-FIELDNAME = 'LASTUSER'.

WA_FIELDCAT-TABNAME = 'ITAB'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. " f_fieldcat

&----

*& Form f_layout

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM F_LAYOUT .

WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

ENDFORM. " f_layout

Hope this helps, Do reward.