Dynamics 365 Business Central: การใช้ Progress Windows, Message, Error, และ Confirm Methods ใน AL Programming

ในบทความนี้ เราจะมาทำความเข้าใจเกี่ยวกับการใช้งาน Progress Windows, Message, Error, และ Confirm Methods ในการเขียนโปรแกรมด้วยภาษา AL ซึ่งเป็นภาษาหลักที่ใช้ใน Dynamics 365 Business Central แต่ละ method มีบทบาทที่แตกต่างกันไปในการโต้ตอบกับผู้ใช้ โดยเฉพาะในสถานการณ์ที่ต้องการแสดงข้อมูล, แจ้งเตือนข้อผิดพลาด, หรือขอการยืนยันจากผู้ใช้ เราจะมาเจาะลึกถึงรายละเอียดพร้อมตัวอย่างการใช้งานแต่ละ method อย่างละเอียด

1. Progress Windows

Progress Windows เป็นเครื่องมือที่ช่วยให้โปรแกรมสามารถแสดงสถานะความคืบหน้าของกระบวนการที่ต้องใช้เวลานาน เช่น การประมวลผลข้อมูลจำนวนมาก หรือการนำเข้าข้อมูลจากแหล่งอื่น หน้าต่างนี้จะช่วยให้ผู้ใช้ทราบว่าโปรแกรมกำลังทำอะไรอยู่และคาดว่าจะใช้เวลาเท่าไร

รูปแบบการใช้งาน:

ProgressDialog.OPEN(ProgressMsg, Counter);
ProgressDialog.UPDATE();
ProgressDialog.CLOSE();

ตัวอย่างการใช้งาน:

    procedure ImportDataWithProgress()
    var
        Progress: Dialog;
        Counter: Integer;
        ProgressMsg: Label 'Progress from 0 to 9999   #1#####'; 
    begin
        Counter := 0;
        Progress.OPEN(ProgressMsg, Counter);
        repeat
            // Perform processing logic here
            Counter := Counter + 1;
            Progress.UPDATE();
            SLEEP(10);
        until Counter = 9999;
        Progress.CLOSE();
    end;

ในตัวอย่างข้างต้น เราได้สร้างหน้าต่าง Progress ที่จะบอกผู้ใช้ว่าอยู่ที่ขั้นตอนใดของการประมวลผล และใช้ Progress.UPDATE(); เพื่ออัพเดตข้อมูลในหน้าต่าง

2. Message Method

Message Method ใช้ในการแสดงข้อความให้ผู้ใช้ทราบ ซึ่งข้อความนี้จะเป็นเพียงข้อมูล ไม่ใช่การแจ้งเตือนหรือข้อผิดพลาด

รูปแบบการใช้งาน:

Message('Your message here: %1', SomeVariable);

ตัวอย่าง:

  procedure ShowMessage()
  begin
      Message('Hello, %1!', 'Thanapope');
  end;

ในตัวอย่างนี้ เมธอด Message จะทำการแสดงกล่องข้อความที่มีข้อความว่า “Hello, Thanapope!”

3. Error Method

Error Method ใช้ในการแจ้งข้อผิดพลาดและหยุดการทำงานของโปรแกรม หากเกิดข้อผิดพลาดขึ้น

รูปแบบการใช้งาน:

Error('An error occurred: %1', ErrorMessage);

ตัวอย่าง:

procedure ValidateInput(SomeValue: Integer)
begin
    if SomeValue < 0 then
        Error('The value %1 cannot be negative', SomeValue);
end;

ในตัวอย่างนี้ หากค่า SomeValue เป็นลบ จะมีการแสดงข้อผิดพลาดและหยุดการทำงานด้วยข้อความ “The value cannot be negative

4. Confirm Method

Confirm Method ใช้ในการสอบถามผู้ใช้เพื่อขอการยืนยันก่อนที่จะทำการดำเนินการใด ๆ

รูปแบบการใช้งาน:

if Confirm('Are you sure you want to continue?') then begin
       // Code to execute if user confirms
end;

ตัวอย่าง:

    procedure ConfirmAction()
    begin
        if Confirm('Are you sure you want to delete this record?') then begin
            // Code to delete the record
            Message('Record deleted successfully.');
        end else begin
            Message('Operation cancelled.');
        end;
    end;

ตัวอย่างกด Yes

ตัวอย่างกด No

ในตัวอย่างนี้ โปรแกรมจะถามผู้ใช้ว่าต้องการลบข้อมูลหรือไม่ หากผู้ใช้กดยืนยัน โปรแกรมจะลบข้อมูลและแสดงข้อความว่า “Record deleted successfully.”