Below is my code:-
/// <summary>
///
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
[FormDataFieldEventHandler(formDataFieldStr(InventJournalTransfer, InventJournalTrans, ItemName), FormDataFieldEventType::Modified)]
public static void ItemName_OnModified(FormDataObject sender, FormDataFieldEventArgs e)
{
FormDataSource InventJournalTrans_ds = sender.datasource();
FormRun formRun = sender.datasource().formRun();
//FORMRUN
InventJournalTrans InventJournalTrans,InventJournalTransupdate;
InventJournalTable InventJournalTable;
InventTableExpanded inventTableExpanded;
InventTable table;
InventDim fromInventDim,ToinventDim;
str ItemName;
InventJournalTrans = InventJournalTrans_ds.cursor();
ItemName = InventJournalTrans.ItemName;
InventJournalTable = InventJournalTable::find(InventJournalTrans.JournalId);
select inventTableExpanded
where inventTableExpanded.ProductName == ItemName
&& inventTableExpanded.DataAreaId == curExt();
{
InventJournalTrans.ItemId = inventTableExpanded.ItemId;
InventJournalTrans.ItemGroup = InventItemGroupItem::itemGroupByItemIdLegalEntity(InventJournalTrans.ItemId, InventJournalTrans.DataAreaId).ItemGroupId;
select firstonly table where table.ItemId == InventJournalTrans.ItemId;
InventJournalTrans.initFromInventTable(table);
ttsbegin;
fromInventDim.clear();
fromInventDim.InventSiteId = InventJournalTable.InventSiteId;
fromInventDim.InventLocationId = InventJournalTable.InventLocationId;
fromInventDim.wMSLocationId = InventJournalTable.wMSLocationId;
ToinventDim.clear();
ToinventDim.InventSiteId = InventJournalTable.InventSiteId;
ToinventDim.InventLocationId = InventJournalTable.InventLocationId;
ToinventDim.wMSLocationId = InventJournalTable.wMSLocationId;
InventJournalTrans.InventDimId = InventDim::findOrCreate(fromInventDim).inventDimId;
InventJournalTrans.ToInventDimId = InventDim::findOrCreate(ToinventDim).inventDimId;
ttscommit;
}