Эта статья относится к Microsoft Dynamics NAV для всех стран и языковых стандартов.
Проблема
Предположим, что в Microsoft Dynamics NAV 2009 вы создали заказ на продажу с полем Предоплата% 100. Затем вы размещаете счет на предоплату для заказа на продажу. Затем вы размещаете отправку частично для заказа на продажу. В этом случае при публикации счета для заказа на продажу появляется следующее сообщение об ошибке:
Примечание
Значение (LCY) должно иметь тот же знак, что и Amount в gen. Строка журнала.
Эта проблема также возникает при публикации счета для частично отправленного заказа на покупку, в котором поле Предоплата% имеет значение 100.
Эта проблема возникает в следующих продуктах:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)
Решение
Сведения об исправлении
Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащей это исправление.
Примечание. В особых случаях плата, которая обычно взимается за звонки в службу поддержки, может быть отменена, если специалист по технической поддержке Microsoft Dynamics и связанных продуктов определит, что конкретное обновление поможет устранить вашу проблему. Обычные расходы на поддержку будут применяться к дополнительным вопросам и проблемам поддержки, которые не относятся к конкретному обновлению.
Сведения об установке
Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями.
Примечание. Перед установкой этого исправления убедитесь, что все пользователи клиента Microsoft Navision вышли из системы. Сюда входят пользователи клиентов Служб приложений Microsoft Navision (NAS). Вы должны быть единственным пользователем клиента, который вошел в систему при реализации этого исправления.
Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.
Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:
- Разрешение Изменить для объекта, который вы будете изменять.
- Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.
Изменения кода
Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:
Измените код в процедуре CalcVATAmountLines@35 в таблице Sales Line (37) следующим образом:
Существующий код... END ELSE BEGIN CASE "VAT Calculation Type" OF "VAT Calculation Type"::"Normal VAT", "VAT Calculation Type"::"Reverse Charge VAT": BEGIN "VAT Base" := "Line Amount" - "Invoice Discount Amount"; "VAT Amount" := "VAT Difference" + ROUND( PrevVatAmountLine."VAT Amount" + "VAT Base" * "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100), Currency."Amount Rounding Precision",Currency.VATRoundingDirection); "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount" + "VAT Amount"; IF Positive THEN PrevVatAmountLine.INIT // Delete the following lines. ELSE BEGIN PrevVatAmountLine := VATAmountLine; PrevVatAmountLine."VAT Amount" := ROUND(PrevVatAmountLine."VAT Amount" - "VAT Base" * "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100), Currency."Amount Rounding Precision",Currency.VATRoundingDirection); END; // End of the lines. ...Код замены
... END ELSE BEGIN CASE "VAT Calculation Type" OF "VAT Calculation Type"::"Normal VAT", "VAT Calculation Type"::"Reverse Charge VAT": BEGIN "VAT Base" := "Line Amount" - "Invoice Discount Amount"; "VAT Amount" := "VAT Difference" + ROUND( PrevVatAmountLine."VAT Amount" + "VAT Base" * "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100), Currency."Amount Rounding Precision",Currency.VATRoundingDirection); "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount" + "VAT Amount"; IF Positive THEN PrevVatAmountLine.INIT // Add the following lines. ELSE IF NOT "Includes Prepayment" THEN BEGIN PrevVatAmountLine := VATAmountLine; PrevVatAmountLine."VAT Amount" := "VAT Base" * "VAT %" / 100 * (1 - SalesHeader."VAT Base Discount %" / 100); PrevVatAmountLine."VAT Amount" := PrevVatAmountLine."VAT Amount" - ROUND(PrevVatAmountLine."VAT Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection); END; // End of the lines. ...Измените код в процедуре CalcVATAmountLines@24 в таблице "Строка покупки" (39) следующим образом:
Существующий код... CASE "VAT Calculation Type" OF "VAT Calculation Type"::"Normal VAT", "VAT Calculation Type"::"Reverse Charge VAT": BEGIN "VAT Base" := "Line Amount" - "Invoice Discount Amount"; "VAT Amount" := "VAT Difference" + ROUND( PrevVatAmountLine."VAT Amount" + "VAT Base" * "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100), Currency."Amount Rounding Precision",Currency.VATRoundingDirection); "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount" + "VAT Amount"; IF Positive THEN PrevVatAmountLine.INIT // Delete the following lines. ELSE BEGIN PrevVatAmountLine := VATAmountLine; PrevVatAmountLine."VAT Amount" := "VAT Base" * "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100); PrevVatAmountLine."VAT Amount" := PrevVatAmountLine."VAT Amount" - ROUND(PrevVatAmountLine."VAT Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection); END; // End of the lines. ...Код замены
... CASE "VAT Calculation Type" OF "VAT Calculation Type"::"Normal VAT", "VAT Calculation Type"::"Reverse Charge VAT": BEGIN "VAT Base" := "Line Amount" - "Invoice Discount Amount"; "VAT Amount" := "VAT Difference" + ROUND( PrevVatAmountLine."VAT Amount" + "VAT Base" * "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100), Currency."Amount Rounding Precision",Currency.VATRoundingDirection); "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount" + "VAT Amount"; IF Positive THEN PrevVatAmountLine.INIT // Add the following lines. ELSE IF NOT "Includes Prepayment" THEN BEGIN PrevVatAmountLine := VATAmountLine; PrevVatAmountLine."VAT Amount" := "VAT Base" * "VAT %" / 100 * (1 - PurchHeader."VAT Base Discount %" / 100); PrevVatAmountLine."VAT Amount" := PrevVatAmountLine."VAT Amount" - ROUND(PrevVatAmountLine."VAT Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection); END; // End of the lines. ...Измените код в триггере OnRun в коде Sales-Post (80) следующим образом:
Существующий код 1... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; ReturnRcptLine."Quantity Invoiced" := ReturnRcptLine."Quantity Invoiced" + QtyToBeInvoiced; ReturnRcptLine."Qty. Invoiced (Base)" := ReturnRcptLine."Qty. Invoiced (Base)" + QtyToBeInvoicedBase; ReturnRcptLine."Return Qty. Rcd. Not Invd." := ReturnRcptLine.Quantity - ReturnRcptLine."Quantity Invoiced"; ReturnRcptLine.MODIFY; IF SalesLine.Type = SalesLine.Type::Item THEN PostItemJnlLine( SalesLine, 0,0, QtyToBeInvoiced, QtyToBeInvoicedBase, // Delete the following line. {ReturnRcptLine."Item Rcpt. Entry No."} ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN EndLoop := (TempInvoicingSpecification.NEXT = 0) ELSE EndLoop := (ReturnRcptLine.NEXT = 0) OR (ABS(RemQtyToBeInvoiced) <= ABS(SalesLine."Return Qty. to Receive")); UNTIL EndLoop; END ELSE ERROR( Text025, SalesLine."Return Receipt Line No.",SalesLine."Return Receipt No."); END; ...Код замены 1
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; ReturnRcptLine."Quantity Invoiced" := ReturnRcptLine."Quantity Invoiced" + QtyToBeInvoiced; ReturnRcptLine."Qty. Invoiced (Base)" := ReturnRcptLine."Qty. Invoiced (Base)" + QtyToBeInvoicedBase; ReturnRcptLine."Return Qty. Rcd. Not Invd." := ReturnRcptLine.Quantity - ReturnRcptLine."Quantity Invoiced"; ReturnRcptLine.MODIFY; IF SalesLine.Type = SalesLine.Type::Item THEN PostItemJnlLine( SalesLine, 0,0, QtyToBeInvoiced, QtyToBeInvoicedBase, ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN EndLoop := (TempInvoicingSpecification.NEXT = 0) ELSE EndLoop := (ReturnRcptLine.NEXT = 0) OR (ABS(RemQtyToBeInvoiced) <= ABS(SalesLine."Return Qty. to Receive")); UNTIL EndLoop; END ELSE ERROR( Text025, SalesLine."Return Receipt Line No.",SalesLine."Return Receipt No."); END; ...Существующий код 2
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; SalesShptLine."Quantity Invoiced" := SalesShptLine."Quantity Invoiced" - QtyToBeInvoiced; SalesShptLine."Qty. Invoiced (Base)" := SalesShptLine."Qty. Invoiced (Base)" - QtyToBeInvoicedBase; SalesShptLine."Qty. Shipped Not Invoiced" := SalesShptLine.Quantity - SalesShptLine."Quantity Invoiced"; SalesShptLine.MODIFY; IF SalesLine.Type = SalesLine.Type::Item THEN PostItemJnlLine( SalesLine, 0,0, QtyToBeInvoiced, QtyToBeInvoicedBase, // Delete the following line. {SalesShptLine."Item Shpt. Entry No."} ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN EndLoop := (TempInvoicingSpecification.NEXT = 0) ELSE EndLoop := (SalesShptLine.NEXT = 0) OR (ABS(RemQtyToBeInvoiced) <= ABS(SalesLine."Qty. to Ship")) UNTIL EndLoop; END ELSE ERROR( Text026, SalesLine."Shipment Line No.",SalesLine."Shipment No."); END;Код замены 2
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; SalesShptLine."Quantity Invoiced" := SalesShptLine."Quantity Invoiced" - QtyToBeInvoiced; SalesShptLine."Qty. Invoiced (Base)" := SalesShptLine."Qty. Invoiced (Base)" - QtyToBeInvoicedBase; SalesShptLine."Qty. Shipped Not Invoiced" := SalesShptLine.Quantity - SalesShptLine."Quantity Invoiced"; SalesShptLine.MODIFY; IF SalesLine.Type = SalesLine.Type::Item THEN PostItemJnlLine( SalesLine, 0,0, QtyToBeInvoiced, QtyToBeInvoicedBase, ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN EndLoop := (TempInvoicingSpecification.NEXT = 0) ELSE EndLoop := (SalesShptLine.NEXT = 0) OR (ABS(RemQtyToBeInvoiced) <= ABS(SalesLine."Qty. to Ship")) UNTIL EndLoop; END ELSE ERROR( Text026, SalesLine."Shipment Line No.",SalesLine."Shipment No."); END; ...Измените код в локальной процедуре AdjustPrepmtAmountLCY@84 в коде Sales-Post (80) следующим образом:
Существующий код 1... TempPrepmtDeductLCYSalesLine.SETRANGE("Attached to Line No.",PrepmtSalesLine."Line No."); IF TempPrepmtDeductLCYSalesLine.FINDSET(TRUE) THEN REPEAT SalesLine := TempPrepmtDeductLCYSalesLine; SalesLine.FIND; IF SalesLine."Document Type" = SalesLine."Document Type"::Invoice THEN GetSalesOrderLine(SalesLine,SalesLine); DeductionFactor := SalesLine."Prepmt Amt to Deduct" / (SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted"); ...Код замены 1
... TempPrepmtDeductLCYSalesLine.SETRANGE("Attached to Line No.",PrepmtSalesLine."Line No."); IF TempPrepmtDeductLCYSalesLine.FINDSET(TRUE) THEN REPEAT SalesLine := TempPrepmtDeductLCYSalesLine; SalesLine.FIND; IF SalesLine."Document Type" = SalesLine."Document Type"::Invoice THEN GetSalesOrderLine(SalesLine,SalesLine); // Add the following line. SalesLine."Prepmt Amt to Deduct" := CalcPrepmtAmtToDeduct(SalesLine); DeductionFactor := SalesLine."Prepmt Amt to Deduct" / (SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted"); ...Существующий код 2
... IF ABS(TotalPrepmtVATAmtLCYDifference) <= GLSetup."Amount Rounding Precision" THEN TotalPrepmtVATAmtLCYDifference := 0; PrepmtSalesLine."Prepmt. VAT Amount Inv. (LCY)" := TotalPrepmtVATAmtLCYDifference; NewAmountIncludingVAT := PrepmtSalesLine.Amount + TotalPrepmtVATAmtLCY + TotalPrepmtVATAmtLCYDifference; Increment(TotalSalesLineLCY."Amount Including VAT",PrepmtSalesLine."Amount Including VAT" - NewAmountIncludingVAT); PrepmtSalesLine."Amount Including VAT" := NewAmountIncludingVAT; END; END; LOCAL PROCEDURE GetSalesOrderLine@85(VAR SalesOrderLine@1000 : Record 37;SalesLine@1001 : Record 37); ...Код замены 2
... IF ABS(TotalPrepmtVATAmtLCYDifference) <= GLSetup."Amount Rounding Precision" THEN TotalPrepmtVATAmtLCYDifference := 0; PrepmtSalesLine."Prepmt. VAT Amount Inv. (LCY)" := TotalPrepmtVATAmtLCYDifference; NewAmountIncludingVAT := PrepmtSalesLine.Amount + TotalPrepmtVATAmtLCY + TotalPrepmtVATAmtLCYDifference; Increment(TotalSalesLineLCY."Amount Including VAT",PrepmtSalesLine."Amount Including VAT" - NewAmountIncludingVAT); // Add the following lines. IF SalesLine."Currency Code" = '' THEN TotalSalesLine."Amount Including VAT" := TotalSalesLineLCY."Amount Including VAT"; // End of the lines. PrepmtSalesLine."Amount Including VAT" := NewAmountIncludingVAT; END; END; // Add the following lines. PROCEDURE CalcPrepmtAmtToDeduct@71(SalesLine@1000 : Record 37) : Decimal; VAR AllowedQtyToInvoice@1001 : Decimal; BEGIN WITH SalesLine DO BEGIN AllowedQtyToInvoice := "Qty. Shipped Not Invoiced"; IF SalesHeader.Ship THEN AllowedQtyToInvoice := AllowedQtyToInvoice + "Qty. to Ship"; IF "Qty. to Invoice" > AllowedQtyToInvoice THEN BEGIN "Qty. to Invoice" := AllowedQtyToInvoice; CalcPrepaymentToDeduct; END; EXIT("Prepmt Amt to Deduct"); END; END; // End of the lines. LOCAL PROCEDURE GetSalesOrderLine@85(VAR SalesOrderLine@1000 : Record 37;SalesLine@1001 : Record 37); ...Измените код в триггере OnRun в коде "Purch.-Post" (90) следующим образом:
Существующий код 1... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; ReturnShptLine."Quantity Invoiced" := ReturnShptLine."Quantity Invoiced" - QtyToBeInvoiced; ReturnShptLine."Qty. Invoiced (Base)" := ReturnShptLine."Qty. Invoiced (Base)" - QtyToBeInvoicedBase; ReturnShptLine."Return Qty. Shipped Not Invd." := ReturnShptLine.Quantity - ReturnShptLine."Quantity Invoiced"; ReturnShptLine.MODIFY; IF PurchLine.Type = PurchLine.Type::Item THEN PostItemJnlLine( PurchLine, 0,0, QtyToBeInvoiced,QtyToBeInvoicedBase, // Delete the following line. {ReturnShptLine."Item Shpt. Entry No."} ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN ...Код замены 1
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; ReturnShptLine."Quantity Invoiced" := ReturnShptLine."Quantity Invoiced" - QtyToBeInvoiced; ReturnShptLine."Qty. Invoiced (Base)" := ReturnShptLine."Qty. Invoiced (Base)" - QtyToBeInvoicedBase; ReturnShptLine."Return Qty. Shipped Not Invd." := ReturnShptLine.Quantity - ReturnShptLine."Quantity Invoiced"; ReturnShptLine.MODIFY; IF PurchLine.Type = PurchLine.Type::Item THEN PostItemJnlLine( PurchLine, 0,0, QtyToBeInvoiced,QtyToBeInvoicedBase, ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN ...Существующий код 2
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; PurchRcptLine."Quantity Invoiced" := PurchRcptLine."Quantity Invoiced" + QtyToBeInvoiced; PurchRcptLine."Qty. Invoiced (Base)" := PurchRcptLine."Qty. Invoiced (Base)" + QtyToBeInvoicedBase; PurchRcptLine."Qty. Rcd. Not Invoiced" := PurchRcptLine.Quantity - PurchRcptLine."Quantity Invoiced"; PurchRcptLine.MODIFY; IF PurchLine.Type = PurchLine.Type::Item THEN PostItemJnlLine( PurchLine, 0,0, QtyToBeInvoiced,QtyToBeInvoicedBase, // Delete the following line. {PurchRcptLine."Item Rcpt. Entry No."} ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN ...Код замены 2
... RemQtyToBeInvoiced := RemQtyToBeInvoiced - QtyToBeInvoiced; RemQtyToBeInvoicedBase := RemQtyToBeInvoicedBase - QtyToBeInvoicedBase; PurchRcptLine."Quantity Invoiced" := PurchRcptLine."Quantity Invoiced" + QtyToBeInvoiced; PurchRcptLine."Qty. Invoiced (Base)" := PurchRcptLine."Qty. Invoiced (Base)" + QtyToBeInvoicedBase; PurchRcptLine."Qty. Rcd. Not Invoiced" := PurchRcptLine.Quantity - PurchRcptLine."Quantity Invoiced"; PurchRcptLine.MODIFY; IF PurchLine.Type = PurchLine.Type::Item THEN PostItemJnlLine( PurchLine, 0,0, QtyToBeInvoiced,QtyToBeInvoicedBase, ItemEntryRelation."Item Entry No.",'',TempInvoicingSpecification); IF TrackingSpecificationExists THEN ...Измените код в локальной процедуре AdjustPrepmtAmountLCY@84 в коде "Purch.-Post" (90) следующим образом:
Существующий код 1... TempPrepmtDeductLCYPurchLine.SETRANGE("Attached to Line No.",PrepmtPurchLine."Line No."); IF TempPrepmtDeductLCYPurchLine.FINDSET(TRUE) THEN REPEAT PurchLine := TempPrepmtDeductLCYPurchLine; PurchLine.FIND; IF PurchLine."Document Type" = PurchLine."Document Type"::Invoice THEN GetPurchOrderLine(PurchLine,PurchLine); DeductionFactor := PurchLine."Prepmt Amt to Deduct" / (PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted"); PrepmtAmtLCYDifference := ...Код замены 1
... TempPrepmtDeductLCYPurchLine.SETRANGE("Attached to Line No.",PrepmtPurchLine."Line No."); IF TempPrepmtDeductLCYPurchLine.FINDSET(TRUE) THEN REPEAT PurchLine := TempPrepmtDeductLCYPurchLine; PurchLine.FIND; IF PurchLine."Document Type" = PurchLine."Document Type"::Invoice THEN GetPurchOrderLine(PurchLine,PurchLine); // Add the following line. PurchLine."Prepmt Amt to Deduct" := CalcPrepmtAmtToDeduct(PurchLine); DeductionFactor := PurchLine."Prepmt Amt to Deduct" / (PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted"); PrepmtAmtLCYDifference := ...Существующий код 2
... IF ABS(TotalPrepmtVATAmtLCYDifference) <= GLSetup."Amount Rounding Precision" THEN TotalPrepmtVATAmtLCYDifference := 0; PrepmtPurchLine."Prepmt. VAT Amount Inv. (LCY)" := -TotalPrepmtVATAmtLCYDifference; NewAmountIncludingVAT := PrepmtPurchLine.Amount - (TotalPrepmtVATAmtLCY + TotalPrepmtVATAmtLCYDifference); Increment(TotalPurchLineLCY."Amount Including VAT",-(PrepmtPurchLine."Amount Including VAT" - NewAmountIncludingVAT)); PrepmtPurchLine."Amount Including VAT" := NewAmountIncludingVAT; END; END; LOCAL PROCEDURE GetPurchOrderLine@85(VAR PurchOrderLine@1000 : Record 39;PurchLine@1001 : Record 39); ...Код замены 2
... IF ABS(TotalPrepmtVATAmtLCYDifference) <= GLSetup."Amount Rounding Precision" THEN TotalPrepmtVATAmtLCYDifference := 0; PrepmtPurchLine."Prepmt. VAT Amount Inv. (LCY)" := -TotalPrepmtVATAmtLCYDifference; NewAmountIncludingVAT := PrepmtPurchLine.Amount - (TotalPrepmtVATAmtLCY + TotalPrepmtVATAmtLCYDifference); Increment(TotalPurchLineLCY."Amount Including VAT",-(PrepmtPurchLine."Amount Including VAT" - NewAmountIncludingVAT)); // Add the following lines. IF PurchLine."Currency Code" = '' THEN TotalPurchLine."Amount Including VAT" := TotalPurchLineLCY."Amount Including VAT"; // End of the lines. PrepmtPurchLine."Amount Including VAT" := NewAmountIncludingVAT; END; END; // Add the following lines. LOCAL PROCEDURE CalcPrepmtAmtToDeduct@71(PurchLine@1000 : Record 39) : Decimal; VAR AllowedQtyToInvoice@1001 : Decimal; BEGIN WITH PurchLine DO BEGIN AllowedQtyToInvoice := "Qty. Rcd. Not Invoiced"; IF PurchHeader.Receive THEN AllowedQtyToInvoice := AllowedQtyToInvoice + "Qty. to Receive"; IF "Qty. to Invoice" > AllowedQtyToInvoice THEN BEGIN "Qty. to Invoice" := AllowedQtyToInvoice; CalcPrepaymentToDeduct; END; EXIT("Prepmt Amt to Deduct"); END; END; // End of the lines. LOCAL PROCEDURE GetPurchOrderLine@85(VAR PurchOrderLine@1000 : Record 39;PurchLine@1001 : Record 39); ...
Необходимые условия
Для применения этого исправления необходимо установить один из следующих продуктов:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)
Сведения об удалении
Удалить это исправление невозможно.
Состояние
Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».
Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .