Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
Sergiu
Contributor
0 Kudos
Good day!

This is a very quick post. I could not find an example when I needed so I decided to write this quick post. The FORM inside the report returns the last change of a characteristics value from material batch.

Tcode:MSC2N.



In case you need to add more details you have to adapt the code analyzing SE38: LCHRGF05, FORM: init_class.



REPORT  ZCDHDR_AUSP_MCH1.
*&---------------------------------------------------------------------*
*& AUTHOR: IATCO SERGIU
*& DATE: 05.05.2017
*&---------------------------------------------------------------------*

REPORT ZCDHDR_AUSP_MCH1.
TABLES: AUSP, INOB, CABN, MCH1, CDPOS, CDHDR.


DATA: &UDATE LIKE CDHDR-UDATE.
DATA: &UTIME LIKE CDHDR-UTIME.

PARAMETERS P_CHR LIKE CABN-ATNAM.
PARAMETERS: P_MAT LIKE MCH1-MATNR.
PARAMETERS: P_CHA LIKE MCH1-CHARG.

START-OF-SELECTION.

PERFORM F_CHANGENR_LAST USING
P_CHR
P_MAT
P_CHA
&UDATE
&UTIME.

WRITE: / &UDATE, &UTIME.

FORM F_CHANGENR_LAST USING P_CHR LIKE CABN-ATNAM
P_MAT LIKE MCH1-MATNR
P_CHA LIKE MCH1-CHARG
CHANGING
_UDATE TYPE UDATE
_UTIME TYPE UTIME.
DATA: _AUSP TYPE AUSP.
DATA: _CDPOS TYPE CDPOS.
DATA: _CHR LIKE CABN-ATNAM.
DATA: _MATNR_CHARG LIKE INOB-OBJEK.
CONCATENATE P_MAT P_CHA INTO _MATNR_CHARG.

SELECT SINGLE * FROM MCH1 WHERE MATNR = P_MAT AND
CHARG = P_CHA.

CHECK SY-SUBRC EQ 0.

SELECT * INTO CORRESPONDING FIELDS OF _AUSP
FROM INOB
JOIN AUSP ON INOB~CUOBJ = AUSP~OBJEK
JOIN CABN ON CABN~ATINN = AUSP~ATINN
WHERE
CABN~ATNAM = P_CHR AND
INOB~OBJEK = _MATNR_CHARG AND
CABN~ATEIN = 'X'.
ENDSELECT.

CONCATENATE _AUSP-OBJEK _AUSP-MAFID INTO _CDPOS-OBJECTID.
CONCATENATE _AUSP-OBJEK _AUSP-ATINN '%' INTO _CDPOS-TABKEY.

_CDPOS-OBJECTCLAS = 'CLASSIFY'.
_CDPOS-TABNAME = 'ABAUSP'.

DATA: L_CDPOS LIKE CDPOS.
DATA: I_CDPOS LIKE STANDARD TABLE OF L_CDPOS.

SELECT * FROM CDPOS INTO CORRESPONDING FIELDS OF TABLE I_CDPOS
* ORDER BY CHANGNR DESCENDING " NOT ALLOWED FOR POOLED AND CLUSTER
WHERE
OBJECTCLAS = _CDPOS-OBJECTCLAS AND
OBJECTID = _CDPOS-OBJECTID AND
TABNAME = _CDPOS-TABNAME AND
TABKEY LIKE _CDPOS-TABKEY.
* TABKEY GE _CDPOS-TABKEY.

SORT I_CDPOS BY OBJECTCLAS OBJECTID CHANGENR DESCENDING TABNAME TABKEY ASCENDING.

FIELD-SYMBOLS: <FR> LIKE L_CDPOS.
CHECK I_CDPOS[] IS NOT INITIAL.

READ TABLE I_CDPOS INDEX 1 ASSIGNING <FR>.
WRITE: / <FR>-CHANGENR.

DATA: L_CDHDR LIKE CDHDR.
SELECT SINGLE * FROM CDHDR INTO L_CDHDR
WHERE
OBJECTCLAS = <FR>-OBJECTCLAS AND
OBJECTID = <FR>-OBJECTID AND
CHANGENR = <FR>-CHANGENR.

_UDATE = L_CDHDR-UDATE.
_UTIME = L_CDHDR-UTIME.

ENDFORM.

Same report using ABAP classes.

