SAP Note 11126 - Transporting pricing reports.

Symptom

Transporting customer's own pricing reports from the test system into the production system.

Cause and prerequisites

A transport link is realized as of Release 4.0C.
Release 3.0x, 3.1x and 2.2G - 2.2Z: Please observe points 1 and 2 only.
Release 4.0A and 4.0B: Please observe point 2 only
Then use report RV14ALLE to generate the pricing report in the target system.

Solution

Correction K11K093367 (advance correction):

1. Transporting table entries T681U, T681X, T681Y with a correction:
(Please ensure that the relevant suffix (see below) has not already been used in the new system !!!)

• NSE01 - Create correction

• Enter short description

• PF9 - Editor

• Enter table entries for T681U as follows:
  PgmID Obj Object name Function
  R3TR TABU T681U K

• PF2 - Key maintenance

• PF2 - Full key

• Enter the key of the pricing report to be transported:
  e.g.: Usage 'A'
  Suffix of list report 'A1'
  Sequential number '*'

• PF3 - Back

• PF3 - Back

• Enter the table entries for T681X as follows in a new line:
  PgmID Obj Object name Function
  R3TR TABU T681X K

• PF2 - Key maintenance

• PF2 - Full key

• Enter the key of the pricing report to be transported:
  e.g.: Usage 'A'
  Suffix of list report 'A1'
  Sequential number '*'

• PF3 - Back

• PF3 - Back

• Enter the table entries for T681Y as follows in a new line:
  PgmID Obj Object name Function
  R3TR TABU T681Y K

• PF2 - Key maintenance

• PF2 - Full key

• Enter the key of the pricing report to be transported:
  e.g.: Usage 'A'
  Suffix of list report 'A1'
  Sequential number '*'

• PF3 - Back

• PF3 - Back

• PF11 - Save

• Transport correction
  

2. Transport of the pricing reports

• SE01 - Create transport request

• Enter short text and target system

• Select the transport of copies as the transport type (type T if you want to transport outside a configured transport route. Select the change request as the transport type (type K) if you want to transport along the configured transport route, for example, from the development system to the test system.

• PF9 - Editor

• Enter the pricing reports as program names to transport headers and texts
  R3TR PROG RV14AKxx
  R3TR PROG RV14ALxx
  xx - Suffix of list report

• PF11 - Save

• Transport correction
  

3. Change the generation report RV14ALLE: (only Release < 2.2G)

REPORT RV14ALLE MESSAGE-ID VK. "change
***********************************************************************
* The report generates all pricing reports *
***********************************************************************
TABLES: RV14A, T681X, T681Y, T681U, T180.

* Common Part
INCLUDE RV14ACOM .

DATA: BEGIN OF LIST_TAB OCCURS 10,
NAME LIKE RV14A-NAME,
END OF LIST_TAB.

DATA: BEGIN OF RV14A_TAB OCCURS 100.
INCLUDE STRUCTURE T681Y.
DATA: END OF RV14A_TAB.

DATA: TITEL_FELD LIKE DD04V-DDTEXT.

SELECT-OPTIONS: KVEWE FOR T681Y-KVEWE. "change
SELECT-OPTIONS: KAPPL FOR T681Y-KOVAR. "change
SELECT-OPTIONS: LAUFNR FOR T681Y-KONLI.

* SAP-Standard
PARAMETERS: STANDARD NO-DISPLAY.

* ---------------------- SAP-Standard --------------------------------
MOVE STANDARD TO SAP_STANDARD. "delete
*OVE 'X' TO SAP_STANDARD. "delete
IF SAP_STANDARD EQ 'X'. "delete

SELECT * FROM T681Y INTO TABLE RV14A_TAB
WHERE KVEWE IN KVEWE "change
AND KONLI IN LAUFNR "delete
AND KONLI BETWEEN '00' AND '99'
AND KONLI NE '01'
AND KONLI NE '02'.

ELSE. "begin of delete

SELECT * FROM T681Y INTO TABLE RV14A_TAB
WHERE KVEWE IN KVEWE
AND KONLI IN LAUFNR
AND KONLI BETWEEN 'A0' AND 'ZZ'
AND KONLI NE '01'
AND KONLI NE '02'.

ENDIF. "end of delete

LOOP AT RV14A_TAB WHERE KOVAR IN KAPPL. "change
CLEAR RV14A-NAME.
MOVE 'RV14AK' TO RV14A-NAME.
MOVE RV14A_TAB-KONLI TO RV14A-NAME+6(2).
CLEAR LIST_TAB.
MOVE RV14A-NAME TO LIST_TAB.
SET PARAMETER ID 'RID' FIELD RV14A-NAME.

T180-AKTYP = 'X'.
PERFORM X_T681U_FUELLEN(SAPMV14A).
PERFORM X_T681X_FUELLEN(SAPMV14A).
SELECT SINGLE * FROM T681Y WHERE KVEWE EQ RV14A_TAB-KVEWE "change
AND KONLI EQ RV14A_TAB-KONLI
AND KOVAR IN KAPPL. "insert
IF SY-SUBRC NE 0.
EXIT. "insert
* MESSAGE A507. "delete
ELSE. "insert
MOVE T681Y-KOVAR TO KAPPL. "insert
ENDIF.

CLEAR POSLINE.
* ------------ Positionszeile ausmessen -----------------------------

DATA: HOLD_POS LIKE SY-TABIX.

PERFORM POS_ZEILE_MESSEN(SAPMV14A) USING POSLINE.

* --------------------- Daten halten --------------------------------
CLEAR HOLD_POS.
MOVE POSLINE TO HOLD_POS.

* -------------- posit. Felder + fixer Datenteil --------------------
CLEAR L_SIZE.
PERFORM ADD_DATENTEIL(SAPMV14A) USING POSLINE
RV14A_TAB-KOSTAFF
RV14A_TAB-KOGUELT.
L_SIZE = POSLINE.
POSLINE = HOLD_POS.
* ------------ Textpool in allen Sprachen füllen --------------------
REFRESH X_TEXTPOOL.
READ TEXTPOOL RV14A-NAME INTO X_TEXTPOOL.
LOOP AT X_TEXTPOOL WHERE ID EQ 'R'.
MOVE X_TEXTPOOL-ENTRY TO TITEL_FELD.
ENDLOOP.
REFRESH X_TEXTPOOL.
PERFORM TEXTPOOL_GENER(SAPMV14A) USING TITEL_FELD
T681Y-KOSTAFF
T681Y-KOGUELT.

* ------------------ Check Standardtexte gepflegt? ------------
LOOP AT X_T681U.
PERFORM KOTEX_STANDARD(SAPMV14A).
ENDLOOP.
SUBMIT RV14AGER WITH GENER_NR EQ RV14A_TAB-KONLI "insert
AND RETURN. "insert
SUBMIT RV14AGEN WITH GENER_NR EQ RV14A_TAB-KONLI
WITH POS_LEN EQ POSLINE
WITH LI_SIZE EQ L_SIZE
WITH STAFF EQ T681Y-KOSTAFF
WITH DAT EQ T681Y-KOGUELT
WITH KAPPL EQ KAPPL
WITH KVEWE EQ RV14A_TAB-KVEWE "change
AND RETURN.

MOVE 'L' TO LIST_TAB+5(1). "begin of delete
APPEND LIST_TAB.

ENDLOOP.

* Listausgabe
LOOP AT LIST_TAB.
WRITE: / LIST_TAB. "end of delete
ENDLOOP. "insert

Additional key words

V/LD

Key word: Pricing report