The DRF Code field and the "Bal. DRF Code" field are filled incorrectly in posted entries when you post a general journal in the Portuguese version of Microsoft Dynamics NAV 2009 Service Pack 1

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, follow these steps:

1. Add a new global variable in the Gen. Jnl.-Post Line codeunit (12), and then specify the variable as follows:

   • Name: FromBalAcc

   • DataType: Boolean

2. Change the code in the Code function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code 1

   ...
   ["Account Type"::Customer,
   "Account Type"::Vendor,
   "Account Type"::"Fixed Asset"])
   
   // Delete the following lines.
   THEN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   // End of the lines.
   
   IF "Account No." <> '' THEN
   CASE "Account Type" OF
   ...

   Replacement code 1

   ...
   ["Account Type"::Customer,
   "Account Type"::Vendor,
   "Account Type"::"Fixed Asset"])
   
   // Add the following lines.
   THEN BEGIN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   FromBalAcc := TRUE;
   END;
   // End of the lines.
   
   IF "Account No." <> '' THEN
   CASE "Account Type" OF
   ...

   Existing code 2

   ...
   PostICPartner;
   END;
   
   IF "Bal. Account No." <> '' THEN BEGIN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   IF "Account No." <> '' THEN
   ...

   Replacement code 2

   ...
   PostICPartner;
   END;
   
   // Add the following lines.
   IF FromBalAcc = TRUE THEN
   FromBalAcc := FALSE
   ELSE
   FromBalAcc := TRUE;
   // End of the lines.
   
   IF "Bal. Account No." <> '' THEN BEGIN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   IF "Account No." <> '' THEN
   ...

3. Change the code in the InitGLEntry function in the Gen. Jnl.-Post Line codeunit (12) as follow:
   Existing code

   ...
   (GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account") AND
   (TempGLAcc.GET(GLAccNo)) THEN
   IF (TempGLAcc."Associate DRF Code") THEN
   
   // Delete the following line.
   IF GenJnlLine.Amount > 0 THEN BEGIN
   
   IF (GenJnlLine."DRF Code" <> '') THEN
   GLEntry."DRF Code" := GenJnlLine."DRF Code"
   ELSE
   ...

   Replacement code

   ...
   (GenJnlLine."Account Type" = GenJnlLine."Account Type"::"Bank Account") AND
   (TempGLAcc.GET(GLAccNo)) THEN
   IF (TempGLAcc."Associate DRF Code") THEN
   
   // Add the following line.
   IF NOT FromBalAcc THEN BEGIN
   
   IF (GenJnlLine."DRF Code" <> '') THEN
   GLEntry."DRF Code" := GenJnlLine."DRF Code"
   ELSE
   ...

4. Change the code in the Code function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code 1

   ...
   JobLine := (GenJnlLine."Job No." <> '');
   
   InitCodeUnit;
   
   IF ("Account No." <> '') AND ("Bal. Account No." <> '') AND (NOT "System-Created Entry") AND
   ("Account Type" IN
   ["Account Type"::Customer,
   ...

   Replacement code 1

   ...
   JobLine := (GenJnlLine."Job No." <> '');
   
   InitCodeUnit;
   
   // Add the following line.
   FromBalAcc := FALSE;
   
   IF ("Account No." <> '') AND ("Bal. Account No." <> '') AND (NOT "System-Created Entry") AND
   ("Account Type" IN
   ["Account Type"::Customer,
   ...

   Existing code 2

   ...
   PostICPartner;
   END;
   
   // Delete the following lines.
   IF FromBalAcc = TRUE THEN
   FromBalAcc := FALSE
   ELSE
   FromBalAcc := TRUE;
   // End of the lines.
   
   IF "Bal. Account No." <> '' THEN BEGIN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   IF "Account No." <> '' THEN
   ...

   Replacement code 2

   ...
   PostICPartner;
   END;
   
   // Add the following line.
   FromBalAcc := NOT FromBalAcc;
   
   IF "Bal. Account No." <> '' THEN BEGIN
   ExchAccGLJnlLine.RUN(GenJnlLine);
   IF "Account No." <> '' THEN
   ...