OSS Note 557587 implimentation
SAP note 557587 talks about two variants. we wanted to impliment variant 1 only.
However after implimenting this note through transaction code SNOTE, i find the code of variant 2 also implimented in the system and we have a dump.
Can some one from basis or ABAP team or any one can help me to understand how to impliment only variant 1. Meaning i just want to impliment code relevant to Delta001 & Delta002 only. How is this possible during note implimentation?
Correction instructions given in the note :
FORM ACCCR_ITEMS_ADD
Delta001
Context Block
*... tax
ELSEIF T_ACCIT-TAXIT = 'X'.
*... translate currency
PERFORM ACCCR_TRANSLATE TABLES T_ACCCR T_ACCCR_ADD
USING T_ACCIT I_NEW_VAL.
*... group revenues eq legal revenues in case of external sales
Delete Block
Insert Block
*... profit center price eq legal price in case of external sales
Delta002
Context Block
ELSEIF T_ACCIT-KOART = 'S' AND "note 135288
T_ACCIT-KSTAT = ' ' AND "note 135288
T_ACCIT-KOAID = 'B' AND "note 135288
Delete Block
I_INTER_COMPANY = GC-FALSE AND "note 389538
t_accit-kntyp <> 'c'. "note 135288
*... translate currency "note 135288
PERFORM ACCCR_TRANSLATE TABLES T_ACCCR T_ACCCR_ADD "note 135288
USING T_ACCIT I_NEW_VAL_GROUP. "note135288
*... add zero line for pca "note 135288
loop at i_new_val_pca. "note 135288
perform acccr_add_zero tables t_acccr_add "note 135288
using t_accit i_new_val_pca."note 135288
endloop. "note 135288
Insert Block
*... begin of insertion note 557587 coding for variant 1 and 2
I_INTER_COMPANY = GC-FALSE.
*... translate currency
PERFORM ACCCR_TRANSLATE TABLES T_ACCCR T_ACCCR_ADD
USING T_ACCIT I_NEW_VAL.
*... no pca price condition allowed for external sales
ELSEIF T_ACCIT-KNTYP = C_COND_TYPE_PCA AND
I_INTER_COMPANY = GC-FALSE.
MESSAGE E231(V1) WITH t_accit-kschl.
*... end of insertion note 557587 coding for variant 1 and 2
Delta003
Context Block
ELSEIF T_ACCIT-KOART = 'S' AND
T_ACCIT-KSTAT = ' ' AND
T_ACCIT-KOAID = 'B' AND
I_INTER_COMPANY = GC-TRUE AND "note 389538
Delete Block
t_accit-kntyp <> 'c' AND
t_accit-kntyp <> 'b'.
*... add zero for other missing curtps
LOOP AT I_NEW_VAL INTO VAL.
PERFORM ACCCR_ADD_ZERO TABLES T_ACCCR_ADD
USING T_ACCIT VAL.
ENDLOOP.
Insert Block
*... begin of insertion note 557587 coding for variant 2
*... profit center price equal legal price in case of internal sales
t_accit-kntyp <> 'b'.
*... translate currency
PERFORM ACCCR_TRANSLATE TABLES T_ACCCR T_ACCCR_ADD
USING T_ACCIT I_NEW_VAL_PCA[].
*... add zero for other missing curtps
LOOP AT I_NEW_VAL INTO VAL
WHERE VALUTYP <> GC-VALUTYP_PCA.
PERFORM ACCCR_ADD_ZERO TABLES T_ACCCR_ADD
USING T_ACCIT VAL.
ENDLOOP.
*... no pca price condition allowed for internal sales
ELSEIF T_ACCIT-KNTYP = C_COND_TYPE_PCA AND
I_INTER_COMPANY = GC-FALSE.
MESSAGE E231(V1) WITH t_accit-kschl.
*... end of insertion note 557587 coding for variant 2