ใน Variable4 กับ Variable6 ลืมใส่
ว่าเป็น vn ของคนไข้รายนั้นหรือเปล่าครับ
จาก
Value := GetSQLStringData('select name from s_drugitems where icode="'+ DBPipeline['icode'] +'"group by icode');
น่าจะแก้เป็น
Value := GetSQLStringData('select sd.name from opitemrece o '
+' left outer join s_drugitems s on s.icode=o.icode '
+' where vn="'+DBPipeline['vn'] +'" '
+' and s.icode="'+ DBPipeline['icode'] +'" group by s.icode');
มากกว่านะครับ
จะได้เป็นของคนไข้รายนี้แน่ ๆ
เหตุผลที่ใช้ ตาราง opitemrece เป็นหลักเพราะว่า vn นั้นมีไม่กี่รายการแต่ถ้าอิงตาราง s_drugitmes จะได้ชื่อยาซึ่งมา link กับ vn ได้หลายตัวนะครับ
ผมยังไม่ได้ลองรันนะครับ เพราะว่าใช้ NB ที่บ้านลงแต่Program HOSxP แต่ไม่มีdatabase จึงไม่สามารถรันทดสอบดูครับ