Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για τις τοπικές ρυθμίσεις γλώσσας στα Ισπανικά (ες).
Συμπτώματα
Ας υποθέσουμε ότι το πλαίσιο ελέγχου "Υπηρεσία ΕΕ" είναι επιλεγμένο στο παράθυρο διαλόγου "Ρύθμιση καταχώρησης ΦΠΑ" στην ισπανική έκδοση του Microsoft Dynamics NAV. Όταν δημιουργείτε το αρχείο δήλωσης 349, το ποσό στο εξαγωμένο αρχείο είναι εσφαλμένο.
Αυτό το πρόβλημα παρουσιάζεται στα ακόλουθα προϊόντα:
-
Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
-
Η ισπανική έκδοση του Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Επίλυση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι πλέον διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του προβλήματος που περιγράφεται σε αυτό το άρθρο. Εφαρμόστε το μόνο σε συστήματα που αντιμετωπίζουν αυτό το συγκεκριμένο πρόβλημα. Αυτή η άμεση επιδιόρθωση μπορεί να λάβει πρόσθετες δοκιμές. Επομένως, εάν δεν επηρεαζόστε ιδιαίτερα από αυτό το πρόβλημα, συνιστάται να περιμένετε το επόμενο Service Pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτή την άμεση επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που ισχύουν κανονικά για κλήσεις υποστήριξης ενδέχεται να ακυρωθούν εάν ένας Επαγγελματίας τεχνικής υποστήριξης για το Microsoft Dynamics και τα σχετικά προϊόντα προσδιορίσει ότι μια συγκεκριμένη ενημέρωση θα επιλύσει το πρόβλημά σας. Για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση, θα ισχύσουν οι συνηθισμένες χρεώσεις υποστήριξης.
Πληροφορίες εγκατάστασης
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που φαίνεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων στις διαδικασίες. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετη λειτουργικότητα ή κατασκευή διαδικασιών σύμφωνα με τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν από την εγκατάσταση αυτής της άμεσης επιδιόρθωσης, βεβαιωθείτε ότι όλοι οι χρήστες του προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει τους χρήστες προγράμματος-πελάτη υπηρεσιών εφαρμογών (NAS) της Microsoft Navision. Θα πρέπει να είστε ο μοναδικός χρήστης προγράμματος-πελάτη που είναι συνδεδεμένος κατά την υλοποίηση αυτής της άμεσης επιδιόρθωσης.
Για να υλοποιήσετε αυτή την άμεση επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης για προγραμματιστές.
Συνιστάται να εκχωρηθεί στο λογαριασμό χρήστη στο παράθυρο "Συνδέσεις" των Windows ή στο παράθυρο "Συνδέσεις βάσης δεδομένων" το αναγνωριστικό ρόλου "SUPER". Εάν δεν είναι δυνατό να εκχωρηθεί το αναγνωριστικό ρόλου "SUPER" στο λογαριασμό χρήστη, πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Το δικαίωμα "Εκτέλεση" για το αντικείμενο System Object ID 5210 και για το αντικείμενο System Object ID 9015.
Σημείωση: Δεν χρειάζεται να έχετε δικαιώματα στους χώρους αποθήκευσης δεδομένων, εκτός εάν χρειάζεται να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Να ελέγχονται πάντα οι επιδιορθώσεις κώδικα σε ένα ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις επιδιορθώσεις στους υπολογιστές παραγωγής σας.
Για να επιλύσετε αυτό το πρόβλημα, ακολουθήστε τα παρακάτω βήματα:
-
Αλλάξτε τον κωδικό στις ενότητες Αριθμός στοιχείου δεδομένων 5 στην αναφορά δήλωσης Make 349 (88) ως εξής:
Υπάρχων κωδικός 1BEGIN
REPEAT
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Κωδικός αντικατάστασης 1
BEGIN
REPEAT
//Add the follwing lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Υπάρχων κωδικός 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Delete the following lines.
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Κωδικός αντικατάστασης 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Add the following lines.
IF VATInvSales."Transaction No." <> LastTransactionNo THEN BEGIN
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
END;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Υπάρχων κωδικός 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvSales.Base;
UNTIL VATInvSales.NEXT = 0;
END;Κωδικός αντικατάστασης 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvSales.Base;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0;
END;Υπάρχων κωδικός 4
UNTIL VATInvSales.NEXT = 0;
END;
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Κωδικός αντικατάστασης 4
UNTIL VATInvSales.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Υπάρχων κωδικός 5
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvSales.Base;
END ELSEΚωδικός αντικατάστασης 5
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvSales."Transaction No." <> LastTransactionNo THEN
NormalAmount := NormalAmount + AmountToIncludein349;
END ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvSales.Base;
END ELSEΥπάρχων κωδικός 6
END;
// NormalAmount := NormalAmount + VATInvSales.Base;
UNTIL VATInvSales.NEXT = 0;
END;Κωδικός αντικατάστασης 6
END;
// NormalAmount := NormalAmount + VATInvSales.Base;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0;
END;Υπάρχων κωδικός 7
END;
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);Κωδικός αντικατάστασης 7
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);Υπάρχων κωδικός 8
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
AmountEUService := AmountEUService + AmountToIncludein349
ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvSales.Base;
END ELSEΚωδικός αντικατάστασης 8
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvSales."Transaction No." <> LastTransactionNo THEN
AmountEUService := AmountEUService + AmountToIncludein349;
END ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvSales.Base;
END ELSEΥπάρχων κωδικός 9
END;
END;
UNTIL VATInvSales.NEXT = 0;Κωδικός αντικατάστασης 9
END;
END;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0; -
Αλλάξτε τον κωδικό στις ενότητες "Αριθμός στοιχείου δεδομένων 6" στην αναφορά δήλωσης Make 349 (88) ως εξής:
Υπάρχων κωδικός 1BEGIN
REPEAT
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Κωδικός αντικατάστασης 1
BEGIN
REPEAT
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Υπάρχων κωδικός 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Delete the following lines.
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Κωδικός αντικατάστασης 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Add the following lines.
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN BEGIN
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
END;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Υπάρχων κωδικός 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvPurch.Base;
UNTIL VATInvPurch.NEXT = 0;
END;Κωδικός αντικατάστασης 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvPurch.Base;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0;
END;Υπάρχων κωδικός 4
UNTIL VATInvPurch.NEXT = 0;
END;
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Κωδικός αντικατάστασης 4
UNTIL VATInvPurch.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Υπάρχων κωδικός 5
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSEΚωδικός αντικατάστασης 5
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
NormalAmount := NormalAmount + AmountToIncludein349;
END ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSEΥπάρχων κωδικός 6
END;
// NormalAmount := NormalAmount + VATInvPurch.Base;
UNTIL VATInvPurch.NEXT = 0;
END;Κωδικός αντικατάστασης 6
END;
// NormalAmount := NormalAmount + VATInvPurch.Base;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0;
END;Υπάρχων κωδικός 7
UNTIL VATInvPurch.NEXT = 0;
END;
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);Κωδικός αντικατάστασης 7
UNTIL VATInvPurch.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);Υπάρχων κωδικός 8
THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
AmountEUService := AmountEUService + AmountToIncludein349
ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvPurch.Base;
END ELSEΚωδικός αντικατάστασης 8
THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
AmountEUService := AmountEUService + AmountToIncludein349;
END ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvPurch.Base;
END ELSEΥπάρχων κωδικός 9
END;
END;
UNTIL VATInvPurch.NEXT = 0;Κωδικός αντικατάστασης 9
END;
END;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0; -
Προσθέστε μια νέα καθολική μεταβλητή στην αναφορά δήλωσης Make 349 (88) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:
-
Όνομα:LastTransactionNo@1100072
-
Τύπος_δεδομένων: Ακέραιος
-
Προϋποθέσεις
Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα εγκατεστημένα για να εφαρμόσετε αυτή την άμεση επιδιόρθωση:
-
Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
-
Η ισπανική έκδοση του Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Πρέπει να έχετε εγκατεστημένη την αναφορά 349 στα Ισπανικά για να εφαρμόσετε αυτή την άμεση επιδιόρθωση.
Για περισσότερες πληροφορίες, επισκεφθείτε την ακόλουθη τοποθεσία Web της Microsoft: Αναφορά 349 για τα Ισπανικά Επιπλέον, πρέπει να έχετε εγκατεστημένο το πακέτο
ΦΠΑ 2010 για να εφαρμόσετε αυτή την άμεση επιδιόρθωση.
Για περισσότερες πληροφορίες, επισκεφθείτε την ακόλουθη τοποθεσία Web της Microsoft:
Υποστήριξη microsoft Dynamics NAV για ΦΠΑ 2010
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτή την άμεση επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι αυτό είναι ένα πρόβλημα στα προϊόντα της Microsoft που αναφέρονται στην ενότητα "Ισχύει για".
Σημείωση: Αυτό είναι ένα άρθρο "FAST PUBLISH" που δημιουργήθηκε απευθείας από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν παρέχονται ως έχουν ως απάντηση σε ζητήματα που προκύπτουν. Ως αποτέλεσμα της ταχύτητας διαθεσιμής του υλικού, τα υλικά μπορεί να περιλαμβάνουν τυπογραφικά λάθη και να αναθεωρούνται ανά πάσα στιγμή χωρίς ειδοποίηση. Ανατρέξτε στους Όρους χρήσης για άλλα ζητήματα.
