thisform.image1.picture=getpict()
thisform.text1.value=thisform.image1.picture

Select table1
calculate max(sno) to abc
abc=abc+1
append blnak
replace sno with abc
full_path = thisform.image1.picture
IF LEFT(tt1,2) == "\\"
   full_path = SUBSTR(full_path,3) && remove "\\"
   nAt       = AT("\", full_path) 
   full_path = SUBSTR(full_path,nAt+1) && remove mapped drive name
   nAt       = AT("\", full_path) 
ELSE
   full_path = SUBSTR(full_path,4) && remove drive letter - > d:\
   nAt       = AT("\", full_path)
ENDIF
pict_path = SUBSTR(full_path,nAT+1)
replace path with pict_path