Microsoft Dynamics Development

Re: Πρόβλημα με τα Φύλλα μερισμού και τις Διαστάσεις (3.70.01.01 GR)

Arhontis — Tue, 01 Mar 2005 23:11:49 GMT

Δικό μου λάθος, ζητώ συγνώμη από όσους έλαβαν γνώση του post, παρέβλεψα ότι στην αρχή του post αναφέρεται πως η μεταβλητή GLEntryDim2 πρέπει να γίνει temporary=Yes.

Re: Πρόβλημα με τα Φύλλα μερισμού και τις Διαστάσεις (3.70.01.01 GR)

Arhontis — Tue, 01 Mar 2005 21:17:26 GMT

Καλησπέρα,

Η αλλαγή στη ρουτίνα CheckGLEntry έχει προκαλέσει ένα πρόβλημα με τις διαστάσεις των εγγραφών Γ/Λ. Σε περίπτωση που στο General Journal καταχωρήσουμε κάποιες εγγραφές σε λογαριασμούς με κάποια από αυτές να καταχωρεί στην Αναλυτική Λογιστική, τότε εάν έχουμε εισάγει τιμές σε διαστάσεις (Shortcut) τότε κατα την καταχώρηση της εγγραφής που περιέχει τον λογαριασμό που καταχωρεί στην Α/Λ, οι διαστάσεις των υπολοίπων γραμμών (Journal Line Dimension) διαγράφονται και δεν καταχωρούνται στον πίνακα Ledger Entry Dimension.

Η μεταβλητή GLEntryDim2 (που είναι τύπου Rec Journal Line Dimension) είναι καθολική στο codeunit και δεν είναι Temporary, και με αυτό τον τρόπο με το DeleteAll διαγράφει τις διαστάσεις από το Journal. Ίσως θα πρέπει να γίνει μια αντίστοιχη τοπική μεταβλητή με temporary=Yes για να καταριστεί και να πάρει τις κατάληλες τιμές με την CopyJnlLineDimToJnlLineDim.

Το έχω δοκιμάσει με την Cronus Demo με την τελευταία έκδοση (Hotfix GR1) και με την ενημέρωση που αναγράφεται στο post αυτό.

Η αρχική έκδοση του Hotfix GR1 δεν δημιουργεί το πρόβλημα.

Πρόβλημα με τα Φύλλα μερισμού και τις Διαστάσεις (3.70.01.01 GR)

dionisp — Tue, 21 Dec 2004 19:39:34 GMT

Σε κάποιες περιπτώσεις, ενώ υπήρχε το κατάλληλο 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

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

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