How to ADD ALV in Screen

Hi All,
I have to show some data in ALV format in a POP Up with some additional buttons and icon.
Please help me to know thw way to add ALV in Screen.
Thanks
Piyush Mathur

hi piyush,
iam sending my code below.in this program interactive alv is working fine and pop also coming. i think this is ur requirement.
REPORT ZMAHI1 LINE-SIZE 30.
TABLES : VBAK,VBAP.
TYPE-POOLS : SLIS.
DATA : BEGIN OF IT_VBAK OCCURS 0,
        VBELN TYPE VBAK-VBELN,
        ERDAT TYPE VBAK-ERDAT,
        ERNAM TYPE VBAK-ERNAM,
        ERZET TYPE VBAK-ERZET,
        VTWEG TYPE VBAK-VTWEG,
        VKORG TYPE VBAK-VKORG,
        NETWR TYPE VBAK-NETWR,
       END OF IT_VBAK.
DATA : BEGIN OF IT_VBAP OCCURS 0,
        VBELN TYPE VBAP-VBELN,
        MATNR TYPE VBAP-MATNR,
        ERZET TYPE VBAP-ERZET,
        POSNR TYPE VBAP-POSNR,
       LINE_COLOR(4) TYPE C,     "Used to store row color attributes
      END OF IT_VBAP.
DATA : BEGIN OF IT_MATNR OCCURS 0,
         MATNR TYPE MARA-MATNR,
         ERSDA TYPE MARA-ERSDA,
         ERNAM TYPE MARA-ERNAM,
       END OF IT_MATNR.
DATA : EVENTCAT TYPE SLIS_T_EVENT.
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      GD_REPID     LIKE SY-REPID.
DATA: EVNT_IT_VBAK TYPE SLIS_T_EVENT        WITH HEADER LINE.
DATA: I_TITLE_VBAK TYPE LVC_TITLE VALUE 'ALV LIST FIRST'.
DATA: I_TITLE_VBAP TYPE LVC_TITLE VALUE 'ALV LIST SECOND'.
DATA: V_REPID LIKE SY-REPID .
DATA :    HEADING TYPE SLIS_T_LISTHEADER.
DATA: FCAT_MATNR TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01.
SELECT-OPTIONS : S_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
V_REPID = SY-REPID.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM BUILT_FIELDCATALOG.
PERFORM E03_EVENTTAB_BUILD USING EVENTCAT[].
PERFORM COMMENT_BUILD USING HEADING[].
PERFORM END_OF_LIST.
PERFORM GRID_DISPLAY.
*&      Form GET_DATA
FORM GET_DATA.
SELECT VBELN
         ERDAT
         ERNAM
         ERZET
         VTWEG
         VKORG
         NETWR
     FROM VBAK
     INTO TABLE IT_VBAK
WHERE VBELN IN S_VBELN.
ENDFORM.                    " GET_DATA
*&      Form BUILT_FIELDCATALOG
FORM BUILT_FIELDCATALOG.
CLEAR I_FIELDCAT.
REFRESH : I_FIELDCAT[].
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_M = 'SALES DOC NO'.
WA_FIELDCAT-HOTSPOT = 'X'.
WA_FIELDCAT-EMPHASIZE = 'C610'.
WA_FIELDCAT-EDIT = 'X'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'ERDAT'.
WA_FIELDCAT-EMPHASIZE = 'C510'.
WA_FIELDCAT-SELTEXT_M = 'Creation Date'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-SELTEXT_M = 'NAME'.
WA_FIELDCAT-EMPHASIZE = 'C410'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'ERZET'.
WA_FIELDCAT-SELTEXT_M = 'TIME'.
WA_FIELDCAT-EMPHASIZE = 'C310'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'VTWEG'.
WA_FIELDCAT-SELTEXT_M = 'DIS CHANNEL'.
WA_FIELDCAT-EMPHASIZE = 'C210'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'VKORG'.
WA_FIELDCAT-SELTEXT_M = 'SALES ORG'.
WA_FIELDCAT-EMPHASIZE = 'C110'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
WA_FIELDCAT-FIELDNAME = 'NETWR'.
WA_FIELDCAT-SELTEXT_M = 'AMOUNT'.
WA_FIELDCAT-EMPHASIZE = 'C710'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " BUILT_FIELDCATALOG
*&      Form GRID_DISPLAY
FORM GRID_DISPLAY.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM      = V_REPID
            I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
            I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
            IT_FIELDCAT             = I_FIELDCAT[]
            I_SAVE                  = 'A'
            IT_EVENTS               = EVENTCAT[]
       TABLES
            T_OUTTAB                = IT_VBAK
       EXCEPTIONS
            PROGRAM_ERROR           = 1
            OTHERS                  = 2.
