Report similar to standard transaction

Hi experts,
I ve got a requirement wherein i need to develop a report which is similar to QA32 transaction (Inspection Lot selection. That is, my client wants to add and remove only a few parameters from this standard transaction.
For eg., i need to remove the parameter 'selection profile' , 'End of Inspection' from the existing transaction and need to add few fields like 'Customer Invoice No', 'Customer Invoice Date' etc.,
So could someone tell me what is the approach to be followed for achieving my requirement?
Should i need to copy the existing program and do the changes in the copied program or is there any other way to achieve my requirement?

hi,
I dont think so u can do anything in QA32(means u if u do enhancement, then u can, but i will not recommend u to do it because SAP standard report can be used by other end-users and they might require those fields which u try to hide in enhancement)
If QA32 is a report and does not contain many includes(means complex type) then just copy it to ur custom report and make required changes to it.
If u dont copy to custom report & try to make on ur own then try to use logic inside it(means Function module used to fetch data and other thing...)

Similar Messages

Data retrival from standard transaction with in a report

hi all,
i have a requirement like i need to pass the selection screen selections to a standard transaction ca80 and need to get the material list from there to my report for furthur processing. is it possible with bdc or a bapi for this.
can anyone please help urgent its eating my brain. points awarded for solution
thanks in advance
anupama

hi deep kammula,
this is a sample code for your query just check. it may help you.
all the best.
reward me points if usefull.
Sample HR Reports - Allocate Petrol Allowance
Two ABAP HR Programs, which are interconnected, the first takes employee numbers which should not be given Petrol allowance and the other program gives the petrol allowance to employees.
FIRST PRG
REPORT ZPETROL_EXCLUDE                         .
TABLES SSCRFIELDS.
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECTION-SCREEN SKIP 9.
PARAMETERS NUMBER(200) TYPE C.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN:
BEGIN OF LINE,
PUSHBUTTON 2(10) TEXT-001 USER-COMMAND PROC,
END OF LINE.
SELECTION-SCREEN END OF SCREEN 100.
CALL SCREEN 100.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
WHEN 'PROC'.
SET PARAMETER ID: 'NUM' FIELD NUMBER.
CALL TRANSACTION 'ZP_PALLOWANCE'.
LEAVE TO SCREEN 0.
ENDCASE.
SECOND PRG
REPORT ZPR_PETROL_ALLOWANCE NO STANDARD PAGE
HEADING                   .
*-- Infotypes
INFOTYPES : 0000, "Actions
            0002, "Personal Data
            0008. "Basic pay details
*-- Tables
TABLES : PERNR,   "Standard Selections for HR Master Data Reporting
         PC207,   "Payroll Results: Results Table
         PCL1,    "HR Cluster 1
         PCL2,    "HR Cluster 2
         T510,    "Pay scales
         T549A,   "Payroll areas
         T549Q,   "Payroll Periods
         PA0002. "Personal details
*-- Internal Tables
*-- Internal Table Declaration For Holding The Data
DATA: BEGIN OF INT_PETROL OCCURS 0,
        PERNR LIKE PA0008-PERNR,      "Personnel Number
        TRFST LIKE PA0008-TRFST,      "Pay Scale Level
        NAME(40),                     "Name of Employee
        PALLOWANCE TYPE P DECIMALS 2, "Petrol Allowance Amount
      END OF INT_PETROL.
DATA: BEGIN OF PA0015_DATA OCCURS 0,
        PERNR LIKE PA0015-PERNR,
        BETRG LIKE PA0015-BETRG,
      END OF PA0015_DATA.
DATA:BEGIN OF INT_PETROL2 OCCURS 0,
      PERNR LIKE PA0008-PERNR,      "Personnel Number
      VORNA LIKE PA0002-VORNA,      "First Name
      NACHN LIKE PA0002-NACHN,      "Last Name
      TRFST LIKE PA0008-TRFST,      "Pay Scale Level
      NAME(40),                     "Name of Employee
      PALLOWANCE TYPE P DECIMALS 2, "Petrol Allowance Amount
     END OF INT_PETROL2.
DATA : TITLE TYPE LVC_TITLE.
DATA: BEGIN OF PER_NO OCCURS 0,
        PERNR LIKE PA0008-PERNR,
        TRFST LIKE PA0008-TRFST,
       END OF PER_NO.
DATA: BEGIN OF MSG OCCURS 0,
      MSG1(100) TYPE C,
      END OF MSG.
DATA: FLAG TYPE I VALUE '0',
      DIS_FLAG TYPE I VALUE '0'.
DATA: INT_PETROL3 LIKE STANDARD TABLE OF INT_PETROL2 INITIAL SIZE 0
WITH HEADER LINE.
DATA: INT_PETROL1 LIKE STANDARD TABLE OF INT_PETROL INITIAL SIZE 0 WITH
HEADER LINE.
DATA: WA_PET_ALLOWANCE TYPE ZBPETROL_ALL.    "WORKAREA FOR INSERTING
VALUES.
*DATA: P_LGART1 LIKE T512T-LGART VALUE '0010'. "CHANGE WAGE TYPE HERE
DATA: P_LGART1 LIKE T512T-LGART VALUE '0077'. "CHANGE WAGE TYPE HERE
DATA: BEGIN OF INT_0015 OCCURS 0,
        PERNR(038),
        BEGDA(010),
        BETRG(018),
      END OF INT_0015.
*-- Internal Table To Store Error Records.
DATA: E_INT_0015 LIKE INT_0015 OCCURS 0 WITH HEADER LINE.
*-- Batch Input Data of Single Transaction
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
*-- Internal Table For Export and Import Payroll Results
DATA: INT_RGDIR LIKE PC261 OCCURS 0 WITH HEADER LINE,
      LGTXT LIKE T512T-LGTXT.
DATA: BEGIN OF EMP_NO OCCURS 0,
        PERNR(4) TYPE C,
      END OF EMP_NO.
DATA: BEGIN OF EMP_NO1 OCCURS 0,
        PERNR TYPE I,
      END OF EMP_NO1.
DATA EMPNO LIKE STANDARD TABLE OF EMP_NO INITIAL SIZE 0.
DATA EMPNO1 LIKE STANDARD TABLE OF EMP_NO1 INITIAL SIZE 0 WITH HEADER
LINE.
DATA LEN1 TYPE I.
DATA: ERR LIKE MESSAGE.
DATA TEMP_NUM(200) TYPE C.
*-- Includes
*-- International Include
INCLUDE RPC2CD09. "Cluster CD data definition
INCLUDE RPC2CA00. "Cluster CA Data-Definition
INCLUDE RPPPXD00. "Data Definition buffer PCL1/PCL2 Buffer INCLUDE RPPPXD10.
"Common part buffer PCL1/PCL2 INCLUDE RPPPXM00. "Buffer Handling routine
*-- Country Specific Include
INCLUDE PC2RXIN0. "Cluster IN data definition
INCLUDE RPC2RX09.
*-- ALV Declaration
TYPE-POOLS : SLIS.
DATA: INT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      INT_EVENTS TYPE SLIS_T_EVENT,
      INT_LAYOUT TYPE SLIS_LAYOUT_ALV,
      WS_EVENTS TYPE SLIS_ALV_EVENT,
      WS_REPID LIKE SY-REPID.
*-- Initialization
INITIALIZATION.
WS_REPID = SY-REPID.
*-- At Selection-Screen
START-OF-SELECTION.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) TEXT-002.
SELECTION-SCREEN POSITION 33.
PARAMETERS: P_RATE TYPE P DECIMALS 2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF BLOCK B3.
PARAMETERS: P_UPLOAD AS CHECKBOX,
              P_FG RADIOBUTTON GROUP G1,
              P_BG RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4.
