Sales document flow

Question

hi sap
hw can i write a logic to relate vbak,likp,mkpf,vttk,vbrk to view document flow for sales order.
in display i need sales order number, delivery document,invoice doc,shipment doc, pgi doc.
pls help in step by step of start of selection.
\[removed by moderator\]
thanx in advance.
Edited by: Jan Stallkamp on Aug 6, 2008 2:26 PM

Answer 1

Hi Sapna,
You can check this code... this will be helpful
Sales life cycle.
REPORT Z_SD_LC_REPS_S NO STANDARD PAGE HEADING
                        LINE-SIZE 130
                        LINE-COUNT 26(3).
TABLES :
       VBAK,
       VBAP,
       VBEP,
       LIKP,
       LIPS,
       MARA,
       MVKE,
       VBRK,
       TVLKT.
DATA : BEGIN OF I_SDLC OCCURS 0,
          VBELN LIKE VBAK-VBELN,
          AUDAT LIKE VBAK-AUDAT,
          VGBEL LIKE VBAK-VGBEL,
          VGBEL1 LIKE VBAK-VGBEL,
          MATNR LIKE VBAP-MATNR,
          BMENG LIKE VBEP-BMENG,
          NETPR LIKE VBAP-NETPR,
          LFDAT LIKE LIKP-LFDAT,
          FKDAT LIKE VBRK-FKDAT,
          AUART LIKE VBAK-AUART,
       END OF I_SDLC.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-TAT.
SELECT-OPTIONS: S_AUDAT FOR VBAK-AUDAT,
                S_VKORG FOR VBAK-VKORG,
                S_VTWEG FOR VBAK-VTWEG,
                S_SPART FOR VBAK-SPART.
SELECTION-SCREEN END OF BLOCK B1.
TOP-OF-PAGE.
WRITE : /20 ' REPORT ON COMPLETE SALES LIFE CYCLE IN A PARTICULAR SALES
AREA ' COLOR COL_HEADING.
ULINE.
WRITE: /5 'VBELN' ,
       15 'AUDAT' ,
       26 'MATNR' ,
       45 'BMENG' ,
       64 'NETPR' ,
       81 'LFDAT',
       92 'FKDAT' ,
       103 'AUART' ,
       108 'VGBEL',
       119 'VGBEL1'.
ULINE.
START-OF-SELECTION.
SELECT A~VBELN
       A~AUDAT
       A~AUART
       A~VGBEL
       B~MATNR
       B~NETPR
       C~BMENG
*       D~LFDAT
*       E~FKDAT
  INTO CORRESPONDING FIELDS OF TABLE I_SDLC  FROM
  ( ( VBAK AS A
  INNER JOIN VBAP AS B ON B~VBELN = A~VBELN )
  INNER JOIN VBEP AS C ON C~VBELN = A~VBELN AND B~POSNR = C~POSNR )
*  INNER JOIN LIKP AS D ON D~VBELN = A~VBELN )
*  INNER JOIN VBRK AS E ON E~VBELN = A~VBELN )
  WHERE A~VBELN IN S_VBELN AND
        A~AUDAT IN S_AUDAT AND
        A~VKORG IN S_VKORG AND
        A~VTWEG IN S_VTWEG AND
        A~SPART IN S_SPART AND
        A~AUART = 'ZZOR'.
LOOP AT I_SDLC.
   SELECT LFDAT INTO CORRESPONDING FIELDS OF I_SDLC
          FROM LIKP WHERE VBELN = I_SDLC-VBELN.
   SELECT FKDAT INTO CORRESPONDING FIELDS OF I_SDLC
          FROM VBRK WHERE VBELN = I_SDLC-VBELN.
   MODIFY I_SDLC INDEX SY-TABIX.
   ENDSELECT.
   ENDSELECT.
   SELECT VGBEL INTO I_SDLC-VGBEL1 FROM VBAK
         WHERE  VBELN = I_SDLC-VGBEL.
         "AND AUART = 'QT'.
    MODIFY I_SDLC INDEX SY-TABIX.
   ENDSELECT.
ENDLOOP.
END-OF-SELECTION.
LOOP AT I_SDLC.
AT NEW VBELN.
WRITE : /5 I_SDLC-VBELN.
ENDAT.
WRITE :/15 I_SDLC-AUDAT ,
       26 I_SDLC-MATNR ,
       45 I_SDLC-BMENG LEFT-JUSTIFIED,
       64 I_SDLC-NETPR LEFT-JUSTIFIED,
       81 I_SDLC-LFDAT ,
       92 I_SDLC-FKDAT ,
       103 I_SDLC-AUART,
       108 I_SDLC-VGBEL,
       119 I_SDLC-VGBEL1.
ENDLOOP.
END-OF-PAGE.
WRITE: /75 'PAGE:', SY-PAGNO.
regards
padma