Το ποσό ΦΠΑ είναι εσφαλμένη, όταν εισαγάγετε μια γραμμή τιμολογίου για ένα τιμολόγιο στρογγυλοποίησης λογαριασμού γενικής λογιστικής στο Microsoft Dynamics NAV 2009

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

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

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

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

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

1. Δημιουργήστε μια νέα συνάρτηση GetCPGInvRoundAcc που χρησιμοποιεί τον τύπο του κώδικα για την επιστρεφόμενη τιμή (κατά μήκος 20) στον πίνακα γραμμή πώλησης (37). Για να δημιουργήσετε αυτήν τη συνάρτηση, ακολουθήστε τα εξής βήματα:

   1. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: Cust@1012

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

      • Δευτερεύων τύπος: πελατών

   2. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: CustPostingGroup@1013

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

      • Δευτερεύων τύπος: Ομάδα καταχώρησης πελατών

   3. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: CustTemplate@1014

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

      • Δευτερεύων τύπος: πρότυπο πελάτη

   4. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: SalesSetup@1008

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

      • Δευτερεύων τύπος: Παραμετροποίηση Πωλήσεων & Εισπράξεων

   5. Προσθέστε τον κώδικα ως εξής:
      

      SalesSetup.GET;IF SalesSetup."Invoice Rounding" THEN BEGIN
        IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
          CustPostingGroup.GET(Cust."Customer Posting Group")
        ELSE
          IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
            CustPostingGroup.GET(CustTemplate."Customer Posting Group");
      END;
      EXIT(CustPostingGroup."Invoice Rounding Account");
      

2. Διαγράψτε τις ακόλουθες τοπικές μεταβλητές στη συνάρτηση CalcVATAmountLines στον πίνακα γραμμή πώλησης (37):

   • Cust@1012

   • CustPostingGroup@1013

   • CustTemplate@1014

3. Αλλάξτε τον κωδικό στη συνάρτηση CalcVATAmountLines στον πίνακα γραμμή πώλησης (37) ως εξής:
   Υπάρχοντα κώδικα

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     SalesSetup.GET;
     IF SalesSetup."Invoice Rounding" THEN BEGIN
       IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
         CustPostingGroup.GET(Cust."Customer Posting Group")
       ELSE
         IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
           CustPostingGroup.GET(CustTemplate."Customer Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = CustPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

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

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetCPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

4. Δημιουργήστε μια νέα συνάρτηση GetVPGInvRoundAcc που χρησιμοποιεί τον τύπο κωδικό (κατά μήκος 20) για την επιστρεφόμενη τιμή στον πίνακα γραμμή αγορών (39). Για να δημιουργήσετε αυτήν τη συνάρτηση, ακολουθήστε τα εξής βήματα:

   1. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: Vendor@1000

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

      • Δευτερεύων τύπος: προμηθευτή

   2. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: VendorPostingGroup@1001

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

      • Δευτερεύων τύπος: Ομάδα καταχώρησης προμηθευτών

   3. Προσθέσετε μια νέα τοπική μεταβλητή και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

      • Όνομα: PurchSetup@1002

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

      • Δευτερεύων τύπος: Αγορών & πληρωτέων

   4. Προσθέστε τον κώδικα ως εξής:
      

      PurchSetup.GET;  IF PurchSetup."Invoice Rounding" THEN  
        IF Vendor.GET(PurchHeader."Pay-to Vendor No.") THEN
          VendorPostingGroup.GET(Vendor."Vendor Posting Group");
      EXIT(VendorPostingGroup."Invoice Rounding Account");
      

      
      

5. Διαγράψτε τις ακόλουθες τοπικές μεταβλητές στη συνάρτηση CalcVATAmountLines στον πίνακα γραμμή αγορών (39):

   • Vendor@1012

   • VendorPostingGroup@1013

6. Για να αλλάξετε τον κωδικό στη συνάρτηση CalcVATAmountLines στον πίνακα γραμμή αγορών (39):
   Υπάρχοντα κώδικα

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     PurchSetup.GET;
     IF PurchSetup."Invoice Rounding" THEN BEGIN
       Vendor.GET(PurchHeader."Pay-to Vendor No.");
       VendorPostingGroup.GET(Vendor."Vendor Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

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

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetVPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …