If a partner is deleted in order entry, and the "New pricing" function
is then called, conditions are found that refer to the deleted partner.
In accordance with SD modification guidelines, a new partner role
was made available for pricing. The routine for reading the partner
for the partner role ignores the delete flag.
Change the coding for copying the partner as follows:
Include MV45AFZZ:
...
...
FORM USEREXIT_PRICING_PREPARE_TKOMK.
PERFORM XVBPA_LESEN (SAPFV45K) USING 'Z1' VBAP-POSNR SY-TABIX.
IF XVBPA-UPDKZ <> 'D'. "<-- NEW
MOVE XVBPA-PERNR TO TKOMK-ZZVRTZ.
ENDIF. "<-- NEW
ENDFORM.
Include RV60AFZZ:
...
...
FORM USEREXIT_PRICING_PREPARE_TKOMK.
PERFORM XVBPA_SELECT USING 'Z1'.
IF XVBPA-UPDKZ <> 'D'. "<-- NEW
MOVE XVBPA-PERNR TO TKOMK-ZZVRTZ.
ENDIF. "<-- NEW
ENDFORM.
Key word: Pricing
No comments:
Post a Comment