##VAR my_path='', my_str='', my_pim=.f., my_mark=''
##VAR my_data={}, my_goon=.f., my_values={}, my_right=0


**input data
my_data:={}
aadd(my_data, {'p01', 'Ενημέρωση PIM', ismodule(18), 'l', 1, 0, '', '', '', '', '', ''} )

**getdata
my_values:=callfpeg('?query?funp022', {my_data, {}, memoread('_readme.txt'), 'my_goon'}, .t.)           
##IF !my_goon
   ##RETURN
##ENDIF    


my_path:=curdrive() + ':\' + curdir()

my_str:="Να γίνει η διαγραφή;"
##IF !SayYesNo(my_str)
    ##RETURN
##ENDIF 

my_pim:=recarray(my_values, 'p01', .f.)

callfpeg('?query?runp01_1', {.t., '', '', 'upd01.peg', .t., .t.})
newdir(my_path)


##RETURN    
   