"Sledování položky definované pro položku [Číslo položky] v řádku deníku zboží představuje více než zadané množství" chybová zpráva při pokusu o zaúčtování částečného výstupu pro výrobní zakázku v aplikaci Microsoft Dynamics NAV 2009

Platí pro
Dynamics NAV 2009

Tento článek platí pro Microsoft Dynamics NAV pro všechny země a všechna jazyková národní prostředí.

Příznaky

Předpokládejme, že jste nastavili hodnotu Přednastavené výstupní množství na nulu u všech operací v dialogovém okně Nastavení výroby v aplikaci Microsoft Dynamics NAV. Definujete sledování položek pro výrobní zakázku. V této situaci, když se pokusíte zaúčtovat částečný výstup pro výrobní zakázku, zobrazí se následující chybová zpráva:

Poznámka

Sledování zboží definované pro položku Číslo položky na řádku deníku zboží představuje více než množství, které jste zadali. Musíte upravit stávající sledování zboží a znovu zadat nové množství.

Pokud se pokusíte opravit sledování položky pro výrobní zakázku, zobrazí se následující chybová zpráva:

Poznámka

Opravu nelze uložit, protože bylo definováno nadměrné množství. Přesto zavřete formulář?

K tomuto problému dochází u následujících produktů:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

      

Řešení

Informace o opravě hotfix

Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro Microsoft Dynamics NAV nebo další verzi Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.

Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.

