*********** Start Transformation**********************************
SELECT MATERIAL PLANT NET_PRICE GROSS_PRICE /BIC/VALID_DATE
FROM
/BIC/APLB12
INTO CORRESPONDING FIELDS OF TABLE LT_PLB FOR ALL ENTRIES IN
RESULT_PACKAGE
WHERE MATERIAL = RESULT_PACKAGE-/BIC/ZMATERIAL
AND PLANT = RESULT_PACKAGE-PLANT.
LOOP at RESULT_PACKAGE ASSIGNING <result_fields>.
********* Start Polulate Data in Result ADSO************************
READ TABLE LT_PLB INTO WA_PLB
WITH KEY MATERIAL = <result_fields>-/BIC/ZMATERIAL
PLANT = <result_fields>-PLANT.
IF sy-subrc = 0.
<result_fields>-/BIC/TOTAL PRICE = WA_PLB-GROSS_PRICE + WA_PLB-NET_PRICE.
ENDIF.
********* End Polulate Data in Result ADSO***************************
********* Start AMDP Script *****************************************
OUTTAB = SELECT
"/BIC/POORDER",
"/BIC/ORDER_LINE",
"/BIC/SCHEDULE_LINE",
"/BIC/CREATION_DATE",
"/BIC/ZMATERIAL",
"/BIC/0PLANT",
"/BIC/TOTAL_PRICE",
CURRENCY,
SQL_PROCEDURE_SOURCE_RECORD
FROM
(SELECT
P1."/BIC/POORDER",
P1."/BIC/ORDER_LINE",
P1."/BIC/SCHEDULE_LINE",
P1."/BIC/CREATION_DATE",
P1."/BIC/ZMATERIAL",
P1."/BIC/0PLANT",
(P2.GROSS_PRICE + P2.NET_PRICE) AS "/BIC/TOTAL_PRICE",
CURRENCY,
P1.SQL_PROCEDURE_SOURCE_RECORD
FROM : TEMP_TABLE P1 LEFT OUTER JOIN "/BIC/APLB12" P2 ON P1."/BIC/ZMATERIAL" = P2.MATERIAL
AND P1."/BIC/0PLANT" = P2.PLANT);
********** END OF AMDP SCRIPT ***************************************
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
12 | |
9 | |
7 | |
6 | |
6 | |
6 | |
6 | |
5 | |
3 | |
3 |