The "Posting No. Series" value is not used as the document number when you post the close income statement lines in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code of the Properties in the Close Income Statement report (94) as follows:
   Existing code

   ...
                       IF NOT GenJnlLine.FIND('+') THEN;
                       GenJnlLine.INIT;
                       GenJnlLine."Posting Date" := FiscYearClosingDate;
                       GenJnlLine."Document No." := DocNo;
                       GenJnlLine.Description := PostingDescription;
                     END;
     
         OnPostReport=VAR
                        UpdateAnalysisView@1000 : Codeunit 410;
                      BEGIN
   ...
   

   Replacement code

   ...
                       IF NOT GenJnlLine.FIND('+') THEN;
                       GenJnlLine.INIT;
                       GenJnlLine."Posting Date" := FiscYearClosingDate;
                       GenJnlLine."Document No." := DocNo;
                       GenJnlLine.Description := PostingDescription;
   
   // Add the following lines.
                         GenJnlLine."Posting No. Series" := GenJnlBatch."Posting No. Series";
   
                     END;
     
         OnPostReport=VAR
                        UpdateAnalysisView@1000 : Codeunit 410;
                      BEGIN
   ...
   

2. Change the code in the HandleGenJnlLine function in the Close Income Statement report (94) as follows:
   Existing code

   ...
               GenJnlLine.VALIDATE(Amount,GenJnlLine."Source Currency Amount");
               GenJnlLine."Source Currency Amount" := 0;
             END;
             IF GenJnlLine.Amount <> 0 THEN
               GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim);
   
   // Delete the following lines.
             END ELSE BEGIN
               DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim,JnlLineDim);
               GenJnlLine.INSERT;
             END;
       
             NoSeriesCode := NoSeriesMgt1.GetNextNo(GenJnlBatch."No. Series",EndDateReq,FALSE);
             NoSeriesLine.SETCURRENTKEY("Series Code","Starting Date");
             NoSeriesLine.SETRANGE("Series Code",GenJnlBatch."No. Series");
             NoSeriesLine.SETRANGE("Starting Date",0D,EndDateReq);
             IF NoSeriesLine.FINDLAST THEN BEGIN
               IF DocNo = NoSeriesCode THEN BEGIN
                 NoSeriesLine."Last No. Used" := DocNo;
                 NoSeriesLine.MODIFY;
               END;
   // End of the lines.
   
           END;
         END;
     
         LOCAL PROCEDURE CalcSumsInFilter@18();
         BEGIN
   ...
   

   Replacement code

   ...
               GenJnlLine.VALIDATE(Amount,GenJnlLine."Source Currency Amount");
               GenJnlLine."Source Currency Amount" := 0;
             END;
             IF GenJnlLine.Amount <> 0 THEN BEGIN
               GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim);
   
   // Add the following lines.
                 IF DocNo = NoSeriesMgt.GetNextNo(GenJnlBatch."No. Series",EndDateReq,FALSE) THEN
                   NoSeriesMgt.SaveNoSeries;
               END;
             END ELSE BEGIN
               DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim,JnlLineDim);
               GenJnlLine.INSERT;
   // End of the lines.
   
           END;
         END;
     
         LOCAL PROCEDURE CalcSumsInFilter@18();
         BEGIN
   ...
   

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information