SAP Note 23603 - Sort by document age: RFKORD10, RDKORD11

Symptom:

Sorting by document age is not available in the reports RFKORD10 and RDKORD11.

Cause and prerequisites

Was not programmed yet.

Solution
In the standard system for Release 3.0A and later

Advance correction for releases in which the sorted list has already been installed in the reports RFKORD10 and RFKORD11:

Parameter RART-ALT is used to select sorting by document age
Parameter RBLDAT is used to select the document date (instead of the
posting date) for sorting.

The new and changed lines are marked below with "<".

Report RFKORI02:
<
UTAGE(3) TYPE P, <
*---- ATAGE = Tage fuer Belegalterrasterung ----------------------* <
ATAGE(3) TYPE P.

Report RFKORD10 (RFKORD11):

Text symbols:

104 Document date__;;
105 Document age sorting

Source code:

SELECTION-SCREEN BEGIN OF LINE. <
PARAMETERS RART-ALT AS CHECKBOX. <
SELECTION-SCREEN COMMENT 03(28) TEXT-105. <
SELECTION-SCREEN POSITION 51. <
PARAMETERS RBLDAT AS CHECKOX. <
SELECTION-SCREEN COMMENT 61(12) TEXT-104. <
SELECTION-SCREEN END OF LINE. <


OR NOT RART-UEB IS INITIAL <
OR NOT RART-ALT IS INITIAL. <
PERFORM RASTER_AUFBAU.
ENDIF.


OR NOT RART-UEB IS INITIAL
OR NOT RART-ALT IS INITIAL <
OR NOT RVZTAG IS INITIAL.
IF VSTID IS INITIAL


IF NOT RART-UEB IS INITIAL.
UTAGE = RF140-VSTID - HBSID-NETDT.
PERFORM FILL_WAEHRUNGSFELDER_BSIDK_2.
PERFORM RASTERN USING HBSID-BUKRS HBSID-BSTAT UTAGE '4'
RF140-WRSHB HBSID-WAERS.
ENDIF.
IF NOT RART-ALT IS INITIAL. <
IF RBLDAT IS INITIAL. <
ATAGE = RF140-VSTID - HBSID-BUDAT. <
ELSE. <
ATAGE = RF140-VSTID - HBSID-BLDAT. <
ENDIF. <
PERFORM FILL_WAEHRUNGSFELDER_BSIDK_2. <
PERFORM RASTERN USING HBSID-BUKRS HBSID-BSTAT ATAGE '5' <
RF140-WRSHB HBSID-WAERS. <
ENDIF. <


IF NOT RART-UEB IS INITIAL.
UTAGE = RF140-VSTID - HBSIK-NETDT.
PERFORM FILL_WAEHRUNGSFELDER_BSIDK_2.
PERFORM RASTERN USING HBSIK-BUKRS HBSIK-BSTAT UTAGE '4'
RF140-WRSHB HBSIK-WAERS.
ENDIF.
IF NOT RART-ALT IS INITIAL. <
IF RBLDAT IS INITIAL. <
ATAGE = RF140-VSTID - HBSIK-BUDAT. <
ELSE. <
ATAGE = RF140-VSTID - HBSIK-BLDAT. <
ENDIF. <
PERFORM FILL_WAEHRUNGSFELDER_BSIDK_2. <
PERFORM RASTERN USING HBSIK-BUKRS HBSIK-BSTAT ATAGE '5' <
RF140-WRSHB HBSIK-WAERS. <
ENDIF. <


IF NOT RART-UEB IS INITIAL.
UTAGE = RF140-VSTID - HBSAD-NETDT.
PERFORM FILL_WAEHRUNGSFELDER_BSADK_2.
PERFORM RASTERN USING HBSAD-BUKRS HBSAD-BSTAT UTAGE '4'
RF140-WRSHB HBSAD-WAERS.
ENDIF.
IF NOT RART-ALT IS INITIAL. <
IF RBLDAT IS INITIAL. <
ATAGE = RF140-VSTID - HBSAD-BUDAT. <
ELSE. <
ATAGE = RF140-VSTID - HBSAD-BLDAT. <
ENDIF. <
PERFORM FILL_WAEHRUNGSFELDER_BSADK_2. <
PERFORM RASTERN USING HBSAD-BUKRS HBSAD-BSTAT ATAGE '5' <
RF140-WRSHB HBSAD-WAERS. <
ENDIF. <


IF NOT RART-UEB IS INITIAL.
UTAGE = RF140-VSTID - HBSAK-NETDT.
PERFORM FILL_WAEHRUNGSFELDER_BSADK_2.
PERFORM RASTERN USING HBSAK-BUKRS HBSAK-BSTAT UTAGE '4'
RF140-WRSHB HBSAK-WAERS.
ENDIF.
IF NOT RART-ALT IS INITIAL. <
IF RBLDAT IS INITIAL. <
ATAGE = RF140-VSTID - HBSAK-BUDAT. <
ELSE. <
ATAGE = RF140-VSTID - HBSAK-BLDAT. <
ENDIF. <
PERFORM FILL_WAEHRUNGSFELDER_BSADK_2. <
PERFORM RASTERN USING HBSAK-BUKRS HBSAK-BSTAT ATAGE '5' <
RF140-WRSHB HBSAK-WAERS. <
ENDIF. <


Report RFKORI15 (RFKORI16)

CASE RTAB-RAART.
WHEN '1'.
EREIGNIS = '574'.
WHEN '2'.
EREIGNIS = '575'.
WHEN '3'.
EREIGNIS = '576'.
WHEN '4'.
EREIGNIS = '577'.
WHEN '5'. <
EREIGNIS = '578'. <
ENDCASE.


Layout sets F140_ACC_STAT_01, F140_CUS_STAT_01, and F140_CUS_STAT_02:

In the MAIN window, copy text /E 577 to /E 578 and change the text as follows:
/E 578
/* *- List line Doc. date Sort
T4 Document age
,,&RF140-WAERS&,,&RF140-RAST1(18)&,,&RF140-RAST2(18)&,,&RF140-RA >