...
SortCriteriaAuxBook@1110000 : Record 5612;
FADepBook2@1110001 : Record 5612;
BEGIN
//Delete the following lines.
IF Layout = Layout::Detalhe THEN BEGIN
FADepBook2.GET("FA No.","Depreciation Book Code");
FADepBook2.SETRANGE("FA Posting Date Filter",0D,CALCDATE('<-1Y+CY>',"Final Date"));
FADepBook2.CALCFIELDS("Fully depreciated");
IF FADepBook2."Fully depreciated" THEN
HasFullyDepreciatedFA := TRUE
ELSE
HasNotFullyDepreciatedFA := TRUE;
IF FADepBook2."Fully depreciated" XOR (NumCount.Number = 1) THEN
CurrReport.SKIP;
END;
//End of the lines.
FADepBook1.CALCFIELDS("Acquisition Cost",Depreciation,"Proceeds on Disposal", "Gain/Loss",
"Write-Down",Appreciation,"Custom 1","Custom 2","Depreciable Basis");
...
...
SortCriteriaAuxBook@1110000 : Record 5612;
FADepBook2@1110001 : Record 5612;
BEGIN
//Add the following lines.
FADepBook2.GET("FA No.","Depreciation Book Code");
FADepBook2.SETRANGE("FA Posting Date Filter",0D,CALCDATE('<-1Y+CY>',"Final Date"));
FADepBook2.CALCFIELDS("Fully depreciated");
IF FADepBook2."Fully depreciated" THEN
HasFullyDepreciatedFA := TRUE
ELSE
HasNotFullyDepreciatedFA := TRUE;
IF FADepBook2."Fully depreciated" XOR (NumCount.Number = 1) THEN
CurrReport.SKIP;
//End of the lines.
FADepBook1.CALCFIELDS("Acquisition Cost",Depreciation,"Proceeds on Disposal", "Gain/Loss",
"Write-Down",Appreciation,"Custom 1","Custom 2","Depreciable Basis");
...