Σε κάποιες περιπτώσεις, ενώ υπήρχε το κατάλληλο Setup, το σύστημα δεν εντόπιζε το αντίστοιχο φύλλο μερισμού αναλυτικής. Επίσης το μήνυμα λάθους το οποίο εμφανίζει είναι από την παλιαότερη έκδοση (3.60) και πρέπει να αλλάξει. To πρόβλημα είναι γενικό και το δημοσιεύω για να κάνετε τις αλλαγές στους πελάτες σας. Έχει γίνει documented στο VSA και περιμένουμε fix σε επόμενο Service Pack. Οι αλλαγές που πρέπει να γίνουν είναι στο codeunit 16716 "AL Management".
Variables
- Change Global Variable GLEntryDim2 from normal to temporary
- Add global dimension DimMgt a Codeunit 408
Correct Error Message
Change Text Constant 16722
From: There is no A/L Posting Setup for this combination of A/L Posting Group and Global Dimensions. Identifiacation Fields and Values: A/L Posting Group = %1,Global Dimension 1 = %2,Global Dimension 2 = %3
To: A/L Posting setup cannot be found for %1: %2 and all possible A/L Setup Dimension combinations. Identification fields and values: %3:%4, %5:%6, %7:%8
Change Code for error message
Function CheckGenJnlLine
IF NOT CheckALPostingSetup(ALPostingGroup.Code,0,ALPostingSetup) // GR0001
THEN ERROR(Text16722,ALPostingGroup.Code, "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
Change to
THEN ERROR(Text16722,ALPostingGroup.FIELDCAPTION(Code),ALPostingGroup.Code,FIELDCAPTION("Journal Template Name"),"Journal Template Name",FIELDCAPTION("Journal Batch Name"),"Journal Batch Name",FIELDCAPTION("Line No."),"Line No.");
Function CheckPurchaseLine
IF NOT CheckALPostingSetup(ALPostingGroup.Code,1,ALPostingSetup) // GR0001
THEN ERROR(Text16722,ALPostingGroup.Code, "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
Change to
THEN ERROR(Text16722,ALPostingGroup.FIELDCAPTION(Code),ALPostingGroup.Code,FIELDCAPTION("Document Type"),"Document Type",FIELDCAPTION("Document No."),"Document No.",FIELDCAPTION("Line No."),"Line No.");
Function CheckSalesLine
IF NOT CheckALPostingSetup(ALPostingGroup.Code,2,ALPostingSetup) // GR0001
THEN ERROR(Text16722,ALPostingGroup.Code, "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
Change to
THEN ERROR(Text16722,ALPostingGroup.FIELDCAPTION(Code),ALPostingGroup.Code,FIELDCAPTION("Document Type"),"Document Type",FIELDCAPTION("Document No."),"Document No.",FIELDCAPTION("Line No."),"Line No.");
Function CheckGLEntry
IF NOT CheckALPostingSetup(ALPostingGroup.Code,3,ALPostingSetup) // GR0001
THEN ERROR(Text16722,ALPostingGroup.Code, "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
Change to
THEN ERROR(Text16722,ALPostingGroup.FIELDCAPTION(Code),ALPostingGroup.Code,FIELDCAPTION("Document Type"),"Document Type",FIELDCAPTION("Document No."),"Document No.",FIELDCAPTION("Entry No."),"Entry No.");
Change Code
Function CheckALPosting Setup
EntryType::"Sales Line": BEGIN
WITH DocDim DO BEGIN
SETRANGE("Table ID",39); a Change to 37
EntryType::"G/L Entry": BEGIN
WITH GLEntryDim2 DO BEGIN
SETRANGE("Table ID",81); a Change from 81 to “Table ID”
Function CheckGLEntry
CLEARALL;
GLEntryDim2 := JnlLineDim; // GR0000 a Delete line
GenJnlLine2 := GenJnlLine; // GR0000
Change to
CLEARALL;
GLEntryDim2.DELETEALL; a add
DimMgt.CopyJnlLineDimToJnlLineDim(JnlLineDim,GLEntryDim2); a add
GenJnlLine2 := GenJnlLine; // GR0000