The net profit or the net loss is not reversed by the Close/Open Balance Sheet report when the net profit or the net loss is calculated and posted by using the Close Income Statement report in the Italian version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the following key in the G/L Entry table (17) as follows:
   Existing key
   • Key: G/L Account No.,Posting Date,Bal. Account No.
   • SumIndexFields: Amount,Debit Amount,Credit Amount,Additional-Currency Amount,Add.-Currency Debit Amount,Add.-Currency Credit Amount
   Replacement key
   • Key: G/L Account No.,Posting Date,Bal. Account No.,Transaction No.
   • SumIndexFields: Amount,Debit Amount,Credit Amount,Additional-Currency Amount,Add.-Currency Debit Amount,Add.-Currency Credit Amount
2. Change the following key in the G/L Entry table (17) as follows:
   Existing key
   • Key: G/L Account No.,Business Unit Code,Global Dimension 1 Code,Global Dimension 2 Code,Close Income Statement Dim. ID,Posting Date,Bal. Account No.
   • SumIndexFields: Amount,Debit Amount,Credit Amount,Additional-Currency Amount,Add.-Currency Debit Amount,Add.-Currency Credit Amount
   Replacement key
   • Key: G/L Account No.,Business Unit Code,Global Dimension 1 Code,Global Dimension 2 Code,Close Income Statement Dim. ID,Posting Date,Bal. Account No.,Transaction No.
   • SumIndexFields: Amount,Debit Amount,Credit Amount,Additional-Currency Amount,Add.-Currency Debit Amount,Add.-Currency Credit Amount
3. Add a global variable in the Close/Open Balance Sheet report (12113), and then specify the variable as follows:
   • Name:CloseTransactionNo
   • DataType:Integer
4. Add a local variable in the Integer - OnAfterGetRecord trigger in the Close/Open Balance Sheet report (12113), and then specify the variable as follows:
   • Name:CloseGLEntry
   • DataType:Record
   • Subtype:G/L Entry
5. Change the code in the Integer - OnAfterGetRecord trigger in the Close/Open Balance Sheet report (12113) as follows:
   Existing code

   ...
   IF Number = 1 THEN BEGIN
     GenJnlLine."Journal Template Name" := ClTemplateName;
     GenJnlLine."Journal Batch Name" := ClBatchName;
   END ELSE BEGIN
     GenJnlLine."Journal Template Name" := OpTemplateName;
     GenJnlLine."Journal Batch Name" := OpBatchName;
   END;
   ...
   

   Replacement code

   ...
   IF Number = 1 THEN BEGIN
     GenJnlLine."Journal Template Name" := ClTemplateName;
     GenJnlLine."Journal Batch Name" := ClBatchName;
   END ELSE BEGIN
     GenJnlLine."Journal Template Name" := OpTemplateName;
     GenJnlLine."Journal Batch Name" := OpBatchName;
   
   // Add the following lines.
     IF GLSetup."Additional Reporting Currency" <> '' THEN 
       IF CloseGLEntry.FINDLAST THEN
          CloseTransactionNo := CloseGLEntry."Transaction No."; 
   // End of the lines.
   ...
   

6. Change the code in the G/L Entry - OnPreDataItem trigger in the Close/Open Balance Sheet report (12113) as follows:
   Existing code

   ...
   IF ClosePerBusUnit OR ClosePerGlobalDim1 OR ClosePerGlobalDim2 OR NOT ClosePerGlobalDimOnly THEN
     SETCURRENTKEY(
       "G/L Account No.","Business Unit Code",
       "Global Dimension 1 Code","Global Dimension 2 Code","Close Income Statement Dim. ID",
   
   // Delete the following line.
       "Posting Date","Bal. Account No.")
   
   ELSE
   
   // Delete the following lines.
     SETCURRENTKEY("G/L Account No.","Posting Date","Bal. Account No.");
   IF Integer.Number = 2 THEN 
     SETFILTER("Bal. Account No.",'<>%1',ClAccNo);
   // End of the lines.
   
   EntryNoAmountBuf.DELETEALL;
   
   CLEAR(DimBufMgt2);
   ...
   

   Replacement code

   ...
   IF ClosePerBusUnit OR ClosePerGlobalDim1 OR ClosePerGlobalDim2 OR NOT ClosePerGlobalDimOnly THEN
     SETCURRENTKEY(
       "G/L Account No.","Business Unit Code",
       "Global Dimension 1 Code","Global Dimension 2 Code","Close Income Statement Dim. ID",
   
   // Add the following line.
       "Posting Date","Bal. Account No.","Transaction No.") 
   
   ELSE
   
   // Add the following line.
     SETCURRENTKEY("G/L Account No.","Posting Date","Bal. Account No.","Transaction No.");
   
   SETRANGE("Posting Date",FiscalYearStartDate,FiscYearClosingDate);
   // Add the following lines.
   IF (GLSetup."Additional Reporting Currency" <> '') AND (Integer.Number = 2) THEN  
     IF CloseTransactionNo <> 0 THEN
       SETFILTER("Transaction No.",'<>%1',CloseTransactionNo); 
   // End of the lines.
   
   EntryNoAmountBuf.DELETEALL;
   
   CLEAR(DimBufMgt2);
   ...
   

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 Service Pack 1
• The Italian version of Microsoft Dynamics NAV 2009
• The Italian version of Microsoft Dynamics NAV 5.0 Service Pack 1

Removal information