ENDFORM.                    " GRID_DISPLAY
for header
*&      Form HEADER
FORM TOP_OF_PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
        WA_HEADER TYPE SLIS_LISTHEADER,
        T_HEADER1 TYPE SLIS_T_LISTHEADER,
        WA_HEADER1 TYPE SLIS_LISTHEADER,
        T_LINE LIKE WA_HEADER-INFO,
        LD_LINES TYPE I,
        LD_LINESC(10) TYPE C.
Title
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'VBAK Table Report'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
Date
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = 'Date: '.
CONCATENATE SY-DATUM+6(2) '.'
               SY-DATUM+4(2) '.'
   SY-DATUM(4) INTO WA_HEADER-INFO."todays date
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
Total No. of Records Selected
DESCRIBE TABLE IT_VBAK LINES LD_LINES.
LD_LINESC = LD_LINES.
CONCATENATE 'Total No. of Records Selected: ' LD_LINESC
     INTO T_LINE SEPARATED BY SPACE.
WA_HEADER-TYP = 'A'.
WA_HEADER-INFO = T_LINE.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER, T_LINE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = T_HEADER
            I_LOGO             = 'ENJOYSAP_LOGO'.
ENDFORM.                    " HEADER
*&      Form E03_EVENTTAB_BUILD
FORM E03_EVENTTAB_BUILD USING    E03_LT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 3
       IMPORTING
            ET_EVENTS   = E03_LT_EVENTS.
READ TABLE E03_LT_EVENTS
WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
    APPEND LS_EVENT TO E03_LT_EVENTS.
ENDIF.
DELETE E03_LT_EVENTS WHERE FORM IS INITIAL.
ENDFORM.                    " E03_EVENTTAB_BUILD
*&      Form COMMENT_BUILD
FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: W_HEADING TYPE SLIS_LISTHEADER.
DATA: W_HEADING1 TYPE SLIS_LISTHEADER.
CLEAR   : W_HEADING, LT_TOP_OF_PAGE.
REFRESH : LT_TOP_OF_PAGE.
W_HEADING-INFO = 'Synopsys World' .
W_HEADING-TYP = 'H'.
APPEND W_HEADING TO LT_TOP_OF_PAGE .
CLEAR W_HEADING .
ENDFORM.                    " COMMENT_BUILD
end of header portion.
*&      Form USER_COMMAND
FORM USER_COMMAND USING SY-UCOMM P_SELFIELD TYPE SLIS_SELFIELD.
CASE SY-UCOMM.
    WHEN '&IC1'.
      IF P_SELFIELD-FIELDNAME = 'VBELN'.
        READ TABLE IT_VBAK INDEX P_SELFIELD-TABINDEX.
        IF SY-SUBRC EQ 0.
          SELECT * FROM VBAP INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
           WHERE VBELN = IT_VBAK-VBELN.
        ENDIF.
        PERFORM GETDATA_FROM_VBAP.
        PERFORM BUILD_FIELDCATLOG_IT_VBAP.
        PERFORM BUILD_LAYOUT.
        PERFORM HEADINGFOR_SECONDARY.
        PERFORM GRID_DISPLAY1.
      ENDIF.
ENDCASE.
ENDFORM.                    "user_command
*&      Form GETDATA_FROM_VBAP
FORM GETDATA_FROM_VBAP.
DATA: LD_COLOR(1) TYPE C.
SELECT * FROM VBAP
    INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
   WHERE VBELN = IT_VBAK-VBELN.
LOOP AT IT_VBAP .
    LD_COLOR = LD_COLOR + 1.
    IF LD_COLOR = 8.
      LD_COLOR = 1.
    ENDIF.
    CONCATENATE 'C' LD_COLOR '10' INTO IT_VBAP-LINE_COLOR.
    MODIFY IT_VBAP TRANSPORTING LINE_COLOR.
