Hi,
Please find the below code.
class declaration
class ABInventJournalTransCopy
{
InventJournalTrans InventJournalTrans;
}
Parmmethod
public InventJournalTrans parmInventJournalTrans(InventJournalTrans _inventJournalTrans = inventJournalTrans)
{
inventJournalTrans = _inventJournalTrans;
return inventJournalTrans;
}
Run method
private void run()
{
InventJournalTrans InventJournalTransLocal;
try
{
ttsbegin;
InventJournalTransLocal.data(InventJournalTrans);
InventJournalTransLocal.LineNum = InventJournalTrans::lastLineNum(InventJournalTrans.JournalId) + 1;
if(InventJournalTransLocal.validateWrite())
{
InventJournalTransLocal.insert();
}
ttscommit;
}
catch (Exception::Deadlock)
{
retry;
}
catch (Exception::UpdateConflict)
{
if (appl.ttsLevel() == 0)
{
throw Exception::UpdateConflictNotRecovered;
}
else
{
throw Exception::UpdateConflict;
}
}
}
Construct method
public static ABInventJournalTransCopy construct()
{
return new ABInventJournalTransCopy();
}
main method
public static void main(Args _args)
{
ABInventJournalTransCopy ABInventJournalTransCopy;
if(_args.record() && _args.dataset() == tableNum(InventJournalTrans))
{
ABInventJournalTransCopy = ABInventJournalTransCopy::construct();
ABInventJournalTransCopy.parmInventJournalTrans(_args.record() as InventJournalTrans);
ABInventJournalTransCopy.run();
}
}
