[HOSxP Tip] XEPERSON for HOSxP 680205 สำหรับหน้าจอบัญชี1

XEPERSON_for_HOSxP_update_680205
ดาวโหลด
*** XEPERSON_for_HOSxP_update_680205 (247 downloads ) ***
– ปรับหน้าจอกำหนดการเชื่อมฐาน HIS
– ปรับตรวจสอบ character ให้รองรับ tis620 หรือ UTF8 หรือ latin

–

ประมาณนี้นะครับ

กรณีใครที่ยังไม่มี vn script ก็สร้างก่อนนะครับ ตามนี้

vn script ชื่อ  SYS_PERSONDETAIL_FORM
//—————————————————-//

var vn : string;
fonlineid,fvn,fhn,fcomputername,fdepartment,fuser:string;
cds:tclientdataset;

begin
cds :=tclientdataset.create(nil);
fhn:= GetGlobalValue(‘HN’);
vn:=’0000000000′;//GetGlobalValue(‘VN’);
fonlineid:=get_onlineid;
fcomputername := getsqldata(‘select servername from onlineuser where onlineid=”‘+fonlineid+'”‘);
fdepartment := getsqldata(‘select department from onlineuser where onlineid=”‘+fonlineid+'”‘);
fuser := getsqldata(‘select kskloginname from onlineuser where onlineid=”‘+fonlineid+'”‘);

showmessage(‘SYS_PERSONDETAIL_FORM by ARM….’);
cds.data := hosxp_getdataset(‘select * from sys_var where sys_name=”hn_online_for_dshos”‘);
if cds.recordcount > 0 then
cds.edit
else
begin
cds.insert;
cds[‘sys_name’] := ‘hn_online_for_dshos’;
end;
cds[‘sys_value’] := fhn;
cds[‘sys_var_guid’] := fuser;
cds[‘hos_guid’] := ‘SYS_PERSONDETAIL_FORM’;
cds.post;
if cds.changecount > 0 then
hosxp_updatedelta(
cds.delta, ‘select * from sys_var where sys_name=”hn_online_for_dshos” ‘);
cds.close;
WinEXEC(‘xeperson.exe ‘+vn);

end;

//—————————————————//

มีข้อเสนอแนะก็แจ้งมาได้ที่ line ส่วนตัวผมนะครับ
ขอบคุณครับ