* Name: gettabn.prg
* Autor: Sokurenko Olexiy
* Datum:  02 . 04 . 2003 
* alle User-Tabellen
=sql( "select * from sysobjects where type='U'" ,  "TabelSet" )
=sql( "select artikel as feldname, artikel as feldtyp, artikel as feldgroesse, artikel as felddecimal from artikel where 1 = 2 ", "ExcelList" )
select( "TabelSet" )
go top

scan 
  	select( "excelList" )
  	go top
  	append blank
  	append blank
  	replace ExcelList.feldtyp with toChar(TabelSet.Name)	
  	append blank

= sql(stuffpar( "select top 1  * from % 01 %", TabelSet.Name),  "Enzelfal" )
	* ------------------------------------------------------------------------------*
 
	* build a field array of each field
	* ------------------------------------------------------------------------------*
 

	select( "Enzelfal" )
	nfc=fcount()
	declare flist[nfc, 4 ]
	afields(flist)

	for i= 1  to nfc
	  lcfn=flist[i, 1 ]                       && field name             
	  lcft=flist[i, 2 ]                       && field type                   
	  lcfl=flist[i, 3 ]                       && field length              
	  lcfd=flist[i, 4 ]                       && decimal places 
		
		
	  replace Excellist.feldname with lcfn
	  replace Excellist.feldtyp with lcft 
	  replace Excellist.feldgroesse with toChar(lcfl) 
	  	if lcft = 'N' then 
	  		replace Excellist.felddecimal with toChar(lcfd)
	  	endif      
	  select( "excellist" )
	  append blank
 	endfor
 	  

endscan
	

select( "ExcelList" )
go top

copy to c:\tabnames.xls type xls