Can we call a transaction from a report

Question

hi
can we call a transaction from a report

Answer 1

hi,
we can call
check it
*& Report  ZSALESORDERDETAILS_ASHOK
REPORT         ZSALESORDERDETAILS_ASHOK
               NO STANDARD PAGE HEADING
               LINE-SIZE 50
               LINE-COUNT 35(5).
*data declaration.
tables :vbak.
tables: VBAP.
DATA : TVBAK LIKE VBAK  OCCURS 0 WITH HEADER LINE,
       TVBAP LIKE VBAP  OCCURS 0 WITH HEADER LINE,
       TEMP TYPE p decimals 5 VALUE '0.0' ,
       A type i,
       FIELDNAME TYPE STRING,
       FIELDVALUE TYPE VBAP-VBELN.
DATA G_CB.
selection-screen  begin of block screen1  with frame title TEXT-001.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT /32(35) COMM1.
SELECTION-SCREEN ULINE /27(35).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS TVBELN FOR VBAK-VBELN.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN COMMENT /30(50) COMM2.
SELECTION-SCREEN ULINE /27(40).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS TERDAT FOR VBAK-ERDAT.
SELECTION-SCREEN SKIP.
selection-screen  end of block screen1.
*Initialization
Initialization .
TVBELN-low = 4000.
TVBELN-high = 5000.
TVBELN-option = 'BT'.
TVBELN-sign = 'I'.
APPEND TVBELN.
TERDAT-low = '19960202'.
TERDAT-high = '20020302' .
APPEND TERDAT.
AT SELECTION-SCREEN .
SELECT *
       FROM VBAK
       INTO TABLE TVBAK
       WHERE  VBELN IN TVBELN AND erdat IN Terdat .
       IF sy-subrc ne 0.
       MESSAGE 'ENTERED ORDER NOT FOUND' type 'E'.
       ENDIF.
       START-OF-SELECTION.
       REFRESH TVBAK.
       SELECT *
              FROM VBAK
              INTO TABLE TVBAK
              WHERE  VBELN IN TVBELN AND ERDAT IN TERDAT.
        END-OF-SELECTION.
        LOOP AT TVBAK.
                WRITE: /2 SY-VLINE,
                TVBAK-VBELN INPUT ON ,
                15 SY-VLINE,TVBAK-ERDAT hotspot on,
                30  SY-VLINE, 35 TVBAK-ERNAM,
                46 SY-VLINE,
                g_cb AS CHECKBOX.
       ENDLOOP.
       A = SY-LINCT - SY-LINNO - 1.
     SKIP A .
  RESERVE A LINES.
          AT SELECTION-SCREEN OUTPUT.
          comm1 ='SELECT SALES ORDER RANGE'.
          comm2 ='SELECT SALES ORDER CREATION DATE'.
       TOP-OF-PAGE.
       ULINE.
       WRITE /15    '     SALES ORDER REPORT    ' COLOR = 1 .
       ULINE.
       WRITE : /7 '  VBELN  ' COLOR = 5 ,
               19 '  ERDAT  ' COLOR = 5,
               34 ' ERNAM  ' COLOR = 5.
        ULINE.
        END-OF-PAGE.
        IF SY-LSIND = 0.
        ULINE.
        WRITE : /2 'NUMBER OF LINE IN THIS PAGE = ', SY-LINNO.
                SKIP.
        WRITE: /30 'PAGE NUMBER = ', SY-PAGNO.
        ULINE.
        ELSEIF SY-LSIND = 1.
        ULINE.
        WRITE : /12 'TOTAL PRICE = ' ,TEMP.
        CLEAR TEMP.
        SKIP.
        WRITE : /30 'PAGE NUMBER = ', SY-PAGNO.
        ULINE.
        ENDIF.
        at line-selection.
        GET CURSOR FIELD FIELDNAME VALUE FIELDVALUE.
        IF FIELDNAME = 'TVBAK-VBELN'.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT         = FIELDVALUE
         IMPORTING
            OUTPUT        = FIELDVALUE.
        WINDOW STARTING AT 60 2 ENDING AT 120 25.
        IF SY-LSIND = 1.
        SELECT
               FROM VBAP
               INTO TABLE TVBAP
               WHERE VBELN EQ FIELDVALUE.
        LOOP AT TVBAP.
        TEMP = TEMP + TVBAP-NETPR.
        WRITE :  /2 SY-VLINE, TVBAP-matnr,
                  17 SY-VLINE,TVBAP-VBELN,
                  30 SY-VLINE,TVBAP-NETPR currency 'IN',
                  49 SY-VLINE.
        ENDLOOP.
        ULINE.
        A = SY-LINCT - SY-LINNO - 1.
       SKIP A .
       RESERVE A LINES.
     ENDIF.
        <b>ELSEIF SY-LSIND = 2.
       call transaction 'MM01' .
       ENDIF.</b>
         TOP-OF-PAGE DURING LINE-SELECTION.
          WRITE : /  SY-ULINE,
                  /7 '    DETAIL OF GIVEN SALES ORDER    ' COLOR = 5,
                  /  SY-ULINE,
                  /4 'MATNR',
                  22 'VBELN',
                  35 'NETPR',
                  /  SY-ULINE.
  Regards
ASHOK
Message was edited by:
        ASHOK KUMAR