Material to be Update in J_2IRG1BAL Automatically Development using J1ID Transaction using Enhancement framework.

Material to be Update in J_2IRG1BAL Automatically Development using J1ID Transaction using Enhancement framework.

By Sagar Dev

PURPOSE:

When we declare Material in J1ID Transaction as RG1 Material then we have to update this material in TableJ_2IRG1BAL manually.

So we have developed one program when we update material in J1ID transaction as RG1 Material program will automatically update that material in table J_2IRG1BAL in the background.

Step by step Solution:

Find the enhancement point in the include ‘LJ1I5O02’.

Go to transaction “SE38”.

To find the enhancement point, go to Program –> Enhance (Or)

Click on the “Enhance” .

Go to Edit –> Enhancement Operations –> Show Implicit Enhancement Options.

Now, we will observe commas like below.

Go to Implicit enhancement option at the beginning of the form ‘CHECK_DOCUMENT_TYPE’ and Right click –> Enhancement Implementation –> Create.

Now it will ask for Enhancement Type. ZJ1ID_J_2IRG1BALDescription And ok
We have to implement the code and it will looks like this. ENHANCEMENT 1 ZJ1ID_J_2IRG1BAL. “active version

ENDENHANCEMENT.

Here you can write the custom code for modifying the functionality.

ENHANCEMENT 1 ZJ1ID_J_2IRG1BAL. “active version
DATA: lv_exgrp TYPE j_1iexgrps–j_1iexcgrp,
lv_rgbal TYPE j_2irg1bal,
wa TYPE j_2irg1bal.

CLEAR: wa,lv_exgrp,lv_rgbal.

IF fcode EQ ‘EDIT’ AND view_action = ‘U’ AND view_name EQ ‘J_1IMTCHID’.
“For Exices Group.
SELECT SINGLE j_1iexcgrp FROM j_1iexgrps CLIENT SPECIFIED INTO lv_exgrp
WHERE mandt EQ sy–mandt
AND j_1iwerks EQ j_1imtchid–werks.
“Here we are cheking that record is present in j_2irg1bal table or not.
SELECT SINGLE * FROM j_2irg1bal CLIENT SPECIFIED INTO lv_rgbal
WHERE mandt EQ sy–mandt
AND exgrp EQ lv_exgrp
AND matnr EQ j_1imtchid–matnr
AND werks EQ j_1imtchid–werks.
CASE j_1imtchid–j_1icapind.
WHEN ‘F’.
“if Record is Not presented in j_2irg1bal table then append it into j_2irg1bal table.
IF lv_rgbal IS INITIAL.
“Here we insert that record in j_2irg1bal table.
wa–mandt = sy–mandt.
wa–exgrp = lv_exgrp.
wa–datum = sy–datum.
wa–matnr = j_1imtchid–matnr.
wa–form = ‘P’.
wa–werks = j_1imtchid–werks.
INSERT INTO j_2irg1bal VALUES wa.
ENDIF.
WHEN OTHERS.
“If Record is exits in j_2irg1bal table then delete it because it is not releavet for RG1 Register
IF NOT lv_rgbal IS INITIAL.
“Here we Delete that record from j_2irg1bal table.
DELETE j_2irg1bal FROM lv_rgbal.
ENDIF.
ENDCASE.
ENDIF.
ENDENHANCEMENT.