Foreign currency amount is not inserted when you retrieve telebanking payment proposal on an invoice that is posted in local currency in the Dutch version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the Data Item Number 4 section in the Get Proposal Entries report (11000000) as follows:
   Existing code 1

   ...
   Propline."Description 4":=DELCHR(Propline."Description 4"+' '+UseDocumentNo,'<>')
   ELSE
   Propline.Docket:=TRUE;
   END;
   
   // Delete the following lines.
   IF Propline.Docket THEN
   IF Propline."Description 1"<>Text1000016 THEN BEGIN
   Propline."Description 1":=Text1000016;
   CASE Propline."Account Type" OF
   Propline."Account Type"::Customer:
   BEGIN
   Custm.GET(Propline."Account No.");
   IF Custm."Our Account No."<>'' THEN
   Propline."Description 2" :=
   COPYSTR(STRSUBSTNO(Text1000018, Custm."Our Account No."), 1, MAXSTRLEN(Propline."Description 2" ))
   ELSE BEGIN
   CompanyInfo.GET;
   Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
   END;
   END;
   Propline."Account Type"::Vendor:
   BEGIN
   Vend.GET(Propline."Account No.");
   IF Vend."Our Account No."<>'' THEN
   Propline."Description 2" :=
   COPYSTR(STRSUBSTNO(Text1000017, Vend."Our Account No."),1,MAXSTRLEN(Propline."Description 2"))
   ELSE BEGIN
   CompanyInfo.GET;
   Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
   END;
   END;
   END;
   Propline."Description 3":='';
   Propline."Description 4":='';
   END;
   // End of the lines.
   
   IF Propline.Identification='' THEN BEGIN
   TrMode.TESTFIELD("Identification No. Series");
   NoSeriesManagement.InitSeries(TrMode."Identification No. Series",
   '',
   ...

   Replacement code 1

   ...
   Propline."Description 4":=DELCHR(Propline."Description 4"+' '+UseDocumentNo,'<>')
   ELSE
   Propline.Docket:=TRUE;
   END;
   
   // Add the following line.
   FillDescriptionAndCurrency;
   
   IF Propline.Identification='' THEN BEGIN
   TrMode.TESTFIELD("Identification No. Series");
   NoSeriesManagement.InitSeries(TrMode."Identification No. Series",
   '',
   ...

   Existing code 2

   ...
   Propline."Transaction Date",
   Propline.Identification,
   Propline."Identification No. Series");
   END;
   Propline.MODIFY;
   NumeratorDetailLines:=NumeratorDetailLines+1;
   BatchStatus.UPDATE(2,ROUND(NumeratorDetailLines/NumberOfDetailLines*10000,1));
   END;
   ...

   Replacement code 2

   ...
   Propline."Transaction Date",
   Propline.Identification,
   Propline."Identification No. Series");
   END;
   
   // Add the following lines.
   IF Propline."Foreign Currency" = Propline."Currency Code" THEN
   Propline.VALIDATE("Foreign Amount",0)
   ELSE BEGIN
   Propline.VALIDATE("Foreign Amount",ROUND(
   CurrencyExchangeRate.ExchangeAmtFCYToFCY(
   Propline."Transaction Date",Propline."Currency Code",Propline."Foreign Currency",Propline.Amount)));
   END;
   // End of the lines.
   
   Propline.MODIFY;
   NumeratorDetailLines:=NumeratorDetailLines+1;
   BatchStatus.UPDATE(2,ROUND(NumeratorDetailLines/NumberOfDetailLines*10000,1));
   END;
   ...

2. Change the code in the Global Variables section in the  Get Proposal Entries report (11000000) as follows:
   Existing code

   ...
   PmtDiscExpiryDate@1000032 : Date;
   Bnk@1000033 : Record 270;
   Custm@1000034 : Record 18;
   Vend@1000035 : Record 23;
   CompanyInfo@1000036 : Record 79;
   
   // Delete the following lines.
   NoSeriesManagement@1000037 : Codeunit 396;
   BEGIN
   // End of the lines.
   
   END.
   }
   RDLDATA
   {
   }
   ...

   Replacement code

   ...
   PmtDiscExpiryDate@1000032 : Date;
   Bnk@1000033 : Record 270;
   Custm@1000034 : Record 18;
   Vend@1000035 : Record 23;
   CompanyInfo@1000036 : Record 79;
   
   // Add the following lines.
   CurrencyExchangeRate@1000038 : Record 330;
   NoSeriesManagement@1000037 : Codeunit 396;
   LOCAL PROCEDURE FillDescriptionAndCurrency@1000039();
   BEGIN
   IF DetailLine."Account No." <> '' THEN
   CASE DetailLine."Account Type" OF
   DetailLine."Account Type"::Customer:
   BEGIN
   Custm.GET(DetailLine."Account No.");
   Propline.VALIDATE("Foreign Currency",Custm."Currency Code");
   IF Propline.Docket THEN BEGIN
   IF Propline."Description 1" <> Text1000016 THEN
   Propline."Description 1" := Text1000016;
   IF Custm."Our Account No." <> '' THEN
   Propline."Description 2" :=
   COPYSTR(STRSUBSTNO(Text1000018, Custm."Our Account No."), 1, MAXSTRLEN(Propline."Description 2" ))
   ELSE BEGIN
   CompanyInfo.GET;
   Propline."Description 2" := COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
   END;
   Propline."Description 3" := '';
   Propline."Description 4" := '';
   END;
   END;
   DetailLine."Account Type"::Vendor:
   BEGIN
   Vend.GET(DetailLine."Account No.");
   Propline.VALIDATE("Foreign Currency",Vend."Currency Code");
   IF Propline.Docket THEN BEGIN
   IF Propline."Description 1" <> Text1000016 THEN
   Propline."Description 1" := Text1000016;
   IF Vend."Our Account No."<>'' THEN
   Propline."Description 2" :=
   COPYSTR(STRSUBSTNO(Text1000017, Vend."Our Account No."),1,MAXSTRLEN(Propline."Description 2"))
   ELSE BEGIN
   CompanyInfo.GET;
   Propline."Description 2":= COPYSTR(CompanyInfo.Name,1,MAXSTRLEN(Propline."Description 2" ));
   END;
   Propline."Description 3":='';
   Propline."Description 4":='';
   END;
   END;
   END;
   END;
   // End of the lines.
   
   END.
   }
   RDLDATA
   {
   }
   ...

Prerequisites

• The Dutch version of Microsoft Dynamics NAV 2009 R2
• The Dutch version of Microsoft Dynamics NAV 2009 Service Pack 1

Removal information