Hello Experts,
After searching code same as subjected topic I found it on internet but its is for 365F&O.
Could you please change it to AX 2012 R3. Codes are given below.
Thanks
code:-
///
/// extension of class: ReqTransPoMarkFirm
///
[ExtensionOf(classStr(ReqTransPoMarkFirm))]
final class ReqTransPoMarkFirmCFSClass_Extension
{
public container conPurchOrders;
///
/// updatePurchTable
///
/// _purchTable
protected void updatePurchTable(PurchTable _purchTable)
{
conPurchOrders = _purchTable.PurchId;
next updatePurchTable(_purchTable);
}
///
/// purchTablePostProcessing
///
protected void purchTablePostProcessing()
{
next purchTablePostProcessing();
for (int i = 1; i <= conLen(conPurchOrders); i )
{
PurchTable purchTable = PurchTable::find(conPeek(conPurchOrders, i), true);
if(purchTable.RecId)
{
ttsbegin;
//delete the version created for po
PurchTableVersion purchTableVersion = PurchTableVersion::findLatest(purchTable.PurchId, purchTable.DataAreaId, true);
if(purchTableVersion.RecId)
{
purchTableVersion.delete();
}
purchTable.ChangeRequestRequired = NoYes::No;
purchTable.DocumentState = VersioningDocumentState::Draft;
purchTable.update();
ttscommit;
}
}
}
}