Compare Production Confirmation against Planned by Work Centre

Compare Production Confirmation against Planned by Work Centre*REPORT ZASSEMBLY_EFFICIENCY LINE-SIZE 255 NO STANDARD PAGE HEADING LINE-COUNT 065(001).TABLES: AFKO, "Order header data PP orders AFPO, "Order item AFRU, "Order completion confirmations AUFM, "Goods movements for order AFVV, "DB structure of the quantities/dates/values in the oper MARA. "General Material DataDATA: BEGIN OF INT_EFF OCCURS 100, MATNR TYPE AFKO-STLBEZ, MTART TYPE MARA-MTART, AUFNR TYPE AFKO-AUFNR, GSTRI TYPE AFKO-GSTRI, GLTRI TYPE AFKO-GLTRI, GAMNG(9) TYPE C, MENGE(9) TYPE C, PLN01(9) TYPE C, ISM01(7) TYPE P DECIMALS 2, DAUAT TYPE AFPO-DAUAT, END OF INT_EFF.DATA: FDATE LIKE SY-DATUM, LDATE LIKE SY-DATUM.DATA: YGAMNG(7) TYPE P DECIMALS 2, YMENGE(7) TYPE P DECIMALS 2, YPLN01(7) TYPE P DECIMALS 2, XMENGE(7) TYPE P DECIMALS 0, XSTDRATE(7) TYPE P DECIMALS 2, XACTRATE(7) TYPE P DECIMALS 2, XLINEEFF(7) TYPE P DECIMALS 2, XUTILISA(7) TYPE P DECIMALS 2.SELECT-OPTIONS XWERKS FOR AFRU-WERKS DEFAULT 'SAP'.SELECT-OPTIONS XBUDAT FOR AFRU-BUDAT.SELECT-OPTIONS XAUFNR FOR AFRU-AUFNR.START-OF-SELECTION.SELECT * FROM AFRU WHERE BUDAT IN XBUDAT AND WERKS IN XWERKS AND AUFNR IN XAUFNR. CLEAR AFPO. SELECT SINGLE * FROM AFPO WHERE AUFNR = AFRU-AUFNR. CLEAR AFKO. SELECT SINGLE * FROM AFKO WHERE AUFNR = AFRU-AUFNR. CLEAR MARA. SELECT SINGLE * FROM MARA WHERE LVORM = '' AND MATNR = AFKO-STLBEZ. CLEAR AFVV. SELECT SINGLE * FROM AFVV WHERE AUFPL = AFRU-AUFPL AND APLZL = AFRU-APLZL. IF AFVV-VGE01 = 'MIN'. AFVV-VGW01 = AFVV-VGW01 / 60. ENDIF. PERFORM GET_DATA_AUFM. PERFORM GET_DATA.ENDSELECT.PERFORM LOOP_INT_EFF.END-OF-SELECTION.FORM GET_DATA.* Reverse Confirmation IF AFRU-STOKZ = 'X'. MULTIPLY AFRU-LMNGA BY -1. MULTIPLY AFRU-ISM01 BY -1. MULTIPLY AFRU-ISM02 BY -1. MULTIPLY AFRU-ISM03 BY -1. MULTIPLY AFRU-ISM04 BY -1. MULTIPLY AFKO-GAMNG BY -1. MULTIPLY AFVV-BMSCH BY -1. MULTIPLY AFVV-VGW01 BY -1. MULTIPLY AFVV-VGW02 BY -1. MULTIPLY AFVV-VGW03 BY -1. ENDIF.* Plan Activities IF AFVV-BMSCH <> 0. INT_EFF-PLN01 = ( AFKO-GAMNG / AFVV-BMSCH ) * AFVV-VGW01 * 60. ENDIF.* Actual Activities INT_EFF-ISM01 = AFRU-ISM01.* Material No. IF AFKO-PLNBEZ = SPACE. INT_EFF-MATNR = AFKO-STLBEZ. ELSE. INT_EFF-MATNR = AFKO-PLNBEZ. ENDIF. INT_EFF-MTART = MARA-MTART. INT_EFF-AUFNR = AFKO-AUFNR. INT_EFF-GSTRI = AFKO-GSTRI. INT_EFF-GLTRI = AFKO-GLTRI. INT_EFF-GAMNG = AFKO-GAMNG. INT_EFF-MENGE = XMENGE. INT_EFF-DAUAT = AFPO-DAUAT. COLLECT INT_EFF. CLEAR INT_EFF.ENDFORM.FORM GET_DATA_AUFM. CLEAR XMENGE. SELECT * FROM AUFM WHERE AUFNR = AFKO-AUFNR AND BWART IN ('101', '102'). IF AUFM-SHKZG = 'H'. MULTIPLY AUFM-MENGE BY -1. ENDIF. ADD AUFM-MENGE TO XMENGE. ENDSELECT.ENDFORM.FORM LOOP_INT_EFF. LOOP AT INT_EFF. CLEAR: XSTDRATE, XACTRATE, XLINEEFF, XUTILISA. IF INT_EFF-PLN01 <> 0. XSTDRATE = INT_EFF-MENGE / INT_EFF-PLN01. ENDIF. IF INT_EFF-ISM01 <> 0. XACTRATE = INT_EFF-MENGE / INT_EFF-ISM01. XUTILISA = INT_EFF-PLN01 - INT_EFF-ISM01. ENDIF. IF XSTDRATE <> 0. XLINEEFF = XACTRATE / XSTDRATE. ENDIF. YGAMNG = INT_EFF-GAMNG. YMENGE = INT_EFF-MENGE. YPLN01 = INT_EFF-PLN01. WRITE:/ INT_EFF-MATNR UNDER ' Material', INT_EFF-MTART UNDER ' Matl', INT_EFF-AUFNR UNDER 'Production', INT_EFF-GSTRI UNDER 'Start', INT_EFF-GLTRI UNDER ' Finish', YGAMNG UNDER 'Production Ord', YMENGE UNDER ' Receipt Qty', YPLN01 UNDER ' Plan Hr', INT_EFF-ISM01 UNDER ' Actual Hr', XSTDRATE UNDER ' Std Rate', XACTRATE UNDER ' Actual Rate', XLINEEFF UNDER 'Efficiency (%)', XUTILISA UNDER 'Utilisation Typ', INT_EFF-DAUAT UNDER 'PP Type'. ENDLOOP.ENDFORM.TOP-OF-PAGE.FORMAT COLOR COL_TOTAL. WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, 110 'Assembly Line Efficiency Report - Closed (Period)', 200 SY-UNAME, SY-PAGNO. SKIP. WRITE: /1 ' Material', 20 ' Matl', 25 'Production', 36 'Start', 47 ' Finish', 58 'Production Ord', 73 ' Receipt Qty', 88 ' Plan Hr', 103 ' Actual Hr', 118 ' Std Rate', 133 ' Actual Rate', 148 'Efficiency (%)', 163 'Utilisation Typ', 179 'PP Type'.INITIALIZATION. LDATE = SY-DATUM. LDATE+6(2) = '01'. LDATE = LDATE - 1. FDATE = LDATE. FDATE+6(2) = '01'. MOVE: FDATE TO XBUDAT-LOW, LDATE TO XBUDAT-HIGH. APPEND XBUDAT.