PARAMETERS: P_DI AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN.
*-- Wate Type Text
SELECT SINGLE LGTXT INTO LGTXT FROM T512T WHERE SPRSL = 'E' AND
                                  MOLGA = '40' AND LGART = P_LGART1 .
*-- Data Retrieval From Logical Database PNP
GET PERNR.
PROVIDE PERNR FROM P0000 VORNA NACHN FROM P0002 BETWEEN PN-BEGDA AND
PN-ENDDA.
    INT_PETROL1-PERNR = P0000-PERNR.
    CONCATENATE P0002-VORNA P0002-NACHN INTO INT_PETROL1-NAME SEPARATED
BY SPACE.
ENDPROVIDE.
*-- Clear Data
CLEAR: RGDIR, INT_RGDIR.
REFRESH: RGDIR, INT_RGDIR.
*-- Read All The Payroll Runs For An Employee
CD-KEY-PERNR = PERNR-PERNR.
RP-IMP-C2-CU.
CHECK RP-IMP-CD-SUBRC EQ 0.
*-- Clear Data
REFRESH: RT.
Read IN Cluster.
LOOP AT RGDIR WHERE FPBEG >= PN-BEGDA AND FPEND <= PN-ENDDA.
    MOVE-CORRESPONDING RGDIR TO INT_RGDIR.
    APPEND INT_RGDIR.
    CLEAR INT_RGDIR.
