ใน Declarations
เพิ่ม dname,dcode:string;
ใน procedure GlobalOnCreate
เพิ่ม
dname:=GetPickupList('select name from doctor');
dcode := GetSQLStringData('select code from doctor where name ="'+dname+'"');
ในส่วนของ Variables ทั้งหลายที่มี d.doctor="12" ก็เปลี่ยนเป็น
d.doctor="'+dcode+'" ')