BMS-HOSxP Community
HOSxP => การเขียน SQL Script => ข้อความที่เริ่มโดย: niyomstd ที่ กันยายน 05, 2012, 14:32:51 PM
-
ไม่ทราบว่าถูกต้องหรือเปล่า ช่วยตรวจสอบให้ทีครับ
var
fvn,fcomputername,fdepartment,fhn : string;
tc : TClientDataset;
begin
// showmessage('TEST Script');
fvn:= GetGlobalValue('VN');
fcomputername := GetGlobalValue('CURRENT_COMPUTER');
fdepartment := GetGlobalValue('CURRENT_DEPCODE');
// showmessage('Current VN = '+fvn+' , Computer Name = '+fcomputername+' , Department Code = '+fdepartment);
if fdepartment='011' then
begin
if getsqldata('select * '+
'from er_regist e '+
'left outer join vn_stat v on e.vn=v.vn where v.pttype="34" and e.vn = "'+fvn+'" ')>0 then
begin
showmessage('[ ผู้ป่วยสิทธิประกันสังคม กรุณาตรวจสอบก่อน admit ครับ ]');
end;
end;
end;