ENDLOOP.
Read the last record.
SORT INT_RGDIR BY SEQNR DESCENDING.
READ TABLE INT_RGDIR INDEX 1.
RX-KEY-SEQNO = INT_RGDIR-SEQNR.
RX-KEY-PERNR = PERNR-PERNR.
RP-IMP-C2-IN.
CHECK RP-IMP-IN-SUBRC EQ 0.
READ TABLE RT WITH KEY LGART = P_LGART1.
IF SY-SUBRC = 0.
    INT_PETROL1-PALLOWANCE = RT-BETRG.
ENDIF.
APPEND INT_PETROL1.
CLEAR INT_PETROL1.
SELECT TRFST PERNR
INTO CORRESPONDING FIELDS OF TABLE PER_NO
FROM PA0008
WHERE TRFST LIKE 'L%'
AND BET01 > 0.
SORT PER_NO.
DELETE ADJACENT DUPLICATES FROM PER_NO.
*-- END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT INT_PETROL1.
    READ TABLE PER_NO WITH KEY PERNR = INT_PETROL1-PERNR.
    IF SY-SUBRC = 0.
      INT_PETROL-TRFST = PER_NO-TRFST.
      MODIFY INT_PETROL1 FROM INT_PETROL TRANSPORTING TRFST.
    ENDIF.
ENDLOOP.
SORT INT_PETROL1.
DELETE ADJACENT DUPLICATES FROM INT_PETROL1.
CONCATENATE 'From' ' : ' PN-BEGDA6(2) '.' PN-BEGDA4(2) '.' PN-
BEGDA+0(4)
'   To' ' : ' PN-ENDDA6(2) '.' PN-ENDDA4(2) '.' PN-ENDDA+0(4)
INTO TITLE.
IF P_DI = 'X'.    "TO DISPLAY PETROL ALLOWANCE ONLY
    IF PNPTIMRA = 'X'.      "CHECK OTHER PERIOD CHECKED
      DIS_FLAG = 1.
    ENDIF.
    IF PNPTIMR9 = 'X'.    "CHECK TO SEE CURRENT PERIOD SELECTED
CASES - NO RATE GIVEN, RATE GIVEN
CURRENT PERIOD UPLOADED BUT PAYROLL NOT WRITTEN SO NO RESULT FROM LDB
        SELECT RATE INTO P_RATE FROM ZBPETROL_ALL WHERE BEGDA = PN- BEGDA AND ENDDA = PN-ENDDA.
        ENDSELECT.
        IF SY-DBCNT = 0.
          MESSAGE I455(0) WITH 'NO PETROL RATE EXSISTS'.
        ELSE.
          FLAG = 1.
        ENDIF. "OF SY-DBCNT
      IF P_RATE > 0 AND FLAG = 1. " PETROL RATE EXSISTS.
        SELECT PERNR SUM( BETRG ) INTO TABLE PA0015_DATA
        FROM PA0015
        WHERE BEGDA BETWEEN PN-BEGDA AND PN-ENDDA
        GROUP BY PERNR.
        SELECT APERNR ATRFST BVORNA BNACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON BPERNR = APERNR
        WHERE A~TRFST LIKE 'L%'
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE PA0015_DATA WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC = 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            INT_PETROL-PALLOWANCE = PA0015_DATA-BETRG.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        DIS_FLAG = 1.
      ENDIF. "P_RATE > 0 AND FLAG = 1.
      IF P_RATE > 0 AND FLAG = 0. "CURRENT PERIOD AND DATA NOT UPLOADED
        SELECT APERNR ATRFST BVORNA BNACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON BPERNR = APERNR
        WHERE A~TRFST LIKE 'L%'
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        PERFORM GET_VALUE. "TO CONVERT THE FIRST SCREEN PERNR INTO
NUMBER FORMATE
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE EMPNO1 WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC <> 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        PERFORM CAL_ALLOWANCE.
      ENDIF. " OF P_RATE > 0
      DIS_FLAG = 1.
    ENDIF. " OF CURRENT PERIOD CHECK.
ENDIF. " OF CHECK DISPLAY.
*----BDC
IF P_UPLOAD = 'X'.
    IF PNPTIMRA = 'X'.      "CHECK OTHER PERIOD CHECKED
      MESSAGE I455(0) WITH 'Petrol Allowance cannot be uploaded'.
      LEAVE SCREEN.
    ENDIF.
    IF P_RATE > 0.
     IF P_RATE > 0 OR P_RATE = 0.
      IF PNPTIMR9 = 'X'.    "CHECK TO SEE CURRENT PERIOD SELECTED
        WA_PET_ALLOWANCE-BEGDA = PN-BEGDA.
        WA_PET_ALLOWANCE-ENDDA = PN-ENDDA.
        WA_PET_ALLOWANCE-RATE = P_RATE.
        WA_PET_ALLOWANCE-CURR = 'INR'.
        INSERT INTO ZBPETROL_ALL VALUES WA_PET_ALLOWANCE.
        SELECT A~PERNR A~TRFST B~VORNA B~NACHN
        INTO CORRESPONDING FIELDS OF TABLE INT_PETROL3
        FROM PA0008 AS A
        INNER JOIN PA0002 AS B ON B~PERNR = A~PERNR
        WHERE A~TRFST IN ('L1' , 'L2' , 'L3')
        AND A~BET01 > 0.
        SORT INT_PETROL3.
        DELETE ADJACENT DUPLICATES FROM INT_PETROL3.
        REFRESH INT_PETROL1.
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
employee name
          CONCATENATE INT_PETROL2-VORNA INT_PETROL2-NACHN INTO
