Sales Order Changed History Display

*
* Sales Order Changed History Display
*
* You can execute the report by :
* 1.  Change Date
* 2.  User Name
* 3.  Sales Order Number
*
* Submitted by : SAP Basis, ABAP Programming and Other IMG Stuff
*                https://www.erpgreat.com
*
REPORT ZSDCHANGE LINE-SIZE 132 NO STANDARD PAGE HEADING
                 LINE-COUNT 065(001)
                 MESSAGE-ID VR.

TABLES: DD04T,
        CDHDR,
        CDPOS,
        DD03L,
        DD41V,
        T685T,
        VBPA,
        TPART,
        KONVC,
        VBUK.

DATA: BEGIN OF ICDHDR OCCURS 50.
        INCLUDE STRUCTURE CDHDR.
DATA: END OF ICDHDR.

SELECT-OPTIONS: XUDATE FOR ICDHDR-UDATE,
                XNAME  FOR ICDHDR-USERNAME,
                XVBELN FOR VBUK-VBELN.

SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: SUDATE RADIOBUTTON GROUP R1,
            SNAME  RADIOBUTTON GROUP R1,
            SOBID  RADIOBUTTON GROUP R1.
SELECTION-SCREEN END OF BLOCK BLK1.

DATA: WFLAG,
      WCHANGENR LIKE CDHDR-CHANGENR,
      WUDATE LIKE CDHDR-UDATE,
      WNAME  LIKE CDHDR-USERNAME,
      WVBELN LIKE VBUK-VBELN,
      WDEC1 TYPE P DECIMALS 3,
      WDEC2 TYPE P DECIMALS 3,
      WDEC3 TYPE P DECIMALS 3,
      WDEC4 TYPE P DECIMALS 3.

DATA: UTEXT(16) VALUE 'has been changed',
      ITEXT(16) VALUE 'has been created',
      DTEXT(16) VALUE 'has been deleted'.

DATA: BEGIN OF ICDSHW OCCURS 50.
        INCLUDE STRUCTURE CDSHW.
DATA: END OF ICDSHW.

DATA: BEGIN OF ITAB OCCURS 10.
        INCLUDE STRUCTURE CDSHW.
DATA:   UDATE LIKE CDHDR-UDATE,
        USERNAME LIKE CDHDR-USERNAME,
        CHANGENR LIKE CDHDR-CHANGENR,
        VBELN(10),
        POSNR(6),
        ETENR(4),
        INDTEXT(200),
  END OF ITAB.

SELECT * FROM VBUK WHERE VBELN IN XVBELN.
  CLEAR CDHDR.
  CLEAR CDPOS.
  CDHDR-OBJECTCLAS = 'VERKBELEG'.
  CDHDR-OBJECTID   = VBUK-VBELN.
  PERFORM READHEADER.
  PERFORM READPOS.
  LOOP AT ITAB.
    CASE ITAB-TABNAME.
      WHEN 'VBPA'.
        IF ITAB-FNAME = 'KUNNR' OR
           ITAB-FNAME = 'LIFNR' OR
           ITAB-FNAME = 'PARNR' OR
           ITAB-FNAME = 'PERNR' OR
           ITAB-FNAME IS INITIAL.
         MOVE ITAB-TABKEY TO VBPA.
         SELECT SINGLE * FROM TPART WHERE SPRAS = SY-LANGU
                                   AND   PARVW = VBPA-PARVW.
         IF SY-SUBRC = 0.
           REPLACE '&' WITH TPART-VTEXT INTO ITAB-INDTEXT.
         ENDIF.
       ENDIF.
     WHEN 'VBAP'.
       IF ITAB-FNAME IS INITIAL.
         REPLACE '&' WITH 'Item' INTO ITAB-INDTEXT.
       ENDIF.
     WHEN 'KONVC'.
       MOVE ITAB-TABKEY TO KONVC.
       SELECT SINGLE * FROM T685T WHERE SPRAS = SY-LANGU
                                 AND   KVEWE = 'A'
                                 AND   KAPPL = 'V'
                                 AND   KSCHL = KONVC-KSCHL.
       IF SY-SUBRC = 0.
         REPLACE '&' WITH T685T-VTEXT INTO ITAB-INDTEXT.
       ENDIF.
     ENDCASE.
     IF ITAB-INDTEXT(1) EQ '&'.
       REPLACE '&' WITH ITAB-FTEXT(40) INTO ITAB-INDTEXT.
     ENDIF.
     IF ITAB-CHNGIND = 'I'.
       REPLACE '%' WITH ITEXT INTO ITAB-INDTEXT.
     ELSEIF ITAB-CHNGIND = 'U'.
       REPLACE '%' WITH UTEXT INTO ITAB-INDTEXT.
     ELSE.
       REPLACE '%' WITH DTEXT INTO ITAB-INDTEXT.
     ENDIF.
     CONDENSE ITAB-INDTEXT.
     MODIFY ITAB.
   ENDLOOP.
ENDSELECT.

IF SUDATE = 'X'.
  SORT ITAB BY UDATE VBELN POSNR ETENR.
ELSEIF SOBID = 'X'.
  SORT ITAB BY VBELN POSNR ETENR UDATE.
ELSE.
  SORT ITAB BY USERNAME VBELN POSNR ETENR UDATE.
ENDIF.

