SAP Note 16502 - CK21: Error during release with separate valuation type

Symptom:

Error message AF003
SYST: Period 000 not defined
The error also occurs when CK21 is called up from CK69.
Other Symptom:
Internal error: Read Error SMBEW, Key =
Message number M8782
can occur when you work with your own or external valuation types.

Cause and prerequisites

Program error. Note 32044 must also be installed.

Solution
Correction to Program MM08RCOM:
...
*------- Sicherungsstruktur Kontierungsblock -------------------------*
DATA: BEGIN OF COBL_FI.
INCLUDE STRUCTURE COBL_FI.
DATA: MENGE LIKE BSEG-MENGE,
MEINS LIKE BSEG-MEINS.
DATA: END OF COBL_FI.

*------- Felder fuer die Kalkulationsfreigabe mit Bewertungsart ------*
DATA: BEGIN OF XMT08K. <- insert
INCLUDE STRUCTURE MT08K. <- insert
DATA: END OF XMT08K. <- insert

Correction to Program MM08PI10:
...
*------- Freigabe Plankalkulation ------------------------------------*
PERFORM MATERIAL_LESEN(SAPFM08R) USING 'MT08K'
RM08R-MATNR
RM08R-BWKEY
RM08R-BWTAR
SY-LANGU
RM08R-BWKEY.
XMT08K = MT08K. <- insert
CALL FUNCTION 'CK_F_RELEASE_STATUS_CHECK'
EXPORTING BEWERTUNGSTYP = MT08K-BWTTY
BEWERTUNGSKREIS = RM08R-BWKEY
GJAHRVARIANTE = T001-PERIV
KALKZ = MT08K-KALKZ
PDATZ = MT08K-PDATZ
PPRDZ = MT08K-PPRDZ
ZPLPR = MT08K-ZPLPR
IMPORTING PREISAENDERUNG_BEI_BWTAR = RM08R-BWTAR.
IF NOT RM08R-BWTAR IS INITIAL. <- insert
PERFORM MATERIAL_LESEN(SAPFM08R) USING 'MT08K' <- insert
RM08R-MATNR <- insert
RM08R-BWKEY <- insert
RM08R-BWTAR <- insert
SY-LANGU <- insert
RM08R-BWKEY. <- insert
ENDIF. <- insert

MOVE-CORRESPONDING: MT08K TO BSEG,
...

Correction to Program FM08REK0:
...
FORM KALKULATION_FREIGEBEN.

CHECK T169-VGART = VGART-PF.

MOVE-CORRESPONDING: XMT08K TO CKIMBKE. <- change
MOVE: BSEG-MATNR TO CKIMBKE-MATNR, <- change
BSEG-BWKEY TO CKIMBKE-BWKEY, <- change
BSEG-BWTAR TO CKIMBKE-BWTAR. <- change

CALL FUNCTION 'CK_F_MBEW_KEKO_COLLECT' ...

Correction to Program LCK20U05:

* Initialisierung der zukünftigen MBEW-Felder
CLEAR T_MBEW_UPD-BWVA1.
CLEAR T_MBEW_UPD-VERS1.
CLEAR T_MBEW_UPD-KALKZ.
CLEAR T_MBEW_UPD-PPRDZ.
CLEAR T_MBEW_UPD-PDATZ.
CLEAR T_MBEW_UPD-ZPLPR.

* Eigen/Fremdabwicklung pruefen <- insert
IF NOT T_MBEW_UPD-BWTAR IS INITIAL. <- insert
CLEAR T_MBEW_UPD-BWTAR. "hier immer BLANK ! <- insert
APPEND T_MBEW_UPD. <- insert
CLEAR T_MBEW_UPD. <- insert
T_MBEW_UPD-MATNR = MBEW_KEKO_VALUES-MATNR. <- insert
T_MBEW_UPD-BWKEY = MBEW_KEKO_VALUES-BWKEY. <- insert
T_MBEW_UPD-BWTAR = MBEW_KEKO_VALUES-BWTAR. <- insert
T_MBEW_UPD-STPRS = MBEW_KEKO_VALUES-ZPLPR. <- insert
APPEND T_MBEW_UPD. <- insert
ELSE. <- insert
APPEND T_MBEW_UPD.

ENDIF. <- insert



ENDFUNCTION.