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

Αυτό το άρθρο περιγράφει ένα ζήτημα, όταν εφαρμόζετε ένα τιμολόγιο πώλησης που περιέχει μη πραγματοποιημένο ΦΠΑ και αρνητική γραμμή σε ένα πιστωτικό τιμολόγιο με την ιταλική έκδοση του Microsoft Dynamics NAV 2009. Αυτό το ζήτημα εξακολουθεί να παρουσιάζεται μετά την υλοποίηση της διόρθωσης της KB 2882952.

Ακολουθήστε τα βήματα της ενότητας οι αλλαγές κώδικα για να επιλύσετε αυτό το ζήτημα. Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:

Την ιταλική έκδοση του Microsoft Dynamics NAV 2009 R2
Της ιταλικής έκδοσης του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Προτεινόμενη αντιμετώπιση

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

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη 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 Αναγνωριστικό αντικειμένου συστήματος

το αντικείμενο.

Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.

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

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

Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:

Αλλάξτε τον κώδικα στα κλειδιά στον πίνακα "εγγραφές ΦΠΑ" (254) ως εξής:
Υπάρχοντα κώδικα

...KeyGroups=SalesTax }
      {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                     SumIndexFields=Base,Additional-Currency Base;
                                                     KeyGroups=VIES_EC }

// Delete the following line.
     {    ;Document No.,Posting Date                }
// End of the deleted line.

      {    ;Transaction No.                          }
      {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                     KeyGroups=SalesTax }
      {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...

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

...KeyGroups=SalesTax }
      {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                     SumIndexFields=Base,Additional-Currency Base;
                                                     KeyGroups=VIES_EC }