INT_PETROL2-NAME SEPARATED BY SPACE.
          MODIFY INT_PETROL3 FROM INT_PETROL2 TRANSPORTING NAME.
        ENDLOOP.
        PERFORM GET_VALUE. "TO CONVERT THE FIRST SCREEN PERNR INTO
NUMBER FORMATE
        LOOP AT INT_PETROL3 INTO INT_PETROL2.    "loop to transport
one
table to another table
          READ TABLE EMPNO1 WITH KEY PERNR = INT_PETROL2-PERNR.
          IF SY-SUBRC <> 0.
            INT_PETROL-PERNR = INT_PETROL2-PERNR.
            INT_PETROL-TRFST = INT_PETROL2-TRFST.
            INT_PETROL-NAME = INT_PETROL2-NAME.
            APPEND INT_PETROL TO INT_PETROL1.
          ENDIF.
        ENDLOOP.
        PERFORM CAL_ALLOWANCE.
        DIS_FLAG = 1.
        SORT INT_PETROL1.
        LOOP AT INT_PETROL1.
          MOVE: INT_PETROL1-PERNR TO INT_0015-PERNR,
          INT_PETROL1-PALLOWANCE TO INT_0015-BETRG.
          CONCATENATE PN-ENDDA6(2) PN-ENDDA4(2) PN-ENDDA+0(4) INTO
INT_0015-BEGDA SEPARATED BY '.'.
          APPEND INT_0015.
          CLEAR INT_0015.
        ENDLOOP.
        LOOP AT INT_0015.
          PERFORM F_BDCDATA.
          IF P_FG = 'X'.
            CALL TRANSACTION 'PA30' USING BDCDATA MODE 'A' UPDATE 'S'.
          ELSE.
            CALL TRANSACTION 'PA30' USING BDCDATA MODE 'N' UPDATE 'S'.
          ENDIF.
*-- Handling Error records.
          IF SY-SUBRC <> 0.
*-- Handling Error Messages
            PERFORM ERROR_MSG.
            MOVE-CORRESPONDING INT_0015 TO E_INT_0015.
            APPEND E_INT_0015.
            CLEAR E_INT_0015.
          ENDIF.
          REFRESH BDCDATA.
        ENDLOOP.
*-- Downloading Error Records.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            FILENAME = 'C:\Errors.Txt'
            FILETYPE = 'ASC'
          TABLES
            DATA_TAB = E_INT_0015.
*-- Downloading Error Messages.
        CALL FUNCTION 'GUI_DOWNLOAD'
          EXPORTING
            FILENAME = 'C:\Err_Msg.Txt'
            FILETYPE = 'ASC'
          TABLES
            DATA_TAB = MSG.
      ENDIF. " FOR CURRENT PERIOD
ENDIF.
    ELSE.
      MESSAGE I455(0) WITH 'Enter Petrol Rate'.
      LEAVE TO SCREEN 0.
    ENDIF.    " FOR PETROL RATE
ENDIF.    " FOR UPLOAD
IF DIS_FLAG = 1.
    INT_LAYOUT-SUBTOTALS_TEXT = TEXT-004.
    INT_LAYOUT-TOTALS_TEXT = TEXT-004.
    INT_LAYOUT-ZEBRA = 'X'.
    PERFORM FILL_FIELDCAT.
    PERFORM GET_EVENTS_ALV.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        I_CALLBACK_PROGRAM = WS_REPID
        IS_LAYOUT          = INT_LAYOUT
        IT_FIELDCAT        = INT_FIELDCAT[]
        I_DEFAULT          = 'X'
        I_SAVE             = 'X'
        IT_EVENTS          = INT_EVENTS
      TABLES
        T_OUTTAB           = INT_PETROL1
      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.
ENDIF.
*&      Form GET_VALUE
      text
