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

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

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

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

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

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

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;