ENDLOOP.
ENDFORM.                    " GETDATA_FROM_VBAP
*&      Form BUILD_FIELDCATLOG_IT_VBAP
FORM BUILD_FIELDCATLOG_IT_VBAP.
CLEAR FIELDCATALOG.
REFRESH : FIELDCATALOG[].
FIELDCATALOG-FIELDNAME   = 'VBELN'.
FIELDCATALOG-SELTEXT_M   = 'SALES DOC NO'.
FIELDCATALOG-COL_POS     = 0.
FIELDCATALOG-OUTPUTLEN   = 10.
FIELDCATALOG-EMPHASIZE   = 'X'.
FIELDCATALOG-KEY         = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'POSNR'.
FIELDCATALOG-SELTEXT_M   = 'PO Item'.
FIELDCATALOG-COL_POS     = 1.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'MATNR'.
FIELDCATALOG-SELTEXT_M   = 'MAT NO'.
FIELDCATALOG-COL_POS     = 2.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'ERZET'.
FIELDCATALOG-SELTEXT_M   = 'TIME'.
FIELDCATALOG-COL_POS     = 3.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATLOG_IT_VBAP
*&      Form GRID_DISPLAY1
FORM GRID_DISPLAY1.
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM      = GD_REPID
            I_CALLBACK_USER_COMMAND = 'USER_COMMAND1'
            I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
            IS_LAYOUT               = GD_LAYOUT
            IT_FIELDCAT             = FIELDCATALOG[]
            I_SAVE                  = 'A'
            IT_EVENTS               = EVENTCAT[]
       TABLES
            T_OUTTAB                = IT_VBAP
       EXCEPTIONS
            PROGRAM_ERROR           = 1
            OTHERS                  = 2.
ENDFORM.                    " GRID_DISPLAY1
*&      Form BUILD_LAYOUT
FORM BUILD_LAYOUT.
GD_LAYOUT-ZEBRA = 'X'.
GD_LAYOUT-NO_INPUT          = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GD_LAYOUT-TOTALS_TEXT       = 'Totals'(201).
GD_LAYOUT-INFO_FIELDNAME =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form END_OF_LIST
FORM END_OF_LIST.
DATA: LISTWIDTH TYPE I,
        LD_PAGEPOS(10) TYPE C,
        LD_PAGE(10)    TYPE C.
WRITE: SY-ULINE(50).
SKIP.
WRITE:/40 'Page:', SY-PAGNO .
WRITE:/40 'Page:', SY-PAGNO .
ENDFORM.                    " END_OF_LIST
*&      Form HEADINGFOR_SECONDARY
FORM HEADINGFOR_SECONDARY.
*EVENT_IT_VBAK-FORM = '"HEADINGFOR_SECONDARY'.
ENDFORM.                    " HEADINGFOR_SECONDARY
*&      Form USER_COMMAND
FORM USER_COMMAND1 USING SY-UCOMM P_SELFIELD1 TYPE SLIS_SELFIELD.
CASE SY-UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_VBAP INDEX P_SELFIELD1-TABINDEX.
      IF SY-SUBRC EQ 0.
        SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE
IT_MATNR
         WHERE MATNR = IT_VBAP-MATNR.
      ENDIF.
      PERFORM BUILD_FIELDCATLOG_IT_MATNR.
ENDCASE.
ENDFORM.                    "user_command
*&      Form BUILD_FIELDCATLOG_IT_MATNR
FORM BUILD_FIELDCATLOG_IT_MATNR.
CLEAR I_FIELDCAT.
REFRESH : I_FIELDCAT[].
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO'.
WA_FIELDCAT-HOTSPOT = 'X'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ERSDA'.
WA_FIELDCAT-SELTEXT_M = 'CREATION DTAE'.
WA_FIELDCAT-HOTSPOT = 'X'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-SELTEXT_M = 'NAME'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
       EXPORTING
            I_ZEBRA       = 'X'
            I_TABNAME     = 1
            IT_FIELDCAT   = I_FIELDCAT[]
       TABLES
            T_OUTTAB      = IT_MATNR
       EXCEPTIONS
            PROGRAM_ERROR = 1
            OTHERS        = 2.
ENDFORM.                    " BUILD_FIELDCATLOG_IT_MATNR
thanks,
maheedhar.t

Similar Messages

How to add new tab screen in transaction BP

