topic Re: Report - Screen in Application Development and Automation Discussions

topic Re: Report - Screen in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828155#M920594 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>create the screen in module pool programming.</P><P>and call it in program like this.</P><P> CALL SCREEN '0100' STARTING AT 10 10 ENDING AT 80 30.</P><P></P><P>i am sending u a sample code.in this program i have created a table.and i displayed that table by using alv grid display.and if i select one record and click on create buton i wil get ascreen with some fields to enter the values.and if i save it i that is saved in the ztable.</P><P></P><P>TYPE-POOLS: SLIS.</P><P>TABLES:ZACTTABLE.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="---------------" />structure declaration--<HR originaltext="------------------------" /><P></P><P>DATA:BEGIN OF IT_ITAB OCCURS 0,</P><P> KUNNR TYPE KUNNR, "customer number</P><P> LAND1 TYPE LAND1, "country key</P><P> NAME1 TYPE NAME1, "name</P><P> ORT01 TYPE ORT01, "city</P><P> PSTLZ TYPE PSTLZ, "postal code</P><P> END OF IT_ITAB,</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />field catalog for first display--<HR originaltext="---------------" /><P></P><P> IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,</P><P> WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />field catalog for second display--<HR originaltext="--------------" /><P></P><P> IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,</P><P> WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------" />work area for layout designing--<HR originaltext="----------------------" /><P></P><P> WA_LAYOUT TYPE SLIS_LAYOUT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------" />variable declaration--<HR originaltext="----------------------------" /><P></P><P> V_KUNNR TYPE ZACTTABLE-KUNNR,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="----------------" />table for headings--<HR originaltext="--------------------------" /><P></P><P> T_HEADER TYPE SLIS_T_LISTHEADER,</P><P> ok_code like sy-ucomm,</P><P> WA_HEADER TYPE SLIS_LISTHEADER.</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------------" />selection screen--<HR originaltext="------------------------------" /><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.</P><P>SELECT-OPTIONS:SO_KUNNR FOR V_KUNNR.</P><P>SELECTION-SCREEN END OF BLOCK B1.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& start-of-selection event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>START-OF-SELECTION.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for retriving the data--<HR originaltext="-----------------------" /><P></P><P> PERFORM DATA_RETRIEVAL.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for field catalog--<HR originaltext="----------------------------" /><P></P><P> PERFORM BUILD_FIELDCATALOG1.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for layout designing--<HR originaltext="-------------------------" /><P></P><P> PERFORM BUILD_LAYOUT.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------" />perform for alv grid display--<HR originaltext="--------------------------" /><P></P><P> PERFORM GRID_DISPLAY_ALV.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DATA_RETRIEVAL</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to retrive the data</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM DATA_RETRIEVAL .</P><P> SELECT KUNNR LAND1 NAME1 ORT01 PSTLZ FROM ZACTTABLE INTO TABLE IT_ITAB</P><P> WHERE KUNNR IN SO_KUNNR.</P><P>ENDFORM. " DATA_RETRIEVAL</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELDCATALOG1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to build catalog</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM BUILD_FIELDCATALOG1 .</P><P> WA_FIELDCAT-FIELDNAME = 'KUNNR'.</P><P> WA_FIELDCAT-SELTEXT_L = 'CUSTOMER NUMBER'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'LAND1'.</P><P> WA_FIELDCAT-SELTEXT_L = 'COUNTRY KEY'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'NAME1'.</P><P> WA_FIELDCAT-SELTEXT_L = 'NAME'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'ORT01'.</P><P> WA_FIELDCAT-SELTEXT_L = 'CITY'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'PSTLZ'.</P><P> WA_FIELDCAT-SELTEXT_L = 'POSTAL CODE'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P>ENDFORM. " BUILD_FIELDCATALOG1</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_LAYOUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to design layout</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM BUILD_LAYOUT .</P><P> WA_LAYOUT-ZEBRA ='X'.</P><P> WA_LAYOUT-NO_VLINE = ' '.</P><P> WA_LAYOUT-NO_HLINE = ' '.</P><P> WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.</P><P>ENDFORM. " BUILD_LAYOUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form GRID_DISPLAY_ALV</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form for display the data</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM GRID_DISPLAY_ALV .</P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> I_CALLBACK_PROGRAM = SY-REPID</P><P> I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'</P><P> I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'</P><P> I_CALLBACK_USER_COMMAND = 'AT_USER_COMMAND'</P><P> IS_LAYOUT = WA_LAYOUT</P><P> IT_FIELDCAT = IT_FIELDCAT</P><P> I_SAVE = ' '</P><P> TABLES</P><P> T_OUTTAB = IT_ITAB[]</P><P> EXCEPTIONS</P><P> PROGRAM_ERROR = 1</P><P> OTHERS = 2.</P><P> IF SY-SUBRC <> 0.</P><P> MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P><P> ENDIF.</P><P></P><P>ENDFORM. " GRID_DISPLAY_ALV</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form top-of-page1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for top-of-page event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM TOP-OF-PAGE1.</P><P> WA_HEADER-TYP = 'H'.</P><P> WA_HEADER-INFO = 'DETAILS OF CUSTOMERS CREATED BY ME'.</P><P> APPEND WA_HEADER TO T_HEADER.</P><P> CLEAR WA_HEADER.</P><P> CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'</P><P> EXPORTING</P><P> IT_LIST_COMMENTARY = T_HEADER</P><P> I_LOGO = 'SUN_TEST_LOGO1'.</P><P> REFRESH T_HEADER.</P><P>ENDFORM. "top-of-page</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form set_pf_status</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for pf-status event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.</P><P> SET PF-STATUS 'CHAITHU'.</P><P> "Copy of 'STANDARD' pf_status from fgroup SALV</P><P>ENDFORM. "set_pf_status</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form at_user_command</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for at user-command event.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM AT_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM</P><P> RS_SELFIELD TYPE SLIS_SELFIELD.</P><P> CASE R_UCOMM.</P><P> WHEN 'CHAITU'.</P><P> IF RS_SELFIELD-FIELDNAME EQ 'KUNNR'.</P><P> READ TABLE IT_ITAB INDEX RS_SELFIELD-TABINDEX.</P><P> ENDIF.</P><P> CALL SCREEN '0200'. " STARTING AT 10 10 ENDING AT 80 30.</P><UL><LI level="1" type="ul"><P> CLEAR R_UCOMM.</P></LI></UL><P> message i002.</P><P></P><P> WHEN 'CREATE'.</P><P> CALL SCREEN '0100' STARTING AT 10 10 ENDING AT 80 30.</P><P> message i000.</P><P> ENDCASE.</P><P>ENDFORM. "at_user_command</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module STATUS_0100 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> setting status for screen 100.it is for creating the new record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE STATUS_0100 OUTPUT.</P><P> SET PF-STATUS 'STATUS1'.</P><P>ENDMODULE. " STATUS_0100 OUTPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module USER_COMMAND_0100 INPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> for creating the new record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE USER_COMMAND_0100 INPUT.</P><P> CASE SY-UCOMM.</P><P> WHEN 'EXEC'.</P><P> ok_code = sy-ucomm.</P><P> MOVE-CORRESPONDING IT_ITAB TO ZACTTABLE.</P><P> APPEND IT_ITAB .</P><P> IF SY-SUBRC EQ 0.</P><UL><LI level="1" type="ul"><P> MESSAGE I000.</P></LI></UL><P> ELSE.</P><P> MESSAGE I001.</P><P> ENDIF.</P><UL><LI level="1" type="ul"><P> PERFORM GRID_DISPLAY_ALV.</P></LI></UL><P> INSERT ZACTTABLE.</P><UL><LI level="1" type="ul"><P> clear ok_code.</P></LI></UL><P> leave to screen 0.</P><UL><LI level="1" type="ul"><P> LEAVE PROGRAM.</P></LI></UL><P> WHEN 'EXIT'.</P><P> LEAVE TO SCREEN 0.</P><P> ENDCASE.</P><P>ENDMODULE. " USER_COMMAND_0100 INPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module STATUS_0200 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> setting status for screen 200.it is for changing record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE STATUS_0200 OUTPUT.</P><P> SET PF-STATUS 'STATUS2'.</P><P>ENDMODULE. " STATUS_0200 OUTPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module USER_COMMAND_0200 INPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> for modyfing the existing record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE USER_COMMAND_0200 INPUT.</P><P> CASE SY-UCOMM.</P><P> WHEN 'CHNG'.</P><P> ok_code = sy-ucomm.</P><P> MODIFY IT_ITAB INDEX SY-TABIX.</P><P> MOVE-CORRESPONDING IT_ITAB TO ZACTTABLE.</P><P> CLEAR IT_ITAB.</P><P> if sy-subrc eq 0.</P><UL><LI level="1" type="ul"><P> message i002.</P></LI></UL><P> endif.</P><UL><LI level="1" type="ul"><P> PERFORM GRID_DISPLAY_ALV.</P></LI></UL><P> MODIFY ZACTTABLE.</P><UL><LI level="1" type="ul"><P> clear ok_code.</P></LI></UL><P> leave to screen 0.</P><UL><LI level="1" type="ul"><P> LEAVE PROGRAM.</P></LI></UL><P></P><P> WHEN 'EXIT'.</P><P> LEAVE TO SCREEN 0.</P><P> ENDCASE.</P><P>ENDMODULE. " USER_COMMAND_0200 INPUT</P></BODY></HTML> Mon, 12 May 2008 06:03:32 GMT Former Member 2008-05-12T06:03:32Z Report - Screen https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828153#M920592 <HTML><HEAD></HEAD><BODY><P>Dear All,</P><P></P><P> Currently I am having one Report Program which is displaying an ALV List. I need to include some enhancements.</P><P></P><P>When clicking to one of the List column, I would like to dispay one screen(which I have to create). </P><P></P><P><STRONG>Where I can create the screen?</STRONG></P><P> </P><P><STRONG>In Function Pool or Module Pool????</STRONG></P><P><STRONG>Which is better?</STRONG></P><P><STRONG>What is the Difference?</STRONG></P><P></P><P></P><P></P><P>Thanks in Advance,</P><P>Regads,</P><P>Lijo John.</P></BODY></HTML> Mon, 12 May 2008 05:05:20 GMT https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828153#M920592 Former Member 2008-05-12T05:05:20Z Re: Report - Screen https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828154#M920593 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>you can create the pop up screen using the module pool, In the attribute you just have to set the scree radio box to Dialogue.</P><P></P><P>Do the coding for the module pool as per the requirement. And call the screen using the CALL SCREEN '100' starting as 2 5.</P><P></P><P></P><P>regards,</P><P>mahantesh</P></BODY></HTML> Mon, 12 May 2008 05:56:32 GMT https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828154#M920593 Former Member 2008-05-12T05:56:32Z Re: Report - Screen https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828155#M920594 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>create the screen in module pool programming.</P><P>and call it in program like this.</P><P> CALL SCREEN '0100' STARTING AT 10 10 ENDING AT 80 30.</P><P></P><P>i am sending u a sample code.in this program i have created a table.and i displayed that table by using alv grid display.and if i select one record and click on create buton i wil get ascreen with some fields to enter the values.and if i save it i that is saved in the ztable.</P><P></P><P>TYPE-POOLS: SLIS.</P><P>TABLES:ZACTTABLE.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="---------------" />structure declaration--<HR originaltext="------------------------" /><P></P><P>DATA:BEGIN OF IT_ITAB OCCURS 0,</P><P> KUNNR TYPE KUNNR, "customer number</P><P> LAND1 TYPE LAND1, "country key</P><P> NAME1 TYPE NAME1, "name</P><P> ORT01 TYPE ORT01, "city</P><P> PSTLZ TYPE PSTLZ, "postal code</P><P> END OF IT_ITAB,</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />field catalog for first display--<HR originaltext="---------------" /><P></P><P> IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,</P><P> WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------------" />field catalog for second display--<HR originaltext="--------------" /><P></P><P> IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,</P><P> WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="--------" />work area for layout designing--<HR originaltext="----------------------" /><P></P><P> WA_LAYOUT TYPE SLIS_LAYOUT_ALV,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------------" />variable declaration--<HR originaltext="----------------------------" /><P></P><P> V_KUNNR TYPE ZACTTABLE-KUNNR,</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="----------------" />table for headings--<HR originaltext="--------------------------" /><P></P><P> T_HEADER TYPE SLIS_T_LISTHEADER,</P><P> ok_code like sy-ucomm,</P><P> WA_HEADER TYPE SLIS_LISTHEADER.</P><P></P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------------" />selection screen--<HR originaltext="------------------------------" /><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.</P><P>SELECT-OPTIONS:SO_KUNNR FOR V_KUNNR.</P><P>SELECTION-SCREEN END OF BLOCK B1.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& start-of-selection event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>START-OF-SELECTION.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for retriving the data--<HR originaltext="-----------------------" /><P></P><P> PERFORM DATA_RETRIEVAL.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for field catalog--<HR originaltext="----------------------------" /><P></P><P> PERFORM BUILD_FIELDCATALOG1.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="-------" />perform for layout designing--<HR originaltext="-------------------------" /><P></P><P> PERFORM BUILD_LAYOUT.</P><P><STRONG>--</STRONG><DEL><STRONG></STRONG></DEL></P><HR originaltext="------" />perform for alv grid display--<HR originaltext="--------------------------" /><P></P><P> PERFORM GRID_DISPLAY_ALV.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DATA_RETRIEVAL</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to retrive the data</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM DATA_RETRIEVAL .</P><P> SELECT KUNNR LAND1 NAME1 ORT01 PSTLZ FROM ZACTTABLE INTO TABLE IT_ITAB</P><P> WHERE KUNNR IN SO_KUNNR.</P><P>ENDFORM. " DATA_RETRIEVAL</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELDCATALOG1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to build catalog</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM BUILD_FIELDCATALOG1 .</P><P> WA_FIELDCAT-FIELDNAME = 'KUNNR'.</P><P> WA_FIELDCAT-SELTEXT_L = 'CUSTOMER NUMBER'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'LAND1'.</P><P> WA_FIELDCAT-SELTEXT_L = 'COUNTRY KEY'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'NAME1'.</P><P> WA_FIELDCAT-SELTEXT_L = 'NAME'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'ORT01'.</P><P> WA_FIELDCAT-SELTEXT_L = 'CITY'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P></P><P> WA_FIELDCAT-FIELDNAME = 'PSTLZ'.</P><P> WA_FIELDCAT-SELTEXT_L = 'POSTAL CODE'.</P><P> APPEND WA_FIELDCAT TO IT_FIELDCAT.</P><P>ENDFORM. " BUILD_FIELDCATALOG1</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_LAYOUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form to design layout</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM BUILD_LAYOUT .</P><P> WA_LAYOUT-ZEBRA ='X'.</P><P> WA_LAYOUT-NO_VLINE = ' '.</P><P> WA_LAYOUT-NO_HLINE = ' '.</P><P> WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.</P><P>ENDFORM. " BUILD_LAYOUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form GRID_DISPLAY_ALV</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> form for display the data</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM GRID_DISPLAY_ALV .</P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> I_CALLBACK_PROGRAM = SY-REPID</P><P> I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'</P><P> I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'</P><P> I_CALLBACK_USER_COMMAND = 'AT_USER_COMMAND'</P><P> IS_LAYOUT = WA_LAYOUT</P><P> IT_FIELDCAT = IT_FIELDCAT</P><P> I_SAVE = ' '</P><P> TABLES</P><P> T_OUTTAB = IT_ITAB[]</P><P> EXCEPTIONS</P><P> PROGRAM_ERROR = 1</P><P> OTHERS = 2.</P><P> IF SY-SUBRC <> 0.</P><P> MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P><P> ENDIF.</P><P></P><P>ENDFORM. " GRID_DISPLAY_ALV</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form top-of-page1</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for top-of-page event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM TOP-OF-PAGE1.</P><P> WA_HEADER-TYP = 'H'.</P><P> WA_HEADER-INFO = 'DETAILS OF CUSTOMERS CREATED BY ME'.</P><P> APPEND WA_HEADER TO T_HEADER.</P><P> CLEAR WA_HEADER.</P><P> CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'</P><P> EXPORTING</P><P> IT_LIST_COMMENTARY = T_HEADER</P><P> I_LOGO = 'SUN_TEST_LOGO1'.</P><P> REFRESH T_HEADER.</P><P>ENDFORM. "top-of-page</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form set_pf_status</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for pf-status event</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.</P><P> SET PF-STATUS 'CHAITHU'.</P><P> "Copy of 'STANDARD' pf_status from fgroup SALV</P><P>ENDFORM. "set_pf_status</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& form at_user_command</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form for at user-command event.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM AT_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM</P><P> RS_SELFIELD TYPE SLIS_SELFIELD.</P><P> CASE R_UCOMM.</P><P> WHEN 'CHAITU'.</P><P> IF RS_SELFIELD-FIELDNAME EQ 'KUNNR'.</P><P> READ TABLE IT_ITAB INDEX RS_SELFIELD-TABINDEX.</P><P> ENDIF.</P><P> CALL SCREEN '0200'. " STARTING AT 10 10 ENDING AT 80 30.</P><UL><LI level="1" type="ul"><P> CLEAR R_UCOMM.</P></LI></UL><P> message i002.</P><P></P><P> WHEN 'CREATE'.</P><P> CALL SCREEN '0100' STARTING AT 10 10 ENDING AT 80 30.</P><P> message i000.</P><P> ENDCASE.</P><P>ENDFORM. "at_user_command</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module STATUS_0100 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> setting status for screen 100.it is for creating the new record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE STATUS_0100 OUTPUT.</P><P> SET PF-STATUS 'STATUS1'.</P><P>ENDMODULE. " STATUS_0100 OUTPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module USER_COMMAND_0100 INPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> for creating the new record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE USER_COMMAND_0100 INPUT.</P><P> CASE SY-UCOMM.</P><P> WHEN 'EXEC'.</P><P> ok_code = sy-ucomm.</P><P> MOVE-CORRESPONDING IT_ITAB TO ZACTTABLE.</P><P> APPEND IT_ITAB .</P><P> IF SY-SUBRC EQ 0.</P><UL><LI level="1" type="ul"><P> MESSAGE I000.</P></LI></UL><P> ELSE.</P><P> MESSAGE I001.</P><P> ENDIF.</P><UL><LI level="1" type="ul"><P> PERFORM GRID_DISPLAY_ALV.</P></LI></UL><P> INSERT ZACTTABLE.</P><UL><LI level="1" type="ul"><P> clear ok_code.</P></LI></UL><P> leave to screen 0.</P><UL><LI level="1" type="ul"><P> LEAVE PROGRAM.</P></LI></UL><P> WHEN 'EXIT'.</P><P> LEAVE TO SCREEN 0.</P><P> ENDCASE.</P><P>ENDMODULE. " USER_COMMAND_0100 INPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module STATUS_0200 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> setting status for screen 200.it is for changing record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE STATUS_0200 OUTPUT.</P><P> SET PF-STATUS 'STATUS2'.</P><P>ENDMODULE. " STATUS_0200 OUTPUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module USER_COMMAND_0200 INPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> for modyfing the existing record</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE USER_COMMAND_0200 INPUT.</P><P> CASE SY-UCOMM.</P><P> WHEN 'CHNG'.</P><P> ok_code = sy-ucomm.</P><P> MODIFY IT_ITAB INDEX SY-TABIX.</P><P> MOVE-CORRESPONDING IT_ITAB TO ZACTTABLE.</P><P> CLEAR IT_ITAB.</P><P> if sy-subrc eq 0.</P><UL><LI level="1" type="ul"><P> message i002.</P></LI></UL><P> endif.</P><UL><LI level="1" type="ul"><P> PERFORM GRID_DISPLAY_ALV.</P></LI></UL><P> MODIFY ZACTTABLE.</P><UL><LI level="1" type="ul"><P> clear ok_code.</P></LI></UL><P> leave to screen 0.</P><UL><LI level="1" type="ul"><P> LEAVE PROGRAM.</P></LI></UL><P></P><P> WHEN 'EXIT'.</P><P> LEAVE TO SCREEN 0.</P><P> ENDCASE.</P><P>ENDMODULE. " USER_COMMAND_0200 INPUT</P></BODY></HTML> Mon, 12 May 2008 06:03:32 GMT https://community.sap.com/t5/application-development-and-automation-discussions/report-screen/m-p/3828155#M920594 Former Member 2008-05-12T06:03:32Z