Не може да провери сервиз, когато използвате цени с ДДС за сервиз в датска версия на Microsoft Dynamics NAV

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за 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. Да променяте началните при изпълнение на 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);
   ...