Hi,
   Please let me know How to add new tab screen in transaction ukm_BP. Is there any SPRO configuration needed for this?
Thanks,
Debi.

Hi,
You may also try the exits available with the MIGO transaction. To find exits you can use the fillowing code by giving tranasaction code as input.
REPORT zrmexitfinder                               .
TABLES: modsap, modact, tstc.
PARAMETERS: input1 LIKE tstc-tcode DEFAULT ' ',
            input2 LIKE modsap-typ DEFAULT ' '.
DATA: search1(6),
      search2(3),
      search3 LIKE modsap-member.
DATA : first_row VALUE 'Y'.
CONCATENATE: '%' input1 '%' INTO search1,
'%' input2 INTO search2.
SELECT * FROM tstc WHERE tcode LIKE search1.
first_row = 'Y'.
CHECK tstc-pgmna NE space.
CONCATENATE '%' tstc-pgmna '%' INTO search3.
SELECT * FROM modsap WHERE typ LIKE search2
AND member LIKE search3.
    SELECT SINGLE * FROM modact WHERE member = modsap-name.
    IF first_row EQ 'Y'.
      WRITE: /0 tstc-tcode, 6 tstc-pgmna, 16 modsap-name, 32 modsap-typ,
             45 modsap-member, 70 modact-name.
      first_row = 'N'.
    ELSE.
      WRITE: /16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name.
    ENDIF.
    CLEAR : modsap, modact.
ENDSELECT.
IF sy-subrc NE 0.
    WRITE : /0 tstc-tcode, 6 tstc-pgmna, 30 'No exits found'.
ENDIF.
CLEAR tstc.
ENDSELECT.
END-OF-SELECTION.
CLEAR: search1, search2, search3.
Regards,
Renjith Michael.

How to add a splash screen in a DwCS6 PhoneGap for Android build?

So I have the new Dw CS6 and want to see what great things DW can do in building Android Apps. So I follow the California Trails demo on Lynda.com. Build it in DreamWeaver, package it with Phonegap and it runs. However, there are some things I'm noticing that happen with this Phonegap that do not happen when I take the SAME files and place them in my Eclipse SDK and build the application under Eclipes.
1) There is a 5 to 9 second delay where a black screen is displayed after the app is launched and when it actually displays the index.html. How do I stop this from happening?
2) How do you add a splach screen? In Eclipes I would add the image to the drawables folders and modify my Activity.java file but we don't have these in DW.
3) How do I get an external URL to display within my Phonegap App? In Eclipes I make the call to the URL while in a WebView but there isn't anything like that in Dw or Phonegap.
4) How do I attach or reference my KeyStore file in these PhoneGap builds so I can put them on Google Play?
Maybe I'm asking too much of Dw and PhoneGap? It this release not intended to create a fully functional app or is it just suppose create a Pseudo App that in reality is a HTML5 webpage made to look like an app? I'm not judging or being critical just trying to find out how or if this Dw feature can be interated in to my workflow.

I assume that you want to show the splash page after every session is initiated after an authentication.
Try this:
Protect the app pages (/app1, /app2 etc) with the following authen scheme:
Level:1
Form:/login.html
Action:/dummy1
Passthrough:no
In the authentication success of this one, have an action:
Authentication success URL: /some_dummy_page.html
Now, protect this url /some_dummy_page.html with the following:
Level:2
Form:/splash_page.html
Action:/dummy2
Passthrough:no
When you access /app1 or /app2, then the first scheme will be invoked, login.html page will come. give your login and password, on successful authen, it will (try to) go to /some_dummy_page.html. but since this one is protected, it will show the splash_page.html. Click on ok, and it will POST to the /dummy2. Because the action in both the schemes are different, the obformlogin cookie will persist.
You will need to have the action in the splash page to point to /dummy2.
Hope this helps. Let us know.

How to add ALV button using OO in module pool program using ALV grid

Hello Gurus!!!
              Want some tips related how to add button using ALV Grid(OO).
I want to display the button for search, sort ....
             Please suggest the step -by-step procedure for implementation of these button.
             I am designing the code for transaction FB03. Header data has been displayed but want to display the line items.
             Kindly suggest your answers.
Thanks,
Sachin

Hi,
CLASS SELSCR_APPLICATION DEFINITION DEFERRED.
CLASS SELSCR_APPLICATION DEFINITION.
PUBLIC SECTION.
   METHODS:
        HANDLE_TOOLBAR
        FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
            IMPORTING E_OBJECT E_INTERACTIVE,
        HANDLE_USER_COMMAND
        FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
            IMPORTING E_UCOMM.
ENDCLASS.        "SELSCR_APPLICATION DEFINITION
CLASS SELSCR_APPLICATION IMPLEMENTATION.
METHOD HANDLE_TOOLBAR.
    DATA: LS_TOOLBAR TYPE STB_BUTTON.
append SAVE icon
    CLEAR LS_TOOLBAR.
    MOVE 'SAVE' TO LS_TOOLBAR-FUNCTION.
    MOVE ICON_SYSTEM_SAVE TO LS_TOOLBAR-ICON.
    MOVE 'Save' TO LS_TOOLBAR-QUICKINFO.
    MOVE ' ' TO LS_TOOLBAR-DISABLED.
    APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
    CLEAR LS_TOOLBAR.
ENDMETHOD.                    "handle_toolbar
METHOD HANDLE_USER_COMMAND.
    CASE E_UCOMM.
      WHEN 'SAVE'.
          PERFORM UPDATE_FIELDS.
    ENDCASE.
ENDMETHOD.
ENDCLASS.                 "SELSCR_APPLICATION IMPLEMENTATION
these lines should be after calling method SET_TABLE_FOR_FIRST_DISPLAY
SET HANDLER G_APPLICATION1->HANDLE_TOOLBAR FOR GRID1.
        CALL METHOD grid1->set_toolbar_interactive.
rgds,
bharat.

How to add sign in screen at the beginning of training presentation

Hello Captivate users
Does anyone know how to add log in or a screen that captures the name of person doing the training so you can see who has done the training?
Kind Regards
Nat

Hello,
Welcome to Adobe Forums.
You can use Text Entry Box and Text Caption to create a login screen.
Once you add a Text Entry Box, a variable will be assigned with it (for ex : Text_Entry_Box_1), you can use that variable to capture the name of the person who views the project's published output.
Thanks,
Vikram

How to add a logon screen if the user is a guest.

hi,all
how do i add a logon screen if the user is annoymous, I use
IWDClientUser wdUser = WDClientUser.getCurrentUser();
IUser currentuser = wdUser.getSAPUser();
And I don't want to raise exception,if the user is a guest.I just want to show the logon screen to him and let him to logon.
I know if the webdynpro application is on the portal, it has no need.
But I just want to do this for test.
Is there any code to do this?
Thank you.
Best Regards
delma

Hi Delma,
If you need the logon before starting the application itself, then you can set "authentication=true" in the application properties.
If you wanna show some initial content in WD and on any specific user action, if you want the user to login, then try this:
if(WDClientUser.forceLoggedInClientUser().isAnonymousUser())
WDClientUser.forceLogoffClientUser("<app url>");
-Aarthi

Eclipse: How to add checkbox on screen

Hi,
I am working on Eclipse, can u please give me example how we can create Checkbox.

