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”.
Enter a name for the PROGRAM and click on ‘DISPLAY’.
- 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.
Activate the code and enhancement.
Output:
Check in Go to Transaction ‘J1ID’ 
.
Select Material and Chapter-ID Combination and Click On .
Click on 
.
Put on the Material No, Plant, Chapter ID and Select Material Type Only ‘RG1’.
Please Check Table ‘J_2IRG1BAL’.
Thanks & Regards,
Sagar Dev
