##VAR my_path='', my_data={}, my_values:={}, my_goon=.f., my_arr={}, my_coun=0, my_str1='', my_str=''

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

my_data:={}

aadd(my_data, {'t101', 'Να δημιουργηθούν και _dels πίνακες', .t., 'l', 1, 0})
aadd(my_data, {'t102', 'Να διαγραφούν οι πίνακες επιλογών', .f., 'l', 1, 0})
aadd(my_data, {'t103', 'Να γίνεται έλεγχος της Δομής', .t., 'l', 1, 0})

aadd(my_data, {'t199', 'Επιλέξτε τα Modules', '', 'c', 1, 0})


**find modules
newdir(peg_cpath)
dbopen('w03', 'w03_d', .f.)
dborder('w03', 'w03_d', 'nr01')
##DOWHILE !eof()
     ##IF ismodule(nr01) .and. file(pegtrim(p02) + '\sets.dbf')
         aadd(my_data, {'p' + strzero(nr01,3), pegtrim(str(nr01)) + '. ' + pegtrim(p01), _ver_debug .and. nr01 $ {1, 2, 5, 6, 34, 37}, 'l', 1, 0})
     ##ENDIF     
     aselect('w03')
     dbskip()
##ENDDO
closefile('w03')
newdir(my_path)
##IF len(my_data)<=0
    SayAlert('Δεν βρέθηκαν εγκατεστημένα modules')
    ##RETURN
##ENDIF     
         
**getdata
my_values:=callfpeg('?query?funp022', {my_data, {}, memoread('readme.txt'), 'my_goon'}, .t.)           
##IF !my_goon
   ##RETURN
##ENDIF    

**find given data
my_coun:=1
my_arr:={}
##DOWHILE my_coun<=len(my_values) 
        ##if lower(substr(my_values[my_coun][1], 1, 1))=='p' .and. my_values[my_coun][2] 
             aadd(my_arr, val(substr(my_values[my_coun][1], 2, 3)) )
        ##endif
        my_coun:=my_coun+1     
##ENDDO

my_str1:='Δεν έχετε επιλέξει κανένα module. Να γίνει επαναδημιουργία μόνο των views;'
##IF len(my_arr)<=0 .and. !SayYesNo(my_str1)
    ##RETURN
##ENDIF     

##IF len(my_arr)<=0
    callfpeg('?query?runp01_1', {.f., '', '', 'views01.peg', .t., .t.})
##ELSE 
    callfpeg('?query?runp01_1', {.f., '', '', 'all01.peg', .t., .t.})
##ENDIF         

newdir(my_path)

##RETURN 
   