Informace o instalaci

Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost konkrétního postupu. Tyto příklady však neupraví za účelem poskytnutí dalších funkcí ani nevytvoří procedury, které by splňovaly vaše specifické požadavky.

Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klientů Microsoft Dynamics NAV odhlášeni ze systému. To zahrnuje služby Microsoft Dynamics NAV Application Server (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.

K implementaci této opravy hotfix musíte mít vývojářskou licenci.

Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:

  • Oprávnění k úpravám objektu, který budete měnit.

  • Oprávnění ke spuštění pro objekt systémového objektu s ID 5210 a pro systémový objekt s ID 9015

    Objekt.

Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.

Změny kódu

Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.

Chcete-li tento problém vyřešit, postupujte takto:

  1. Změňte kód v kódové jednotce Správa rezervací (99000845) následujícím způsobem:
    Existující kód

    ...
CODE
...
PROCEDURE DeleteReservEntries2@31(DeleteAll@1000 : Boolean;DownToQuantity@1001 : Decimal;VAR ReservEntry@1002 : Record 337);
...
IF QtyToRelease <> 0 THEN BEGIN
IF ItemTrackingHandling = ItemTrackingHandling::None THEN
IF DeleteAll THEN
ERROR(Text010,ReservEntry."Item No.",ReservEntry.TextCaption)
ELSE

// Delete the following line.
ERROR(Text008,ReservEntry."Item No.",ReservEntry.TextCaption);
// End of the deleted line.

...THEN
CalcReservedQtyOnPick(TotalAvailQty,QtyAllocInWhse);
END;
BEGIN
END.
...

    Náhradní kód

    ...
CODE
...
PROCEDURE DeleteReservEntries2@31(DeleteAll@1000 : Boolean;DownToQuantity@1001 : Decimal;VAR ReservEntry@1002 : Record 337);
...
IF QtyToRelease <> 0 THEN BEGIN
IF ItemTrackingHandling = ItemTrackingHandling::None THEN
IF DeleteAll THEN
ERROR(Text010,ReservEntry."Item No.",ReservEntry.TextCaption)
ELSE

// Add the following lines.
IF NOT ProdJnlLineEntry(ReservEntry) THEN
ERROR(Text008,ReservEntry."Item No.",ReservEntry.TextCaption);
// End of the added lines.

...
THEN
CalcReservedQtyOnPick(TotalAvailQty,QtyAllocInWhse);
END;
BEGIN

// Add the following lines.
WITH ReservationEntry DO
EXIT(("Source Type" = DATABASE::"Item Journal Line") AND ("Source Subtype" = 6));
END;
BEGIN
// End of the added lines.

END.
...

  2. Následujícím způsobem změňte kód ve formuláři Řádky sledování položek (6510):
    Existující kód 1

    ...
Text018@1057 : TextConst 'ENU=Saving item tracking line changes';
ForBinCode@1043 : Code[20];
Text019@1013 : TextConst 'ENU=There are availability warnings on one or more lines.\Close the form anyway?';
Text020@1002 : TextConst 'ENU=Placeholder';
IsPick@1042 : Boolean;
PROCEDURE SetFormRunMode@19(Mode@1000 : ',Reclass,Combined Ship/Rcpt,Drop Shipment');
...

    Náhradní kód 1

    ...
Text018@1057 : TextConst 'ENU=Saving item tracking line changes';
ForBinCode@1043 : Code[20];
Text019@1013 : TextConst 'ENU=There are availability warnings on one or more lines.\Close the form anyway?';
Text020@1002 : TextConst 'ENU=Placeholder';
IsPick@1042 : Boolean;

// Add the following line.
ProdOrderLineHandling@2002 : Boolean;
// End of the added line.

PROCEDURE SetFormRunMode@19(Mode@1000 : ',Reclass,Combined Ship/Rcpt,Drop Shipment');
...

    Existující kód 2

    ...
THEN
CurrentEntryStatus := CurrentEntryStatus::Surplus
ELSE
CurrentEntryStatus := CurrentEntryStatus::Prospect;

// Delete the following lines.
IF (TrackingSpecification."Source Type" IN
[DATABASE::"Item Ledger Entry",
DATABASE::"Item Journal Line",
DATABASE::"Job Journal Line",
DATABASE::"BOM Journal Line",
DATABASE::"Requisition Line"]) OR
((TrackingSpecification."Source Type" IN [DATABASE::"Sales Line",DATABASE::"Purchase Line",DATABASE::"Service Line"]) AND
(TrackingSpecification."Source Subtype" IN [0,2,3]))
THEN
SetControls(Controls::Handle,FALSE)
ELSE
SetControls(Controls::Handle,TRUE);
// End of the deleted lines.

SetControls(Controls::Reclass,FormRunMode = FormRunMode::Reclass);
...

    Náhradní kód 2

    ...
THEN
CurrentEntryStatus := CurrentEntryStatus::Surplus
ELSE
CurrentEntryStatus := CurrentEntryStatus::Prospect;

// Add the following lines.
// Set controls for Qty To Handle:
SetControls(Controls::Handle,GetHandleSource(TrackingSpecification));
// Set controls for Qty To Invoice:
SetControls(Controls::Invoice,GetInvoiceSource(TrackingSpecification));
// End of the added lines.

SetControls(Controls::Reclass,FormRunMode = FormRunMode::Reclass);
...

    Existující kód 3

    ...
SetControls(Controls::Handle,TRUE);

// Delete the following lines.
IF (TrackingSpecification."Source Type" IN
[DATABASE::"Item Ledger Entry",
DATABASE::"Item Journal Line",
DATABASE::"Job Journal Line",
DATABASE::"BOM Journal Line",
DATABASE::"Requisition Line",
DATABASE::"Transfer Line",
DATABASE::"Prod. Order Line",
DATABASE::"Prod. Order Component"]) OR
((TrackingSpecification."Source Type" IN [DATABASE::"Sales Line",DATABASE::"Purchase Line",DATABASE::"Service Line"]) AND
(TrackingSpecification."Source Subtype" IN [0,2,3,4]))
THEN
SetControls(Controls::Invoice,FALSE)
ELSE
SetControls(Controls::Invoice,TRUE);
// End of the deleted lines.

SetControls(Controls::Reclass,FormRunMode = FormRunMode::Reclass);
...

    Náhradní kód 3

    ...
SetControls(Controls::Handle,TRUE);
SetControls(Controls::Reclass,FormRunMode = FormRunMode::Reclass);
...

    Existující kód 4

    ...
BEGIN
UndefinedQtyArray[1] := SourceQuantityArray[1] - TotalItemTrackingLine."Quantity (Base)";
UndefinedQtyArray[2] := SourceQuantityArray[2] - TotalItemTrackingLine."Qty. to Handle (Base)";
UndefinedQtyArray[3] := SourceQuantityArray[3] - TotalItemTrackingLine."Qty. to Invoice (Base)";

// Delete the following lines.
IF ABS(SourceQuantityArray[1]) < ABS(TotalItemTrackingLine."Quantity (Base)") THEN BEGIN
ColorOfQuantityArray[1] := 255;
QtyIsValid := FALSE;
END ELSE BEGIN
// End of the deleted lines.

ColorOfQuantityArray[1] := 0;

// Delete the following lines.
QtyIsValid := TRUE;
END;
// End of the deleted lines.

IF ABS(SourceQuantityArray[2]) < ABS(TotalItemTrackingLine."Qty. to Handle (Base)") THEN
...

    Náhradní kód 4

    ...
BEGIN
UndefinedQtyArray[1] := SourceQuantityArray[1] - TotalItemTrackingLine."Quantity (Base)";
UndefinedQtyArray[2] := SourceQuantityArray[2] - TotalItemTrackingLine."Qty. to Handle (Base)";
UndefinedQtyArray[3] := SourceQuantityArray[3] - TotalItemTrackingLine."Qty. to Invoice (Base)";

// Add the following lines.
QtyIsValid :=
ProdOrderLineHandling OR (ABS(SourceQuantityArray[1]) >= ABS(TotalItemTrackingLine."Quantity (Base)"));

IF ABS(SourceQuantityArray[1]) < ABS(TotalItemTrackingLine."Quantity (Base)") THEN
ColorOfQuantityArray[1] := 255
ELSE
// End of the added lines.

ColorOfQuantityArray[1] := 0;
IF ABS(SourceQuantityArray[2]) < ABS(TotalItemTrackingLine."Qty. to Handle (Base)") THEN
...

    Existující kód 5

    ...
CurrForm."Appl.-from Item Entry".VISIBLE(FALSE);
END;
BEGIN
{
In order to provide F6 invoked lookup from availability bitmap columns, a menu button has been hidden behind control 1.
...

    Náhradní kód 5

    ...
CurrForm."Appl.-from Item Entry".VISIBLE(FALSE);
END;

// Add the following lines.
PROCEDURE GetHandleSource@63(TrackingSpecification@2004 : Record 336) : Boolean;
VAR
QtyToHandleColumnIsHidden@2005 : Boolean;
// End of the added lines.

BEGIN

// Add the following lines.
WITH TrackingSpecification DO BEGIN
IF ("Source Type" = DATABASE::"Item Journal Line") AND ("Source Subtype" = 6) THEN BEGIN // 6 => Prod.order line
ProdOrderLineHandling := TRUE;
EXIT(TRUE); // Display Handle column for prod. orders
END;
QtyToHandleColumnIsHidden :=
("Source Type" IN
[DATABASE::"Item Ledger Entry",
DATABASE::"Item Journal Line",
DATABASE::"Job Journal Line",
DATABASE::"Requisition Line"]) OR
(("Source Type" IN [DATABASE::"Sales Line",DATABASE::"Purchase Line",DATABASE::"Service Line"]) AND
("Source Subtype" IN [0,2,3]));
END;
EXIT(NOT QtyToHandleColumnIsHidden);
END;

PROCEDURE GetInvoiceSource@73(TrackingSpecification@2007 : Record 336) : Boolean;
VAR
QtyToInvoiceColumnIsHidden@2009 : Boolean;
BEGIN
WITH TrackingSpecification DO BEGIN
QtyToInvoiceColumnIsHidden :=
("Source Type" IN
[DATABASE::"Item Ledger Entry",
DATABASE::"Item Journal Line",
DATABASE::"Job Journal Line",
DATABASE::"Requisition Line",
DATABASE::"Transfer Line",
DATABASE::"Prod. Order Line",
DATABASE::"Prod. Order Component"]) OR
(("Source Type" IN [DATABASE::"Sales Line",DATABASE::"Purchase Line",DATABASE::"Service Line"]) AND
("Source Subtype" IN [0,2,3,4]))
END;
EXIT(NOT QtyToInvoiceColumnIsHidden);
END;

BEGIN
// End of the added lines.

{
In order to provide F6 invoked lookup from availability bitmap columns, a menu button has been hidden behind control 1.
...

          

Požadavky

Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:

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

Informace o odebrání

Tuto opravu hotfix nelze odebrat.

Stav

Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.

Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .