Procedure DB_DeleteTodosArquivos(LOCAL ExcluirTudo)

TabelasOk is boolean = False

WHEN EXCEPTION IN

IF HCreationIfNotFound("*") =False OR ExcluirTudo = "S" THEN

HCreation(t000_configuracao)
HCreation(t001_cliente)
HCreation(t002_avisos)
HCreation(t003_gps)
HCreation(t004_cartoescreditos)
HCreation(t005_favoritos)
HCreation(t006_enderecos)
HCreation(t007_tempodistancia)
HCreation(t008_inicial)
HCreation(t009_taxislogados)
HCreation(t010_corridasagendadas)
HCreation(t011_motivo_cancelamento)
HCreation(t012_pesquisa_satisfacao)
HCreation(t013_historico)
HCreation(t014_finalidades)
HCreation(t015_pontosturisticos)

Close()
END

DO

Error("SQL error: " + HError())
TabelasOk = False

ELSE

TabelasOk = True

END

RESULT (TabelasOk)