// Add the following line.
     {    ;Document No.,Posting Date               ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
// End of the added line.

      {    ;Transaction No.                          }
      {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                     KeyGroups=SalesTax }
      {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...

Αλλάξτε τον κωδικό στη συνάρτηση GetUnRealizedVATPart στον πίνακα "εγγραφές ΦΠΑ" (254) ως εξής:
Υπάρχοντα κωδικό 1

...END;
        EXIT(GLSetup."Additional Reporting Currency");
      END;

// Delete the following line.
     PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
// End of the deleted line.

      VAR
        UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
      BEGIN
        IF (Type <> 0) AND
...

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

...END;
        EXIT(GLSetup."Additional Reporting Currency");
      END;

// Add the following line.
     PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
// End of the added line.

      VAR
        UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
      BEGIN
        IF (Type <> 0) AND
...

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

...(("Remaining Unrealized Amount" = 0) AND
              ("Remaining Unrealized Base" = 0))
          THEN
            EXIT(0);

// Delete the following lines.
        //IF ABS(Paid) = ABS(Full) THEN
        //   EXIT(1);

         CASE UnrealizedVatType OF
           UnrealizedVatType::Percentage:
             BEGIN
               IF Type2 = Type2::Purchase THEN BEGIN
                 IF (DocType = DocType::"Credit Memo") THEN BEGIN
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
                 END ELSE BEGIN
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                   ELSE
                     EXIT(1)
                 END;
               END
               ELSE BEGIN
                 IF (DocType = DocType::"Credit Memo") THEN BEGIN
                   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
                 END ELSE BEGIN
                   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                   ELSE
                     EXIT(1)
                 END;
               END;
// End of the deleted lines.

              END;
            UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                BEGIN
                  IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...

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

...(("Remaining Unrealized Amount" = 0) AND
              ("Remaining Unrealized Base" = 0))
          THEN
            EXIT(0);

// Add the following lines.
         IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
            NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
         THEN BEGIN
           VATPart := 1;
           EXIT(VATPart);
         END;

         CASE UnrealizedVatType OF
           UnrealizedVatType::Percentage:
             IF Type2 = Type2::Purchase THEN BEGIN
               TransactionInclPrepmt := FALSE;
               IF DocType = DocType::"Credit Memo" THEN BEGIN
                 IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                        (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END ELSE
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                     EXIT(1)
               END ELSE BEGIN
                 IF PurchInvInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                       (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END ELSE
                   IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                     EXIT(
                       CalcVatPart(
                         GetCurrencyCode,1.0,TotalPayments,
                        ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
                 EXIT(1);
               END;
             END ELSE BEGIN
               TransactionInclPrepmt := FALSE;
               IF DocType = DocType::"Credit Memo" THEN BEGIN
                 IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                   TransactionInclPrepmt := TRUE;
                   IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                        (ABS(Paid) = ABS(Full))
                     THEN
                       VATPart := 1
                     ELSE
                       VATPart :=
                         CalcVatPart(
                           GetCurrencyCode,1.0,TotalPayments,
                           GetTransactionRemainingAmount("Transaction No."));
                   END;
                   EXIT(VATPart);
                 END;
                 IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                   EXIT(1);
                 EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
               END;
               IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                 TransactionInclPrepmt := TRUE;
                 IF VATPart = 0 THEN BEGIN
                  IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                      (ABS(Paid) = ABS(Full))
                   THEN
                     VATPart := 1
                   ELSE
                     VATPart :=
                       CalcVatPart(
                         GetCurrencyCode,1.0,TotalPayments,
                         GetTransactionRemainingAmount("Transaction No."));
                 END;
                 EXIT(VATPart);
               END ELSE
                 IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                   EXIT(
                     CalcVatPart(
                       GetCurrencyCode,1.0,TotalPayments,
                       ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
               EXIT(1);
// End of the added lines.

              END;
            UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                BEGIN
                  IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...

Αλλάξτε τον κωδικό στη συνάρτηση SalesInvInclPrepmt στον πίνακα "εγγραφές ΦΠΑ" (254) ως εξής:
Υπάρχοντα κώδικα

...EXIT(RemainingAmount - SettledAmount);
        EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
      END;

      BEGIN
      END.
    }
  }
...

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

...EXIT(RemainingAmount - SettledAmount);
        EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
      END;

// Add the following lines.
  LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    SalesInvLine@1130001 : Record 113;
  BEGIN
    SalesInvLine.SETRANGE("Document No.",DocNo);
    SalesInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesInvLine.ISEMPTY);
  END;

  LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    SalesCrMemoLine@1130001 : Record 115;
  BEGIN
    SalesCrMemoLine.SETRANGE("Document No.",DocNo);
    SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesCrMemoLine.ISEMPTY);
  END;

  LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    PurchInvLine@1130001 : Record 123;
  BEGIN
    PurchInvLine.SETRANGE("Document No.",DocNo);
    PurchInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchInvLine.ISEMPTY);
  END;

  LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
  VAR
    PurchCrMemoLine@1130001 : Record 125;
  BEGIN
    PurchCrMemoLine.SETRANGE("Document No.",DocNo);
    PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchCrMemoLine.ISEMPTY);
  END;

  LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
  VAR
    VATEntry@1130001 : Record 254;
  BEGIN
    WITH VATEntry DO BEGIN
      SETRANGE("Transaction No.",TransactionNo);
      IF FINDSET THEN
        REPEAT
          TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
        UNTIL NEXT = 0;
    END;
  END;

  LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
  VAR
    VATEntry@1130002 : Record 254;
  BEGIN
    VATEntry.SETCURRENTKEY("Document No.","Posting Date");
    VATEntry.SETRANGE("Document No.",DocumentNo);
    VATEntry.SETRANGE("Posting Date",PostingDate);
    VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
    EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
  END;

  LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
  BEGIN
    CASE VATType OF
      VATType::Purchase:
        IF DocumentType = DocumentType::"Credit Memo" THEN
          EXIT(PurchCrMemoInclPrepmt(DocumentNo))
        ELSE
          EXIT(PurchInvInclPrepmt(DocumentNo));
      VATType::Sale:
        IF DocumentType = DocumentType::"Credit Memo" THEN
          EXIT(SalesInvInclPrepmt(DocumentNo))
        ELSE
          EXIT(SalesCrMemoInclPrepmt(DocumentNo));
    END;
  END;
// End of the added lines.

      BEGIN
      END.
    }
  }
...

Να αλλάξετε τον κωδικό στη συνάρτηση CustUnrealizedVAT στο το Mερισμός Εγγραφών Λογιστικής-μονάδα κώδικα γραμμή καταχώρησης (12) ως εξής:
Υπάρχοντα κωδικό 1

...SalesVATUnrealAccount@1010 : Code[20];
        LastConnectionNo@1011 : Integer;
        TotalPayments@1130000 : Decimal;
        Type2@1130001 : 'Sale,Purchase';
      BEGIN
        PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
...

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

...SalesVATUnrealAccount@1010 : Code[20];
        LastConnectionNo@1011 : Integer;
        TotalPayments@1130000 : Decimal;
        Type2@1130001 : 'Sale,Purchase';

// Add the following line.
       TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.

      BEGIN
        PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
...

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

...InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Delete the following lines.
           VATPart := VATEntry2.GetUnRealizedVATPart(
             ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
             PaidAmount,
             CustLedgEntry2."Original Amt. (LCY)",
             TotalUnrealVATAmountFirst,
             TotalUnrealVATAmountLast,
             Type2::Sale,
             CustLedgEntry2."Document Type",
             CustLedgEntry2.Open,
             CustLedgEntry2.Amount,
             CustLedgEntry2."Remaining Amount",
             TotalPayments);
// End of the deleted lines.

            IF VATPart > 0 THEN BEGIN
              CASE VATEntry2."VAT Calculation Type" OF
                VATEntry2."VAT Calculation Type"::"Normal VAT",