FORM GET_VALUE.
GET PARAMETER ID: 'NUM' FIELD TEMP_NUM.
IF TEMP_NUM <> ''.
    LEN1 = STRLEN( TEMP_NUM ).
    PERFORM GET_PERNR.
    APPEND TEMP_NUM TO EMPNO.
    LOOP AT EMPNO INTO EMP_NO.
      CALL FUNCTION 'CHECK_AND_CONVERT_NUMERICS'
      EXPORTING
    DFELD              = ' '
        DMZEI              = ','
        DTYPE              = 'STRING'
    DYPNO              = ' '
        EFELD              = EMP_NO-PERNR
    FNAME              = ' '
    PROGR              = ' '
    IMP_DECIMALS       = '0'
      IMPORTING
    ERROR              =
       IFELD              = EMP_NO1-PERNR
       MESSG              = ERR
    MSGLN              =
      IF ( ERR-MSGID = '' ).
        APPEND EMP_NO1 TO EMPNO1.
        CLEAR EMP_NO1-PERNR.
      ELSE.
        MESSAGE I455(0) WITH 'Could not convert employee number'.
        LEAVE TO SCREEN 0.
      ENDIF.
    ENDLOOP.
ENDIF.
ENDFORM.                    "GET_VALUE
*&      Form GET_PERNR
      text
FORM GET_PERNR.
SPLIT TEMP_NUM AT ',' INTO EMP_NO TEMP_NUM.
APPEND EMP_NO TO EMPNO.
CLEAR EMP_NO.
SEARCH TEMP_NUM FOR ','.
IF SY-SUBRC = 0.
    PERFORM GET_PERNR.
ENDIF.
ENDFORM.                    "GET_PERNR
*&      Form ERROR_MSG
      text
--> p1        text
<-- p2        text
FORM ERROR_MSG.
IF SY-SUBRC <> 0.
    CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
        LANG = SY-LANGU
      IMPORTING
        MSG = MSG-MSG1.
    APPEND MSG.
    CLEAR MSG.
ENDIF.
ENDFORM.                    "ERROR_MSG
*&      Form F_BDCDATA
      text
FORM F_BDCDATA.
PERFORM BDC_DYNPRO      USING 'SAPMP50A' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=INS'.
PERFORM BDC_FIELD       USING 'RP50G-PERNR'
                                INT_0015-PERNR.
PERFORM BDC_FIELD       USING 'RP50G-TIMR6'
                                'X'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RP50G-CHOIC'.
PERFORM BDC_FIELD       USING 'RP50G-CHOIC'
                                '0015'.
PERFORM BDC_DYNPRO      USING 'MP001500' '2000'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'Q0015-BETRG'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
PERFORM BDC_FIELD       USING 'P0015-LGART'
                                '0077'.        "CHANGE WAGE TYPE HERE
ALSO
PERFORM BDC_FIELD       USING 'Q0015-BETRG'
                                INT_0015-BETRG.
PERFORM BDC_FIELD       USING 'P0015-WAERS'
                                'INR'.
PERFORM BDC_FIELD       USING 'P0015-BEGDA'
                                 INT_0015-BEGDA.
PERFORM BDC_DYNPRO      USING 'MP001500' '2000'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'P0015-LGART'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=UPD'.
PERFORM BDC_FIELD       USING 'P0015-LGART'
                                '0077'.       "CHANGE WAGE TYPE HERE
ALSO
PERFORM BDC_FIELD       USING 'Q0015-BETRG'
                                INT_0015-BETRG.
PERFORM BDC_FIELD       USING 'P0015-WAERS'
                                'INR'.
PERFORM BDC_FIELD       USING 'P0015-BEGDA'
                                INT_0015-BEGDA.
ENDFORM.                    "F_BDCDATA
*&      Form BDC_DYNPRO
      text
     -->P_0732   text
     -->P_0733   text
FORM BDC_DYNPRO USING    VALUE(P_0732) TYPE C
                          VALUE(P_0733) TYPE C.
CLEAR BDCDATA.
BDCDATA-PROGRAM = P_0732.
BDCDATA-DYNPRO   = P_0733.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.                    " BDC_DYNPRO
*&      Form BDC_FIELD
      text
     -->P_0755   text
     -->P_0756   text
FORM BDC_FIELD USING    VALUE(P_0755) TYPE C
                         VALUE(P_0756) TYPE C.
CLEAR BDCDATA.
BDCDATA-FNAM = P_0755.
BDCDATA-FVAL = P_0756.
APPEND BDCDATA.
ENDFORM.                    " BDC_FIELD
*&      Form CAL_ALLOWANCE
      text
FORM CAL_ALLOWANCE.
LOOP AT INT_PETROL1 INTO INT_PETROL.
    IF INT_PETROL-TRFST = 'L1'.
      INT_PETROL-PALLOWANCE = P_RATE * 100.   "CHANGE TO SELECT WHEN
