To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND
(NOT SalesHeader.Ship) AND SalesHeader.Invoice AND (NOT "Prepayment Line"):
BEGIN
// Delete the following lines.
IF "Shipment No." = '' THEN
QtyFactor := GetAbsMin("Qty. to Invoice","Qty. Shipped Not Invoiced") / Quantity;
// End of the lines.
VATAmountLine.Quantity :=
VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
END;
...
...
("Document Type" IN ["Document Type"::Order,"Document Type"::Invoice]) AND
(NOT SalesHeader.Ship) AND SalesHeader.Invoice AND (NOT "Prepayment Line"):
BEGIN
// Add the following lines.
IF "Shipment No." = '' THEN BEGIN
QtyFactor := GetAbsMin("Qty. to Invoice","Qty. Shipped Not Invoiced") / Quantity;
VATAmountLine.Quantity :=
VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Qty. Shipped Not Invd. (Base)");
END ELSE BEGIN
QtyFactor := "Qty. to Invoice" / Quantity;
VATAmountLine.Quantity := VATAmountLine.Quantity + "Qty. to Invoice (Base)";
END;
END;
("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
(NOT SalesHeader.Receive) AND SalesHeader.Invoice:
BEGIN
QtyFactor := GetAbsMin("Qty. to Invoice","Return Qty. Rcd. Not Invd.") / Quantity;
//End of the lines.
VATAmountLine.Quantity :=
VATAmountLine.Quantity + GetAbsMin("Qty. to Invoice (Base)","Ret. Qty. Rcd. Not Invd.(Base)");
END;
...
You must have the Hungarian version of Microsoft Dynamics NAV 2009 R2 installed to apply this hotfix.