در برنامه shenase.prg  به عبارت 

repla sh_gabz with allt(str(fstn(allt(substr(tel_no,1,8)))))+"1714"+tanan(allt(str(fstn(allt(substr(tel_no,1,8)))))+"1714") all

بعد از with  این عبارت را اضافه کنید 

  repla sh_gabz with    substr("000000",1,9-len(allt(tel_no)))+    allt(str(fstn(allt(substr(tel_no,1,8)))))+"1714"+tanan(allt(str(fstn(allt(substr(tel_no,1,8)))))+"1714") all