Change log in Code

I have upgraded Navision from Nav 5 to Nav 2009.
I want to create a log for all the changes that I have made in the code for codeunits 22 and 80.
I want to created a log that shows how the code looked in earlier version and what changes are made in the newer version.
Can i get this change log directly from Navison Developer's Toolkit or any other kit/way or do i have to created it manually? :?: :?:

An Example of what i need is as below
Change Log 24. July 2009

---

+

---

+
| OBJECT Codeunit 90 Purch.-Post |
+

---

+

---

Before (OLD)

---

Codeunit 90

---

Properties

---

PurchLine.AdjustStructureAmounts(PurchHeader);
PurchLine.UpdatePurchLines(PurchHeader);
END;
TotalPurchaseTaxAmount := 0;
PostItemChargeAssgntDiff := FALSE;
PurchLine6.RESET;
PurchLine6.SETRANGE("Document Type","Document Type");
PurchLine6.SETRANGE("Document No.","No.");

---

After (NEW)

---

PurchLine.AdjustStructureAmounts(PurchHeader);
PurchLine.UpdatePurchLines(PurchHeader);
END;
TotalPurchaseTaxAmount := 0;
+ TotalVatablePurchaseTaxAmount := 0; // PS53124
PostItemChargeAssgntDiff := FALSE;
PurchLine6.RESET;
PurchLine6.SETRANGE("Document Type","Document Type");
PurchLine6.SETRANGE("Document No.","No.");

---

---

Before (OLD)

---

Codeunit 90

---

Properties

---

ChargeItemAmountLoadedOnItem := 0;
ChargeItemInputTaxCredit := 0;
ChargeItemPerOrder := FALSE;
LSTTaxType := FALSE;
IF (PurchLine."Service Tax Amount" + PurchLine."Service Tax eCess Amount" +
PurchLine."Service Tax SHE Cess Amount" <> 0)
THEN BEGIN
IF "Location Code" <> '' THEN BEGIN

---

After (NEW)

---

ChargeItemAmountLoadedOnItem := 0;
ChargeItemInputTaxCredit := 0;
ChargeItemPerOrder := FALSE;
LSTTaxType := FALSE;
+ // PS53124.begin
+ TotalQtyInvoiced := 0;
+ TotalTaxAmount := 0;
+ // PS53124.end
IF (PurchLine."Service Tax Amount" + PurchLine."Service Tax eCess Amount" +
PurchLine."Service Tax SHE Cess Amount" <> 0)
THEN BEGIN
IF "Location Code" <> '' THEN BEGIN

---