Perguntas Dúvida na virada de versão do Protheus 10 para 11

Static Function ElimTab()
Local nI      := 1
Local cQuery  := ""
Local cTabela := ""
Local aTabela := {}

AADD(aTabela,"AFU")
AADD(aTabela,"B44")
AADD(aTabela,"BD5")
AADD(aTabela,"BD6")
AADD(aTabela,"BD7")
AADD(aTabela,"BDX")
AADD(aTabela,"BDY")
AADD(aTabela,"BE4")
AADD(aTabela,"BE6")
AADD(aTabela,"BEC")
AADD(aTabela,"BL2")
AADD(aTabela,"BLS")
AADD(aTabela,"BQC")
AADD(aTabela,"BS1")
AADD(aTabela,"CC6")
AADD(aTabela,"CD9")
AADD(aTabela,"DW5")
AADD(aTabela,"DWE")
AADD(aTabela,"EYT")
AADD(aTabela,"FIH")
AADD(aTabela,"FII")
AADD(aTabela,"FRD")
AADD(aTabela,"GN0")
AADD(aTabela,"HA3")
AADD(aTabela,"ICJ")
AADD(aTabela,"IPP")
AADD(aTabela,"JIZ")
AADD(aTabela,"N6B")
AADD(aTabela,"QKI")
AADD(aTabela,"RDP")
AADD(aTabela,"TAO")
AADD(aTabela,"TRC")
AADD(aTabela,"TRJ")
AADD(aTabela,"TRK")
AADD(aTabela,"TRT")
AADD(aTabela,"TRW")
AADD(aTabela,"TRX")
AADD(aTabela,"VVF")

ProcRegua(Len(aTabela))

For nI := 1 to Len(aTabela)
	cTabela := RetSqlName( aTabela[nI] )
	
	If TCCanOpen(cTabela)
		dbSelectArea(aTabela[nI])
		dbCloseArea(aTabela[nI])
//		cQuery := "DROP TABLE "+cTabela
		If 	!TCDelFile(cTabela) //TCSQLEXEC(cQuery) < 0
			Alert(TCSQLError())
		EndIf
	EndIf
   IncProc("Eliminando a Tabela... "+aTabela[nI] )
Next

Return()