"O montante (LCY) tem de ter o mesmo sinal que Amount in Gen. Mensagem de erro Linha do Diário quando publica uma fatura de uma ordem de venda ou nota de compra parcialmente enviada na qual o campo "Pré-pagamento%" está definido como 100 no Microsoft Dynamics NAV...

Aplica-se a

Dynamics NAV 2009

Este artigo aplica-se ao Microsoft Dynamics NAV para todos os países e regiões de idioma.

Sintomas

Suponha que cria uma encomenda de vendas que tem o campo Pré-pagamento% definido como 100 no Microsoft Dynamics NAV 2009. Em seguida, publica a fatura de pré-pagamento da nota de venda. Em seguida, publique o envio parcialmente para a encomenda de venda. Nesta situação, quando publica a fatura do pedido de venda, recebe a seguinte mensagem de erro:

Observação

O valor (LCY) tem de ter o mesmo sinal que Amount in Gen. Linha do Diário.

Este problema também ocorre quando publica uma fatura de uma nota de encomenda parcialmente enviada na qual o campo Pré-pagamento% está definido como 100.
Este problema ocorre nos seguintes produtos:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

Resolução

Informações sobre o hotfix

Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV 2009 ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.

Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolve o seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais que não se enquadrem na atualização específica em questão.

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.

Para implementar esta correção, tem de ter uma licença de programador.

Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:

A permissão Modificar para o objeto que irá alterar.
A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.

Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.

Alterações de código

Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, execute as seguintes etapas:

Altere o código no procedimento CalcVATAmountLines@35 na tabela "Linha de Vendas" (37) da seguinte forma:
Código existente

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

Código de substituição

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

Altere o código no procedimento CalcVATAmountLines@24 na tabela "Linha de Compra" (39) da seguinte forma:
Código existente

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

Código de substituição

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

Altere o código no acionador OnRun na codeunit "Sales-Post" (80) da seguinte forma:
Código existente 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;
...

Código de substituição 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;
...

Código existente 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;

Código de substituição 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;
...

Altere o código no AdjustPrepmtAmountLCY@84 procedimento local na codeunit "Sales-Post" (80) da seguinte forma:
Código existente 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");
...

Código de substituição 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");
...

Código existente 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);
...

Código de substituição 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);
...

Altere o código no acionador OnRun na codeunit "Purch.-Post" (90) da seguinte forma:
Código existente 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
...

Código de substituição 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
...

Código existente 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
...

Código de substituição 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
...

Altere o código no AdjustPrepmtAmountLCY@84 procedimento local na codeunit "Purch.-Post" (90) da seguinte forma:
Código existente 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 :=
...

Código de substituição 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 :=
...

Código existente 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);
...

Código de substituição 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);
...

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

Informações sobre remoção

Não é possível remover esta correção.

Status

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".

Observação Este é um artigo "FAST PUBLISH" criado diretamente na organização de suporte da Microsoft. As informações contidas aqui são fornecidas como resposta aos problemas possíveis. Como resultado da prontidão de disponibilizá-lo, os materiais pode conter erros tipográficos e podem ser revisados a qualquer momento são aviso prévio. Consulte Termos de Uso para obter outras considerações.

"O montante (LCY) tem de ter o mesmo sinal que Amount in Gen. Mensagem de erro Linha do Diário quando publica uma fatura de uma ordem de venda ou nota de compra parcialmente enviada na qual o campo "Pré-pagamento%" está definido como 100 no Microsoft Dynamics NAV...

Sintomas

Resolução

Informações sobre o hotfix

Informações de instalação

Alterações de código

Pré-requisitos

Informações sobre remoção

Status

Essas informações foram úteis?

Agradecemos seus comentários!