Problembeschreibung
In einen Einkaufs- oder Verkaufsreklamation Wenn Sie die Funktionalität "Belegzeilen stornieren gebucht" in Microsoft Dynamics NAV 2009, und gebuchte Wareneingänge erben Zeilen alle Dimensionen nicht, die bereits in der Verkaufs- oder Einkaufszeile Zugänge verwendet wurden. Folgen Sie den Schritten im Abschnitt ändert sich dieses Problem lösen. Dieses Problem tritt in den folgenden Produkten auf:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Problemlösung
Hotfix-Informationen
Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.
Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.
Informationen zur Installation
Microsoft bietet Programmierbeispiele lediglich zur Veranschaulichung, ohne ausdrückliche oder konkludente Gewährleistung. Dies beinhaltet, ist jedoch nicht beschränkt auf, konkludente Gewährleistungen der Tauglichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der von Beispielen verwendeten Programmiersprache und den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden, vertraut sind. Microsoft-Supporttechniker helfen der Erläuterung der Funktionalität bestimmter Prozeduren. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren erstellen, die Ihren spezifischen Bedürfnisse erfüllen.
Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet werden. Hierzu gehören Dienste Microsoft Dynamics NAV Application Server (NAS). Sie sollte nur-Client-Benutzers, der angemeldet ist, wenn Sie diesen Hotfix installieren.
Muss eine Entwicklerlizenz verfügen, um diesen Hotfix installieren können.
Es wird empfohlen, das Benutzerkonto im Fenster Windows-Benutzernamen oder im Fenster Datenbank-Anmeldenamen "SUPER" Rollen-ID zugewiesen werden Wenn das Benutzerkonto die Rollen-ID "SUPER" nicht zugeordnet werden kann, müssen Sie sicherstellen, dass das Benutzerkonto die folgenden Berechtigungen verfügt:
-
Änderungsberechtigung für das Objekt, das Sie ändern.
-
Ausführungsberechtigung für System Object ID 5210 und System Object ID 9015
Objekt.
Hinweis Sie müssen keine Rechte für die Datenspeicher haben, es sei denn, Sie müssen eine Datenreparatur durchführen.
Ändern von Code
Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:
-
Ändern Sie den Code in der Funktion CopyLineToDoc im gebuchten Dokuments Zeilen Formular (5850) wie folgt:
Vorhandener Code 1... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesShptLinesToDoc(
ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...
Neuer code 1... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesShptLinesToDoc(
ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...
Vorhandener Code 2... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesReturnRcptLinesToDoc(
ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
...
Neuer Code 2... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesReturnRcptLinesToDoc(
ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
... -
Ändern Sie den Code in der Funktion CopyLineToDoc in der gebuchten Bestellung Dokumentformular (5855) wie folgt:
Vorhandener Code 1...LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...Neuer Code 1
... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...Vorhandener Code 2
...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchReturnShptLinesToDoc(
ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
...Neuer Code 2
...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchReturnShptLinesToDoc(
ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
... -
Ändern Sie den Code in der globalen Variablen Copy Document Mgt Codeunit (6620) wie folgt:
Vorhandener code...SkippedLine@1047 : Boolean;
Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
BEGIN
IncludeHeader := NewIncludeHeader;
RecalculateLines := NewRecalculateLines;
...Neuer code
...SkippedLine@1047 : Boolean;
Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
// Add the following line.
CopyDimensions@1050 : Boolean;
// End of the added line.
PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
BEGIN
IncludeHeader := NewIncludeHeader;
RecalculateLines := NewRecalculateLines;
... -
Ändern Sie den Code in der Funktion CopyFromPstdSalesDocDimToLine Copy Document Mgt Codeunit (6620) wie folgt:
Vorhandener code...LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
VAR
DocDim@1002 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.
DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
DocDim.DELETEALL;
...Neuer code
... LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
VAR
DocDim@1002 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.
DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
DocDim.DELETEALL;
... -
Ändern Sie den Code in der Funktion CopyFromPstdPurchDocDimToLine Copy Document Mgt Codeunit (6620) wie folgt:
Vorhandener code...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
VAR
DocDim@1001 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.
DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
DocDim.DELETEALL;
...Neuer code
...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
VAR
DocDim@1001 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.
DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
DocDim.DELETEALL;
... -
Ändern Sie den Code in der Funktion CopyAllDimensions Copy Document Mgt Codeunit (6620) wie folgt:
Vorhandener code...MESSAGE(Text031);
IF Text <> '' THEN
MESSAGE(Text);
END;
BEGIN
END.
}
}
...Neuer code
...MESSAGE(Text031);
IF Text <> '' THEN
MESSAGE(Text);
END;
// Add the following lines.
PROCEDURE CopyAllDimensions@85();
BEGIN
CopyDimensions := TRUE;
END;
// End of the added line.
BEGIN
END.
}
}
...
Voraussetzungen
Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Informationen zur Deinstallation
Dieser Hotfix kann nicht entfernt werden.
Status
Microsoft hat bestätigt, dass es sich um ein Problem bei den Microsoft-Produkten handelt, die im Abschnitt „Eigenschaften“ aufgeführt sind.
Hinweis Dies ist ein im Schnellverfahren veröffentlichter Artikel, der direkt in der Microsoft Support-Organisation erstellt wurde. Die hierin enthaltenen Informationen werden ohne Mängelgewähr in Reaktion auf neue Probleme bereitgestellt. Aufgrund der schnellen Bereitstellung kann das Material möglicherweise typografische Fehler enthalten und jederzeit ohne vorherige Ankündigung geändert werden. Weitere Hinweise finden Sie unter Geschäftsbedingungen.
