Не можете да промените реда на дневник, след прилагането на актуалната корекция 2510272 в Microsoft Dynamics NAV 2009

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, който ще съдържа тази корекция.

Забележка: При специални случаи таксите, които се начисляват за свързани с поддръжката обаждания могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързани с тях продукти определя, че конкретна актуализация може да разреши проблема. Обичайните такси за поддръжката ще важат за допълнителни въпроси и проблеми, които не спадат към съответната актуализация.

Промени код

Забележка: Винаги тест код решава в управлявана среда преди да приложите корекциите производство компютри.
За да разрешите този проблем, изпълнете следните стъпки:

1. Промяна на кода на CreateDim функцията в таблицата операции (81) както следва:
   Exis Тинг код

   ...No[5] := No5;
   "Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetDefaultDim(
   TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Gen. Journal Line","Journal Template Name",
   "Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
   BEGIN
   DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
   ...
   

   Замени код

   ...No[5] := No5;
   "Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetDefaultDim(
   TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Gen. Journal Line","Journal Template Name",
   "Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
   BEGIN
   DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
   ...
   

2. Промяна на кода на CreateDim функцията в таблицата артикул (83) както следва:
   Съществуващ код

   ...DimMgt.UpdateDefaultDimNewDimValue;
   "New Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
   "New Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
   END;
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE CreateProdDim@25(Type1@1007 : Integer;No1@1006 : Code[20];Type2@1005 : Integer;No2@1004 : Code[20];Type3@1003 : Integer;No3@1002 : Code[20]);
   VAR
   TableID@1001 : ARRAY [10] OF Integer;
   ...
   

   Замени код

   ...DimMgt.UpdateDefaultDimNewDimValue;
   "New Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
   "New Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
   END;
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE CreateProdDim@25(Type1@1007 : Integer;No1@1006 : Code[20];Type2@1005 : Integer;No2@1004 : Code[20];Type3@1003 : Integer;No3@1002 : Code[20]);
   VAR
   TableID@1001 : ARRAY [10] OF Integer;
   ...
   

3. Промяна на кода на CreateProdDim функцията в таблицата артикул (83) както следва:
   Съществуващ код

   ..."Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetProdDocDim(
   TableID,No,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE GetDim@30(VAR JnlLineDim@1000 : Record 356);
   BEGIN
   DimMgt.GetJnlLineDefaultDim(JnlLineDim);
   ...
   

   Замени код

   ..."Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetProdDocDim(
   TableID,No,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE GetDim@30(VAR JnlLineDim@1000 : Record 356);
   BEGIN
   DimMgt.GetJnlLineDefaultDim(JnlLineDim);
   ...