Dear Elzkie,
Thanks for the Response.
Please check my some code and correct if i am wrong.
REPORT ZCRPT_SD LINE-SIZE225.
TABLES: VBRK, KNA1, KONV,VBRP,VBPA, PA0001, J_1IEXCDTL , VBAK,vbap, LIPS, T001,T001W,J_1IMTCHID,
J_1ICHIDTX.
TYPE-POOLS : SLIS.
DATA:VALUETYPE USR05-PARVA.
DATA: BEGINOF ITAB OCCURS0,
VBELN1 LIKE VBAK-VBELN,
AUDAT LIKE VBAK-AUDAT,
VBELN LIKE VBRK-VBELN,
POSNR LIKE VBRP-POSNR,
MATNR LIKE VBRP-MATNR,
WERKS LIKE VBRP-WERKS,
ARKTX LIKE VBRP-ARKTX,
FKIMG LIKE VBRP-FKIMG,
FKDAT LIKE VBRK-FKDAT,
FKART LIKE VBRK-FKART,
KUNAG LIKE VBRK-KUNAG,
WAERK LIKE VBRK-WAERK,
ERNAM LIKE VBRK-ERNAM,
KNUMV LIKE VBRK-KNUMV,
NETWR LIKE VBRK-NETWR,
KURRF LIKE VBRK-KURRF,
MWSBK LIKE VBRK-MWSBK,
MWSBP LIKE VBRP-MWSBP,
MWSBK1 LIKE VBRK-MWSBK,
ZJCSR LIKE KONV-KWERT,
ZJVAT LIKE KONV-KWERT,
ZJCST LIKE KONV-KWERT,
KWERT LIKE KONV-KWERT,
KBETR LIKE KONV-KBETR,
ZJEXP LIKE KONV-KWERT,
ZJECS LIKE KONV-KWERT,
ZJHSC LIKE KONV-KWERT,
ZJIVC LIKE KONV-KWERT,
ZVPRS LIKE KONV-KWERT,
ZGROP LIKE KONV-KWERT,
ZGRAMT LIKE KONV-KWERT,
ZPR00 LIKE KONV-KWERT,
VKORG LIKE VBRK-VKORG,
RFBSK LIKE VBRK-RFBSK,
NAME1 LIKE KNA1-NAME1,
* PERNR LIKE PA0001-PERNR,
PERNR LIKE VBPA-PERNR,
ENAME LIKE KNA1-NAME1,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
TEXT01(40) TYPEC,
TEXT02(40) TYPEC,
TEXT03(40) TYPEC,
*===== Added on 05.06.2013
CHID TYPE J_1ICHID, " Chapter ID
DES TYPE J_1ICHTX, " Chapter ID Description
CSRDT TYPE DATUM, " Customer Request date
RPIDT TYPE DATUM, " RPI/RPL Commited date
DAYS1 TYPE P0347-SCRDD,
DAYS2 TYPE P0347-SCRDD,
DAYS3 TYPE P0347-SCRDD,
DAYS4 TYPE P0347-SCRDD,
*{ INSERT DEVK900063 1
DAYS5 TYPE P0347-SCRDD,
DAYS6 TYPE P0347-SCRDD,
DAYS7 TYPE P0347-SCRDD,
ZKBETR type p DECIMALS3,
DKBETR type p DECIMALS3,
KURSK LIKE VBRP-KURSK,
*} INSERT
*===== End Added on 05.06.2013
END OF ITAB.
*===== Added on 05.06.2013
DATA: IT_VBAP TYPETABLEOF VBAP,
WA_VBAP TYPE VBAP.
DATA: IT_VBAK TYPETABLEOF VBAK,
WA_VBAK TYPE VBAK.
*DATA: IT_VBFA TYPE TABLE OF VBFA,
* WA_VBFA TYPE VBFA.
TYPES : BEGINOF TY_CHAPID,
MATNR TYPE J_1IMTCHID-MATNR,
J_1ICHID TYPE J_1IMTCHID-J_1ICHID,
ENDOF TY_CHAPID.
DATA: IT_CHPID TYPETABLEOF TY_CHAPID,
WA_CHPID TYPE TY_CHAPID.
DATA: IT_DES TYPETABLEOF J_1ICHIDTX,
WA_DES TYPE J_1ICHIDTX.
*===== End Added on 05.06.2013
*===== Start Added on 10.06.2013
TYPES: BEGINOF TY_VBFA,
VBELV TYPE VBFA-VBELV,
POSNV TYPE VBFA-POSNV,
VBELN TYPE VBFA-VBELN,
VBTYP_N TYPE VBFA-VBTYP_N,
ENDOF TY_VBFA.
DATA: IT_VBFA TYPETABLEOF TY_VBFA,
WA_VBFA TYPE TY_VBFA.
*===== End Added on 10.06.2013
*----------------------------------------------------------------------*
* ALV Declaration *
*----------------------------------------------------------------------*
DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,
HEADING TYPE SLIS_T_LISTHEADER,
LAYOUT TYPE SLIS_LAYOUT_ALV,
EVENTS TYPE SLIS_T_EVENT,
REPNAME LIKE SY-REPID,
F2CODE LIKE SY-UCOMM VALUE '&ETA',
G_SAVE(1) TYPEC,
G_VARIANT LIKE DISVARIANT,
GX_VARIANT LIKE DISVARIANT,
G_EXIT(1) TYPEC.
DATA: KEYINFO TYPE SLIS_KEYINFO_ALV.
CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE'TOP_OF_PAGE'.
DATA: ALV_PRINT TYPE SLIS_PRINT_ALV.
DATA: ALV_DETAIL_FUNC(30).
DATA V_TABIX LIKE SY-TABIX.
**********End of Declaration for alv
DATA: IT_KONV LIKE KONV OCCURS10WITHHEADERLINE.
DATA: TABIX LIKE SY-TABIX.
DATA: LD_COLOR(1) TYPEC.
DATA : IT_ZSALES_DISPLAY TYPETABLEOF ZSALES_DISPLAY,
WA_ZSALES_DISPLAY TYPE ZSALES_DISPLAY.
TYPES : BEGINOF TY_KNVP,
KUNNR TYPE KUNNR,
VKORG TYPE VKORG,
PARVW TYPE PARVW,
PERNR TYPE PERNR_D,
* PERNR TYPE PERNR,
ENDOF TY_KNVP.
DATA : IT_KNVP TYPETABLEOF TY_KNVP,
WA_KNVP TYPE TY_KNVP.
TYPES : BEGINOF TY_VBPA,
VBELN TYPE VBELN,
PERNR TYPE PERNR_D,
* PERNR TYPE PERNR,
ENDOF TY_VBPA.
DATA : GIT_VBPA TYPETABLEOF TY_VBPA,
GWA_VBPA TYPE TY_VBPA.
TYPES : BEGINOF TY_PA0001,
PERNR TYPE PERSNO,
ENAME TYPE EMNAM,
ENDOF TY_PA0001.
DATA : IT_PA0001 TYPETABLEOF TY_PA0001,
WA_PA0001 TYPE TY_PA0001.
*For ALV Variant
SELECTION-SCREENBEGINOFBLOCK D WITHFRAMETITLETEXT-004.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT. " ALV Variant
SELECTION-SCREENENDOFBLOCK D.
SELECTION-SCREENBEGINOFBLOCK DOCDATA WITHFRAMETITLETEXT-DOC.
SELECT-OPTIONS: KUNAG FOR VBRK-KUNAG,
VBELN FOR VBRK-VBELN,
FKDAT FOR VBRK-FKDAT OBLIGATORY,
FKART FOR VBRK-FKART,
S_PERNR FOR PA0001-PERNR MATCHCODE OBJECT ZCSH_PER,
MATNR FOR VBRP-MATNR,
WERKS FOR VBRP-WERKS OBLIGATORY,
VKORG FOR VBRK-VKORG.
SELECTION-SCREENENDOFBLOCK DOCDATA.
SELECTION-SCREENBEGINOFBLOCK SPERRE WITHFRAMETITLETEXT-INC.
PARAMETERS: POPEN RADIOBUTTONGROUPCDEFAULT'X',
PNOTOPEN RADIOBUTTONGROUPC.
SELECTION-SCREENEND OFBLOCK SPERRE.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
INITIALIZATION.
CALLFUNCTION'ACC_USER_PARAMETER_GET'
EXPORTING
I_PARAM_ID = 'ZSD_PROFMARG'
IMPORTING
E_PARAM_VALUE = VALUE.
REPNAME = SY-REPID.
PERFORM BUILD_EVENTTAB USINGEVENTS[].
PERFORM BUILD_LAYOUT .
PERFORM INITIALIZE_VARIANT.
AT SELECTION-SCREENONVALUE-REQUEST FOR P_VARI.
PERFORM F4_FOR_VARIANT.
AT SELECTION-SCREEN.
PERFORM PAI_OF_SELECTION_SCREEN.
START-OF-SELECTION.
PERFORM BUILD_COMMENT USING HEADING[].
PERFORM INITIALISE_FIELDTAB.
PERFORM GET_DATA.
PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
*DATA : AUDAT TYPE DATUM.
SELECT VBRK~VBELN
VBRK~VKORG
VBRK~FKART
VBRK~FKDAT
VBRK~KUNAG
VBRK~KNUMV
VBRK~VTWEG
VBRK~WAERK
VBRK~ERNAM
VBRK~NETWR
VBRK~RFBSK
VBRK~MWSBK
VBRK~WAERK
VBRK~KURRF
VBRP~VBELN
VBRP~POSNR
VBRP~MATNR
VBRP~ARKTX
VBRP~PSTYV
VBRP~WERKS
VBRP~FKIMG
VBRP~MATKL
VBRP~UEPOS
VBRP~MWSBP
*{ INSERT DEVK900063 2
*
VBRP~KURSK
*} INSERT
VBRP~VRKME
* VBAK~VBELN
* VBAK~AUDAT
* mara~mtart mara~labor mara~kosch
* vbkd~bstdk vbkd~bstkd
* vbup~lfsta
INTO CORRESPONDING FIELDSOFTABLE ITAB
FROM VBRK INNER JOIN VBRP
ON VBRK~VBELN EQ VBRP~VBELN
* INTO CORRESPONDING FIELDS OF TABLE ITAB
* FROM VBRK INNER JOIN VBRP
* ON VBRK~VBELN EQ VBRP~VBELN
* INNER JOIN VBRK ON VBRK~VBELN = VBRK~VBELN
* LEFT JOIN PA0001 ON PA0001~PERNR = VBPA~PERNR
* inner join mara as mara
* on mara~matnr eq vbrp~matnr
* left join vbkd as vbkd
* on vbkd~vbeln eq vbrp~vbeln
* and vbkd~posnr eq vbrp~posnr
* inner join VBAK as VBAK
* on VBAK~AUDAT eq VBRK~VBELN
* inner join vbup as vbup
* on vbup~vbeln eq vbrp~vbeln
* and vbup~posnr eq vbrp~posnr
WHERE VBRK~VBELN IN VBELN
* and ( vbrp~posnr in s_posnr
* or vbrp~uepos in s_posnr )
* AND vbpa~pernr IN S_PERNR
AND VBRK~VKORG IN VKORG
AND VBRK~FKART IN FKART
AND VBRK~FKDAT IN FKDAT
AND VBRK~KUNAG IN KUNAG
AND VBRP~MATNR IN MATNR
AND VBRP~WERKS IN WERKS
AND VBRK~SFAKN EQ SPACE
AND VBRK~FKSTO EQ SPACE.
* AND VBAK~VBELN1 EQ VBELN.
*Select * from vbrk into table vbrk where vbeln in s_vbeln.
*
*If it_vbrk is not initial.
*
*Select * from vbap into table it_vbap for all entries in it_VBAK
* Where vbeln = it-vbrk-vbeln and matnr in s_matnr.
*
*Endif.
* select * from vbrk INTO CORRESPONDING FIELDS OF TABLE itab
* where fkdat in fkdat
* and fkart in fkart
* and kunag in kunag
* and vkorg in vkorg
* and sfakn eq space
* and fksto eq space.
IF ITAB[] ISNOTINITIAL.
*SELECT KUNNR VKORG PARVW PERNR
* FROM KNVP
* INTO CORRESPONDING FIELDS OF TABLE IT_KNVP
* FOR ALL ENTRIES IN ITAB
* WHERE KUNNR = ITAB-KUNAG AND
* VKORG = ITAB-VKORG AND
* PARVW IN ('AF','PE').
SELECT VBELN PERNR
FROM VBPA
INTOTABLE GIT_VBPA
FORALL ENTRIES IN ITAB
WHERE VBELN = ITAB-VBELN AND
PARVW IN ('AF','PE').
IF GIT_VBPA[] ISNOTINITIAL.
SELECT PERNR ENAME
FROM PA0001
INTOTABLE IT_PA0001
FORALL ENTRIES IN GIT_VBPA
WHERE PERNR = GIT_VBPA-PERNR.
ENDIF.
ENDIF.
CHECK SY-SUBRC = 0.
SORT ITAB BY VBELN POSNR KUNAG.
DELETEADJACENTDUPLICATESFROM ITAB COMPARINGALLFIELDS.
