BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: Knott ที่ กันยายน 01, 2012, 10:06:08 AM
-
ผมทำ sys_vn_pre_script pop up แจ้งสิทธิ ชำระเงิน 30 บาท เฉพาะ ห้องยาและER รบกวนฝากทดสอบ และช่วยดู code ให้หน่อยครับ เพราะหากเจอคนที่เคยเปลี่ยนสิทธิ จาก uc ไปเป็นสิทธิอื่นๆ มันก็ฟ้องครับ
var
fvn,fcomputername,fdepartment,fhn : string;
cc:integer;
begin
fvn:= GetGlobalValue('VN');
fdepartment := GetGlobalValue('CURRENT_DEPCODE');
if getsqldata('select depcode from kskdepartment where depcode in ("009","012","037") and depcode="'+fdepartment+'"')=''+fdepartment+'' then
if getsqldata('select if(pcode="UC",1,2) as cc from vn_stat where vn = "'+fvn+'" ')=1 then
begin
showmessage('[ ¼Ùé»èÇÂÃÒ¹ÕéÁÕÊÔ·¸Ô UC µéͧªÓÃÐà§Ô¹ 30 ºÒ· ]');
end;
end;
end;
-
;D ใช้ได้หรือยังครับ
-
pop up แสดงครับ แต่ติดปัญหาที่ว่า ผู้ป่วยที่เคยมีสิทธิ uc แต่เปลี่ยนสิทธิมาเป็น สูงอายุ ก็ยังโชว์ pop up น่ะครับยังแก้ไม่หายครับ หรือผมเขียนโค๊ดอะไรผิดไปน้อออ ??? ???
-
::) ไม่ต้องใช้ pcode เปลี่ยนเป็น pttype ตรงๆ เลยได้ไหมครับ
-
ผมแยก pttype ออกเป็น ในเขต นอกเขต รอยต่อ ควรใช้คำสั่ง if ตรวจสอบยังไงดีครับ
-
::) จริงๆ ก็น่าจะเอาแค่ pttype ในเขตเท่านั้นนะครับ นอกเขต ปฏิบัติตามปกติครับ เรียกเก็บ รพ.นั้นๆ อยู่แล้ว
-
ขอดูตาราง pttype เฉพาะสิทธิ 30 บาททั้งในเขตและนอกเขตครับว่าตั้งค่าอย่างไรไว้บ้าง
ปล.ห้องยาเป็นคนคีย์ยาเอกหรือป่าวครับ