Global dimensions are not transferred to Telebank proposals even though you set the global dimensions in bank accounts in the Dutch version of Microsoft Dynamics NAV

Installation information

Code changes

1. Add a new local variable in the OnInsert trigger in the Proposal Line table (11000000), and then specify the variable as follows:
   • Name: FDBR
   • DataType: Record
   • Subtype: Gen. Journal Line
2. Add a new local variable in the OnInsert trigger in the Proposal Line table (11000000), and then specify the variable as follows:
   • Name: TableID
   • DataType: ARRAY [10] OF Integer
3. Add a new local variable in the OnInsert trigger in the Proposal Line table (11000000), and then specify the variable as follows:
   • Name: No
   • DataType: ARRAY [10] OF Code
   • Length: 20
4. Change the code in the OnInsert trigger in the Proposal Line table (11000000) as follows:
   Existing code

   ...
   InitRecord;
   DimManagement.InsertJnlLineDim(DATABASE::"Proposal Line",
   "Our Bank No.",'',"Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   ...

   Replacement code

   ...
   InitRecord;
   DimManagement.InsertJnlLineDim(DATABASE::"Proposal Line",
   "Our Bank No.",'',"Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Add the following lines.
   TableID[1] := DimManagement.TypeToTableID1(FDBR."Account Type"::"Bank Account"); 
   No[1] := "Our Bank No."; 
   "Shortcut Dimension 1 Code" := ''; 
   "Shortcut Dimension 2 Code" := ''; 
   DimManagement.GetDefaultDim( 
   TableID,No,'',"Shortcut Dimension 1 Code","Shortcut Dimension 2 Code"); 
   DimManagement.InsertJnlLineDim(DATABASE::"Proposal Line", 
   "Our Bank No.",'',0,0, 
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code"); 
   // End of the lines.
   ...

5. Add a new local variable in the OnDelete trigger in the Proposal Line table (11000000), and then specify the variable as follows:
   • Name: ProposalLine
   • DataType: Record
   • Subtype: Proposal Line
6. Change the code in the OnDelete trigger in the Proposal Line table (11000000) as follows:
   Existing code

   ...
   DetailFilter("Detail line",Rec);
   "Detail line".DELETEALL(FALSE);
   DimManagement.DeleteJnlLineDim(DATABASE::"Proposal Line",
   "Our Bank No.",'',"Line No.",0);
   ...

   Replacement code

   ...
   DetailFilter("Detail line",Rec);
   "Detail line".DELETEALL(FALSE);
   DimManagement.DeleteJnlLineDim(DATABASE::"Proposal Line",
   "Our Bank No.",'',"Line No.",0);
   
   // Add the following lines.
   ProposalLine.SETFILTER("Line No.",'<>%1',"Line No.");
   ProposalLine.SETFILTER("Our Bank No.","Our Bank No."); 
   IF ProposalLine.ISEMPTY THEN 
   DimManagement.DeleteJnlLineDim(DATABASE::"Proposal Line", 
   "Our Bank No.",'',0,0); 
   // End of the lines.
   ...

7. Add a new local variable in the CreatePaymentHistoryLine function in the Process Proposal Lines codeunit (11000000), and then specify the variable as follows:
   • Name: FromBankJnlDim
   • DataType: Record
   • Subtype: Journal Line Dimension
8. Add a new local variable in the CreatePaymentHistoryLine function in the Process Proposal Lines codeunit (11000000), and then specify the variable as follows:
   • Name: ToBankJnlDim
   • DataType: Record
   • Subtype: Journal Line Dimension
9. Change the code in the CreatePaymentHistoryLine function in the Process Proposal Lines codeunit (11000000) as follows:
   Existing code

   ...
   DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim, ToJnlDim);
   PaymentHistLine."Global Dimension 1 Code" := Propline."Shortcut Dimension 1 Code";
   ...

   Replacement code

   ...
   DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim, ToJnlDim);
   
   // Add the following lines.
   DimManagement.DeleteJnlLineDim(DATABASE::"Payment History", 
   PaymHist."Our Bank",PaymHist."Run No.",0,0); 
   
   FromBankJnlDim.SETRANGE("Table ID",DATABASE::"Proposal Line");
   FromBankJnlDim.SETRANGE("Journal Template Name",Propline."Our Bank No."); 
   FromBankJnlDim.SETRANGE("Journal Line No.",0);
   
   ToBankJnlDim."Table ID" := DATABASE::"Payment History";
   ToBankJnlDim."Journal Template Name" := PaymHist."Our Bank";
   ToBankJnlDim."Journal Batch Name" := PaymHist."Run No.";
   ToBankJnlDim."Journal Line No." := 0;
   
   DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromBankJnlDim,ToBankJnlDim);
   // End of the lines.
   
   PaymentHistLine."Global Dimension 1 Code" := Propline."Shortcut Dimension 1 Code";
   ...

Prerequisites

• The Dutch version of Microsoft Dynamics NAV 2009 R2
• The Dutch version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• The Dutch version of Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Removal information