SAP Note 15839 - MB01: No multiple account ass. sheet f. col. slip

Symptom:

For a purchase order with multiple account assignment, no account assignment slip (multiple account assignment sheet) is printed during the goods receipt, if the goods receipt/issue slip is a collective slip.

Cause and prerequisites

This function is not planned.

Solution

Print goods receipt/issue slip as individual slip.

It is possible to check during the goods receipt whether a purchase order item has a multiple account assignment. If so, the system always prints individual slips even if you have selected "Collective slip" on the initial screen.
Insert the lines marked with 'New' in the following programs:

1. Insert the following field in Include MM07MCOM.
DATA X_MULKO TYPE C. new

2. Change the MM07MFB7 program (in Releases 2.1 and 2.2 program MM07MFB0) in FORM routine 'BESTELLUNG_UEBERNEHMEN'.
....
.
.
MOVE-CORRESPONDING DM07M TO FUSS.
MOVE-CORRESPONDING VM07M TO FUSS.
MOVE-CORRESPONDING MSEG TO FUSS.
IF X_MULKO IS INITIAL. new
X_MULKO = DM07M-MULKO. new
ENDIF. new
FUSS-FCODE = FCOD-NP.
.
.
.....

3. Change the DRUCK_PRUEFEN routine in the MM07MFDO program as follows.

FORM DRUCK_PRUEFEN.
...
IF NOT RM07M-WVERS2 IS INITIAL.
MKPF-WEVER = 2.
T158-WEVER = 2.
ENDIF.
IF NOT RM07M-WVERS3 IS INITIAL.
IF MKPF-WEVER IS INITIAL AND T158-KZBEW = B. "New
* LOOP AT FUSS WHERE MULKO = X. "Delete
* ENDLOOP. "Delete
* IF SY-SUBRC IS INITIAL. "Delete
IF NOT X_MULKO IS INITIAL. "New
MKPF-WEVER = 1. "New
T158-WEVER = 1. "New
RM07M-WVERS1 = RM07M-WVERS3. "New
CLEAR RM07M-WVERS3. "New
ELSE. "New
MKPF-WEVER = 3. "New
T158-WEVER = 3. "New
ENDIF. "New
ELSE. "New
MKPF-WEVER = 3.
T158-WEVER = 3.
ENDIF. "New
ENDIF.
IF RM07M-XNAPR IS INITIAL.
CLEAR T158-WEVER.
ENDIF.
ENDFORM.

Note:
Since the check occurs before taking over the purchase order items, individual slips are printed even if the item with multiple account assignment is not taken over.