"Amount (LCY) debe tener el mismo signo que Amount in Gen. Mensaje de error "Línea del Diario" al registrar una factura de un pedido de venta o pedido de compra parcialmente enviado en el que el campo "Anticipo%" se establece en 100 en Microsoft Dynamics NAV...

Se aplica a

Dynamics NAV 2009

Este artículo se aplica a Microsoft Dynamics NAV para todos los países y todas las configuraciones regionales de idioma.

Síntomas

Suponga que crea un pedido de venta que tiene el campo Porcentaje de anticipo establecido en 100 en Microsoft Dynamics NAV 2009. A continuación, se contabiliza la factura de anticipo del pedido de venta. A continuación, se contabiliza el envío en parte para el pedido de ventas. En esta situación, al registrar la factura del pedido de venta, recibe el siguiente mensaje de error:

Nota

Amount (LCY) debe tener el mismo signo que Amount in Gen. Línea del Diario.

Este problema también se produce cuando se contabiliza una factura de un pedido de compra parcialmente enviado en el que el campo Porcentaje de anticipo se establece en 100.
Este problema se produce en los siguientes productos:

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

Resolución

Información de revisiones

Una revisión compatible ya está disponible en Microsoft. Sin embargo, solo está pensado para corregir el problema que se describe en este artículo. Aplicarlo solo a los sistemas que experimentan este problema específico. Esta revisión puede recibir pruebas adicionales. Por lo tanto, si no se ve afectado gravemente por este problema, le recomendamos que espere al siguiente Service Pack de Microsoft Dynamics NAV 2009 o a la siguiente versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota En casos especiales, los cargos que se incurren normalmente por las llamadas de soporte técnico pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados determina que una actualización específica resolverá el problema. Se aplicarán los costos habituales de soporte técnico a las consultas y cuestiones de soporte técnico adicionales que no guarden relación con la actualización en cuestión.

Información de instalación

Microsoft proporciona ejemplos de programación solo para ilustración, sin garantía expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad o idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se usan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

Nota Antes de instalar esta revisión, verifique que todos los usuarios cliente de Microsoft Navision hayan cerrado sesión en el sistema. Esto incluye a los usuarios cliente de Microsoft Navision Application Services (NAS). Usted debe ser el único usuario del cliente que ha iniciado sesión al implementar esta revisión.

Para implementar esta revisión, debe tener una licencia de desarrollador.

Le recomendamos que la cuenta de usuario en la ventana Inicios de sesión de Windows o en la ventana Inicios de sesión de base de datos tenga asignado el id. de rol "SUPER". Si no se puede asignar a la cuenta de usuario el id. de rol "SUPER", debe comprobar que la cuenta de usuario tiene los permisos siguientes:

El permiso Modificar para el objeto que va a cambiar.
El permiso Execute para el objeto System Object ID 5210 y para el objeto System Object ID 9015.

Nota No es necesario tener derechos sobre los almacenes de datos a menos que tenga que realizar una reparación de datos.

Cambios de código

Nota Pruebe siempre las correcciones de código en un entorno controlado antes de aplicar las correcciones a los equipos de producción.
Para resolver este problema, siga estos pasos:

Cambie el código del procedimiento CalcVATAmountLines@35 de la tabla "Línea de ventas" (37) de la siguiente manera:
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 reemplazo

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

Cambie el código del procedimiento de CalcVATAmountLines@24 de la tabla "Línea de compra" (39) de la siguiente manera:
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 reemplazo

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

Cambie el código en el desencadenador OnRun en la unidad de código "Sales-Post" (80) de la siguiente manera:
Código 1 existente

...
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 reemplazo 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 2 existente

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

Cambie el código de la AdjustPrepmtAmountLCY@84 procedimiento local en la unidad de código "Puesto de ventas" (80) de la siguiente manera:
Código 1 existente

...
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 reemplazo 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 2 existente

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

Cambie el código en el desencadenador OnRun en la unidad de código "Purch.-Post" (90) de la siguiente manera:
Código 1 existente

...
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 reemplazo 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 2 existente

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

Cambie el código de la AdjustPrepmtAmountLCY@84 procedimiento local en la unidad de código "Purch.-Post" (90) de la siguiente manera:
Código 1 existente

...
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 reemplazo 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 2 existente

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

Requisitos previos

Debe tener uno de los siguientes productos instalados para aplicar esta revisión:

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

Información sobre la eliminación

No puede quitar esta revisión.

Estado

Microsoft ha confirmado que se trata de un problema de los productos de Microsoft que se enumeran en la sección "Aplicable a".

Nota Esto es un artículo "PUBLICACIÓN RÁPIDA" creado directamente desde la organización de soporte técnico de Microsoft. La información contenida se proporciona tal cual en respuesta a nuevos problemas. Como resultado de la rapidez en la publicación, es posible que los materiales incluyan errores tipográficos. Además, se pueden revisar en cualquier momento sin previo aviso. Consulte los Términos de uso para otras consideraciones.

"Amount (LCY) debe tener el mismo signo que Amount in Gen. Mensaje de error "Línea del Diario" al registrar una factura de un pedido de venta o pedido de compra parcialmente enviado en el que el campo "Anticipo%" se establece en 100 en Microsoft Dynamics NAV...

Síntomas

Resolución

Información de revisiones

Información de instalación

Cambios de código

Requisitos previos

Información sobre la eliminación

Estado

¿Te resultó útil esta información?

¡Gracias por sus comentarios!