ข้อความแสดงข้อผิดพลาด "มีอยู่ไม่มีอัตราแลกเปลี่ยนสกุลเงินภายในตัวกรอง" เมื่อคุณพยายามที่จะสร้างใบสั่งขายในสกุลเงินต่างประเทศถ้าวันการลงรายการบัญชีเริ่มต้นเป็นค่าว่างใน Microsoft Dynamics NAV

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

การเปลี่ยนแปลงรหัส

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันSalesHeaderExchDateในโค้ดยูนิตจัดการการคำนวณราคาขาย(7000) เป็นดังนี้:
   รหัสที่มีอยู่

   ...WITH SalesHeader DO BEGIN
   
   // Delete the following lines.
     IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
        ("Posting Date" = 0D)
     THEN
       EXIT(WORKDATE);
     EXIT("Posting Date");
   // End of the deleted lines.
   
   END;
   ...
   

   รหัสแทน

   ...WITH SalesHeader DO BEGIN
   
   // Add the following lines.
     IF "Posting Date" <>0D THEN
       EXIT("Posting Date");
     EXIT(WORKDATE);
   // End of the added lines.
   
   END;
   ...
   

2. เปลี่ยนรหัสในฟังก์ชันPurchHeaderExchDateในการซื้อ จัดการการคำนวณราคา โค้ดยูนิตที่ (7010) ดัง:
   รหัสที่มีอยู่

   ...WITH PurchHeader DO BEGIN
   // Delete the following lines.
     IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
        ("Posting Date" = 0D)
     THEN
       EXIT(WORKDATE);
     EXIT("Posting Date");
   // End of the deleted lines.
   END;
   ...
   

   รหัสแทน

   ...WITH PurchHeader DO BEGIN
   
   // Add the following lines.
     IF "Posting Date" <> 0D THEN
       EXIT("Posting Date");
     EXIT(WORKDATE);
   // End of the added lines.
   
   END;
   ...
   

3. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(111) ในแบบฟอร์มใบสั่งขาย(42) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

4. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(107) ในแบบฟอร์มใบแจ้งหนี้การขาย(43) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

5. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(91) ในแบบฟอร์มใบลดหนี้การขาย(44) ดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

6. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(119) ในแบบฟอร์มใบสั่งซื้อ(50) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

7. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(104) ในแบบฟอร์มใบแจ้งหนี้การซื้อ(51) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

8. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(91) ในแบบฟอร์มใบลดหนี้การซื้อ(52) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

9. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(91) ในแบบฟอร์มใบสั่งส่งคืนสินค้าขาย(6630) เป็นดังนี้:
   รหัสที่มีอยู่

   ...CLEAR(ChangeExchangeRate);
   
   // Delete the following line.
   ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
   // End of the deleted line.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

   รหัสแทน

   ...CLEAR(ChangeExchangeRate);
   
   // Add the following lines.
   IF "Posting Date" <> 0D THEN
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
   ELSE
     ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
   // End of the added lines.
   
   IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
     VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
     CurrForm.UPDATE;
   END;
   CLEAR(ChangeExchangeRate);
   ...
   

10. เปลี่ยนรหัสในทริกเกอร์OnAssistEditในฟิลด์รหัสสกุลเงิน(91) ในแบบฟอร์มใบสั่งส่งคืนสินค้าซื้อ(6640) เป็นดังนี้:
    รหัสที่มีอยู่

    ...CLEAR(ChangeExchangeRate);
    
    // Delete the following line.
    ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");
    // End of the deleted line.
    
    IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
      VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
      CurrForm.UPDATE;
    END;
    CLEAR(ChangeExchangeRate);
    ...
    

    รหัสแทน

    ...CLEAR(ChangeExchangeRate);
    
    // Add the following lines.
    IF "Posting Date" <> 0D THEN
      ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")
    ELSE
      ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);
    // End of the added lines.
    
    IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
      VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);
      CurrForm.UPDATE;
    END;
    CLEAR(ChangeExchangeRate);
    ...
    

11. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateCurrencyFactorในตารางหัวข้อการขาย(36) เป็นดังนี้:
    รหัสที่มีอยู่

    ...IF "Currency Code" <>'' THEN BEGIN
    
    // Delete the following lines.
      IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND
         ("Posting Date" = 0D)
      THEN
        CurrencyDate := WORKDATE
      ELSE
        CurrencyDate := "Posting Date";
    // End of the deleted lines.
    
      "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");
    END ELSE
      "Currency Factor" := 0;
    ...
    

    รหัสแทน

    ...IF "Currency Code" <> '' THEN BEGIN
    
    // Add the following lines.
      IF "Posting Date" <> 0D THEN
        CurrencyDate := "Posting Date"
      ELSE
        CurrencyDate := WORKDATE;
    // End of the added lines.
    
      "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");
    END ELSE
      "Currency Factor" := 0;
    ...
    

12. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันGetDateในตารางบรรทัดการขาย (37) เป็นดังนี้:
    รหัสที่มีอยู่

    ...// Delete the following lines.
    IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
       (SalesHeader."Posting Date" = 0D)
    THEN
      EXIT(WORKDATE);
    EXIT(SalesHeader."Posting Date");
    // End of the deleted lines.
    ...
    

    รหัสแทน

    ...// Add the following lines.
    IF SalesHeader."Posting Date" <> 0D THEN
      EXIT(SalesHeader."Posting Date");
    EXIT(WORKDATE);
    // End of the added lines.
    ...
    

13. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateCurrencyFactorในตารางหัวข้อการซื้อ(38) เป็นดังนี้:
    รหัสที่มีอยู่

    ...IF "Currency Code" <> '' THEN BEGIN
    // Delete the following lines.
      IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND
         ("Posting Date" = 0D)
      THEN
        CurrencyDate := WORKDATE
      ELSE
        CurrencyDate := "Posting Date";
    // End of the deleted lines.
    
      "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");
    END ELSE
      "Currency Factor" := 0;
    ...
    

    รหัสแทน

    ...IF "Currency Code"<>'' THEN BEGIN
    // Add the following lines.
      IF "Posting Date" <> 0D THEN
        CurrencyDate := "Posting Date"
      ELSE
        CurrencyDate := WORKDATE;
    // End of the added lines.
    
      "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");
    END ELSE
      "Currency Factor" := 0;
    ...
    

14. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันGetDateในตารางบรรทัดการซื้อ (39) เป็นดังนี้:
    รหัสที่มีอยู่

    ...// Delete the following lines.
    IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
       (PurchHeader."Posting Date" = 0D)
    THEN
      EXIT(WORKDATE);
    EXIT(PurchHeader."Posting Date")
    // End of the deleted lines.
    ...
    

    รหัสแทน

    ...// Add the following lines.
    IF PurchHeader."Posting Date"<>0D THEN
      EXIT(PurchHeader."Posting Date");
    EXIT(WORKDATE);
    // End of the added lines.
    ...
    

15. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันRoundAmountในโค้ดยูนิตลงรายการบัญชีการขาย(80) เป็นดังนี้:
    รหัสที่มีอยู่

    ...IF SalesHeader."Currency Code" <>'' THEN BEGIN
    // Delete the following lines.
      IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
         (SalesHeader."Posting Date" = 0D)
      THEN
    // End of the deleted lines.
        UseDate := WORKDATE
      ELSE
        UseDate := SalesHeader."Posting Date";       
    ...
    

    รหัสแทน

    ...IF SalesHeader."Currency Code" <>'' THEN BEGIN
    // Add the following line.
      IF (SalesHeader."Posting Date" = 0D) THEN
    // End of the added line.
    
        UseDate := WORKDATE
      ELSE
        UseDate := SalesHeader."Posting Date";
    ...
    

16. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันRoundAmountในการซื้อ-ไปรษณีย์โค้ดยูนิต (90) ดัง:
    รหัสที่มีอยู่

    ...IF PurchHeader."Currency Code" <>'' THEN BEGIN
    // Delete the following lines.
      IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
         (PurchHeader."Posting Date" = 0D)
      THEN
    // End of the deleted lines.
        Usedate := WORKDATE
      ELSE
        Usedate := PurchHeader."Posting Date";
    ...
    

    รหัสแทน

    ...IF PurchHeader."Currency Code"<> '' THEN BEGIN
    // Add the following line.
      IF (PurchHeader."Posting Date" = 0D) THEN
    // End of the added line.
        Usedate := WORKDATE
      ELSE
        Usedate := PurchHeader."Posting Date";
    ...
    

17. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateHeaderInfoในแบบฟอร์มสถิติใบสั่งขาย(402) เป็นดังนี้:
    รหัสที่มีอยู่

    ...IF "Prices Including VAT" THEN
      TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]
    ELSE
      TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];
    IF "Currency Code" <> '' THEN
    
    // Delete the following lines.     
      IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
         ("Posting Date" = 0D)
      THEN
    // End of the deleted lines.
    
        UseDate := WORKDATE
      ELSE
        UseDate := "Posting Date";         
    ...
    

    รหัสแทน

    ...IF "Prices Including VAT" THEN
      TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]
    ELSE
      TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];
    IF "Currency Code" <>'' THEN
    // Add the following line.    
      IF "Posting Date" = 0D THEN
    // End of the added line.
        UseDate := WORKDATE
      ELSE
        UseDate := "Posting Date";
    ...
    

18. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateHeaderInfoในแบบฟอร์มสถิติใบสั่งซื้อ(403) เป็นดังนี้:
    รหัสที่มีอยู่

    ...IF "Prices Including VAT" THEN
      TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]
    ELSE
      TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];
    IF "Currency Code" <> '' THEN BEGIN
    // Delete the following lines.      
      IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
         ("Posting Date" = 0D)
      THEN
    // End of the deleted lines.
        UseDate := WORKDATE
      ELSE
        UseDate := "Posting Date";
    ...
    

    รหัสแทน

    ...IF "Prices Including VAT" THEN
      TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]
    ELSE
      TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];
    IF "Currency Code" <> '' THEN BEGIN
    // Add the following line.      
      IF "Posting Date" = 0D THEN
    // End of the added line.
        UseDate := WORKDATE
      ELSE
        UseDate := "Posting Date";
    ...
    

19. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalculateInvoiceDiscountในโค้ดยูนิตการขายการคำนวณส่วนลด(60) เป็นดังนี้:
    รหัสที่มีอยู่

    ...// Delete the following lines.  
    IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
       (SalesHeader."Posting Date" = 0D)
    THEN
    // End of the deleted lines.
      CurrencyDate := WORKDATE
    ELSE
      CurrencyDate := SalesHeader."Posting Date";
    ...
    

    รหัสแทน

    ...// Add the following line.    
    IF SalesHeader."Posting Date" = 0D THEN
    // End of the added line.
      CurrencyDate := WORKDATE
    ELSE
      CurrencyDate := SalesHeader."Posting Date";
    ...
    

20. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalculateInvoiceDiscountในการซื้อ-Calc.Discountโค้ดยูนิต (70) ดัง:
    รหัสที่มีอยู่

    ...// Delete the following lines.  
    IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND
       (PurchHeader."Posting Date" = 0D)
    THEN
    // End of the deleted lines.
      CurrencyDate := WORKDATE
    ELSE
      CurrencyDate := PurchHeader."Posting Date";
    ...
    

    รหัสแทน

    ...// Add the following line.   
    IF PurchHeader."Posting Date" = 0D THEN
    // End of the added line.
      CurrencyDate := WORKDATE
    ELSE
      CurrencyDate := PurchHeader."Posting Date";
    ...