DISPLAY
    ELSEIF INT_PETROL-TRFST = 'L2'.
      INT_PETROL-PALLOWANCE = P_RATE * 150.
    ELSEIF INT_PETROL-TRFST = 'L3'.
      INT_PETROL-PALLOWANCE = P_RATE * 150.
    ELSEIF INT_PETROL-TRFST = 'L4'.
INT_PETROL-PALLOWANCE = P_RATE * 200.
    ELSEIF INT_PETROL-TRFST = 'L5'.
INT_PETROL-PALLOWANCE = P_RATE * 250.
    ENDIF.
    MODIFY INT_PETROL1 FROM INT_PETROL TRANSPORTING PALLOWANCE.
ENDLOOP.
ENDFORM.                    "CAL_ALLOWANCE
*&      Form FILL_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM FILL_FIELDCAT.
INT_FIELDCAT-COL_POS = 1.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'PERNR'.
INT_FIELDCAT-SELTEXT_L = TEXT-005.
INT_FIELDCAT-OUTPUTLEN = 10.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 2.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'NAME'.
INT_FIELDCAT-SELTEXT_L = TEXT-006.
INT_FIELDCAT-OUTPUTLEN = 25.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 3.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'TRFST'.
INT_FIELDCAT-SELTEXT_L = TEXT-007.
INT_FIELDCAT-OUTPUTLEN = 5.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
INT_FIELDCAT-COL_POS = 4.
INT_FIELDCAT-TABNAME = 'INT_PETROL1'.
INT_FIELDCAT-FIELDNAME = 'PALLOWANCE'.
INT_FIELDCAT-SELTEXT_L = TEXT-008.
INT_FIELDCAT-OUTPUTLEN = 16.
INT_FIELDCAT-KEY = 'X'.
APPEND INT_FIELDCAT.
CLEAR INT_FIELDCAT.
ENDFORM.                    " FILL_FIELDCAT
*&      Form GET_EVENTS_ALV
      text
--> p1        text
<-- p2        text
FORM GET_EVENTS_ALV.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 1
    IMPORTING
      ET_EVENTS       = INT_EVENTS[]
    EXCEPTIONS
      LIST_TYPE_WRONG = 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.
READ TABLE INT_EVENTS INTO WS_EVENTS WITH KEY NAME =
SLIS_EV_TOP_OF_PAGE.
IF SY-SUBRC = 0.
    WS_EVENTS-FORM = 'TOP'.
    MODIFY INT_EVENTS FROM WS_EVENTS INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " GET_EVENTS_ALV
*&      Form TOP-OF-PAGE
      text
FORM TOP.
*-- ALV Declarations
DATA: WS_HEADER TYPE SLIS_T_LISTHEADER,
        WA_HEADER TYPE SLIS_LISTHEADER.
*-- Title
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = TEXT-009.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = TITLE.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = ' '.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = ' '.
APPEND WA_HEADER TO WS_HEADER.
CLEAR WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = WS_HEADER
      I_LOGO             = 'LOGO'.
ENDFORM.                    "TOP-OF-PAGE
regards
karthik
Edited by: KARTIKEYA (EDS-VZG) on May 5, 2008 1:41 PM

Requirement: Creation of new report similar to VA05u2026

The Sales team need to use transaction VA05 to show all open orders, for all order types. It currently takes 9 minutes to run an open order report, 11 to include exporting the file from SAP.
There are currently nearly 30,000 Finished Goods open order lines. 29,000 of these are 'Statistical TPI orders', or 97%. This produces a 14MB excel spreadsheet!
These orders have been responsible for process errors and generate confusion within the sales support area, and as order reporting is prevalent across all areas of the business these effects must be common to all areas.
Business wants to create a new report similar to VA05u2026
My query is that I need to create a FD for these Business Requirement..

Hello,
Have you tried VA05N?
This is new version of VA05 & it has many selection criterion... So that you can limit the output as required.
As far as creation of FD is concerned, it all depends on your Standard Process... Generally functional person will have to explain to ABAPer the Required Ourput Format, Feilds details from which the data is to be picked, etc...
It would be better if you prepare a FD which will clarify things to Business & Technical Team.
Hope this helps,
Thanks,
JIgnesh Mehta

MD4C standard Transaction Code Help

Dear All,
I need help I want to add multiple selection screen option for WBS element in MD4C transaction. (Report Name: PP_ORDER_PROGRESS).
If anybody has a similar issue could you please help me out without changing standard transaction code?
Regards,
Chanda.

