The system returns incorrect depreciation amounts after you post an appreciation entry in Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the GetLastEntryDates function as follows:
   Exiting code

   IF GetPartOfCalculation(0,i - 1,DeprBookCode) THEN BEGIN
                 IF FIND('-') THEN
                   REPEAT
                     IF "Part of Book Value" OR "Part of Depreciable Basis" THEN
                       IF "FA Posting Date" > EntryDates[i] THEN
    
   // Delete the following line.
                         EntryDates[i] := "FA Posting Date";
    
                     UNTIL NEXT = 0;
               END;
             END;
           END;
         END;

   Replacement code

   IF GetPartOfCalculation(0,i - 1,DeprBookCode) THEN BEGIN
                 IF FIND('-') THEN
                   REPEAT
                     IF "Part of Book Value" OR "Part of Depreciable Basis" THEN
                       IF "FA Posting Date" > EntryDates[i] THEN
    
   // Add the following line.
                         EntryDates[i] := CheckEntryDate(FALedgEntry);
    
                     UNTIL NEXT = 0;
               END;
             END;
           END;
         END;

   
   
2. Change the code in the in the GetFirstDeprDate function as follows:
   Existing code

   IF FIND('+') THEN
               IF ToMorrow("FA Posting Date",Year365Days) > LocalDate THEN
                 LocalDate := ToMorrow("FA Posting Date",Year365Days);
             GetLastEntryDates(FANo,DeprBookCode,EntryDates);
             FOR i := 1 TO 4 DO
    
   // Delete the following lines.
               IF EntryDates[i] <> 0D THEN
                 IF ToMorrow(EntryDates[i],Year365Days) > LocalDate THEN
                   LocalDate := ToMorrow(EntryDates[i],Year365Days);
   // End of the deleted lines.
    
           END;
           EXIT(LocalDate);
         END;
     
         PROCEDURE GetMinusBookValue@17(FANo@1000 : Code[20];DeprBookCode@1001 : Code[10];StartingDate@1002 : Date;EndingDate@1003 : Date) : Decimal;

   Replacement code

   IF FIND('+') THEN
               IF ToMorrow("FA Posting Date",Year365Days) > LocalDate THEN
                 LocalDate := ToMorrow("FA Posting Date",Year365Days);
             GetLastEntryDates(FANo,DeprBookCode,EntryDates);
             FOR i := 1 TO 4 DO
    
   // Add the following lines.
               IF EntryDates[i] > LocalDate THEN
                 LocalDate := EntryDates[i];
   // End of the added lines.
    
           END;
           EXIT(LocalDate);
         END;
     
         PROCEDURE GetMinusBookValue@17(FANo@1000 : Code[20];DeprBookCode@1001 : Code[10];StartingDate@1002 : Date;EndingDate@1003 : Date) : Decimal;

3. Change the code in the CheckEntryDate function as follows:
   Exiting code

   ThisDate := ThisDate - 1;
           ThisDate := ThisDate - 1;
           EXIT(ThisDate);
         END;
     
         BEGIN
         END.
       }
     }

   Replacement code

   ThisDate := ThisDate - 1;
           ThisDate := ThisDate - 1;
           EXIT(ThisDate);
         END;
     
   // Add the following lines.
         LOCAL PROCEDURE CheckEntryDate@1001(FALedgerEntry@1002 : Record 5601) : Date;
         BEGIN
           WITH FALedgerEntry DO BEGIN
             IF (FALedgerEntry."FA Posting Type" = FALedgerEntry."FA Posting Type"::"Write-Down") AND ("FA Posting Date" <> 0D)THEN
               IF (DATE2DMY("FA Posting Date",2) = 2) AND (DATE2DMY("FA Posting Date",2) <> DATE2DMY("FA Posting Date" + 1,2)) THEN
                 EXIT("FA Posting Date" + 1);
               EXIT("FA Posting Date");
           END;
         END;
    
   // End of the added lines.
    
         BEGIN
         END.
       }
   }

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 SP1
• Microsoft Dynamics NAV 5.0 SP1

Removal information