Changes in Fixed Assets Statement for the German and Austrian version of Dynamics AX 2012 and AX 2009 SP1

Technical information:

For a correct report, run a job as per following sample code:

AX009 SP1:
tatic void updateReclassifications(Args _args)
{
AssetTrans assetTransFrom, assetTransTo, assetTransUpd;
StartDate startDate = LedgerPeriod::openingPeriodStart(systemDateGet());
Range txtFrom = strReplace("@SYS79505", '%1', '') + '*';
Range txtTo = strReplace("@SYS79506", '%1', '') + '*';

if (startDate)
{
while select assetTransFrom
where assetTransFrom.TransDate >= startDate
&& assetTransFrom.Reclassification == NoYes::No
&& assetTransFrom.Txt like txtTo
join assetTransTo
where assetTransTo.TransDate == assetTransFrom.TransDate
&& assetTransTo.Voucher == assetTransFrom.Voucher
&& assetTransTo.Txt like txtFrom
{
if (assetTransFrom.Txt == strfmt("@SYS79506", assetTransTo.AssetId) &&
assetTransTo.Txt == strfmt("@SYS79505", assetTransFrom.AssetId))
{
ttsBegin;
update_recordSet assetTransUpd setting Reclassification = NoYes::Yes
where assetTransUpd.RecId == assetTransFrom.RecId
|| assetTransUpd.RecId == assetTransTo.RecId;
ttsCommit;
}
}
}
}

AX 2012, AX 2012 R2 and AX 2012 R3:
static void updateReclassifications(Args _args)
{
AssetTrans assetTransFrom, assetTransTo, assetTransUpd;
StartDate startDate = FiscalCalendars::findOpeningPeriodStartDateByDate(CompanyInfo::fiscalCalendarRecId(), systemDateGet());
Range txtFrom = strReplace("@SYS79505", '%1', '') + '*';
Range txtTo = strReplace("@SYS79506", '%1', '') + '*';

if (startDate)
{
while select assetTransFrom
where assetTransFrom.TransDate >= startDate
&& assetTransFrom.Reclassification == NoYes::No
&& assetTransFrom.Txt like txtTo
join assetTransTo
where assetTransTo.TransDate == assetTransFrom.TransDate
&& assetTransTo.Voucher == assetTransFrom.Voucher
&& assetTransTo.Txt like txtFrom
{
if (assetTransFrom.Txt == strfmt("@SYS79506", assetTransTo.AssetId) &&
assetTransTo.Txt == strfmt("@SYS79505", assetTransFrom.AssetId))
{
ttsBegin;
update_recordSet assetTransUpd setting Reclassification = NoYes::Yes
where assetTransUpd.RecId == assetTransFrom.RecId
|| assetTransUpd.RecId == assetTransTo.RecId;
ttsCommit;
}
}
}
}