SAP Note 23782 - Order confirmation: Material determination

Symptom:

Key word: Material determination/order confirmation
When printing order confirmation, the found material is printed although (material substitution: reason) is set in table TVSU, so that the entered material should be printed.

Cause and prerequisites

Function has not yet been implemented in Release 2.2.

Solution
Correction S11K143672
This can be used as an advance correction as of Release 2.2:

1. Program LV05DTOP:
FUNCTION-POOL V05D MESSAGE-ID VD.
....
....
TABLES: VBDKAZ, VBDPAZ.
TABLES: TVSU. <== NEW

2. Program LV05DFMO:
Insert routine MAKT_ERMITTELN at the beginning of the program:
*----------------------------------------------------------------------*
* FORM MAKT_ERMITTELN *
*----------------------------------------------------------------------*
* Bereitstellen des Materialkurztextes *
*----------------------------------------------------------------------*
* --> US_MATNR Materialnummer *
* <-- CH_KURZTEXT Materialkuztext *
*----------------------------------------------------------------------*
FORM MAKT_ERMITTELN USING US_MATNR CH_KURZTEXT.
TABLES: MAKT, MTCOR.
DATA: BEGIN OF MAKT_MTCOM.
INCLUDE STRUCTURE MTCOM.
DATA: END OF MAKT_MTCOM.
DATA: BEGIN OF XDUMMY OCCURS 1,
FELD,
END OF XDUMMY.

MAKT_MTCOM-KENNG = 'MAKT'.
MAKT_MTCOM-SPRAS = VBCO3-SPRAS.
IF MAKT_MTCOM-SPRAS = SPACE.
MAKT_MTCOM-SPRAS = SY-LANGU.
ENDIF.

MAKT_MTCOM-MATNR = US_MATNR.
MAKT_MTCOM-MAXTZ = 5.

CALL FUNCTION 'MATERIAL_READ'
EXPORTING
SCHLUESSEL = MAKT_MTCOM
IMPORTING
MATDATEN = MAKT
RETURN = MTCOR
TABLES
SEQMAT01 = XDUMMY.
CH_KURZTEXT = MAKT-MAKTX.

ENDFORM.
....
....
FORM MOVE_VBAP_TO_LVBDPA.
MOVE VBAP-ARKTX TO LVBDPA-ARKTX .
....
....
IF LVBDPA-KWMENG = 0.
LVBDPA-KWMENG = VBAP-ZMENG.
ENDIF.
MOVE VBAP-MATNR TO LVBDPA-MATNR .
* MATNR ggfs. mit eingegebenem Material füllen <== NEW
IF NOT VBAP-MATWA IS INITIAL AND <== NEW
NOT VBAP-SUGRD IS INITIAL. <== NEW
SELECT SINGLE * FROM TVSU <== NEW
WHERE SUGRD = VBAP-SUGRD. <== NEW
IF SY-SUBRC EQ 0 AND <== NEW
NOT TVSU-SUDRU IS INITIAL. <== NEW
MOVE VBAP-MATWA TO LVBDPA-MATNR. <== NEW
*... Materialkurztext nachlesen <== NEW
PERFORM MAKT_ERMITTELN USING VBAP-MATWA LVBDPA-ARKTX. <== NEW
ENDIF. <== NEW
ENDIF. <== NEW
MOVE VBAP-NETPR TO LVBDPA-NETPR .
======================== End of correction ============================