Suggest Vendor Payments report suggests incorrect dimensions in Microsoft Dynamics NAV 2009

Installation information

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure. However, they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Note Before you install this hotfix, verify that all Microsoft Dynamics NAV client users are logged off the system. This includes Microsoft Dynamics NAV Application Server (NAS) services. You should be the only client user who is logged on when you implement this hotfix.

To implement this hotfix, you must have a developer license.

We recommend that the user account in the Windows Logins window or in the Database Logins window be assigned the "SUPER" role ID. If the user account cannot be assigned the "SUPER" role ID, you must verify that the user account has the following permissions:

• The Modify permission for the object that you will be changing.
• The Execute permission for the System Object ID 5210 object and for the System Object ID 9015
  
  object.

Note You do not have to have rights to the data stores unless you have to perform data repair.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers. Before applying the change, please import all SEPA updates.

To resolve this problem, follow these steps:

1. Change the code in the MakeGenJnlLines function in the Suggest Vendor Payments report (393) as follows:
   Existing code

   ...
   JnlLineDim.SETRANGE("Journal Line No.","Line No.");
               JnlLineDim.DELETEALL;
   
               CreateDim(
                 DimMgt.TypeToTableID1("Account Type"),"Account No.",
                 DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                 DATABASE::Job,"Job No.",
                 DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                 DATABASE::Campaign,"Campaign No.");
   
               IF SummarizePerVend THEN BEGIN
                 TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
   ...

   Replacement code

   ...
   JnlLineDim.SETRANGE("Journal Line No.","Line No.");
               JnlLineDim.DELETEALL;
   
               IF SummarizePerVend THEN BEGIN
                 TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
   ...

2. Change the code in the MakeGenJnlLines function in the Suggest Vendor Payments report (393) as follows:
   Existing code 1

   ...
   TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
                 DimBufMgt.GetDimensions(TempPaymentBuffer."Dimension Entry No.",TempDimBuf);
                 IF TempDimBuf.FINDSET THEN
                   REPEAT
                     DimMgt.SaveJnlLineDim(
                       DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
   ...

   Replacement code 1

   ...
   TempDimBuf.RESET;
                 TempDimBuf.DELETEALL;
                 DimBufMgt.GetDimensions(TempPaymentBuffer."Dimension Entry No.",TempDimBuf);
                 IF TempDimBuf.FINDSET THEN BEGIN
                   CreateDim(
                     DimMgt.TypeToTableID1("Account Type"),"Account No.",
                     DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                     DATABASE::Job,"Job No.",
                     DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                     DATABASE::Campaign,"Campaign No.");
                   REPEAT
                     DimMgt.SaveJnlLineDim(
                       DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
   ...

   Existing code 2

   ...
   DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
                       DimMgt.GlobalDimNo(TempDimBuf."Dimension Code"),TempDimBuf."Dimension Value Code");
                   UNTIL TempDimBuf.NEXT = 0;
               END ELSE BEGIN
                 LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry");
                 LedgEntryDim.SETRANGE("Entry No.",TempPaymentBuffer."Vendor Ledg. Entry No.");
   ...

   Replacement code 2

   ...
   DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,
                       DimMgt.GlobalDimNo(TempDimBuf."Dimension Code"),TempDimBuf."Dimension Value Code");
                   UNTIL TempDimBuf.NEXT = 0;
   
                   TempDimBuf.FINDFIRST;
                   DeleteDimNotInTempDimBuf(
                     DATABASE::"Gen. Journal Line","Journal Template Name","Journal Batch Name","Line No.",0,TempDimBuf);
                 END;
               END ELSE BEGIN
                 LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry");
                 LedgEntryDim.SETRANGE("Entry No.",TempPaymentBuffer."Vendor Ledg. Entry No.");
   ...

   Existing code 3

   ...
   REPEAT
                     JnlLineDim.SETRANGE("Allocation Line No.",0);
                     JnlLineDim.SETRANGE("Dimension Code",LedgEntryDim."Dimension Code");
                     IF NOT JnlLineDim.ISEMPTY THEN
                       JnlLineDim.DELETEALL;
                   UNTIL LedgEntryDim.NEXT = 0;
   
                 DimMgt.MoveLedgEntryDimToJnlLineDim(
   ...

   Replacement code 3

   ...
   REPEAT
                     JnlLineDim.SETRANGE("Allocation Line No.",0);
                     JnlLineDim.SETRANGE("Dimension Code",LedgEntryDim."Dimension Code");
                     IF JnlLineDim.FINDFIRST THEN
                       JnlLineDim.DELETE(TRUE);
                   UNTIL LedgEntryDim.NEXT = 0;
   
                 DimMgt.MoveLedgEntryDimToJnlLineDim(
   ...

3. Change the code in the DeleteDimNotInTempDimBuf function in the Suggest Vendor Payments report (393) as follows:
   Existing code

   ...
   EXIT(NOT DimBuf.ISEMPTY);
       END;
   
       BEGIN
       END.
     }
   ...

   Replacement code

   ...
   EXIT(NOT DimBuf.ISEMPTY);
       END;
   
       LOCAL PROCEDURE DeleteDimNotInTempDimBuf@17(TableID@1000 : Integer;JnlTemplateName@1001 : Code[10];JnlBatchName@1002 : Code[10];JnlLineNo@1003 : Integer;AllocationLineNo@1004 : Integer;DimBuf@1006 : Record 360);
       VAR
         DimFound@1007 : Boolean;
       BEGIN
         JnlLineDim.RESET;
         JnlLineDim.SETRANGE("Table ID",DATABASE::"Gen. Journal Line");
         JnlLineDim.SETRANGE("Journal Template Name",JnlTemplateName);
         JnlLineDim.SETRANGE("Journal Batch Name",JnlBatchName);
         JnlLineDim.SETRANGE("Journal Line No.",JnlLineNo);
         JnlLineDim.SETRANGE("Allocation Line No.",0);
         IF JnlLineDim.FINDSET THEN
           REPEAT
             DimFound := FALSE;
             REPEAT
               IF JnlLineDim."Dimension Code" = DimBuf."Dimension Code" THEN
                 DimFound := TRUE;
             UNTIL DimBuf.NEXT = 0;
             IF NOT DimFound THEN
               JnlLineDim.DELETE(TRUE);
           UNTIL JnlLineDim.NEXT = 0
       END;
   
       BEGIN
       END.
     }
   ...

Prerequisites

You must have one of the following products installed to apply this hotfix:

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

In addition, you have to install KB2664507 .

Removal information

You cannot remove this hotfix.