رسالة الخطأ "Qty. to Ship لا يمكن أن تكون أكثر من 0,9" عند شحن أمر مبيعات يحتوي على دفعات مسبقة في إصدار أوروبا الشرقية من Microsoft Dynamics NAV 2009 R2

ينطبق على
Microsoft Dynamics NAV 2009 R2

تنطبق هذه المقالة على Microsoft Dynamics NAV للغات لغة أوروبا الشرقية (EE).

الأعراض

افترض أنك تطبق الإصلاح العاجل 2672643 في إصدار أوروبا الشرقية من Microsoft Dynamics NAV 2009 R2. يمكنك نشر رسالة مسبقة لأمر مبيعات يحتوي على دفعات مسبقة. في هذه الحالة، عند شحن أمر المبيعات وفواتيره، تتلقى رسالة الخطأ التالية:

ملاحظة

Qty. إلى الشحن لا يمكن أن يكون أكثر من 0,9. في نوع مستند سطر المبيعات='Order',Document No.='Number',Line No.='Number'.

لذلك، لا يمكنك نشر أمر المبيعات.
  لمزيد من المعلومات حول الإصلاح العاجل 2672643، انقر فوق رقم المقالة التالي لعرض المقالة في قاعدة معارف Microsoft:

2672643 رسالة الخطأ "لا توجد مبالغ دفع مسبقة منشورة على الطلب [رقم]" عند نشر شحنة جزئية لأمر مبيعات في إصدار شرق أوروبا من Microsoft Dynamics NAV 2009 R2

الدقة

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

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

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

            
          

معلومات التثبيت

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

ملاحظة قبل تثبيت هذا الإصلاح العاجل، تحقق من تسجيل خروج جميع مستخدمي عميل Microsoft Dynamics NAV من النظام. يتضمن ذلك خدمات Microsoft Dynamics NAV Application Server (NAS). يجب أن تكون المستخدم العميل الوحيد الذي قام بتسجيل الدخول عند تنفيذ هذا الإصلاح العاجل.

لتنفيذ هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

نوصي بتعيين معرف دور "SUPER" لحساب المستخدم في نافذة تسجيلات الدخول إلى Windows أو في نافذة تسجيلات دخول قاعدة البيانات. إذا تعذر تعيين معرف دور "SUPER" لحساب المستخدم، فيجب عليك التحقق من أن حساب المستخدم لديه الأذونات التالية:

  • إذن تعديل للكائن الذي ستقوم بتغييره.
  • إذن Execute للكائن System Object ID 5210 ولعنصر System Object ID 9015.

                
ملاحظة ليس لديك حقوق في مخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

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

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

  1. تغيير التعليمات البرمجية في Prepmt Amt إلى مشغل Deduct - OnValidate في جدول "Sales Line" (37) كما يلي:
    التعليمات البرمجية الموجودة

    ...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    رمز الاستبدال

    ...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

  2. تغيير التعليمات البرمجية في الدالة CalcPrepaymentToDeduct في جدول "Sales Line" (37) كما يلي:

    1. احذف المتغيرات المحلية التالية:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection : Boolean;

    2. تغيير التعليمات البرمجية كما يلي:
      التعليمات البرمجية الموجودة

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF SalesHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100 ,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

      رمز الاستبدال

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

  3. إنشاء دالة PrepmtAmtToDeduct جديدة في جدول "خط المبيعات" (37) كما يلي:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

  4. قم بتغيير التعليمات البرمجية في مشغل Prepmt Amt إلى Deduct - OnValidate في جدول "Purchase Line" (39) كما يلي:
    التعليمات البرمجية الموجودة

    ...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    رمز الاستبدال

    ...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

  5. تغيير التعليمات البرمجية في الدالة CalcPrepaymentToDeduct في جدول "سطر الشراء" (39). اتبع هذه الخطوات للقيام بذلك:

    1. احذف المتغيرات المحلية التالية:

      PrepmtPct@ : Decimal;
AbsoluteAdvCorrection@ : Boolean;

    2. تغيير التعليمات البرمجية كما يلي:
      التعليمات البرمجية الموجودة

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF PurchHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

      رمز الاستبدال

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

  6. إنشاء دالة PrepmtAmtToDeduct جديدة في جدول "سطر الشراء" (39) كما يلي:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

  7. تغيير التعليمات البرمجية في مشغل OnRun في codeunit "Sales-Post" (80) كما يلي:
    التعليمات البرمجية الموجودة

    ...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";
IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

    رمز الاستبدال

    ...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";

// Add the following lines. 
IF Invoice THEN
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
TestPrepmtAmount;
// End of the added lines. 

IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

  8. إنشاء دالة TestPrepmtAmount جديدة في codeunit "Sales-Post" (80) كما يلي:

    PROCEDURE TestPrepmtAmount@1470003();
VAR
AllowedQtyToShip@1470000 : Decimal;
SalesAdvLetterHeader@1470001 : Record 26585;
BEGIN
WITH SalesLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;
SalesAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT SalesAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToShip :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Ship" > AllowedQtyToShip THEN
FIELDERROR("Qty. to Ship",STRSUBSTNO(Text047,AllowedQtyToShip));
END;
END;
END;

  9. قم بتغيير التعليمات البرمجية في مشغل OnRun في codeunit "Purch.-Post" (90) كما يلي:
    التعليمات البرمجية الموجودة

    ...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN
TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

    رمز الاستبدال

    ...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN

// Add the following line.
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN

TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

  10. احذف الدالة TestPrepmtAmount وقم بإنشائها مرة أخرى في codeunit "Sales-Post" (80) كما يلي:

    LOCAL PROCEDURE TestPrepmtAmount@55();
VAR
AllowedQtyToReceive@1470000 : Decimal;
PurchAdvLetterHeader@147001 : Record 26587;
BEGIN
WITH PurchLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;

PurchAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT PurchAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToReceive :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Receive" > AllowedQtyToReceive THEN
FIELDERROR("Qty. to Receive",STRSUBSTNO(Text047,AllowedQtyToReceive));
END;
END;
END;

  11. تغيير التعليمات البرمجية في الدالة TestSalesPrepayment في وحدة التعليمات البرمجية "إدارة الموافقات" (439) كما يلي:
    التعليمات البرمجية الموجودة

    ...
SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

    رمز الاستبدال

    ...
// Add the following lines.
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedSalesAdvLetter(SalesHeader."No."));
// End of the added lines. 

SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

  12. تغيير التعليمات البرمجية في الدالة TestPurchasePrepayment في وحدة التعليمات البرمجية "إدارة الموافقات" (439) كما يلي:
    التعليمات البرمجية الموجودة

    ...
PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

    رمز الاستبدال

    ...
// Add the following lines.
IF PurchaseHeader."Prepayment Type" = PurchaseHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedPurchAdvLetter(PurchaseHeader."No."));
// End of the added lines. 

PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

  13. إنشاء دالة محلية جديدة IsNotInvoicedSalesAdvLetter في codeunit "Approvals Management" (439) كما يلي:

    LOCAL PROCEDURE IsNotInvoicedSalesAdvLetter@38(SalesOrderNo@1170000000 : Code[30]) : Boolean;
VAR
SalesAdvLetterHeader@1001 : Record 26585;
SalesAdvLetterLine@1002 : Record 26586;
BEGIN
WITH SalesAdvLetterHeader DO BEGIN
SETRANGE("Order No.",SalesOrderNo);
IF FIND('-') THEN
REPEAT
SalesAdvLetterLine.SETRANGE("Letter No.","No.");
IF SalesAdvLetterLine.FIND('-') THEN
REPEAT
IF SalesAdvLetterLine."Amount Including VAT" <> SalesAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL SalesAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

  14. إنشاء دالة محلية جديدة IsNotInvoicedPurchAdvLetter في codeunit "Approvals Management" (439) كما يلي:

    LOCAL PROCEDURE IsNotInvoicedPurchAdvLetter@39(PurchOrderNo@1170000000 : Code[30]) : Boolean;
VAR
PurchAdvLetterHeader@1001 : Record 26587;
PurchAdvLetterLine@1002 : Record 26588;
BEGIN
WITH PurchAdvLetterHeader DO BEGIN
SETRANGE("Order No.",PurchOrderNo);
IF FIND('-') THEN
REPEAT
PurchAdvLetterLine.SETRANGE("Letter No.","No.");
IF PurchAdvLetterLine.FIND('-') THEN
REPEAT
IF PurchAdvLetterLine."Amount Including VAT" <> PurchAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL PurchAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

المتطلبات الأساسية

يجب أن يكون لديك إصدار أوروبا الشرقية من Microsoft Dynamics NAV 2009 R2 مثبتا لتطبيق هذا الإصلاح العاجل.

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.

الحالة

لقد أكدت Microsoft على أن هذه مشكلة في منتجات Microsoft المُدرجة في القسم "ينطبق على".

ملاحظة هذه مقالة "FAST PUBLISH" تم إنشاؤها مباشرة من داخل مؤسسة دعم Microsoft. وتقدم المعلومات الواردة هنا كما هي استجابة للقضايا الناشئة. نتيجة لسرعة إتاحتها، قد تتضمن المواد أخطاء مطبعية ويمكن مراجعتها في أي وقت دون إشعار. راجع شروط الاستخدام لاعتبارات أخرى.