* CLEAR TH_RESULT1.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU1.
* CLEAR TD_LAST_RESU1.
* LOOP AT TD_RESULT1 INTO TH_RESULT1.
*15309831108
* IF SY-TABIX = 1.
* TH_LAST_RESU1 = TH_RESULT1.
* APPEND TH_LAST_RESU1 TO TD_LAST_RESU1.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU1-KOSTL = TH_RESULT1-KOSTL
* AND TH_LAST_RESU1-ARBPL = TH_RESULT1-ARBPL
* AND TH_LAST_RESU1-GJAHR = TH_RESULT1-GJAHR
* AND TH_LAST_RESU1-MONAT = TH_RESULT1-MONAT
* AND TH_LAST_RESU1-PLNBEZ = TH_RESULT1-PLNBEZ.
* TH_LAST_RESU1-XMNGA = TH_RESULT1-XMNGA + TH_LAST_RESU1-XMNGA.
* IF TH_LAST_RESU1-GMNGA < TH_RESULT1-GMNGA.
* TH_LAST_RESU1-GMNGA = TH_RESULT1-GMNGA.
* ENDIF.
* IF TH_LAST_RESU1-PLAN_F_QTY > TH_RESULT1-PLAN_F_QTY.
* TH_LAST_RESU1-PLAN_F_QTY = TH_RESULT1-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU1 FROM TH_LAST_RESU1 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU1 = TH_RESULT1.
* APPEND TH_LAST_RESU1 TO TD_LAST_RESU1.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT1.
*
* ENDLOOP.
*
* CLEAR TH_RESULT2.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU2.
* CLEAR TD_LAST_RESU2.
* LOOP AT TD_RESULT2 INTO TH_RESULT2.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU2 = TH_RESULT2.
* APPEND TH_LAST_RESU2 TO TD_LAST_RESU2.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU2-KOSTL = TH_RESULT2-KOSTL
* AND TH_LAST_RESU2-ARBPL = TH_RESULT2-ARBPL
* AND TH_LAST_RESU2-GJAHR = TH_RESULT2-GJAHR
* AND TH_LAST_RESU2-MONAT = TH_RESULT2-MONAT
* AND TH_LAST_RESU2-PLNBEZ = TH_RESULT2-PLNBEZ.
* TH_LAST_RESU2-XMNGA = TH_RESULT2-XMNGA + TH_LAST_RESU2-XMNGA.
* IF TH_LAST_RESU2-GMNGA < TH_RESULT2-GMNGA.
* TH_LAST_RESU2-GMNGA = TH_RESULT2-GMNGA.
* ENDIF.
* IF TH_LAST_RESU2-PLAN_F_QTY > TH_RESULT2-PLAN_F_QTY.
* TH_LAST_RESU2-PLAN_F_QTY = TH_RESULT2-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU2 FROM TH_LAST_RESU2 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU2 = TH_RESULT2.
* APPEND TH_LAST_RESU2 TO TD_LAST_RESU2.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT2.
*
* ENDLOOP.
*
* CLEAR TH_RESULT3.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU3.
* CLEAR TD_LAST_RESU3.
* LOOP AT TD_RESULT3 INTO TH_RESULT3.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU3 = TH_RESULT3.
* APPEND TH_LAST_RESU3 TO TD_LAST_RESU3.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU3-KOSTL = TH_RESULT3-KOSTL
* AND TH_LAST_RESU3-ARBPL = TH_RESULT3-ARBPL
* AND TH_LAST_RESU3-GJAHR = TH_RESULT3-GJAHR
* AND TH_LAST_RESU3-MONAT = TH_RESULT3-MONAT
* AND TH_LAST_RESU3-PLNBEZ = TH_RESULT3-PLNBEZ.
* TH_LAST_RESU3-XMNGA = TH_RESULT3-XMNGA + TH_LAST_RESU3-XMNGA.
* IF TH_LAST_RESU3-GMNGA < TH_RESULT3-GMNGA.
* TH_LAST_RESU3-GMNGA = TH_RESULT3-GMNGA.
* ENDIF.
* IF TH_LAST_RESU3-PLAN_F_QTY > TH_RESULT3-PLAN_F_QTY.
* TH_LAST_RESU3-PLAN_F_QTY = TH_RESULT3-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU3 FROM TH_LAST_RESU3 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU3 = TH_RESULT3.
* APPEND TH_LAST_RESU3 TO TD_LAST_RESU3.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT3.
*
* ENDLOOP.
*
* CLEAR TH_RESULT4.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU4.
* CLEAR TD_LAST_RESU4.
* LOOP AT TD_RESULT4 INTO TH_RESULT4.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU4 = TH_RESULT4.
* APPEND TH_LAST_RESU4 TO TD_LAST_RESU4.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU4-KOSTL = TH_RESULT4-KOSTL
* AND TH_LAST_RESU4-ARBPL = TH_RESULT4-ARBPL
* AND TH_LAST_RESU4-GJAHR = TH_RESULT4-GJAHR
* AND TH_LAST_RESU4-MONAT = TH_RESULT4-MONAT
* AND TH_LAST_RESU4-PLNBEZ = TH_RESULT4-PLNBEZ.
* TH_LAST_RESU4-XMNGA = TH_RESULT4-XMNGA + TH_LAST_RESU4-XMNGA.
* IF TH_LAST_RESU4-GMNGA < TH_RESULT4-GMNGA.
* TH_LAST_RESU4-GMNGA = TH_RESULT4-GMNGA.
* ENDIF.
* IF TH_LAST_RESU4-PLAN_F_QTY > TH_RESULT4-PLAN_F_QTY.
* TH_LAST_RESU4-PLAN_F_QTY = TH_RESULT4-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU4 FROM TH_LAST_RESU4 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU4 = TH_RESULT4.
* APPEND TH_LAST_RESU4 TO TD_LAST_RESU4.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT4.
*
* ENDLOOP.
*
*
* CLEAR TH_RESULT5.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU5.
* CLEAR TD_LAST_RESU5.
* LOOP AT TD_RESULT5 INTO TH_RESULT5.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU5 = TH_RESULT5.
* APPEND TH_LAST_RESU5 TO TD_LAST_RESU5.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU5-KOSTL = TH_RESULT5-KOSTL
* AND TH_LAST_RESU5-ARBPL = TH_RESULT5-ARBPL
* AND TH_LAST_RESU5-GJAHR = TH_RESULT5-GJAHR
* AND TH_LAST_RESU5-MONAT = TH_RESULT5-MONAT
* AND TH_LAST_RESU5-PLNBEZ = TH_RESULT5-PLNBEZ.
* TH_LAST_RESU5-XMNGA = TH_RESULT5-XMNGA + TH_LAST_RESU5-XMNGA.
* IF TH_LAST_RESU5-GMNGA < TH_RESULT5-GMNGA.
* TH_LAST_RESU5-GMNGA = TH_RESULT5-GMNGA.
* ENDIF.
* IF TH_LAST_RESU5-PLAN_F_QTY > TH_RESULT5-PLAN_F_QTY.
* TH_LAST_RESU5-PLAN_F_QTY = TH_RESULT5-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU5 FROM TH_LAST_RESU5 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU5 = TH_RESULT5.
* APPEND TH_LAST_RESU5 TO TD_LAST_RESU5.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT5.
*
* ENDLOOP.
*
* CLEAR TH_RESULT6.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU6.
* CLEAR TD_LAST_RESU6.
* LOOP AT TD_RESULT6 INTO TH_RESULT6.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU6 = TH_RESULT6.
* APPEND TH_LAST_RESU6 TO TD_LAST_RESU6.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU6-KOSTL = TH_RESULT6-KOSTL
* AND TH_LAST_RESU6-ARBPL = TH_RESULT6-ARBPL
* AND TH_LAST_RESU6-GJAHR = TH_RESULT6-GJAHR
* AND TH_LAST_RESU6-MONAT = TH_RESULT6-MONAT
* AND TH_LAST_RESU6-PLNBEZ = TH_RESULT6-PLNBEZ.
* TH_LAST_RESU6-XMNGA = TH_RESULT6-XMNGA + TH_LAST_RESU6-XMNGA.
* IF TH_LAST_RESU6-GMNGA < TH_RESULT6-GMNGA.
* TH_LAST_RESU6-GMNGA = TH_RESULT6-GMNGA.
* ENDIF.
* IF TH_LAST_RESU6-PLAN_F_QTY > TH_RESULT6-PLAN_F_QTY.
* TH_LAST_RESU6-PLAN_F_QTY = TH_RESULT6-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU6 FROM TH_LAST_RESU6 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU6 = TH_RESULT6.
* APPEND TH_LAST_RESU6 TO TD_LAST_RESU6.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT6.
*
* ENDLOOP.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU1.
* CLEAR TD_LAST_RESU1.
* LOOP AT TD_RESULT1 INTO TH_RESULT1.
*15309831108
* IF SY-TABIX = 1.
* TH_LAST_RESU1 = TH_RESULT1.
* APPEND TH_LAST_RESU1 TO TD_LAST_RESU1.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU1-KOSTL = TH_RESULT1-KOSTL
* AND TH_LAST_RESU1-ARBPL = TH_RESULT1-ARBPL
* AND TH_LAST_RESU1-GJAHR = TH_RESULT1-GJAHR
* AND TH_LAST_RESU1-MONAT = TH_RESULT1-MONAT
* AND TH_LAST_RESU1-PLNBEZ = TH_RESULT1-PLNBEZ.
* TH_LAST_RESU1-XMNGA = TH_RESULT1-XMNGA + TH_LAST_RESU1-XMNGA.
* IF TH_LAST_RESU1-GMNGA < TH_RESULT1-GMNGA.
* TH_LAST_RESU1-GMNGA = TH_RESULT1-GMNGA.
* ENDIF.
* IF TH_LAST_RESU1-PLAN_F_QTY > TH_RESULT1-PLAN_F_QTY.
* TH_LAST_RESU1-PLAN_F_QTY = TH_RESULT1-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU1 FROM TH_LAST_RESU1 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU1 = TH_RESULT1.
* APPEND TH_LAST_RESU1 TO TD_LAST_RESU1.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT1.
*
* ENDLOOP.
*
* CLEAR TH_RESULT2.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU2.
* CLEAR TD_LAST_RESU2.
* LOOP AT TD_RESULT2 INTO TH_RESULT2.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU2 = TH_RESULT2.
* APPEND TH_LAST_RESU2 TO TD_LAST_RESU2.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU2-KOSTL = TH_RESULT2-KOSTL
* AND TH_LAST_RESU2-ARBPL = TH_RESULT2-ARBPL
* AND TH_LAST_RESU2-GJAHR = TH_RESULT2-GJAHR
* AND TH_LAST_RESU2-MONAT = TH_RESULT2-MONAT
* AND TH_LAST_RESU2-PLNBEZ = TH_RESULT2-PLNBEZ.
* TH_LAST_RESU2-XMNGA = TH_RESULT2-XMNGA + TH_LAST_RESU2-XMNGA.
* IF TH_LAST_RESU2-GMNGA < TH_RESULT2-GMNGA.
* TH_LAST_RESU2-GMNGA = TH_RESULT2-GMNGA.
* ENDIF.
* IF TH_LAST_RESU2-PLAN_F_QTY > TH_RESULT2-PLAN_F_QTY.
* TH_LAST_RESU2-PLAN_F_QTY = TH_RESULT2-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU2 FROM TH_LAST_RESU2 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU2 = TH_RESULT2.
* APPEND TH_LAST_RESU2 TO TD_LAST_RESU2.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT2.
*
* ENDLOOP.
*
* CLEAR TH_RESULT3.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU3.
* CLEAR TD_LAST_RESU3.
* LOOP AT TD_RESULT3 INTO TH_RESULT3.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU3 = TH_RESULT3.
* APPEND TH_LAST_RESU3 TO TD_LAST_RESU3.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU3-KOSTL = TH_RESULT3-KOSTL
* AND TH_LAST_RESU3-ARBPL = TH_RESULT3-ARBPL
* AND TH_LAST_RESU3-GJAHR = TH_RESULT3-GJAHR
* AND TH_LAST_RESU3-MONAT = TH_RESULT3-MONAT
* AND TH_LAST_RESU3-PLNBEZ = TH_RESULT3-PLNBEZ.
* TH_LAST_RESU3-XMNGA = TH_RESULT3-XMNGA + TH_LAST_RESU3-XMNGA.
* IF TH_LAST_RESU3-GMNGA < TH_RESULT3-GMNGA.
* TH_LAST_RESU3-GMNGA = TH_RESULT3-GMNGA.
* ENDIF.
* IF TH_LAST_RESU3-PLAN_F_QTY > TH_RESULT3-PLAN_F_QTY.
* TH_LAST_RESU3-PLAN_F_QTY = TH_RESULT3-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU3 FROM TH_LAST_RESU3 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU3 = TH_RESULT3.
* APPEND TH_LAST_RESU3 TO TD_LAST_RESU3.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT3.
*
* ENDLOOP.
*
* CLEAR TH_RESULT4.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU4.
* CLEAR TD_LAST_RESU4.
* LOOP AT TD_RESULT4 INTO TH_RESULT4.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU4 = TH_RESULT4.
* APPEND TH_LAST_RESU4 TO TD_LAST_RESU4.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU4-KOSTL = TH_RESULT4-KOSTL
* AND TH_LAST_RESU4-ARBPL = TH_RESULT4-ARBPL
* AND TH_LAST_RESU4-GJAHR = TH_RESULT4-GJAHR
* AND TH_LAST_RESU4-MONAT = TH_RESULT4-MONAT
* AND TH_LAST_RESU4-PLNBEZ = TH_RESULT4-PLNBEZ.
* TH_LAST_RESU4-XMNGA = TH_RESULT4-XMNGA + TH_LAST_RESU4-XMNGA.
* IF TH_LAST_RESU4-GMNGA < TH_RESULT4-GMNGA.
* TH_LAST_RESU4-GMNGA = TH_RESULT4-GMNGA.
* ENDIF.
* IF TH_LAST_RESU4-PLAN_F_QTY > TH_RESULT4-PLAN_F_QTY.
* TH_LAST_RESU4-PLAN_F_QTY = TH_RESULT4-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU4 FROM TH_LAST_RESU4 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU4 = TH_RESULT4.
* APPEND TH_LAST_RESU4 TO TD_LAST_RESU4.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT4.
*
* ENDLOOP.
*
*
* CLEAR TH_RESULT5.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU5.
* CLEAR TD_LAST_RESU5.
* LOOP AT TD_RESULT5 INTO TH_RESULT5.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU5 = TH_RESULT5.
* APPEND TH_LAST_RESU5 TO TD_LAST_RESU5.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU5-KOSTL = TH_RESULT5-KOSTL
* AND TH_LAST_RESU5-ARBPL = TH_RESULT5-ARBPL
* AND TH_LAST_RESU5-GJAHR = TH_RESULT5-GJAHR
* AND TH_LAST_RESU5-MONAT = TH_RESULT5-MONAT
* AND TH_LAST_RESU5-PLNBEZ = TH_RESULT5-PLNBEZ.
* TH_LAST_RESU5-XMNGA = TH_RESULT5-XMNGA + TH_LAST_RESU5-XMNGA.
* IF TH_LAST_RESU5-GMNGA < TH_RESULT5-GMNGA.
* TH_LAST_RESU5-GMNGA = TH_RESULT5-GMNGA.
* ENDIF.
* IF TH_LAST_RESU5-PLAN_F_QTY > TH_RESULT5-PLAN_F_QTY.
* TH_LAST_RESU5-PLAN_F_QTY = TH_RESULT5-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU5 FROM TH_LAST_RESU5 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU5 = TH_RESULT5.
* APPEND TH_LAST_RESU5 TO TD_LAST_RESU5.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT5.
*
* ENDLOOP.
*
* CLEAR TH_RESULT6.
* CLEAR Z_INDEX.
* CLEAR TH_LAST_RESU6.
* CLEAR TD_LAST_RESU6.
* LOOP AT TD_RESULT6 INTO TH_RESULT6.
*
* IF SY-TABIX = 1.
* TH_LAST_RESU6 = TH_RESULT6.
* APPEND TH_LAST_RESU6 TO TD_LAST_RESU6.
* Z_INDEX = Z_INDEX + 1.
* CONTINUE.
* ENDIF.
*
* IF TH_LAST_RESU6-KOSTL = TH_RESULT6-KOSTL
* AND TH_LAST_RESU6-ARBPL = TH_RESULT6-ARBPL
* AND TH_LAST_RESU6-GJAHR = TH_RESULT6-GJAHR
* AND TH_LAST_RESU6-MONAT = TH_RESULT6-MONAT
* AND TH_LAST_RESU6-PLNBEZ = TH_RESULT6-PLNBEZ.
* TH_LAST_RESU6-XMNGA = TH_RESULT6-XMNGA + TH_LAST_RESU6-XMNGA.
* IF TH_LAST_RESU6-GMNGA < TH_RESULT6-GMNGA.
* TH_LAST_RESU6-GMNGA = TH_RESULT6-GMNGA.
* ENDIF.
* IF TH_LAST_RESU6-PLAN_F_QTY > TH_RESULT6-PLAN_F_QTY.
* TH_LAST_RESU6-PLAN_F_QTY = TH_RESULT6-PLAN_F_QTY.
* ENDIF.
* MODIFY TD_LAST_RESU6 FROM TH_LAST_RESU6 INDEX Z_INDEX
* TRANSPORTING GMNGA
* XMNGA
* PLAN_F_QTY.
* ELSE.
* TH_LAST_RESU6 = TH_RESULT6.
* APPEND TH_LAST_RESU6 TO TD_LAST_RESU6.
* Z_INDEX = Z_INDEX + 1.
*
* ENDIF.
*
* CLEAR TH_RESULT6.
*
* ENDLOOP.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13973563/viewspace-752282/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/13973563/viewspace-752282/