Δεν μπορεί να επικυρώσει ένα πιστωτικό τιμολόγιο, όταν χρησιμοποιείτε τιμές με ΦΠΑ για το πιστωτικό τιμολόγιο σε της δανικής έκδοσης του Microsoft Dynamics NAV

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:

1. Αλλάξτε τον κωδικό στη μονάδα κώδικα OIOUBL εξαγωγής πωλήσεις πιστωτικών τιμολογίων (13610) ως εξής:
   Προσθέστε την παρακάτω καθολική μεταβλητή:

   • Όνομα: Νομισματική μονάδα

   • Τύπος δεδομένων: Εγγραφή (4)

   
   Προσθέστε την ακόλουθη τοπική λειτουργία: ExcludeVAT (VAR SalesCrMemoLine: 115 εγγραφή; PricesInclVAT:Boolean)
   
   Προσθέστε την παρακάτω τοπική μεταβλητή:

   • Όνομα: ExclVATFactor

   • Τύπος δεδομένων: δεκαδικών

   
   

   ...IF NOT PricesInclVAT THEN
   
   EXIT;
   
   WITH SalesCrMemoLine DO BEGIN
   
   ExclVATFactor := 1 + "VAT %" / 100;
   
   "Line Discount Amount" := ROUND("Line Discount Amount" / ExclVATFactor,Currency."Amount Rounding Precision");
   
   "Inv. Discount Amount" := ROUND("Inv. Discount Amount" / ExclVATFactor,Currency."Amount Rounding Precision");
   
   "Unit Price" := ROUND("Unit Price" / ExclVATFactor,Currency."Amount Rounding Precision");
   
   END;
   ...
   

2. Αλλάξτε τον κωδικό του εναύσματος OnRun στη μονάδα κώδικα OIOUBL εξαγωγής πωλήσεις πιστωτικών τιμολογίων (13610) ως εξής:
   Υπάρχοντα κωδικό 1

   ...IF "Currency Code" = '' THEN
   
   CurrencyCode := GLSetup."LCY Code"
   
   ELSE
   
   CurrencyCode := "Currency Code";
   ...
   

   Αντικατάσταση κώδικα 1

   ...IF "Currency Code" = '' THEN
   
   CurrencyCode := GLSetup."LCY Code"
   
   ELSE
   
   CurrencyCode := "Currency Code";
   
   // Add the following lines.
   IF CurrencyCode = GLSetup."LCY Code" THEN
   
   Currency.InitRoundingPrecision
   
   ELSE BEGIN
   
   Currency.GET(CurrencyCode);
   
   Currency.TESTFIELD("Amount Rounding Precision");
   
   END;
   // End of the added lines.
   ...
   

   Υπάρχοντα κώδικα 2

   ...TotalInvDiscountAmount := 0;
   
   IF SalesCrMemoLine2.FINDSET THEN
   
   REPEAT
   
   TotalInvDiscountAmount := TotalInvDiscountAmount + SalesCrMemoLine2."Inv. Discount Amount" +
   
   SalesCrMemoLine2."Line Discount Amount";
   ...
   

   Αντικατάσταση κώδικα 2

   ...TotalInvDiscountAmount := 0;
   
   IF SalesCrMemoLine2.FINDSET THEN
   
   REPEAT
   
   // Add the following line.
   ExcludeVAT(SalesCrMemoLine2,"Prices Including VAT");
   // End of the added line.
   
   TotalInvDiscountAmount := TotalInvDiscountAmount + SalesCrMemoLine2."Inv. Discount Amount" +
   
   SalesCrMemoLine2."Line Discount Amount";
   ...
   

   Υπάρχοντα κώδικα 3

   ...TaxableAmount:=0;
   
   TaxAmount:=0;
   
   SalesCrMemoLine2.RESET;
   
   SalesCrMemoLine2.COPY(SalesCrMemoLine);
   
   SalesCrMemoLineFound := FALSE;
   
   IF SalesCrMemoLine2.FINDSET THEN
   
   REPEAT
   
   TaxableAmount := TaxableAmount + SalesCrMemoLine2.Amount + SalesCrMemoLine2."Inv. Discount Amount" +
   
   SalesCrMemoLine2."Line Discount Amount";
   ...
   

   Αντικατάσταση κώδικα 3

   ...TaxableAmount:=0;
   
   TaxAmount:=0;
   
   SalesCrMemoLine2.RESET;
   
   SalesCrMemoLine2.COPY(SalesCrMemoLine);
   
   SalesCrMemoLineFound := FALSE;
   
   IF SalesCrMemoLine2.FINDSET THEN
   
   REPEAT
   
   // Add the following line.
   ExcludeVAT(SalesCrMemoLine2,"Prices Including VAT");
   // End of the added line.
   
   TaxableAmount := TaxableAmount + SalesCrMemoLine2.Amount + SalesCrMemoLine2."Inv. Discount Amount" +
   
   SalesCrMemoLine2."Line Discount Amount";
   ...
   

   Υπάρχοντα κωδικό 4

   ...SalesCrMemoLine.TESTFIELD(Description);
   
   AddElement(XMLCurrNode,'CreditNoteLine','',DocNameSpace2,XMLNewChild,Prefix2);
   ...
   

   Αντικατάσταση κώδικα 4

   ...SalesCrMemoLine.TESTFIELD(Description);
   
   // Add the following line.
   ExcludeVAT(SalesCrMemoLine,"Prices Including VAT");
   // End of the added line.
   
   AddElement(XMLCurrNode,'CreditNoteLine','',DocNameSpace2,XMLNewChild,Prefix2);
   ...