Όταν καταχωρείτε ένα τιμολόγιο και πληρωμή από μια κανονική ή επαναλαμβανόμενες εγγραφές που περιέχει εκπεστέος φόρος προστιθέμενης αξίας (ΦΠΑ), μη εκπεστέος ΦΠΑ στην Πορτογαλική έκδοση του Microsoft Dynamics NAV 2009, λαμβάνετε το ακόλουθο μήνυμα λάθους:
"Η συναλλαγή δεν είναι δυνατό να ολοκληρωθεί επειδή ασυμβατότητες στον πίνακα εγγραφή Γ/Λ. Ελέγξτε το πού και πώς χρησιμοποιείται η λειτουργία CONSISTENT στη συναλλαγή για να βρείτε την αιτία του σφάλματος. Επικοινωνήστε με το διαχειριστή του συστήματός σας. Πίνακες μπορούν να σημειωθούν ως ασυνεπείς κατά τη διάρκεια της συνολικής εργασίες, όπως η καταχώρηση εγγραφών. Αυτό εμποδίζει δεδομένων που ενημερώνεται σωστά."
Ακολουθήστε τα βήματα της ενότητας οι αλλαγές κώδικα για να επιλύσετε αυτό το ζήτημα. Αυτό το ζήτημα παρουσιάζεται στο ακόλουθο προϊόν:
-
Πορτογαλική έκδοση του Microsoft Dynamics NAV 2009 R2
-
Της πορτογαλικής έκδοσης του Microsoft Dynamics NAV 2009 SP1
Αυτό οφείλεται από τα συγκεκριμένα ποσά και ποσοστό ΦΠΑ δ..
Για παράδειγμα:
1, 15% 0, 25 = 0,002875 και ΣΤΡΟΓΓΥΛΕΜΈΝΟ σε 2 δεκαδικά ψηφία είναι 0.
12 μονάδα κώδικα δεν υπάρχει περιορισμός για να καταχωρήσετε μόνο ποσά <> 0, ώστε να παρακάμπτονται οι εγγραφές φόρου προστιθέμενης αξίας (ΦΠΑ).
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες Microsoft Dynamics NAV εφαρμογών διακομιστή (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για την 9015 Αναγνωριστικό αντικειμένου συστήματος
το αντικείμενο.
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής. Πριν από την εφαρμογή της αλλαγής, εισαγάγετε όλες τις ενημερωμένες εκδόσεις SEPA.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Να αλλάξετε τον κωδικό στη συνάρτηση InsertVAT στο το Mερισμός Εγγραφών Λογιστικής-μονάδα κώδικα γραμμή καταχώρησης (12) ως εξής:
Υπάρχοντα κωδικό 1...VATDifferenceLCY@1013 : Decimal;
SrcCurrVATDifference@1014 : Decimal;
BEGIN
WITH GenJnlLine DO BEGIN
...Αντικατάσταση κώδικα 1
...VATDifferenceLCY@1013 : Decimal;
SrcCurrVATDifference@1014 : Decimal;
// Add the following line.
VATAmountTotal@1015 : Decimal;
// End of the added line.
BEGIN
WITH GenJnlLine DO BEGIN
...Υπάρχοντα κώδικα 2
...GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
// Delete the following lines.
VATPostingSetup.TESTFIELD("Return VAT account (Sales)");
InitGLEntry(
VATPostingSetup."Return VAT account (Sales)",
// -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100,
-TempVATAmount,
// -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
// End of the deleted lines.
END
ELSE
...Αντικατάσταση κώδικα 2
...GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
END
ELSE
...Υπάρχοντα κώδικα 3
...END
ELSE
// Delete the following lines.
BEGIN
IF NOT GenJnlLine."UE Aquisition Not Accep." THEN BEGIN
VATPostingSetup.TESTFIELD("Purchase VAT Account");
InitGLEntry(
VATPostingSetup."Purchase VAT Account",
GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
InsertGLEntry(TRUE);
END;
//--------
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",
// -GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100,
// ROUND(-GLEntryVATAmount - VATBase * VATPostingSetup."VAT N.D. %" / 100),
ROUND((- VATBase * VATPostingSetup."VAT D. %" / 100) - (VATBase * VATPostingSetup."VAT N.D. %" / 100)),
// -SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
// End of the deleted lines.
InsertGLEntry(TRUE);
END;
...Αντικατάσταση κώδικα 3
...END
ELSE
// Add the following lines.
IF NOT GenJnlLine."UE Aquisition Not Accep." THEN BEGIN
VATPostingSetup.TESTFIELD("Purchase VAT Account");
InitGLEntry(
VATPostingSetup."Purchase VAT Account",
GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
// End of the added lines.
InsertGLEntry(TRUE);
END;
...Υπάρχοντα κωδικό 4
...END;
END;
END;
END;
...Αντικατάσταση κώδικα 4
... END;
END;
// Add the following lines.
IF IsPurchaseReverseChargeVAT(UnrealizedVAT) THEN
IF "Document Type"= "Document Type"::"Credit Memo" THEN BEGIN
IF (NOT GenJnlLine."UE Aquisition Not Accep.") AND (TempVATAmount <> 0) THEN BEGIN
VATPostingSetup.TESTFIELD("Return VAT account (Sales)");
InitGLEntry(
VATPostingSetup."Return VAT account (Sales)",
-TempVATAmount,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
END;
END ELSE BEGIN
VATAmountTotal
:= ROUND((- VATBase * VATPostingSetup."VAT D. %" / 100) - (VATBase * VATPostingSetup."VAT N.D. %" / 100));
IF VATAmountTotal <> 0 THEN BEGIN
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
InitGLEntry(
VATPostingSetup."Reverse Chrg. VAT Acc.",VATAmountTotal,
ROUND(-SrcCurrGLEntryVATAmt - SrcCurrVATBase * VATPostingSetup."VAT N.D. %" / 100),
TRUE,TRUE);
InsertGLEntry(TRUE);
END;
END;
// End of the added lines.
END;
END;
... -
Να αλλάξετε τον κωδικό στη συνάρτηση IsPurchaseReverseChargeVAT στο το Mερισμός Εγγραφών Λογιστικής-μονάδα κώδικα γραμμή καταχώρησης (12) ως εξής:
Υπάρχοντα κώδικα...END;
BEGIN
END.
...Αντικατάσταση κώδικα
...END;
// Add the following lines.
LOCAL PROCEDURE IsPurchaseReverseChargeVAT@1110015(UnrealizedVAT@1110000 : Boolean) : Boolean;
BEGIN
EXIT(
(GenJnlLine."Gen. Posting Type" = GenJnlLine."Gen. Posting Type"::Purchase) AND (NOT UnrealizedVAT) AND
(VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"Reverse Charge VAT" ));
END;
// End of the added lines.
BEGIN
END.
...
Προϋποθέσεις
Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:
-
Πορτογαλική έκδοση του Microsoft Dynamics NAV 2009 R2
-
Της πορτογαλικής έκδοσης του Microsoft Dynamics NAV 2009 SP1
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης".
