set talk off
set fullpath on
set safety off
hfile=Fcreate('fdoc.tmp')
if hfile< 0 
 wait window 'Ошибка открытия файла' time . 7 
 close all
 cancel
endif
for x= 1  to  100 
 select (x)
 if used()
  =fputs(hfile,'')
  =fputs(hfile,'*** '+str(x, 2 )+'. '+alias()+' ('+dbf()+')')
  copy structure extended to 'tmp.tmp'
  select  0 
  use tmp.tmp
  select (x)
  for z= 1  to fcount()
   go z in TMP
   =fputs(hfile,str(z, 3 )+'.'+padr(field(z),max(len(allt(field(z))), 35 ))+TMP.field_type+' ('+alltrim(str(TMP.field_len, 3 ))+;
    IIF(TMP.field_dec> 0 ,'.'+allt(str(TMP.field_dec)),'')+')')
  endfor
  select TMP
  use
  select (x)
  =fputs(hfile,'')
  if !empty(sys( 14 , 1 ))
   =fputs(hfile,'   Индексы :')
   for z= 1  to  9 
    if !EMPTY(sys( 14 ,z))
     =fputs(hfile,str(z, 1 )+'.'+padr(tag(z), 10 )+' : '+sys( 14 ,z))
     if !EMPTY(for(z))
      =fputs(hfile,'     for '+for(z))
     endif
     else
     exit
    endif
   endfor
  endif
 endif
endfor
=fclose(hfile)
cancel