นำโค้ดด้านล่างไปบันทึกชื่อเป็น SYS_VN_SCRIPT   ตรงแทบสคริบในสายฟ้า

และถ้าจะให้สคริบทำงานออโต้ ก็ต้องไปเลือก system seting ตรง ran vn script  ด้วยนะครับ

var
  fvn,fcomputername,fdepartment,fhn, scrcl,lastvisit_vn : string;
  crcl, bw, LastCr, age_y, sex, a, factor : double;
  cc:integer;
 
begin

fdepartment := GetGlobalValue('CURRENT_DEPCODE');
fvn:= GetGlobalValue('VN');
fhn:=getsqldata(' select hn from vn_stat where vn="'+fvn+'"   ');
lastvisit_vn:=getsqldata(' select max(vn) from vn_stat where hn="'+fhn+'"  and vn<>"'+fvn+'"  ');

     zquery.close;
     zquery.sql.text:=' update vn_stat set lastvisit_vn ="'+lastvisit_vn+'"  where  vn="'+fvn+'"  ' ;
     zquery.execsql;
     zquery.close;

end;