*-------------------------------------------- *SELECTION *-------------------------------------------- *BLOCK 0 SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS S_LIFNR FOR EKKO-LIFNR NO INTERVALS. SELECT-OPTIONS S_MATNR FOR EKPO-MATNR NO INTERVALS. SELECT-OPTIONS S_MATKL FOR EKPO-MATKL NO INTERVALS. SELECT-OPTIONS S_EKGRP FOR EKKO-EKGRP NO INTERVALS. SELECT-OPTIONS S_BEDAT FOR EKKO-BEDAT. SELECT-OPTIONS S_PURDOC for EKKO-EBELN. PARAMETER S_WBS LIKE EKKN-PS_PSP_PNR . *SELECT-OPTIONS S_WBS for EKKN-PS_PSP_PNR NO INTERVALS. SELECTION-SCREEN END OF BLOCK 0. *BLOCK 2 SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-010. PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT. " ALV Variant *SELECTION-SCREEN SKIP. *SELECTION-SCREEN PUSHBUTTON /10(20) SUMMA USER-COMMAND ABCD. SELECTION-SCREEN END OF BLOCK 2.
*-------------------------------------------- *DATA *-------------------------------------------- *ALV DATA TYPE-POOLS: SLIS. DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER, GT_EVENTS TYPE SLIS_T_EVENT, GS_LAYOUT TYPE SLIS_LAYOUT_ALV, GT_SORT TYPE SLIS_T_SORTINFO_ALV, GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, FIELDCAT_LN LIKE LINE OF GT_FIELDCAT, REPNAME LIKE SY-REPID, G_SAVE(1) TYPE C, G_EXIT(1) TYPE C, G_VARIANT LIKE DISVARIANT, GX_VARIANT LIKE DISVARIANT.
*USER DATA DATA VWCASE(3) TYPE N. DATA SDAT LIKE EKET-EINDT.
*-------------------------------------------- *INTERNAL TABLE *-------------------------------------------- *ITAB DATA: BEGIN OF ITAB OCCURS 0, BELNR LIKE EKBE-BELNR, "Start insert by suchon CH01 LIFNR LIKE EKKO-LIFNR, BEDAT LIKE EKKO-BEDAT, WAERS LIKE EKKO-WAERS, EBELN LIKE EKPO-EBELN, EBELP LIKE EKPO-EBELP, MATNR LIKE EKPO-MATNR, TXZ01 LIKE EKPO-TXZ01, MENGE LIKE EKPO-MENGE, MEINS LIKE EKPO-MEINS, NETPR LIKE EKPO-NETPR, ELIKZ LIKE EKPO-ELIKZ, EINDT LIKE EKET-EINDT, BUDAT LIKE EKBE-BUDAT, MENGE2 LIKE EKBE-MENGE, DELP TYPE I, CMT(15) TYPE C, *BELNR LIKE EKBE-BELNR, "Start insert by suchon CH01 BUZEI LIKE EKBE-BUZEI, DMBTR LIKE EKBE-DMBTR, PS_PSP_PNR LIKE EKKN-PS_PSP_PNR,"End insert by suchon CH01 DMBTR1 LIKE EKBE-DMBTR, DMBTR2 LIKE EKBE-DMBTR, DMBTR3 LIKE EKBE-DMBTR, DMBTR4 LIKE EKBE-DMBTR, DMBTR5 LIKE EKBE-DMBTR, DMBTR6 LIKE EKBE-DMBTR, DMBTR7 LIKE EKBE-DMBTR, DMBTR8 LIKE EKBE-DMBTR, DMBTR9 LIKE EKBE-DMBTR, DMBTR10 LIKE EKBE-DMBTR, DMBTR11 LIKE EKBE-DMBTR, DMBTR12 LIKE EKBE-DMBTR, *BRTWR1 LIKE EKPO-BRTWR, BRTWR1(13) TYPE C, BRTWR2(13) TYPE C, BRTWR3(13) TYPE C, BRTWR4(13) TYPE C, BRTWR5(13) TYPE C, BRTWR6(13) TYPE C, BRTWR7(13) TYPE C, BRTWR8(13) TYPE C, BRTWR9(13) TYPE C, BRTWR10(13) TYPE C, BRTWR11(13) TYPE C, BRTWR12(13) TYPE C, SUM_BRTWR LIKE EKPO-BRTWR, POST1 LIKE PRPS-POST1, H_note LIKE TLINE-TDLINE, SUM_OUT LIKE EKPO-BRTWR, SUM_ACT LIKE EKBE-DMBTR, END OF ITAB.
*ITAB1 DATA: BEGIN OF ITAB1 OCCURS 0, LIFNR LIKE EKKO-LIFNR, BEDAT LIKE EKKO-BEDAT, WAERS LIKE EKKO-WAERS, EBELN LIKE EKPO-EBELN, EBELP LIKE EKPO-EBELP, MATNR LIKE EKPO-MATNR, TXZ01 LIKE EKPO-TXZ01, MENGE LIKE EKPO-MENGE, MEINS LIKE EKPO-MEINS, NETPR LIKE EKPO-NETPR, ELIKZ LIKE EKPO-ELIKZ, EINDT LIKE EKET-EINDT, BUDAT LIKE EKBE-BUDAT, MENGE2 LIKE EKBE-MENGE, DELP TYPE I, CMT(15) TYPE C, BELNR LIKE EKBE-BELNR, "Start insert by suchon CH01 BUZEI LIKE EKBE-BUZEI, DMBTR LIKE EKBE-DMBTR, PS_PSP_PNR LIKE EKKN-PS_PSP_PNR, "End insert by suchon CH01 DMBTR1 LIKE EKBE-DMBTR, DMBTR2 LIKE EKBE-DMBTR, DMBTR3 LIKE EKBE-DMBTR, DMBTR4 LIKE EKBE-DMBTR, DMBTR5 LIKE EKBE-DMBTR, DMBTR6 LIKE EKBE-DMBTR, DMBTR7 LIKE EKBE-DMBTR, DMBTR8 LIKE EKBE-DMBTR, DMBTR9 LIKE EKBE-DMBTR, DMBTR10 LIKE EKBE-DMBTR, DMBTR11 LIKE EKBE-DMBTR, DMBTR12 LIKE EKBE-DMBTR, *BRTWR1 LIKE EKPO-BRTWR, BRTWR1(13) TYPE C, BRTWR2(13) TYPE C, BRTWR3(13) TYPE C, BRTWR4(13) TYPE C, BRTWR5(13) TYPE C, BRTWR6(13) TYPE C, BRTWR7(13) TYPE C, BRTWR8(13) TYPE C, BRTWR9(13) TYPE C, BRTWR10(13) TYPE C, BRTWR11(13) TYPE C, BRTWR12(13) TYPE C, SUM_BRTWR LIKE EKPO-BRTWR, POST1 LIKE PRPS-POST1, H_note LIKE TLINE-TDLINE, SUM_OUT LIKE EKPO-BRTWR, SUM_ACT LIKE EKBE-DMBTR,
END OF ITAB1. *MTEXT DATA: BEGIN OF mtext OCCURS 50. INCLUDE STRUCTURE tline. DATA: END OF mtext. *Temp data DATA TEMP1 LIKE ITAB1.
*EKKOTAB DATA: BEGIN OF EKKOTAB OCCURS 0, EBELN LIKE EKKO-EBELN, LIFNR LIKE EKKO-LIFNR, BEDAT LIKE EKKO-BEDAT, WAERS LIKE EKKO-WAERS, END OF EKKOTAB.
*EKPOTAB DATA: BEGIN OF EKPOTAB OCCURS 0, EBELN LIKE EKPO-EBELN, EBELP LIKE EKPO-EBELP, LIFNR LIKE EKKO-LIFNR, BEDAT LIKE EKKO-BEDAT, WAERS LIKE EKKO-WAERS, MATNR LIKE EKPO-MATNR, TXZ01 LIKE EKPO-TXZ01, MENGE LIKE EKPO-MENGE, MEINS LIKE EKPO-MEINS, NETPR LIKE EKPO-NETPR, ELIKZ LIKE EKPO-ELIKZ, EINDT LIKE EKET-EINDT, BRTWR LIKE EKPO-BRTWR, END OF EKPOTAB.
*-------------------------------------------- AT SELECTION-SCREEN. *-------------------------------------------- IF S_BEDAT IS INITIAL. MESSAGE E000 WITH 'Please enter a date in Main Selection Criteria'. ENDIF.
* IF P_01 = 'X' AND P_D01 IS INITIAL. * MESSAGE E000 * WITH 'Please enter a number on Delivered Before Plan Delivery'. * ENDIF. * * IF P_02 = 'X' AND P_D02 IS INITIAL. * MESSAGE E000 * WITH 'Please enter a number on Delivered After Plan Delivery'. * ENDIF. * * IF P_04 = 'X' AND P_D04 IS INITIAL. * MESSAGE E000 * WITH 'Please enter a number on Un-delivered Before Plan Delivery'. * ENDIF. * * IF P_05 = 'X' AND P_D05 IS INITIAL. * MESSAGE E000 * WITH 'Please enter a number on Un-delivered After Plan Delivery'. * ENDIF.
PERFORM PAI_OF_SELECTION_SCREEN.
*-------------------------------------------- AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI. *-------------------------------------------- PERFORM F4_FOR_VARIANT.
*-------------------------------------------- FORM START. *--------------------------------------------
PERFORM GET_EKKOTAB. PERFORM GET_EKPOTAB. PERFORM GET_ITAB1. PERFORM MOVE_ITAB1_TO_ITAB. * START INSERT BY SUCHON CH01 IF NOT S_WBS IS INITIAL. DELETE ITAB WHERE PS_PSP_PNR <> S_WBS. ENDIF. ENDFORM. "START * END INSERT BY SUCHON CH01
*-------------------------------------------- FORM GET_EKKOTAB. *-------------------------------------------- REFRESH EKKOTAB. CLEAR EKKOTAB.
SELECT EBELN LIFNR BEDAT WAERS INTO (EKKO-EBELN, EKKO-LIFNR, EKKO-BEDAT, EKKO-WAERS) FROM EKKO WHERE LIFNR IN S_LIFNR AND EKGRP IN S_EKGRP AND BEDAT IN S_BEDAT AND EBELN IN S_Purdoc. " INSERT BY SUCHON , CH01
MOVE EKKO-EBELN TO EKKOTAB-EBELN. MOVE EKKO-LIFNR TO EKKOTAB-LIFNR. MOVE EKKO-BEDAT TO EKKOTAB-BEDAT. MOVE EKKO-WAERS TO EKKOTAB-WAERS. APPEND EKKOTAB. CLEAR EKKOTAB.
ENDSELECT.
ENDFORM. "GET_EKKOTAB
*-------------------------------------------- FORM GET_EKPOTAB. *-------------------------------------------- REFRESH EKPOTAB. CLEAR EKPOTAB.
LOOP AT EKKOTAB.
SELECT EBELN EBELP MATNR TXZ01 MENGE MEINS NETPR ELIKZ BRTWR INTO (EKPO-EBELN, EKPO-EBELP, EKPO-MATNR, EKPO-TXZ01, EKPO-MENGE, EKPO-MEINS, EKPO-NETPR, EKPO-ELIKZ, EKPO-BRTWR) FROM EKPO WHERE EBELN = EKKOTAB-EBELN AND MATNR IN S_MATNR AND MATKL IN S_MATKL.
SELECT SINGLE EINDT INTO EKET-EINDT FROM EKET WHERE EBELN = EKPO-EBELN AND EBELP = EKPO-EBELP. MOVE EKKOTAB-LIFNR TO EKPOTAB-LIFNR. MOVE EKKOTAB-BEDAT TO EKPOTAB-BEDAT. MOVE EKKOTAB-WAERS TO EKPOTAB-WAERS. MOVE EKPO-EBELN TO EKPOTAB-EBELN. MOVE EKPO-EBELP TO EKPOTAB-EBELP. MOVE EKPO-MATNR TO EKPOTAB-MATNR. MOVE EKPO-TXZ01 TO EKPOTAB-TXZ01. MOVE EKPO-MENGE TO EKPOTAB-MENGE. MOVE EKPO-MEINS TO EKPOTAB-MEINS. MOVE EKPO-NETPR TO EKPOTAB-NETPR. MOVE EKPO-ELIKZ TO EKPOTAB-ELIKZ. MOVE EKET-EINDT TO EKPOTAB-EINDT. MOVE EKPO-BRTWR TO EKPOTAB-BRTWR. APPEND EKPOTAB. CLEAR EKPOTAB.
ENDSELECT.
ENDLOOP.
ENDFORM. "GET_EKPOTAB
*-------------------------------------------- FORM GET_ITAB1. *-------------------------------------------- DATA DVPLAN TYPE I. DATA COMMT(15) TYPE C. DATA tname LIKE thead-tdname.
REFRESH ITAB1. CLEAR ITAB1.
LOOP AT EKPOTAB.
SELECT SINGLE PS_PSP_PNR INTO (ITAB1-PS_PSP_PNR) FROM EKKN WHERE EBELN = EKPOTAB-EBELN AND EBELP = EKPOTAB-EBELP.
SELECT SINGLE POST1 INTO (ITAB1-POST1) FROM PRPS WHERE PSPNR = ITAB1-PS_PSP_PNR.
MOVE EKPOTAB-EBELN TO TNAME.
***************CALL HEADER NOTES******************* CALL FUNCTION 'READ_TEXT' EXPORTING id = 'F02' language = 'E' name = tname object = 'EKKO' TABLES lines = MTEXT EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. **************************************************** IF SY-SUBRC = 0. READ TABLE MTEXT INDEX 1 ."INTO itab1-h_note. MOVE MTEXT-TDLINE TO ITAB1-H_NOTE. ENDIF.
*Deliver - Select All WHEN '003'. IF ITAB1-BUDAT <> SPACE. MOVE-CORRESPONDING ITAB1 TO ITAB. APPEND ITAB. CLEAR ITAB. ENDIF. *UnDeliver - Select All WHEN '006'. IF ITAB1-BUDAT IS INITIAL OR ITAB1-BUDAT = ''. MOVE-CORRESPONDING ITAB1 TO ITAB. APPEND ITAB. CLEAR ITAB. ENDIF. *Select All WHEN '007'. MOVE-CORRESPONDING ITAB1 TO ITAB. APPEND ITAB. CLEAR ITAB.
ENDCASE. "VWCASE
ENDLOOP. "ITAB1
ENDFORM. "MOVE_ITAB1_TO_ITAB
*-------------------------------------------- FORM GET_FILTER_CASE. *-------------------------------------------- CLEAR VWCASE. MOVE '007' TO VWCASE. ENDFORM. "GET_FILTER_CASE
*-------------------------------------------- FORM F4_FOR_VARIANT. *-------------------------------------------- CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING IS_VARIANT = G_VARIANT I_SAVE = G_SAVE IMPORTING E_EXIT = G_EXIT ES_VARIANT = GX_VARIANT EXCEPTIONS NOT_FOUND = 2. IF SY-SUBRC = 2. MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. IF G_EXIT = SPACE. P_VARI = GX_VARIANT-VARIANT. ENDIF. ENDIF. ENDFORM. " F4_FOR_VARIANT
*-------------------------------------------- FORM PAI_OF_SELECTION_SCREEN. *-------------------------------------------- IF NOT P_VARI IS INITIAL. MOVE G_VARIANT TO GX_VARIANT. MOVE P_VARI TO GX_VARIANT-VARIANT. CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE' EXPORTING I_SAVE = G_SAVE CHANGING CS_VARIANT = GX_VARIANT. G_VARIANT = GX_VARIANT. ELSE. PERFORM INITIALIZE_VARIANT. ENDIF. ENDFORM. " PAI_OF_SELECTION_SCREEN
*-------------------------------------------- FORM COMMENT_BUILD CHANGING GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. *-------------------------------------------- DATA: GS_LINE TYPE SLIS_LISTHEADER.
CLEAR GS_LINE. GS_LINE-TYP = 'S'. GS_LINE-INFO = 'Purchase Order Performance Report'. APPEND GS_LINE TO GT_TOP_OF_PAGE. ENDFORM. "COMMENT_BUILD
*-------------------------------------------- FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT. *-------------------------------------------- CONSTANTS: GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'. DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LS_EVENT. IF SY-SUBRC = 0. MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM. APPEND LS_EVENT TO LT_EVENTS. ENDIF. ENDFORM. "EVENTTAB_BUILD
*-------------------------------------------- FORM TOP_OF_PAGE. *-------------------------------------------- CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE. ENDFORM. "TOP_OF_PAGE
*-------------------------------------------- FORM BUILD. *--------------------------------------------
ฝากข้อความหลังไมค์
Rss Feed
ผู้ติดตามบล็อก : 12 คน [