REPORT ZCDHDR_AUSP_MCH1_OO.
*&---------------------------------------------------------------------*
*& AUTHOR: IATCO SERGIU
*& DATE: 05.05.2017
*&---------------------------------------------------------------------*

REPORT ZCDHDR_AUSP_MCH1_OO.

DATA: &UDATE LIKE CDHDR-UDATE.
DATA: &UTIME LIKE CDHDR-UTIME.

PARAMETERS P_CHR LIKE CABN-ATNAM.
PARAMETERS: P_MAT LIKE MCH1-MATNR.
PARAMETERS: P_CHA LIKE MCH1-CHARG.

CLASS CDHDR_AUSP DEFINITION.
PUBLIC SECTION.
METHODS: LAST_CHANGE
IMPORTING
I_CHR TYPE ANY
I_MAT TYPE ANY
I_CHA TYPE ANY
EXPORTING
E_UDATE TYPE ANY
E_UTIME TYPE ANY.
ENDCLASS.

CLASS CDHDR_AUSP IMPLEMENTATION.
METHOD LAST_CHANGE.
DATA: _AUSP TYPE AUSP.
DATA: _CDPOS TYPE CDPOS.
DATA: _CHR TYPE ATNAM.

DATA: _MATNR_CHARG TYPE CUOBN.
DATA: WA_MCH1 TYPE MCH1.

CONCATENATE I_MAT I_CHA INTO _MATNR_CHARG.

SELECT SINGLE * FROM MCH1
INTO WA_MCH1
WHERE MATNR = P_MAT AND
CHARG = P_CHA.

CHECK SY-SUBRC EQ 0.

SELECT * INTO CORRESPONDING FIELDS OF _AUSP
FROM INOB
JOIN AUSP ON INOB~CUOBJ = AUSP~OBJEK
JOIN CABN ON CABN~ATINN = AUSP~ATINN
WHERE
CABN~ATNAM = I_CHR AND
INOB~OBJEK = _MATNR_CHARG AND
CABN~ATEIN = 'X'.
ENDSELECT.

CONCATENATE _AUSP-OBJEK _AUSP-MAFID INTO _CDPOS-OBJECTID.
CONCATENATE _AUSP-OBJEK _AUSP-ATINN '%' INTO _CDPOS-TABKEY.

_CDPOS-OBJECTCLAS = 'CLASSIFY'.
_CDPOS-TABNAME = 'ABAUSP'.

DATA: I_CDPOS TYPE STANDARD TABLE OF CDPOS.

SELECT * FROM CDPOS INTO CORRESPONDING FIELDS OF TABLE I_CDPOS
* ORDER BY CHANGNR DESCENDING " NOT ALLOWED FOR POOLED AND CLUSTER
WHERE
OBJECTCLAS = _CDPOS-OBJECTCLAS AND
OBJECTID = _CDPOS-OBJECTID AND
TABNAME = _CDPOS-TABNAME AND
TABKEY LIKE _CDPOS-TABKEY.
* TABKEY GE _CDPOS-TABKEY.

SORT I_CDPOS BY OBJECTCLAS OBJECTID CHANGENR DESCENDING TABNAME TABKEY ASCENDING.

FIELD-SYMBOLS: <FR> TYPE CDPOS.
CHECK I_CDPOS[] IS NOT INITIAL.

READ TABLE I_CDPOS INDEX 1 ASSIGNING <FR>.
* WRITE: / <FR>-CHANGENR.

DATA: WA_CDHDR TYPE CDHDR.

SELECT SINGLE * FROM CDHDR INTO WA_CDHDR
WHERE
OBJECTCLAS = <FR>-OBJECTCLAS AND
OBJECTID = <FR>-OBJECTID AND
CHANGENR = <FR>-CHANGENR.

E_UDATE = WA_CDHDR-UDATE.
E_UTIME = WA_CDHDR-UTIME.

ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.

DATA O_CDHDR_AUSP TYPE REF TO CDHDR_AUSP.
CREATE OBJECT: O_CDHDR_AUSP.

CALL METHOD O_CDHDR_AUSP->LAST_CHANGE
EXPORTING
I_CHR = P_CHR
I_MAT = P_MAT
I_CHA = P_CHA
IMPORTING
E_UDATE = &UDATE
E_UTIME = &UTIME.

WRITE: / &UDATE, &UTIME.

Selection screen:



Output:



Please notice that this is not a fully functional report. The code is provided in a simple report in order to show the way the code works.

Regards,

Sergiu Iatco
Labels in this area