تخطي إلى المحتوى الرئيسي
الدعم
تسجيل الدخول
تسجيل الدخول باستخدام حساب Microsoft
تسجيل الدخول أو إنشاء حساب.
مرحباً،
تحديد استخدام حساب مختلف!
لديك حسابات متعددة
اختر الحساب الذي تريد تسجيل الدخول باستخدامه.


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

الأعراض

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

لا تكون كمية لشحن أكثر من 0,9. مبيعات سطر نوع المستند = 'النظام'، الوثيقة رقم = 'رقم'، البند رقم = 'رقم'.


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

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

الحل

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

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

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



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

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

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

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

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

  • إذن "تعديل" للكائن الذي سيتم تغيير.

  • إذن Execute للكائن 5210 معرف كائن النظام والكائن 9015 معرف كائن النظام .



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

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

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

  1. تغيير التعليمات البرمجية في المشغل مبلغ بريبمت إلى ديدوكت-OnValidate في جدول "مبيعات بند" (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. تغيير التعليمات البرمجية في وظيفة كالكبريبايمينتوديدوكت في جدول "مبيعات بند" (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. إنشاء دالة بريبمتامتوديدوكت جديدة في جدول "مبيعات بند" (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. تغيير التعليمات البرمجية في المشغل مبلغ بريبمت إلى ديدوكت-OnValidate في جدول "بند الشراء" (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. تغيير التعليمات البرمجية في وظيفة كالكبريبايمينتوديدوكت في جدول "بند الشراء" (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. إنشاء دالة بريبمتامتوديدوكت جديدة في الجدول "بند الشراء" (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. تغيير التعليمات البرمجية في المشغل أونرون في كوديونيت "المبيعات" اللاحقة "(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. إنشاء دالة تيستبريبمتاماونت جديدة في كوديونيت "المبيعات" اللاحقة "(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. تغيير التعليمات البرمجية في المشغل أونرون في "شراء.-نشر" كوديونيت (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. حذف وظيفة تيستبريبمتامونت وإنشائه مرة أخرى في كوديونيت "المبيعات" اللاحقة "(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. تغيير التعليمات البرمجية في وظيفة تيستساليسبريبايمينت في كوديونيت "إدارة اعتمادات" (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. تغيير التعليمات البرمجية في وظيفة تيستبورتشاسيبريبايمينت في كوديونيت "إدارة اعتمادات" (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. إنشاء دالة محلية جديدة إيسنوتينفويسيدساليسادفليتير في كوديونيت "إدارة اعتمادات" (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. إنشاء دالة محلية جديدة إيسنوتينفويسيدبورتشادفليتير في كوديونيت "إدارة اعتمادات" (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 المسردة في قسم "ينطبق على".

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

Facebook LinkedIn بريد إلكتروني
الاشتراك في موجز ويب لـ RSS

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

اكتشاف المجتمع

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

ميزات اشتراك Microsoft 365

تدريب Microsoft 365

أمان من Microsoft

مركز إمكانية وصول ذوي الاحتياجات الخاصة

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

طرح أسئلة في Microsoft Community

مجتمع Microsoft التقني

مشتركو Windows Insider

المشاركون في برنامج Microsoft 365 Insider

هل كانت المعلومات مفيدة؟

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

نشكرك على ملاحظاتك!

×