##IF odbcprintfld('erpa05', 'nr01', 'nr01=80')=0
     nrun_pp2:='Ενημέρωση Αλλαγών Αναβάθμισης...'
     refrit('orun_pp2')
     totrefr()

     newdir('..\..\bas00\_001')
**   eval(my_blchan, 'erpa76')
     
     ***my_upgr:={upload, reconstruct, views}
     my_upgr:={.t., .f., .f.}
##ENDIF      
##RETURN     