เขาสร้าง Script กันยังไงครับ
ลองแทรกใน sys_vn_pre_script ดูครับ อย่าลืมแก้ depcode ให้เป็นห้องจ่ายยาด้วยครับ
โค๊ด
var
fvn,fdepartment,fhn : string;
begin
fvn:= GetGlobalValue('VN');
fdepartment := GetGlobalValue('CURRENT_DEPCODE');
fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');
if getsqldata('select depcode from kskdepartment where depcode in ("008","028") and depcode="'+fdepartment+'"')=''+fdepartment+'' then
if getsqldata('select count(*) from rcpt_arrea '+
' where hn="'+fhn+'" '+
' and paid="N" ')>0 then
showmessage('มียอดค้างชำระ');
end;
หัวข้อ: Request จากเภสัช ต้องการให้ช่องสิทธิเป็นสีแดงเมื่อต้องชำระเงินครับ (อ่าน 5130 ครั้ง)