SAP Note 19170 - MMIM: CONVERT_NO_NUMBER with threshold value

Symptom:

1. To correct the problem of note 16225 (incorrect threshold value when currency has no decimal places), a repair was installed in Release 2.1J/2.2D that makes it impossible to explicitly enter a threshold value with decimal places when posting an inventory adjustment or creating an inventory recount. Then the termination 'CONVERT_NO_NUMBER' occurs.
2. During the recount the threshold value is not used at all.

Cause and prerequisites

In the repair, the entry field was converted to a character field.

Solution
Note:
Both errors are corrected in the standard system in Release 3.0D. In 2.2, the errors regarding the threshold value have been eliminated in the standard system for all cases except the recount in Release 2.2E, and the error in the recount has been corrected in Release 2.2G. This means that you only need to make the changes described under point 4.2) for Releases > 2.2E.

1. Include MM07IFE0:
-----------------

FORM EINGABE_PRUEFEN.
...
-> SELECT SINGLE * FROM TCURX WHERE CURRKEY = T001-WAERS. "Delete
-> IF SY-SUBRC = 0. "Delete
-> EXPONENT = TCURX-CURRDEC. "Delete
-> ELSE. "Delete
-> EXPONENT = 2. "Delete
-> ENDIF. "Delete
-> IF EXPONENT NE 0. "Delete
-> RM07I-SWERT = RM07I-IWERT * ( EXP( EXPONENT * LOG( 10 ) ) )."Del
-> ELSE. "Delete
-> RM07I-SWERT = RM07I-IWERT. "Delete
-> ENDIF. "Delete
...
ENDFORM.

2. Include MM07IFW0:
-----------------

-> *-----------------------------------------------------* "New
-> * FORM WAEHRUNG_LESEN * "New
-> *-----------------------------------------------------* "New
-> * Lesen der Tabelle T001. * "New
-> *-----------------------------------------------------* "New
-> FORM WAEHRUNG_LESEN. "New
-> PERFORM I-BELEGKOPF_LESEN. "New
-> SELECT SINGLE * FROM T001W WHERE WERKS = IKPF-WERKS. "New
-> SELECT SINGLE * FROM T001K WHERE BWKEY = T001W-BWKEY. "New
-> SELECT SINGLE * FROM T001 WHERE BUKRS = T001K-BUKRS. "New
-> ENDFORM.

3. Include MM07II00:
-----------------

-> *----------------------------------------------------* "New
-> * MODULE WAEHRUNG_LESEN * "New
-> *----------------------------------------------------* "New
-> * Die Waehrung zum Inventurbeleg wird gelesen * "New
-> *----------------------------------------------------* "New
-> MODULE WAEHRUNG_LESEN. "New
-> CHECK NOT RM07I-IBLNR IS INITIAL. "New
-> PERFORM WAEHRUNG_LESEN. "New
-> ENDMODULE. "New

4. Screen changes
--------------

4.1) Screen SAPMM07I Nr. 0701:
------------------------------

a) Change in the field list:
Replace field RM07I-IWERT by RM07I-SWERT

b) Change in the flow logic:
- Replace field RM07I-IWERT by RM07I-SWERT
- CHAIN.
FIELD RM07I-IBLNR.
MODULE OK-CODE_PRUEFEN.
FIELD RM07I-IBLNR.
FIELD RM07I-GJAHR.
-> MODULE WAEHRUNG_LESEN. "insert new
FIELD RM07I-ZLDAT.
FIELD RM07I-BUDAT.
...
ENDCHAIN.

4.2) Screen SAOMM071 no. 0702:
------------------------------
Make the same changes for this screen as for the screen SAPMM071
0701 (see point 4.1).

5. Include MM07IFB0:
-----------------

FORM BELEG_LESEN.
CHECK NOT RM07I-IBLNR IS INITIAL.
...
-> IF IKPF IS INITIAL. "New
PERFORM I-BELEGKOPF_LESEN.
-> ENDIF. "New
...
ENDFORM.