topic Re: hi! in Application Development and Automation Discussions

topic Re: hi! in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871070#M366714 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>U've to define the roitone for user-command:</P><P></P><P></P><P></P><PRE><CODE>v_repid = sy-repid. * Set code for doubleclick lt_layout-f2code = 'FB03'. "<------ CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = v_repid I_CALLBACK_USER_COMMAND = 'USER_COMMAND' "<------ I_STRUCTURE_NAME = 'ZST_CASH_RECP' IS_LAYOUT = lt_layout "<------ TABLES t_outtab = it_table 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. * Rotuine for USER-COMMAND event FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. CASE R_UCOMM. WHEN 'FB03'. IF RS_SELFIELD-FIELDNAME = 'BELNR'. " READ TABLE IT_TABLE INDEX RS_SELFIELD-TABINDEX. IF SY-SUBRC = 0. SET PARAMETER ID 'BLN' FIELD IT_TABLE-BELNR. SET PARAMETER ID 'BUK' FIELD IT_TABLE-BUKRS. SET PARAMETER ID 'GJR' FIELD IT_TABLE-GJAHR. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. ENDIF. ENDIF. ENDCASE. ENDFORM.</CODE></PRE><P></P><P>If you need you can set a your own status gui instead of define all a code for doubleclick:</P><P></P><P>Define a routine foe set the pf-status like this:</P><P></P><P>FORM set_pf_status USING rt_extab TYPE slis_t_extab.</P><P> SET PF-STATUS 'MY_ALV' EXCLUDING rt_extab.</P><P>ENDFORM.</P><P></P><P>The status MY_ALV has to be created by copyng the ALV GRID standard status (STANDARD_FULLSCREEN of prg. SAPLKKBL).</P><P></P><P></P><P>Max</P></BODY></HTML> Sun, 07 Jan 2007 12:15:55 GMT Former Member 2007-01-07T12:15:55Z hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871069#M366713 <HTML><HEAD></HEAD><BODY><P>I have created this ALV grid display prog. And in output when i click on belnr(document number) it should took me to the T.code FB03. Now tell me how i will do that. And what are the code needed for that and whre do i need to put that code.</P><P>Thanks....</P><P>For ur refrence code is given below:-</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report ZFI_CASH_RECEIPT_LAYOUT_DEMO</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*&</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT zfi_cash_receipt_layout_demo.</P><P></P><P>TABLES: bsis,bsak,lfa1, ZST_CASH_RECP.</P><P></P><P>TYPE-POOLS: slis.</P><P></P><P>DATA: BEGIN OF it_table OCCURS 0.</P><P> include structure ZST_CASH_RECP.</P><P>data : end of it_table.</P><UL><LI level="1" type="ul"><P> bldat LIKE bsis-bldat,</P></LI><LI level="1" type="ul"><P> budat LIKE bsis-budat,</P></LI><LI level="1" type="ul"><P> hkont LIKE bsis-hkont,</P></LI><LI level="1" type="ul"><P> wrbtr LIKE bsis-wrbtr,</P></LI><LI level="1" type="ul"><P> bukrs LIKE bsis-bukrs,</P></LI><LI level="1" type="ul"><P> augdt LIKE bsak-augdt,</P></LI><LI level="1" type="ul"><P> lifnr LIKE bsak-lifnr,</P></LI><LI level="1" type="ul"><P> augbl LIKE bsak-augbl,</P></LI><LI level="1" type="ul"><P> belnr LIKE bsak-belnr,</P></LI><LI level="1" type="ul"><P> END OF it_table.</P></LI></UL><P></P><P>DATA: i_fieldcat TYPE slis_t_fieldcat_alv,</P><P> wa_fieldcat TYPE slis_fieldcat_alv,</P><P> v_repid TYPE sy-repid.</P><P></P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.</P><P></P><P>SELECT-OPTIONS: s_budat FOR bsis-budat OBLIGATORY.</P><P>PARAMETERS: p_bukrs LIKE bsis-bukrs OBLIGATORY DEFAULT '1000'.</P><P></P><P>SELECT-OPTIONS : s_hkont FOR bsis-hkont,</P><P> s_bschl FOR bsis-bschl.</P><P></P><P>SELECTION-SCREEN END OF BLOCK b1.</P><P></P><P></P><P>INITIALIZATION.</P><P></P><UL><LI level="1" type="ul"><P> PERFORM build_fieldcatlog.</P></LI></UL><P> CLEAR: v_repid.</P><P> v_repid = sy-repid.</P><P></P><P></P><P>START-OF-SELECTION.</P><P></P><P> SELECT a~bldat</P><P> a~budat</P><P> a~belnr</P><P> a~bukrs</P><P> a~gjahr</P><P> a~buzei</P><P> a~hkont</P><P> a~wrbtr</P><P> a~waers</P><P> b~augdt</P><P> b~lifnr</P><P> b~augbl</P><P> b~belnr</P><P> lfa1~name1</P><P> INTO CORRESPONDING FIELDS OF TABLE it_table</P><P> FROM ( ( bsis AS a INNER JOIN bsak AS b</P><P> ON a<SUB>bukrs = b</SUB>bukrs )</P><P> inner join lfa1 on</P><P> b<SUB>lifnr = lfa1</SUB>lifnr )</P><P> WHERE b<SUB>bukrs = p_bukrs AND b</SUB>blart IN ('KR','RE') AND a<SUB>hkont IN s_hkont and a</SUB>budat in s_budat AND a~bschl IN s_bschl.</P><P></P><P></P><P> IF sy-subrc <> 0.</P><P> MESSAGE s000(zmess_cash_receipt).</P><P> ELSE.</P><P> PERFORM display_alv_report.</P><P> ENDIF.</P><P></P><P>END-OF-SELECTION.</P><P></P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELDCATLOG</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM build_fieldcatlog .</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'BLDAT'.</P><P> wa_fieldcat-seltext_m = 'BLDAT.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'BUDAT'.</P><P> wa_fieldcat-seltext_m = 'BUDAT.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'BELNR'.</P><P> wa_fieldcat-seltext_m = 'BELNR.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'HKONT'.</P><P> wa_fieldcat-seltext_m = 'HKONT.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'WRBTR'.</P><P> wa_fieldcat-seltext_m = 'WRBTR.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'AUGDT'.</P><P> wa_fieldcat-seltext_m = 'AUGDT.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'LIFNR'.</P><P> wa_fieldcat-seltext_m = 'LIFNR.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P> wa_fieldcat-tabname = 'it_TABLE'.</P><P> wa_fieldcat-fieldname = 'AUGBL'.</P><P> wa_fieldcat-seltext_m = 'AUGBL.'.</P><P> APPEND wa_fieldcat TO i_fieldcat.</P><P> CLEAR wa_fieldcat.</P><P></P><P></P><P></P><P>ENDFORM. " BUILD_FIELDCATLOG</P><P></P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DISPLAY_ALV_REPORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM display_alv_report.</P><P> v_repid = sy-repid.</P><P></P><P> CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER = ' '</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE = ' '</P></LI></UL><P> i_callback_program = v_repid</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_TOP_OF_PAGE = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_HTML_END_OF_LIST = ' '</P></LI></UL><P> I_STRUCTURE_NAME = 'ZST_CASH_RECP'</P><UL><LI level="1" type="ul"><P> I_BACKGROUND_ID = ' '</P></LI><LI level="1" type="ul"><P> I_GRID_TITLE =</P></LI><LI level="1" type="ul"><P> I_GRID_SETTINGS =</P></LI><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI><LI level="1" type="ul"><P> it_fieldcat = i_fieldcat[]</P></LI><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> i_save = 'A'</P></LI><LI level="1" type="ul"><P> IS_VARIANT =</P></LI><LI level="1" type="ul"><P> IT_EVENTS =</P></LI><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_TOP = 0</P></LI><LI level="1" type="ul"><P> I_HTML_HEIGHT_END = 0</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ADD_FIELDCAT =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> IR_SALV_FULLSCREEN_ADAPTER =</P></LI><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> TABLES</P><P> t_outtab = it_table</P><P></P><P> EXCEPTIONS</P><P> program_error = 1</P><P> OTHERS = 2</P><P> .</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. "DISPLAY_ALV_REPORT</P></BODY></HTML> Sun, 07 Jan 2007 11:36:01 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871069#M366713 Former Member 2007-01-07T11:36:01Z Re: hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871070#M366714 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>U've to define the roitone for user-command:</P><P></P><P></P><P></P><PRE><CODE>v_repid = sy-repid. * Set code for doubleclick lt_layout-f2code = 'FB03'. "<------ CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = v_repid I_CALLBACK_USER_COMMAND = 'USER_COMMAND' "<------ I_STRUCTURE_NAME = 'ZST_CASH_RECP' IS_LAYOUT = lt_layout "<------ TABLES t_outtab = it_table 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. * Rotuine for USER-COMMAND event FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield. CASE R_UCOMM. WHEN 'FB03'. IF RS_SELFIELD-FIELDNAME = 'BELNR'. " READ TABLE IT_TABLE INDEX RS_SELFIELD-TABINDEX. IF SY-SUBRC = 0. SET PARAMETER ID 'BLN' FIELD IT_TABLE-BELNR. SET PARAMETER ID 'BUK' FIELD IT_TABLE-BUKRS. SET PARAMETER ID 'GJR' FIELD IT_TABLE-GJAHR. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. ENDIF. ENDIF. ENDCASE. ENDFORM.</CODE></PRE><P></P><P>If you need you can set a your own status gui instead of define all a code for doubleclick:</P><P></P><P>Define a routine foe set the pf-status like this:</P><P></P><P>FORM set_pf_status USING rt_extab TYPE slis_t_extab.</P><P> SET PF-STATUS 'MY_ALV' EXCLUDING rt_extab.</P><P>ENDFORM.</P><P></P><P>The status MY_ALV has to be created by copyng the ALV GRID standard status (STANDARD_FULLSCREEN of prg. SAPLKKBL).</P><P></P><P></P><P>Max</P></BODY></HTML> Sun, 07 Jan 2007 12:15:55 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871070#M366714 Former Member 2007-01-07T12:15:55Z Re: hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871071#M366715 <HTML><HEAD></HEAD><BODY><P>could u give me the code</P></BODY></HTML> Sun, 07 Jan 2007 12:16:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871071#M366715 Former Member 2007-01-07T12:16:42Z Re: hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871072#M366716 <HTML><HEAD></HEAD><BODY><P>sent u the updated code</P></BODY></HTML> Sun, 07 Jan 2007 13:04:20 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871072#M366716 Former Member 2007-01-07T13:04:20Z Re: hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871073#M366717 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>Your code should be like this:</P><P></P><PRE><CODE>*&---------------------------------------------------------------------* *& Report ZFI_CASH_RECEIPT_LAYOUT_DEMO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZFI_CASH_RECEIPT_LAYOUT_DEMO. TABLES: BSIS,BSAK,LFA1. TYPE-POOLS: SLIS. DATA: BEGIN OF IT_TABLE OCCURS 0, * include structure ZST_CASH_RECP. *data : end of it_table. BLDAT LIKE BSIS-BLDAT, BUDAT LIKE BSIS-BUDAT, HKONT LIKE BSIS-HKONT, WRBTR LIKE BSIS-WRBTR, BUKRS LIKE BSIS-BUKRS, AUGDT LIKE BSAK-AUGDT, LIFNR LIKE BSAK-LIFNR, AUGBL LIKE BSAK-AUGBL, BELNR LIKE BSAK-BELNR, GJAHR LIKE BSAK-GJAHR, END OF IT_TABLE. DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, V_REPID TYPE SY-REPID. DATA: LT_LAYOUT TYPE SLIS_LAYOUT_ALV. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: S_BUDAT FOR BSIS-BUDAT OBLIGATORY. PARAMETERS: P_BUKRS LIKE BSIS-BUKRS OBLIGATORY DEFAULT '1000'. SELECT-OPTIONS : S_HKONT FOR BSIS-HKONT, S_BSCHL FOR BSIS-BSCHL. SELECTION-SCREEN END OF BLOCK B1. INITIALIZATION. * PERFORM build_fieldcatlog. CLEAR: V_REPID. V_REPID = SY-REPID. START-OF-SELECTION. SELECT A~BLDAT A~BUDAT A~BELNR A~BUKRS A~GJAHR A~BUZEI A~HKONT A~WRBTR A~WAERS B~AUGDT B~LIFNR B~AUGBL B~BELNR LFA1~NAME1 INTO CORRESPONDING FIELDS OF TABLE IT_TABLE FROM ( ( BSIS AS A INNER JOIN BSAK AS B ON A~BUKRS = B~BUKRS ) INNER JOIN LFA1 ON B~LIFNR = LFA1~LIFNR ) WHERE B~BUKRS = P_BUKRS AND B~BLART IN ('KR','RE') AND A~HKONT IN S_HKONT AND A~BUDAT IN S_BUDAT AND A~BSCHL IN S_BSCHL. IF SY-SUBRC <> 0. MESSAGE S000(ZMESS_CASH_RECEIPT). ELSE. PERFORM DISPLAY_ALV_REPORT. ENDIF. END-OF-SELECTION. *&---------------------------------------------------------------------* *& Form BUILD_FIELDCATLOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM BUILD_FIELDCATLOG . WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'BLDAT'. WA_FIELDCAT-SELTEXT_M = 'BLDAT.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'BUDAT'. WA_FIELDCAT-SELTEXT_M = 'BUDAT.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'BELNR'. WA_FIELDCAT-SELTEXT_M = 'BELNR.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'HKONT'. WA_FIELDCAT-SELTEXT_M = 'HKONT.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'WRBTR'. WA_FIELDCAT-SELTEXT_M = 'WRBTR.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'AUGDT'. WA_FIELDCAT-SELTEXT_M = 'AUGDT.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'LIFNR'. WA_FIELDCAT-SELTEXT_M = 'LIFNR.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-TABNAME = 'it_TABLE'. WA_FIELDCAT-FIELDNAME = 'AUGBL'. WA_FIELDCAT-SELTEXT_M = 'AUGBL.'. APPEND WA_FIELDCAT TO I_FIELDCAT. CLEAR WA_FIELDCAT. ENDFORM. " BUILD_FIELDCATLOG *&---------------------------------------------------------------------* *& Form DISPLAY_ALV_REPORT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM DISPLAY_ALV_REPORT. V_REPID = SY-REPID. * Set code for doubleclick LT_LAYOUT-F2CODE = 'FB03'. "<------ CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = V_REPID I_CALLBACK_USER_COMMAND = 'USER_COMMAND' "<------ I_STRUCTURE_NAME = 'ZST_CASH_RECP' IS_LAYOUT = LT_LAYOUT "<------ TABLES T_OUTTAB = IT_TABLE 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. ENDFORM. "DISPLAY_ALV_REPORT * Rotuine for USER-COMMAND event FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD. CASE R_UCOMM. WHEN 'FB03'. IF RS_SELFIELD-FIELDNAME = 'BELNR'. " READ TABLE IT_TABLE INDEX RS_SELFIELD-TABINDEX. IF SY-SUBRC = 0. SET PARAMETER ID 'BLN' FIELD IT_TABLE-BELNR. SET PARAMETER ID 'BUK' FIELD P_BUKRS. SET PARAMETER ID 'GJR' FIELD IT_TABLE-GJAHR. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. ENDIF. ENDIF. ENDCASE. ENDFORM. "user_command</CODE></PRE><P></P><P>Max</P></BODY></HTML> Sun, 07 Jan 2007 13:15:36 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871073#M366717 Former Member 2007-01-07T13:15:36Z Re: hi! https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871074#M366718 <HTML><HEAD></HEAD><BODY><P>Max...</P><P>Thanks a lot...</P><P>problem is solved.......</P><P>Thank u very much.......</P><P></P><P>best regards.........</P></BODY></HTML> Sun, 07 Jan 2007 13:21:05 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hi/m-p/1871074#M366718 Former Member 2007-01-07T13:21:05Z