รบกวนดู code pop แจ้งสิทธิ 30 บาทหน่อยครับ

[Knott]

ผมทำ 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;

[Terminator2015]

  ใช้ได้หรือยังครับ

[Knott]

pop up แสดงครับ แต่ติดปัญหาที่ว่า ผู้ป่วยที่เคยมีสิทธิ uc แต่เปลี่ยนสิทธิมาเป็น สูงอายุ ก็ยังโชว์ pop up น่ะครับยังแก้ไม่หายครับ หรือผมเขียนโค๊ดอะไรผิดไปน้อออ   

[Terminator2015]

  ไม่ต้องใช้ pcode เปลี่ยนเป็น pttype ตรงๆ เลยได้ไหมครับ

[Knott]

ผมแยก pttype ออกเป็น ในเขต นอกเขต รอยต่อ ควรใช้คำสั่ง if ตรวจสอบยังไงดีครับ

[Terminator2015]

  จริงๆ ก็น่าจะเอาแค่ pttype ในเขตเท่านั้นนะครับ นอกเขต ปฏิบัติตามปกติครับ เรียกเก็บ รพ.นั้นๆ อยู่แล้ว

[golf_win]

ขอดูตาราง pttype เฉพาะสิทธิ 30 บาททั้งในเขตและนอกเขตครับว่าตั้งค่าอย่างไรไว้บ้าง

ปล.ห้องยาเป็นคนคีย์ยาเอกหรือป่าวครับ