Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για την τοπική ρύθμιση γλώσσας Ρωσικά (ru).
Συμπτώματα
Στη ρωσική έκδοση του Microsoft Dynamics NAV 2009 R2 με το πακέτο δυνατοτήτων 1, εάν τον πίνακα Εγγραφές ΦΠΑ (254) έχει τις αλλαγές της εκχώρησης ΦΠΑ πράξεις, κατά την προσπάθειά σας να αντιστρέψετε καταχώρηση στη φόρμα εγγραφές καθολικού προμηθευτή, λαμβάνετε το ακόλουθο μήνυμα λάθους:
ΚωδItem_No. δεν υπάρχει.
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Σε αυτές περιλαμβάνονται οι χρήστες του προγράμματος-πελάτη Microsoft Navision εφαρμογής υπηρεσιών (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για το αντικείμενο 9015 Αναγνωριστικό αντικειμένου συστήματος .
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
Σημείωση Για να δημιουργήσετε το πεδίο (12490), χρησιμοποιήστε το ακόλουθο αρχείο .fob.
|
Όνομα αρχείου |
Έκδοση αρχείου |
Μέγεθος αρχείου |
Ημ/νία |
Ώρα |
Πλατφόρμα |
|---|---|---|---|---|---|
|
Vstf260227.fob |
Δεν ισχύει |
169,340 |
03-Jun-2011 |
10:08 |
Δεν ισχύει |
Το ακόλουθο αρχείο είναι διαθέσιμο για λήψη από το διακομιστή Exchange της Microsoft Dynamics αρχείων:
https://mbs2.microsoft.com/fileexchange/?fileID=5f52394d-7020-4d24-98b4-909002c45cfeΗμερομηνία έκδοσης:, 2 Απριλίου 2014
Η Microsoft εξέτασε αυτό το αρχείο για ιούς. Η Microsoft χρησιμοποίησε το πιο πρόσφατο λογισμικό εντοπισμού ιών που ήταν διαθέσιμο κατά την ημερομηνία που δημοσιεύτηκε το αρχείο. Το αρχείο είναι αποθηκευμένο σε διακομιστές με ενισχυμένη ασφάλεια, οι οποίοι συμβάλλουν στην αποτροπή μη εξουσιοδοτημένων αλλαγών στο αρχείο.
-
Αλλάξτε τον κωδικό στον πίνακα Εγγραφή αντιλογισμού (179) ως εξής:
-
Προσθέστε το παρακάτω πεδίο: {12490; Εκχώρηση ΦΠΑ; Μια δυαδική τιμή}
-
Αλλάξτε τον κωδικό στη συνάρτηση InsertReversalEntry ως εξής:
Υπάρχοντα κώδικα... ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";
ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";
ReversalEntry."Line No." := NextLineNo;
NextLineNo := NextLineNo + 1;
ReversalEntry.INSERT;
IF GLEntry.Amount > 0 THEN BEGIN
GLItemLedgRelation.RESET;
GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No.");
...Αντικατάσταση κώδικα
... ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";
ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";
ReversalEntry."Line No." := NextLineNo;
// Add the following line.
ReversalEntry."VAT Allocation" := VATAllocOnCost;
// End of the added line.
NextLineNo := NextLineNo + 1;
ReversalEntry.INSERT;
IF GLEntry.Amount >0 THEN BEGIN
GLItemLedgRelation.RESET;
GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No.");
... -
Αλλάξτε τον κωδικό στη συνάρτηση CheckEntries ως εξής:
Υπάρχοντα κωδικό 1... PROCEDURE CheckEntries@14();
...Αντικατάσταση κώδικα 1
... PROCEDURE CheckEntries@14(IsVATAllocOnCost@1000000000 : Boolean);
...Υπάρχοντα κώδικα 2
... MaxPostingDate := 0D;
IF NOT GLEntry.FIND('-') THEN
ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);
// Delete the following line.
VATAllocOnCost := VATAllocationExist(VATEntry);
// End of the deleted line.
IF GLEntry.FIND('-') THEN BEGIN
// Delete the following line.
IF (GLEntry."Journal Batch Name" = '') AND NOT VATAllocOnCost THEN
// End of the deleted line.
TestFieldError;
REPEAT
CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);
UNTIL GLEntry.NEXT = 0;
END;
...Αντικατάσταση κώδικα 2
... MaxPostingDate := 0D;
IF NOT GLEntry.FIND('-') THEN
ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);
IF GLEntry.FIND('-') THEN BEGIN
// Add the following line.
IF (GLEntry."Journal Batch Name" = '') AND NOT IsVATAllocOnCost THEN
// End of the added line.
TestFieldError;
REPEAT
CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);
UNTIL GLEntry.NEXT = 0;
END;
...Υπάρχοντα κώδικα 3
... IF VATEntry.FIND('-') THEN
REPEAT
CheckVAT(VATEntry);
UNTIL VATEntry.NEXT = 0;
// Delete the following line.
IF VATAllocOnCost THEN
// End of the deleted line.
IF ValueEntry.FIND('-') THEN
REPEAT
CheckItem(ValueEntry);
UNTIL ValueEntry.NEXT = 0;
...Αντικατάσταση κώδικα 3
... IF VATEntry.FIND('-') THEN
REPEAT
CheckVAT(VATEntry);
UNTIL VATEntry.NEXT = 0;
// Add the following line.
IF IsVATAllocOnCost THEN
// End of the added line.
IF ValueEntry.FIND('-') THEN
REPEAT
CheckItem(ValueEntry);
UNTIL ValueEntry.NEXT = 0;
... -
Αλλάξτε τον κωδικό στη συνάρτηση SetReverseFilter ως εξής:
Υπάρχοντα κωδικό 1... TaxDiffEntry.SETRANGE("Transaction No.",Number);
END ELSE BEGIN
GLReg.GET(Number);
...Αντικατάσταση κώδικα 1
... TaxDiffEntry.SETRANGE("Transaction No.",Number);
// Add the following line.
ValueEntry.SETRANGE("Entry No.",0);
// End of the added line.
END ELSE BEGIN
GLReg.GET(Number);
...Υπάρχοντα κώδικα 2
... VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");
GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");
GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");
IF GLItemLedgRelation.FINDFIRST THEN
FromValueEntryNo := GLItemLedgRelation."Value Entry No.";
IF GLItemLedgRelation.FINDLAST THEN
ToValueEntryNo := GLItemLedgRelation."Value Entry No.";
ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo);
...Αντικατάσταση κώδικα 2
... VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");
// Add the following lines.
FromValueEntryNo := 0;
ToValueEntryNo := 0;
IF VATAllocOnCost THEN BEGIN
// End of the added lines.
GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");
GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");
IF GLItemLedgRelation.FINDFIRST THEN
FromValueEntryNo := GLItemLedgRelation."Value Entry No.";
IF GLItemLedgRelation.FINDLAST THEN
ToValueEntryNo := GLItemLedgRelation."Value Entry No.";
// Add the following line.
END;
// End of the added line.
ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo);
... -
Αλλάξτε τον κωδικό στη συνάρτηση VATAllocationExist ως εξής:
Υπάρχοντα κώδικα...// Delete the following line.
VATEntry2.COPYFILTERS(VATEntry2);
// End of the deleted line.
VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);
EXIT(NOT VATEntry2.ISEMPTY);
...Αντικατάσταση κώδικα
...// Add the following line.
VATEntry2.COPYFILTERS(VATEntry);
// End of the added line.
VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);
EXIT(NOT VATEntry2.ISEMPTY);
...
-
-
Αλλάξτε τον κωδικό στη συνάρτηση καταχώρηση στη φόρμα Αντιλογισμός Εγγραφών (179) ως εξής:
Προσθέστε την παρακάτω τοπική μεταβλητή:-
Όνομα: VATAllocOnCost
-
Τύπος δεδομένων: δυαδική τιμή
Υπάρχοντα κωδικό 1
... IF TempGLReg.FINDSET THEN
REPEAT
ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");
// Delete the following line.
ReversalEntry2.CheckEntries;
// End of the deleted line.
GET(1);
IF "Reversal Type" = "Reversal Type"::Register THEN
Number := TempGLReg."No."
ELSE
Number := "Transaction No.";
...Αντικατάσταση κώδικα 1
... IF TempGLReg.FINDSET THEN
REPEAT
// Add the following lines.
SETRANGE("G/L Register No.",TempGLReg."No.");
SETRANGE("VAT Allocation",TRUE);
VATAllocOnCost := NOT ISEMPTY;
// End of the added lines.
ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");
// Add the following line.
ReversalEntry2.CheckEntries(VATAllocOnCost);
// End of the added line.
GET(1);
IF "Reversal Type" = "Reversal Type"::Register THEN
Number := TempGLReg."No."
ELSE
Number := "Transaction No.";
...Υπάρχοντα κώδικα 2
... UNTIL TempGLReg.NEXT = 0;
END ELSE BEGIN
ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");
// Delete the following line.
ReversalEntry2.CheckEntries;
// End of the deleted line.
GET(1);
IF "Reversal Type" = "Reversal Type"::Register THEN
Number := "G/L Register No."
...Αντικατάσταση κώδικα 2
... UNTIL TempGLReg.NEXT = 0;
END ELSE BEGIN
// Add the following lines.
SETRANGE("G/L Register No.",TempGLReg."No.");
SETRANGE("VAT Allocation",TRUE);
VATAllocOnCost := NOT ISEMPTY;
// End of the added lines.
ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");
// Add the following line.
ReversalEntry2.CheckEntries(VATAllocOnCost);
// End of the added line.
GET(1);
IF "Reversal Type" = "Reversal Type"::Register THEN
Number := "G/L Register No."
... -
Προϋποθέσεις
Πρέπει να έχετε την ρωσική έκδοση του Microsoft Dynamics NAV 2009 R2 με το πακέτο δυνατοτήτων 1 για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση.
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Αναφορές
VSTF DynamicsNAV SE: 260227
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης ".
