Incorrect WIP entries are posted when you run the Post WIP function on a job that uses the Completed Contract WIP method in the North American version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Add a new DeleteEntriesForJob function in the Job WIP Entry table (1004) as follows:

   PROCEDURE DeleteEntriesForJob@1001(Job@1002 : Record 167);
   
   SETCURRENTKEY("Job No.");
   SETRANGE("Job No.",Job."No.");
   IF NOT ISEMPTY THEN
   DELETEALL(TRUE);

2. Change the code in the CalcGLWIP function in the Job Calculate WIP codeunit (1000) as follows:
   Existing code

   ...
   GLEntry.FIND('+');
   JobWIPGLEntry."G/L Entry No." := GLEntry."Entry No.";
   DimMgt.CopyLedgEntryDimToLedgEntryDim(DATABASE::"Job WIP Entry",
   JobWIPEntry."Entry No.",
   DATABASE::"Job WIP G/L Entry",
   JobWIPGLEntry."Entry No.");
   JobWIPGLEntry.INSERT;
   UNTIL JobWIPEntry.NEXT = 0;
   END;

   Replacement code

   ...
   GLEntry.FIND('+');
   JobWIPGLEntry."G/L Entry No." := GLEntry."Entry No.";
   DimMgt.CopyLedgEntryDimToLedgEntryDim(DATABASE::"Job WIP Entry",
   JobWIPEntry."Entry No.",
   DATABASE::"Job WIP G/L Entry",
   JobWIPGLEntry."Entry No.");
   JobWIPGLEntry.INSERT;
   UNTIL JobWIPEntry.NEXT = 0;
   END;
   
   // Add the following line.
   DeleteWIP(Job);

3. Add a new DeleteWIP function in the Job Calculate WIP codeunit (1000). To do this, follow these steps:
   1. Add a new local variable in the DeleteWIP function in the Job Calculate WIP codeunit (1000), and then specify the variable as follows:
      • Name: JobTask
      • DataType: Record
      • Subtype: Job Task (1001)
   2. Add a new local variable in the DeleteWIP function in the Job Calculate WIP codeunit (1000), and then specify the variable as follows:
      • Name: JobWIPEntry
      • DataType: Record
      • Subtype: Job WIP Entry (1004)
   3. Add a new local variable in the DeleteWIP function in the Job Calculate WIP codeunit (1000), and then specify the variable as follows:
      • Name: JobLedgerEntry
      • DataType: Record
      • Subtype: Job Ledger Entry (169)
   4. Add the following code in the DeleteWIP function in the Job Calculate WIP codeunit (1000):

      PROCEDURE DeleteWIP@1001(Job@1002 : Record 167);
      VAR
      JobTask@1003 : Record 1001;
      JobWIPEntry@1004 : Record 1004;
      JobLedgerEntry@1005 : Record 169;
      
      JobTask.SETRANGE("Job No.",Job."No.");
      IF JobTask.FIND('-') THEN
      REPEAT
      JobTask.InitWIPFields;
      UNTIL JobTask.NEXT = 0;
      
      JobWIPEntry.DeleteEntriesForJob(Job);
      
      JobLedgerEntry.SETRANGE("Job No.",Job."No.");
      JobLedgerEntry.MODIFYALL("Amt. to Post to G/L",0);

Prerequisites

• The North American version of Microsoft Dynamics NAV 2009 R2
• The North American version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Removal information