พี่ pop ครับ รบกวนแนะนำวิธีการเพิ่ม ให้หน่อยครับ
ขอบคุณครับ
ที่หัวฉลากผมวางแบบนี้ ให้ออกตัว N=ยาตัวใหม่ และ O=ยาตัวเดิม
if GetSQLIntegerData('select count(icode) from opitemrece where'+
'(hn="'+DBPipeline['hn']+'") and icode="'+DBPipeline['icode']+'" and vn<>"'+DBPipeline['vn']+'"')>0 then
begin
value:='O';
end
else
begin
value:='N';
end;
ส่วนที่ตัวฉลากยา ผมใช้แบบนี้ครับ
if GetSQLIntegerData('select count(icode) from opitemrece where'+
'(hn="'+DBPipeline['hn']+'") and icode="'+DBPipeline['icode']+'" and vn<>"'+DBPipeline['vn']+'"')>0 then
begin
value:='ยาตัวเดิม';
end
else
begin
value:='ยาตัวใหม่';
end;
รบกวนอาจารย์ท่านใดเขียน script ตรวจสอบวิธีการใช้ยาตรวจสอบกับยาที่ได้รับครั้งล่าสุดให้หน่อยสิครับ
เดี๋ยวผมจะลองทดสอบกับรพ.ผมให้ว่าช้าอย่างที่กังวลกันหรือเปล่า