SAP Note 17498 - Display variant for billing due list

Symptom:

In Customizing, you can create a display variant for the billing due list (VF04) with the fields 'Distribution channel' VTWEG and 'Division' SPART. These values are not filled in, however.

Cause and prerequisites

The fields 'Distribution channel' and 'Division' are mistakenly proposed in the field list for Customizing the billing due work list. This is because they are not entered in the corresponding table VKDFS (billing index).

Solution
The only solution is by means of a modification. Contact your consultant for this. Also refer to the attached Note 170183.
Attention: This impairs the performance !!!
A possible solution (for the division) would be to:
Attention: In release 3.0E there has been some enlargements in function
group SAPLV05H, so that you should take care about that.

1. Create Include ZZSPARTE

Attributes:
Type 'I' Include program
Status
Application 'V' Sales/distribution

Source text: ***INCLUDE ZZSPARTE .

FORM SPARTE_LESEN.

>>>>>>> These lines should be used only until release 3.0D
TABLES: VBAK,
LIPS,
VBRK.
>>>>>>>

>>>>>>> From release 3.0E is only valid this line
TABLES: VBRK.
>>>>>>>

IF LVKDFI-VBTYP CA VBTYP_VERK.
SELECT SINGLE * FROM VBAK WHERE VBELN = LVKDFI-VBELN.
IF SY-SUBRC = 0.
LVKDFI-SPART = VBAK-SPART.
MODIFY LVKDFI.
ENDIF.
ENDIF.

IF LVKDFI-VBTYP CA VBTYP_LIEF.
SELECT * FROM LIPS WHERE VBELN = LVKDFI-VBELN.
EXIT.
ENDSELECT.
IF SY-SUBRC = 0.
SELECT SINGLE * FROM VBAK WHERE VBELN = LIPS-VGBEL.
IF SY-SUBRC = 0.
LVKDFI-SPART = VBAK-SPART.
MODIFY LVKDFI.
ENDIF.
MODIFY LVKDFI.
ENDIF.
ENDIF.

IF LVKDFI-VBTYP CA VBTYP_FAKT.
SELECT SINGLE * FROM VBRK WHERE VBELN = LIPS-VGBEL.
IF SY-SUBRC = 0.
LVKDFI-SPART = VBRK-SPART.
MODIFY LVKDFI.
ENDIF.
MODIFY LVKDFI.
ENDIF.

ENDFORM.
2. Include Include ZZSPARTE in Report LV05HU01: LV05HU01:

>>>>>>>> This line should be inserted only until release 3.0D
INCLUDE RVVBTYP. <--- insert
>>>>>>>>

FUNCTION RV_READ_INVOICE_INDEX.
.
.
PERFORM VKDFS_INIT.
PERFORM LESEN_VKDFI_VKDFS_01.

LOOP AT LVKDFI.

PERFORM BERECHTIGUNG_PRUEFEN USING LVKDFI-FKART.
IF OK = ' '.
DELETE LVKDFI.
BERECHTIGUNGEN_FEHLEN = 'X'.
CHECK 1 = 2. <--- insert
ELSE.
PERFORM BERECHTIGUNG_VKORG_PRUEFEN USING LVKDFI-VKORG.
IF OK = ' '.
DELETE LVKDFI.
BERECHTIGUNGEN_FEHLEN = 'X'.
CHECK 1 = 2. <--- insert
ENDIF.
ENDIF

PERFORM SPARTE_LESEN. <--- insert

ENDLOOP.
.
.
>>>>>>> This line should be inserted this way until release 3.0D
ENDFUNCTION.

INCLUDE ZZSPARTE. <--- insert
>>>>>>>

>>>>>>> From release 3.0E the line should be inserted this way
ENDFUNCTION.


*---------------------------------------------------------------------*
* FORM AUSDUENNEN_XVKDFS *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM AUSDUENNEN_XVKDFS.
.
.
.
ENDFORM.

INCLUDE ZZSPARTE. <--- insert
>>>>>>>