Hi Nishant ,
Follow the API documentation of SAP UI 5 for all the simple and complex controls.
Here is the link for the checkbox control - CheckBox - SAPUI5 Demo Kit
Example :
// create a simple CheckBox
var oCB = new sap.ui.commons.CheckBox({
text : 'I want to receive the newsletter',
tooltip : 'Newsletter checkbox',
checked : true,
change : function() {if(oCB.getChecked()){alert('YES')}else{alert('NO')};}
// attach it to some element in the page
oCB.placeAt("sample1");

How to add new subscreen to tr.il01/2/3?

Hi friends,
I developed new subscreen using userexit 'ITOB0001' and screen exit 'SAPLITO0' screen number 1000 type subscreen
but I don't know how to add this sub screen to il01.
Please explain how to add this subscreen to il01....
thanks in adv.

Hi,
for adding the sub screen to the transactions. It has to be done in the SPRO. Ask your functional consultant to configure.
I have done this for quality notification QM01 . After creating the sub screen , in the SPRO
I am giving for quality notififcation u chk the same for IL01
SPRO>Quality management>Notification --> Overview of notification types --> Select the notification & 90 give the customer specific screen area
Subscreen Number for Customer Screen Area "Notif. Header"
Specifies the customer screen area that you can activate on the main notification screen using the SAP enhancement if you are working with the screen area '090' (customer subscreen (one screen/NTyp)).
Cheers

How to add push buttons in out put screen of ALV

Hai,
How to add push buttons in out put screen of ALV (tool bar) with out using classes or methods .I want to know using normal ALV .
Thanks in advance .
kiran

Hi Kiran,
Here is the sample code.If you are using reuse_alv_grid_display, no need to write code in PBO.
Just double click the 'TEST' which is written in code.Then create a GUI Status.In Application toolbar,type the name of the button you want(say BUTTON).Then double click that name.Then enter the ICON name and function text.Activate it.This itself will work.If you want all the functionalities,then try to do as Vinod told.
TYPE-POOLS: slis.
DATA: i_qmel LIKE qmel OCCURS 0.
data v_repid type repid.
SELECT * FROM qmel INTO TABLE i_qmel.
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = v_repid
   I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
   I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
   i_structure_name                  = 'QMEL'
TABLES
    t_outtab                          = i_qmel
EXCEPTIONS
    program_error                     = 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.
form set_pf_status using rt_extab type slis_t_extab.
set pf-status '<b>TEST</b>'.
endform.
FORM user_command USING ucomm LIKE sy-ucomm
                         selfield TYPE slis_selfield.
data lv_ucomm type sy-ucomm.
lv_ucomm
= sy-ucomm.
CASE lv_ucomm.
    WHEN 'BUTTON'.                              "Double Click line Item
      call transaction 'MM01'.
endcase.
endform.

How we can add the 2 buttons on the alv out screen.

I have a requirement, i want to add two buttons on the application bar on the ALV report out.
with the use of grid functional module.
for example: i want to buttons details and balance on the ALV output screen. if i click on detail it will display the details and if i click on balance it will show the balance data in report.
and if i use the back and exit that time it will come out the selection screen.
please send me any exiting report its very urgent.

Hi frnd,
To add additional button in the application toolbar,
First copy the std toolbar from std sap program,
In se 41 give
program name = SAPLKKBL
copy staus.
Use own status (Copy STANDARD from SAPLKKBL)
SET PF-STATUS 'STANDARD_NEW' .(in this new user defined status add ur buttons)
steps:
then in the ''REUSE_ALV_GRID_DISPLAY' function module
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program       = gv_repid
            i_callback_user_command = EVENT_USER_COMMAND
            i_callback_pf_status_set = EVENT_SET_STATUS_01
            i_grid_title             = gc_tit
            is_layout                = gt_layout
            it_fieldcat              = gt_fieldcat[]
       TABLES
            t_outtab                 = gt_lfa1
       EXCEPTIONS
            program_error            = 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.
FORM     event_set_status_01 USING lt_excl TYPE slis_t_extab.
Use own status (Copy STANDARD from SAPLKKBL)
SET PF-STATUS 'STANDARD' .
ENDFORM.                    "EVENT_SET_STATUS_01
*& Form Name: event_user_command                                      *
*& Form Desc: For Handling USER_COMMAND                               *
FORM     event_user_command USING
                                    if_ucomm     TYPE sy-ucomm
                                    is_selfield TYPE slis_selfield.
CASE if_ucomm.
    WHEN 'PRINT'.
endcase.
endform

How to add 2 more field to the Header of FBL5N ALV report output

Hi All,
I have copied and made some modification to the standard transaction FBL5N and added some fields to the ALV report line Items but how to add fields to the header part i.e if you execute the transaction FBL5n, you will get the ALV report, in the header part customer no, company code then I need to add the 2 more fields. can any one tell me that which structure or where I need to add these fields to be appear in ALV output screen.
Thanks in advance.
Swapna.

Hi Mohamed,
If you copied Z-FM successfully, then you have to go to subroutine TOP_OF_PAGE to add your field:
*&      Form TOP_OF_PAGE
FORM top_of_page.
DATA: b_suppress   LIKE boole-boole,
        opfi_text    LIKE eptext OCCURS 10 WITH HEADER LINE,
        n_color      TYPE i.
* IF     NOT it_items-bukrs IS INITIAL               "737295
*     AND NOT it_items-konto IS INITIAL               "737295
*     AND NOT it_items-koart IS INITIAL.              "737295
gs_items = gt_alv.
* ENDIF.                                             "737295
* skip first call at top of page:
IF NOT gd_first_top IS INITIAL.
    CLEAR gd_first_top.
    EXIT.
ENDIF.
IF x_grid = c_x OR x_inet = c_x.                          "1012201
    PERFORM grid_top_of_page.
    EXIT.
ENDIF.
*... open FI: get header text.
* first fill some RFXPO fields for general info:
CLEAR: s_rfxpo, wa_kna1, wa_lfa1, wa_ska1.
s_rfxpo-bukrs = gs_items-bukrs.
s_rfxpo-kkber = gs_items-kkber.
s_rfxpo-koart = gs_items-koart.
s_rfxpo-konto = gs_items-konto.
s_rfxpo-vrbez = gs_variant-variant.
s_rfxpo-waers = gs_items-waers.
* update master record:
PERFORM fill_master_rec USING gs_items-koart
                                 gs_items-konto
                                 gs_items-bukrs. " note 698396
CALL FUNCTION 'OPEN_FI_PERFORM_00001640_E'
    EXPORTING
      i_rfxpo             = s_rfxpo
      i_kna1              = wa_kna1
      i_lfa1              = wa_lfa1
      i_ska1              = wa_ska1
    IMPORTING
      e_suppress_standard = b_suppress
    TABLES
      t_lines             = opfi_text.
*... display open FI text:
IF x_konto_sort = 'X'.
    LOOP AT opfi_text.
      CASE opfi_text-color.
        WHEN 1.
          FORMAT COLOR 1.
        WHEN 2.
          FORMAT COLOR 2.
        WHEN 3.
          FORMAT COLOR 3.
        WHEN 4.
          FORMAT COLOR 4.
        WHEN 5.
          FORMAT COLOR 5.
        WHEN 6.
          FORMAT COLOR 6.
        WHEN 7.
          FORMAT COLOR 7.
      ENDCASE.
      WRITE: / opfi_text-text.
    ENDLOOP.
    FORMAT RESET.
ENDIF.
*... display other header text:
IF b_suppress NE 'X'.
    PERFORM display_custom_header.
    PERFORM display_ccard_lines.
ENDIF.
" Put your field somewhere...
ENDFORM.                               " TOP_OF_PAGE
Good luck,
Thanks,

How to add radiobuttons in ALV Grid

Hi,
I refered the threads in SDN but i am not able to get proper solution for my requirement.
I am displaying output in ALV Grid format. After displaying the output i mean in the output screen i need few buttons and radio buttons . when user selects the record and clicks the radio button accordingly my logic should work. Anybody can tell me how to add the radiobuttons in the output of the screen. Please find the below output format for the requirement is
Push button1 Pushbutton2 Radiobutton1 Radio button2
MY program output in Grid format.
Anybody can suggest me how to approach.
Regards,
Maheedhar

Check if this link helps..
http://wiki.sdn.sap.com/wiki/display/Snippets/ABAP-RadioButtonsinALVGRIDREPORT

How to add one column for entry in the TLB screen?

Hi all,
Does anybody know how to add a customised column for free text in the TLB header screen? The reason is user needs to add ship or container no. This info will be later on interfaced via CIF exit to R/3.
I think many of you have the same requirement.
Thanks heaps!

Thanks Digambar,
Can you help to work out more detail on how to customize the code in the TLB screen?
Are you thinking of adding one field in the table and making the ALV grid control editable? If you have any reference doc/link to do it, it would great!
Cheers,

How to add push button in alv display with out class or method

Hai,
How to add push buttons in out put screen of ALV (tool bar) with out using classes or methods .I want to know using normal ALV .
Thanks in advance .
kiran

You should post your question in the ABAP forum.
ABAP Development

How to add a push button on an ALV grid ?

Hi,
How to add a push button on an ALV grid, using ON_TOOLBAR, ON_USERCOMMAND Methods. Clicking on that push button, a new screen has to be displayed.

Hi,
Assuming that you want to have a "push-button" column, i.e. push-buttons within an ALV grid then you need to implement the following steps:
(1) Set the style of the column as button
ls_fcat-style = CL_GUI_ALV_GRID => MC_STYLE_BUTTON.
(2) When the user pushes the button event BUTTON_CLICK is triggered. Thus, define an appropriate event handler method.
<b>Reward points</b>
Regards

How to ADD ALV in Screen

Similar Messages

Maybe you are looking for