LOOP AT ITAB.
  CLEAR WFLAG.
  IF SUDATE = 'X'.
    IF WUDATE NE ITAB-UDATE.
      SKIP.
      WRITE:/001 ITAB-UDATE,
             023 ITAB-USERNAME,
             037(10) ITAB-VBELN.
      WFLAG = 'X'.
      WUDATE = ITAB-UDATE.
      WCHANGENR = ITAB-CHANGENR.
    ENDIF.
  ELSEIF SOBID NE 'X'.
    IF WVBELN NE ITAB-VBELN.
      SKIP.
      WRITE:/001 ITAB-VBELN.
      WVBELN = ITAB-VBELN.
    ENDIF.
  ELSE.
    IF WNAME NE ITAB-USERNAME.
      SKIP.
      WRITE:/001 ITAB-USERNAME.
      WNAME = ITAB-USERNAME.
    ENDIF.
  ENDIF.
  IF WCHANGENR NE ITAB-CHANGENR.
    WRITE:/023 ITAB-USERNAME,
           037(10) ITAB-VBELN.
       WFLAG = 'X'.
       WCHANGENR = ITAB-CHANGENR.
    ENDIF.
    IF WFLAG = 'X'.
      WRITE: 013 ITAB-CHNGIND,
             049 ITAB-POSNR,
             057 ITAB-ETENR,
             065 ITAB-INDTEXT(60).
    ELSE.
      WRITE: /013 ITAB-CHNGIND,
              049 ITAB-POSNR,
              057 ITAB-ETENR,
              065 ITAB-INDTEXT(60).
    ENDIF.
  WRITE:/065 ITAB-F_OLD.
  WRITE:/065 ITAB-F_NEW.
ENDLOOP.

FORM READHEADER.
  CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
       EXPORTING
            DATE_OF_CHANGE    = CDHDR-UDATE
            OBJECTCLASS       = CDHDR-OBJECTCLAS
            OBJECTID          = CDHDR-OBJECTID
            TIME_OF_CHANGE    = CDHDR-UTIME
            USERNAME          = CDHDR-USERNAME
       TABLES
            I_CDHDR           = ICDHDR
       EXCEPTIONS
            NO_POSITION_FOUND = 1
            OTHERS            = 2.

  CASE SY-SUBRC.
    WHEN '0000'.
    WHEN '0001'.
      MESSAGE S311.
      LEAVE.
    WHEN '0002'.
      MESSAGE S311.
      LEAVE.
  ENDCASE.
ENDFORM.

FORM READPOS.
  LOOP AT ICDHDR.
    CHECK ICDHDR-UDATE
                        IN XUDATE.
    CHECK ICDHDR-USERNAME
                          IN XNAME.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
         EXPORTING
              CHANGENUMBER      = ICDHDR-CHANGENR
              TABLEKEY          = CDPOS-TABKEY
              TABLENAME         = CDPOS-TABNAME
         IMPORTING
              HEADER            = CDHDR
         TABLES
              EDITPOS           = ICDSHW
         EXCEPTIONS
              NO_POSITION_FOUND = 1
              OTHERS            = 2.
    CASE SY-SUBRC.
      WHEN '0000'.
        LOOP AT ICDSHW.
          CHECK ICDSHW-CHNGIND NE 'E'.
          CLEAR ITAB.
          MOVE-CORRESPONDING ICDHDR TO ITAB.
          MOVE-CORRESPONDING ICDSHW TO ITAB.
          CASE ITAB-TABNAME.
            WHEN 'KONVC'.
              MOVE ICDHDR-OBJECTID TO ITAB-VBELN.
              MOVE ICDSHW-TABKEY(6) TO ITAB-POSNR.
            WHEN OTHERS.
              MOVE ICDSHW-TABKEY+3(10)  TO ITAB-VBELN.
              MOVE ICDSHW-TABKEY+13(6)  TO ITAB-POSNR.
              MOVE ICDSHW-TABKEY+19(4)  TO ITAB-ETENR.
          ENDCASE.
          MOVE '& %' TO ITAB-INDTEXT.
          APPEND ITAB.
          CLEAR ITAB.
        ENDLOOP.
      WHEN OTHERS.
        MESSAGE S311.
        LEAVE.
    ENDCASE.
  ENDLOOP.
ENDFORM.


TOP-OF-PAGE.
WRITE:/ SY-DATUM,SY-UZEIT,
       50 'SALES ORDER CHANGE HISTORY',
      120 'Page', SY-PAGNO.
WRITE: / SY-REPID,
         60 'SALES ORDERS STATISTICS'.
SKIP.
ULINE.
IF SUDATE = 'X'.
  WRITE:/001 'Change Date',
         013 'Time',
         023 'User Name',
         037 'Sale Order',
         049 'Line',
         057 'Sch No',
         065 'Changes'.
ELSEIF SOBID = 'X'.
  WRITE:/001 'Sale Order',
         013 'Line',
         021 'Sch No',
         029 'Change Date',
         041 'Time',
         051 'User Name',
         065 'Comment'.
ELSE.
  WRITE:/001 'User Name',
         015 'Time',
         025 'Change Date',
         037 'Sale Order',
         049 'Line',
         057 'Sch No',
         065 'Changes'.
ENDIF.
ULINE.
*--- End of Program

Fast Links:
BDC program examples:
Auto Disallowed Back Posting to Previous Period

Get help for your ABAP problems
Do you have a ABAP Question?

SAP Books
SAP Certification, Functional, Basis Administration and ABAP Programming Reference Books

ABAP Programming Tips
ABAP and Samples Program Codes for Abapers

Best regards,
SAP Basis, ABAP Programming and Other IMG Stuff
http://www.erpgreat.com

All the site contents are Copyright © www.erpgreat.com and the content authors. All rights reserved.
All product names are trademarks of their respective companies.  The site www.erpgreat.com is in no way affiliated with SAP AG. 
Every effort is made to ensure the content integrity.  Information used on this site is at your own risk. 
 The content on this site may not be reproduced or redistributed without the express written permission of 
www.erpgreat.com or the content authors.