Hello,
You mean transaction type? Then for Service Desk it is SLFN. It is not recommended to open Issues (SLFI) directly from the CRMD_ORDER transaction. You can also open change requests (SDCRs) from CRMD_ORDER, and later assign them to the maintenance cycle.
Best regards,
Miguel Ariñ

Changes in standard transactions

hi gurus,
my client wants to extend the vendor name characters from 40 to 60 characters in vendor name field.
can we do it in standard transaction
i think we cant do it , but i am not confident.
Please advise
regards
subbu

SHD0 does not let you extend fields, it simply allows you to set default entries (similar to screen variants)
There is NO WAY that you should consider extending the length of this field. It is used in HUNDREDS of reports and transactions and each one would also have to change.
It is better to split the text across name 2 as already suggested.
Steve B

Wrong portions of code being executed in standard transactions

Hi guys,
I've recently come accross some weird errors in a standard transaction in a system and thought you might have a clue. I was getting an ugly dump in F110 in a fresh system that it can't do a READ TABLE with index 0. After investigating it and debugging it for a while, I got in the PAI of a screen, where two procedures were important:
1) WERTE_PRUEFEN was being executed in a loop...endloop (that's where the error supposedly occurred). The thing is in the debugger it didn't go into this module inside the loop, as it should if there are no entries.
2) After that, WERTE_LOESCHEN. When I got here and pressed F5 to see what's going wrong in it, guess where the debugger redirected me: you're right, to the WERTE_PRUEFEN thingy. So a statement like MODULE WERTE_LOESCHEN. gets me to a completely different procedure. This is crazy!
I'm not at my first experience with this. BEx applications would do this if you'd change the ABAP source code and the people wouldn't reconnect again. Even if in the debugger I'd see the new code, the system would execute the old one, probably some caching issues. Always worked when people disconnected / reconnected.
However, in the actual situation, no matter how many times I log on/off, the dump is there.
This is not the only example of this kind, there are more module statements gone crazy in F110 in this system, but only this one dumps instantly.
What do you think it could be the cause of that/ what is a good solution for this?
I was thinking it has something to do with the program's generation and I asked the Basis guys to run an SGEN, hopefully that would help.
Thanks in advance,
George

Hi Vikranth,
Nope, just pressing F5 trying to get into WERTE_LOESCHEN and being redirected to that module inside the LOOP...ENDLOOP, WERTE_PRUEFEN. Well, I didn't say this happens in every system, only in that specific one. Of course, if I logon in another system, everything looks fine.
Another person suggested that it's the GUI to blame and that I should get the newest version. Still, the error was reported by a person that has the latest version of the GUI. I still think it's a generation/ installation issue but got no reply from the Basis admin so far.
Regards,
George

Cloning a standard transaction FPO4

Hi All,
I have a requirement where, i have to clone the standard transaction FPO4 ( alphabet O) . I will pass a key date, company code and G/L Account number in the selection screen and in the output report , I would get amounts for the respective document numbers (OPBEL) ,which i have to sum up as per Company code.
Here problem is as this is a standard tcode how can i make a 'Z' report based on the above that can meet the requirement.
I have tried this with SUBMIT , but this didn't work out .
Please suggest me if there are any better ways.
Thanks,
Vijay

FPO4>System>status>note program name from here which is RFKKOP04
now from se80 you can copy this program in to some z program with all elements like screen gui status include and all.
once you copied all these thing than save check activate and five new transaction from se93.
Amit.

How to add button on application tool bar of standard transaction

Hi All,
Can any one let me know how to ADD the button in on application tool bar of standard transaction by using SHD0 transaction or any other solution.While adding the button I don't want do any code modification.
Thanks,
Vijay

HI
SHD0 is used to create and maintain Screen and Transaction Variants..
to know more about Screen and trransaction variants click on this link
http://help.sap.com/saphelp_47x200/helpdata/en/67/232037ebf1cc09e10000009b38f889/content.htm
we can create Transaction Variants Using SHD0 Transaction.
Transaction Variants and Screen Variants
Transaction variants can simplify transaction runs as they allow you to:
Preassign values to fields
Hide and change the 'ready for input' status of fields
Hide and change table control column attributes
Hide menu functions
Hide entire screens
In particular, hiding fields in connection with screen compression, and hiding screens, can result in greater clarity and simplicity.
Transaction variants are made up of a sequence of screen variants. The field values and field attributes for the individual screens found in transaction variants are stored in screen variants. Each of these variants is assigned to a specific transaction, can, however, also contain values for screens in other transactions if this is required by transaction flow. The transaction that the variant is assigned to serves as initial transaction when the variant is called.
There are both client-specific and cross-client transaction variants. All screen variants are cross-client, but may be assigned to a client-specific transaction variant.
A namespace exists for cross-client transaction variants and screen variants and both are automatically attached to the Transport Organizer. Client-specific transaction variants must be transported manually.
In principle, transaction and screen variants can be created for all dialog and reporting transactions. There are, however, certain Restrictions that apply to certain transactions, depending on their internal structure.
No transaction variants are possible with transactions already containing preset parameters (parameter transactions and variant transactions).

