كمية جزئية مكون ينعكس إلى "سلة تجميع" عند التراجع عن شحنة لصنف مكتب الضرائب الأسترالي الذي يحتوي على المكون في Microsoft Dynamics التنقل 2013

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة Microsoft Dynamics NAV 2009 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.

ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.
لحل هذه المشكلة، اتبع الخطوات التالية.

1. تغيير التعليمات البرمجية في وظيفة بوستيتيمكونسومبشن في كوديونيت "تجميع" اللاحقة "(900) كما يلي:
   التعليمات البرمجية الموجودة

   ...ItemJnlLine."Unit Cost" := "Unit Cost";
   ItemJnlLine.Correction := IsCorrection;
   END;
   IF IsCorrection THEN
   
   // Delete the following lines.
   PostCorrectionItemJnLine(ItemJnlLine,ItemJnlPostLine,DATABASE::"Posted Assembly Line",ApplyToEntryNo)
   ELSE BEGIN
   AssemblyLineReserve.TransferAsmLineToItemJnlLine(AssemblyLine,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   AssemblyLineReserve.UpdateItemTrackingAfterPosting(AssemblyLine);
   END;
   PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
   // End of the lines.
   
   EXIT(ItemJnlLine."Item Shpt. Entry No.");
   END; 
   LOCAL PROCEDURE PostItemOutput@4(VAR AssemblyHeader@1001 : Record 900;PostingNoSeries@1007 : Code[10];QtyToOutput@1004 : Decimal;QtyToOutputBase@1005 : Decimal;VAR ItemJnlPostLine@1002 : Codeunit 22;VAR WhseJnlRegisterLine@1003 : Codeunit 7301;DocumentNo@1010 : Code[20];IsCorrection@1011 : Boolean;ApplyToEntryNo@1008 : Integer) : Integer;
   VAR
   ...
   

   استبدال التعليمات البرمجية

   ...ItemJnlLine."Unit Cost" := "Unit Cost";
   ItemJnlLine.Correction := IsCorrection;
   END;
   IF IsCorrection THEN
   
   // Add the following lines.
   PostCorrectionItemJnLine(ItemJnlLine,AssemblyHeader,ItemJnlPostLine,DATABASE::"Posted Assembly Line",ApplyToEntryNo)
   ELSE BEGIN
   AssemblyLineReserve.TransferAsmLineToItemJnlLine(AssemblyLine,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   AssemblyLineReserve.UpdateItemTrackingAfterPosting(AssemblyLine);
   PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
   END;
   // End of the lines.
   
   EXIT(ItemJnlLine."Item Shpt. Entry No.");
   END;
   LOCAL PROCEDURE PostItemOutput@4(VAR AssemblyHeader@1001 : Record 900;PostingNoSeries@1007 : Code[10];QtyToOutput@1004 : Decimal;QtyToOutputBase@1005 : Decimal;VAR ItemJnlPostLine@1002 : Codeunit 22;VAR WhseJnlRegisterLine@1003 : Codeunit 7301;DocumentNo@1010 : Code[20];IsCorrection@1011 : Boolean;ApplyToEntryNo@1008 : Integer) : Integer;
   VAR
   ...
   

2. تغيير التعليمات البرمجية في وظيفة بوستيتيموتبوت في كوديونيت "تجميع" اللاحقة "(900) كما يلي:
   التعليمات البرمجية الموجودة

   ...GLSetup."Unit-Amount Rounding Precision"));
   ItemJnlLine.Correction := IsCorrection;
   END;
   IF IsCorrection THEN
   
   // Delete the following lines.
   PostCorrectionItemJnLine(ItemJnlLine,ItemJnlPostLine,DATABASE::"Posted Assembly Header",ApplyToEntryNo)
   ELSE BEGIN
   AssemblyHeaderReserve.TransferAsmHeaderToItemJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   AssemblyHeaderReserve.UpdateItemTrackingAfterPosting(AssemblyHeader);
   END;
   PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
   EXIT(ItemJnlLine."Item Shpt. Entry No.");
   END;
   LOCAL PROCEDURE PostCorrectionItemJnLine@37(VAR ItemJnlLine@1001 : Record 83;VAR ItemJnlPostLine@1008 : Codeunit 22;SourceType@1002 : Integer;ApplyToEntry@1005 : Integer);
   // End of the lines.
   
   VAR
   TempItemLedgEntry2@1000 : TEMPORARY Record 32;
   ATOLink@1003 : Record 904;
   TempItemLedgEntryInChain@1006 : TEMPORARY Record 32;
   ItemApplnEntry@1004 : Record 339;
   ...
   

   استبدال التعليمات البرمجية

   ...GLSetup."Unit-Amount Rounding Precision"));
   ItemJnlLine.Correction := IsCorrection;
   END;
   IF IsCorrection THEN
   
   // Add the following lines. 
   PostCorrectionItemJnLine(ItemJnlLine,AssemblyHeader,ItemJnlPostLine,DATABASE::"Posted Assembly Header",ApplyToEntryNo)
   ELSE BEGIN
   AssemblyHeaderReserve.TransferAsmHeaderToItemJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlLine."Quantity (Base)",FALSE);
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   AssemblyHeaderReserve.UpdateItemTrackingAfterPosting(AssemblyHeader);
   PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
   END;
   EXIT(ItemJnlLine."Item Shpt. Entry No.");
   END;
   LOCAL PROCEDURE PostCorrectionItemJnLine@37(VAR ItemJnlLine@1001 : Record 83;AssemblyHeader@1007 : Record 900;VAR ItemJnlPostLine@1008 : Codeunit 22;SourceType@1002 : Integer;ApplyToEntry@1005 : Integer);
   // End of the lines.
   
   VAR
   TempItemLedgEntry2@1000 : TEMPORARY Record 32;
   ATOLink@1003 : Record 904;
   TempItemLedgEntryInChain@1006 : TEMPORARY Record 32;
   ItemApplnEntry@1004 : Record 339;
   ...
   

3. تغيير التعليمات البرمجية في وظيفة بوستكوريكتيونيتيمجنليني في كوديونيت "تجميع" اللاحقة "(900) كما يلي:
   التعليمات البرمجية الموجودة

   ...ItemJnlLine."Warranty Date" := TempItemLedgEntry."Warranty Date";
   ItemJnlLine."Expiration Date" := TempItemLedgEntry."Expiration Date";
   ItemJnlLine."Item Shpt. Entry No." := 0;
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   UNTIL TempItemLedgEntry2.NEXT = 0;
   END;
   LOCAL PROCEDURE FindAppliesToATOUndoEntry@46(VAR ItemLedgEntryInChain@1000 : Record 32) : Integer;
   BEGIN
   ...
   

   استبدال التعليمات البرمجية

   ...ItemJnlLine."Warranty Date" := TempItemLedgEntry."Warranty Date";
   ItemJnlLine."Expiration Date" := TempItemLedgEntry."Expiration Date";
   ItemJnlLine."Item Shpt. Entry No." := 0;
   ItemJnlPostLine.RunWithCheck(ItemJnlLine);
   
   // Add the following line.
   PostWhseJnlLine(AssemblyHeader,ItemJnlLine,ItemJnlPostLine,WhseJnlRegisterLine);
   
   UNTIL TempItemLedgEntry2.NEXT = 0;
   END;
   LOCAL PROCEDURE FindAppliesToATOUndoEntry@46(VAR ItemLedgEntryInChain@1000 : Record 32) : Integer;
   BEGIN
   ...