Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) does not copy the job information when you run the Move Negative Lines function to create a sales invoice from the job task lines for a job

Installation information

Code changes

1. Change the code in the CopySalesDoc function (FromDocType : Option;FromDocNo : Code[20];VAR ToSalesHeader : Record "Sales Header") codeunit (6620) as follows:
   Existing code

   ...
      END;
   
   IF MoveNegLines THEN 
     DeleteSalesLinesWithNegQty(FromSalesHeader,FALSE);
   
   CASE TRUE OF
   ...

   Replacement code

   ...
      END;
   
   IF MoveNegLines THEN BEGIN   
     DeleteSalesLinesWithNegQty(FromSalesHeader,FALSE);
     LinkJobPlanningLine(ToSalesHeader);
   END;
   
   CASE TRUE OF
   ...

2. Change the code in the CopySalesLine function ((VAR ToSalesHeader : Record "Sales Header";VAR ToSalesLine : Record "Sales Line";VAR FromSalesHeader : Record "Sales Header") codeunit (6620) as follows:
   Existing code

   ...
    IF MoveNegLines AND (ToSalesLine.Type <> ToSalesLine.Type::" ") THEN BEGIN
     ToSalesLine.VALIDATE(Quantity,-FromSalesLine.Quantity);
     ToSalesLine.VALIDATE("Line Discount %", FromSalesLine."Line Discount %");
     ToSalesLine."Appl.-to Item Entry" := FromSalesLine."Appl.-to Item Entry";
     ToSalesLine."Appl.-from Item Entry" := FromSalesLine."Appl.-from Item Entry";
   END;
   ...

   Replacement code

   ...
      IF MoveNegLines AND (ToSalesLine.Type <> ToSalesLine.Type::" ") THEN BEGIN
     ToSalesLine.VALIDATE(Quantity,-FromSalesLine.Quantity);
     ToSalesLine.VALIDATE("Line Discount %", FromSalesLine."Line Discount %");
     ToSalesLine."Appl.-to Item Entry" := FromSalesLine."Appl.-to Item Entry";
     ToSalesLine."Appl.-from Item Entry" := FromSalesLine."Appl.-from Item Entry";
   
   // Add the following lines.
     ToSalesLine."Job No." := FromSalesLine."Job No."; 
     ToSalesLine."Job Task No." := FromSalesLine."Job Task No."; 
     ToSalesLine."Job Contract Entry No." := FromSalesLine."Job Contract Entry No.";
   // End of the added lines.
   
   END;
   ...

3. Click C/AL Globals in the View menu, add the LinkJobPlanningLinefunction on the Function tab.
   Add a local parameter as follows:
   • Name: SalesHeader
   • DataType: Record
   • Subtype: Sales Header
   
   Add the local variables as follows:
   • Name: SalesLine; DataType: Record; SubType: Sales Line
   • Name: JobPlanningLine; DataType: Record; SubType: Job Planning Line
   
   Add the following code in the created LinkJobPlanningLine function:

   JobPlanningLine.SETCURRENTKEY("Job Contract Entry No.");
   SalesLine.SETRANGE("Document Type",SalesHeader."Document Type");
   SalesLine.SETRANGE("Document No.",SalesHeader."No.");
     REPEAT
       JobPlanningLine.SETRANGE("Job Contract Entry No.",SalesLine."Job Contract Entry No.");
       JobPlanningLine.SETRANGE(Transferred,FALSE);
       IF JobPlanningLine.FINDFIRST THEN BEGIN
         IF SalesHeader."Document Type" = SalesHeader."Document Type"::Invoice THEN
           JobPlanningLine."Invoice Type" := JobPlanningLine."Invoice Type"::Invoice;
         IF SalesHeader."Document Type" = SalesHeader."Document Type"::"Credit Memo" THEN
           JobPlanningLine."Invoice Type" := JobPlanningLine."Invoice Type"::"Credit Memo";
         JobPlanningLine."Invoice No." := SalesHeader."No.";
         JobPlanningLine.Transferred := TRUE;
         JobPlanningLine."Transferred Date" := SalesHeader."Posting Date";
         JobPlanningLine.MODIFY;
       END;
     UNTIL SalesLine.NEXT = 0;
   

Prerequisites

Removal information