Report similar to MIR5 with Vendor Name

Dear all,
Is there any standard report similar to MIR5 with vendor name ? Bcoz vendor name is missing in MIR5 ????

Any other reports or tables.............
Edited by: Jeyakanthan A on May 5, 2010 7:06 PM

Standard Transaction Customization

I want to use standard transaction(ME2N)and append three more fields to the displaying report.
here the LDB ENM used in the Program RM06EN00.. how to know the report output structure? and the output need to display in a normal ALV report.
Please help me... if any relative code provide me..
Thanks in advance..

Hi,
go to customizing:
Materials Management -> Purchasing -> Reporting -> Scope of List -> Define Scope of List and create your own scope of list.
In ME2N fill in the new scope in list in the 3rd field from the top.
Regards,
Andreas Gieres

Customize Standard transaction

I want to use standard transaction(ME2N)and append three more fields to the displaying report.
here the LDB ENM used in the Program RM06EN00.. how to know the report output structure? and the output need to display in a normal ALV report.
Please help me... if any relative code provide me..
Thanks in advance..

If no user-exit, badi, etc is found, I would simply use an implicit enhancement for the initial screen. If your first screen is 0002 as I think it is, create implicit enhancement in form screen_init_0002, in include MP56T_OVERVF02. Then use loop at screen to modify the property of the filed you want to modify.
As for the HTML, it's generated on form show_welcome_screen, in include MP56T_OVERVF00.

Report Painter - Translation from Transaction Currency

Hi,
I have set up a report painter report using "Translation from Transaction Currecny" as one of the key figures in one of the columns in the report. When I execute the report it prompts me for the target currency and the ER type which is what I was expecting. EG I want to translate actuals to say AUD at budget rate (type P)
My question is.... I add a second column again using the same key figure ""Translation from Transaction Currecny" which I want to exchange using a different Exchange rate type.E.g I want to translate actuals to AUD using the forecast rate (type Q). However, when I execute the report I was expectiong to be prompted twice for the target currency and exchange rate type but it still only prompts me once.
Does that mean that using the key figure that I cannot use it in more than one column in the report?
I hope this makes sense.
Thanks...

Add custom reports to an existing Report Tree (SERP)
For example:
Add custom report to: Project System/Information System/Financials/u2026
Find u201CPS91u201D from SERP
Add a report to PS91
The trick is find the existing report tree related to standard main menu.
Or create a new report tree where you house all custom or selected reports in one place.
May also consider using area menu (SE43): create a structure, for example, to house all custom reports. A useful tool to manage custom/specifc reports

Upgrade to ECC6 - FICO standard transactions affected

Dear All
I am currently testing the upgraded SAP system (4.6 to ECC6).
It would be great if you can share your experiences with the upgrade, with regards to affected SAP standard transactions.
Example ->
TCode                    OSS Note
KKRV                     Note 1253229 - Productdrilldown data collection - message KE756
AFAB                     Note 890976 - Converting closing report to internal doc number assgnmnt
Thanks for your time.
Edited by: Neeraj Batra on Jan 5, 2010 8:05 AM

please go to "help.sap.com " and search for the release notes relevant to ECC-6.
Here the rationale behind the Transaction codes are given.
Hope this is useful to you.
Regards,
Ramesh.

Providing F4 help standard transaction

Hi All,
Could anyone suggest me a way to provide F4 help in the standard transaction - ME51N at the field "requester" or "short text".
Thanks

Let me ask this, if you put your cursor on the field and hit F4, does the help fire?
If you have a short program like so....
report zrich_0002.
parameters: p_afnam type afnam.
Does it work here?
Regards,
Rich Heilman

SAP Standard Transactions are not Available

Hi all,
I have one issue that we want to start our project system but some SAP Standard Transactions are not available when i check that Transaction its showing "DOES NOT EXIST". I have then Checked Program name of that same SAP Transaction code in SE38.. But there also it gives "program does not exist" .
Path is :SAP Menu ->Information Systems ->Project system ->Financials -> Costs ->Plan-based ->By Cost Element ->---Few Tcodes in this
I want to find out all Inactive Reports in Project System from Project Information system and then i want to make usefull that reports for client.
but i dont know the reason why this is not available..?and How can be made these all available.
Thanks.

analyse table t800
A.

Report similar to standard transaction

Similar Messages

Maybe you are looking for