Microsoft Dynamics NAV 2009'in İtalyanca sürümünde bir iade faturası için bir satış faturası uygularken, KDV yanlış nakledilir

Düzeltme bilgileri

Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.

Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.

Yükleme bilgileri

Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.

Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.

Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.

Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:

• Nesnenin, değiştirme değişiklik yapma izni.

• Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
  
  nesne.

Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.

Kod değişiklikleri

Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.

Bu sorunu gidermek için şu adımları izleyin:

1. Anahtar kodu KDV Girişi tablosundaki (254) aşağıdaki gibi değiştirin:
   Varolan kodu

   ...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;
   ...
   

   Kod değiştirme

   ...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;
   ...
   

2. GetUnRealizedVATPart işlevinde KDV Girişi tablosundaki (254) kodu aşağıdaki gibi değiştirin:
   Varolan kodu 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
   ...
   

   Değiştirme kodu 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
   ...
   

   Varolan kodu 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
   ...
   

   Değiştirme kodu 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
   ...
   

3. SalesInvInclPrepmt işlevinde KDV Girişi tablosundaki (254) kodu aşağıdaki gibi değiştirin:
   Varolan kodu

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

   Kod değiştirme

   ...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.
       }
     }
   ...
   

4. CustUnrealizedVAT işlevinde, Yev. kodunu değiştirmek-Post satır kod (12), aşağıdaki gibi:
   Varolan kodu 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.");
   ...
   

   Değiştirme kodu 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.");
   ...
   

   Varolan kodu 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",
   ...
   

   Değiştirme kodu 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",
   ...
   

   Varolan kodu 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;
   ...
   

   Değiştirme kodu 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;
   ...
   

5. VendUnrealizedVAT işlevinde, Yev. kodunu değiştirmek-Post satır kod (12), aşağıdaki gibi:
   Varolan kodu 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.");
   ...
   

   Değiştirme kodu 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.");
   ...
   

   Varolan kodu 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
   ...
   

   Değiştirme kodu 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
   ...
   

   Varolan kodu 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;
   ...
   

   Değiştirme kodu 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;
   ...
   

Önkoşullar

Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:

• Microsoft Dynamics NAV 2009 R2'in İtalyan yerelleştirme

• Microsoft Dynamics NAV 2009 SP1'in İtalyanca yerelleştirme

Kaldırma bilgileri

Bu düzeltmeyi kaldıramazsınız.