FiltraUsuarios("")

//AlteraNomeColunasQuery("TABLE_usuario","QRY_Select_All_Usuarios")

//usando a estrutura da query
sColuna is string = pTableNameControl+".COL_Column"
ItemList is string = HListItem( {pQueryName,indFile} , hLstDetail)
CountCampos is int = StringCount(ItemList,CRLF)

//c is int
//
//loop (CountCampos)
// c+=1
//
// //TableInsertColumn /// windev
//
//END


ItemList = Replace(ItemList,CRLF,";")
ItemList = Replace(ItemList,TAB,";")
x is int = 6
y is int = 0
VARTEXT is string
LOOP(CountCampos)
y+= 1
VARTEXT = ExtractString(ItemList,x,";",FromBeginning)
{sColuna+y,indControl}..Caption = VARTEXT
{sColuna+y,indControl}..Visible = True
x+= 6
END