...

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

...InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Add the following lines.
           VATPart :=
             VATEntry2.GetUnRealizedVATPart(
               ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
               PaidAmount,
               CustLedgEntry2."Original Amt. (LCY)",
               TotalUnrealVATAmountFirst,
               TotalUnrealVATAmountLast,
               Type2::Sale,
               CustLedgEntry2."Document Type",
               CustLedgEntry2.Open,
               CustLedgEntry2.Amount,
               CustLedgEntry2."Remaining Amount",
               TotalPayments,
               VATPart,
               TransactionInclPrepmt);
// End of the added lines.

            IF VATPart > 0 THEN BEGIN
              CASE VATEntry2."VAT Calculation Type" OF
                VATEntry2."VAT Calculation Type"::"Normal VAT",
...

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

...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                    AddCurrency."Amount Rounding Precision");
              END;

// Delete the following line.
             TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted line.

              IF VATAmount <> 0 THEN BEGIN
                InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

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

...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                    AddCurrency."Amount Rounding Precision");
              END;

// Add the following lines.
             IF TransactionInclPrepmt THEN
               TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
             ELSE
               TotalPayments :=
                 TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.

              IF VATAmount <> 0 THEN BEGIN
                InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

Να αλλάξετε τον κωδικό στη συνάρτηση VendUnrealizedVAT στο το Mερισμός Εγγραφών Λογιστικής-μονάδα κώδικα γραμμή καταχώρησης (12) ως εξής:
Υπάρχοντα κωδικό 1

...PurchReverseUnrealAccount@1012 : Code[20];
        LastConnectionNo@1013 : Integer;
        Type2@1130000 : 'Sale,Purchase';
        TotalPayments@1130001 : Decimal;
      BEGIN
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
        VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...

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

...PurchReverseUnrealAccount@1012 : Code[20];
        LastConnectionNo@1013 : Integer;
        Type2@1130000 : 'Sale,Purchase';
        TotalPayments@1130001 : Decimal;

// Add the following line.
       TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.

      BEGIN
        VATEntry2.RESET;
        VATEntry2.SETCURRENTKEY("Transaction No.");
        VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...

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

...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
              InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Delete the following lines.
           IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
             EXIT;
           VATPart := VATEntry2.GetUnRealizedVATPart(
             ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
             PaidAmount,
             VendLedgEntry2."Original Amt. (LCY)",
             TotalUnrealVATAmountFirst,
             TotalUnrealVATAmountLast,
             Type2::Purchase,
             VendLedgEntry2."Document Type",
             VendLedgEntry2.Open,
             VendLedgEntry2.Amount,
             VendLedgEntry2."Remaining Amount",
             TotalPayments);
// End of the deleted lines.

            IF VATPart >= 0 THEN BEGIN
              IF VATPart <> 0 THEN BEGIN
                CASE VATEntry2."VAT Calculation Type" OF
...

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

...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
              InsertSummarizedVAT;
              LastConnectionNo := VATEntry2."Sales Tax Connection No.";
            END;

// Add the following lines.
           IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
              (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
           THEN
             EXIT;

           VATPart :=
             VATEntry2.GetUnRealizedVATPart(
               ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
               PaidAmount,
               VendLedgEntry2."Original Amt. (LCY)",
               TotalUnrealVATAmountFirst,
               TotalUnrealVATAmountLast,
               Type2::Purchase,
               VendLedgEntry2."Document Type",
               VendLedgEntry2.Open,
               VendLedgEntry2.Amount,
               VendLedgEntry2."Remaining Amount",
               TotalPayments,
               VATPart,
               TransactionInclPrepmt);
// End of the added lines.

            IF VATPart >= 0 THEN BEGIN
              IF VATPart <> 0 THEN BEGIN
                CASE VATEntry2."VAT Calculation Type" OF
...

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

...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                    END;
                END;

// Delete the following lines.
               VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
               VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
               TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted lines.

                IF VATAmount <> 0 THEN BEGIN
                  InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                  GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

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

...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                    END;
                END;

// Add the following lines.
               VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
               VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
             IF TransactionInclPrepmt THEN
               TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
             ELSE
               TotalPayments :=
                 TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.

                IF VATAmount <> 0 THEN BEGIN
                  InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                  GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...

Προϋποθέσεις

Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:

Η Ιταλική μετάφραση του Microsoft Dynamics NAV 2009 R2
Η Ιταλική μετάφραση του Microsoft Dynamics NAV 2009 SP1

Πληροφορίες κατάργησης

Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.

Κατάσταση

Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".

Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης".

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

Προτεινόμενη αντιμετώπιση

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

Πληροφορίες εγκατάστασης

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

Προϋποθέσεις

Πληροφορίες κατάργησης

Κατάσταση

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!