Procedure BuscaConfigStatus(Descricao)

tempo_ocioso = 0

bStatus is boolean = False

IF Descricao <> "" THEN

HReset(t000_config)

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

bStatus = t000_config.t000_status

END

ELSE

//Nao existe cria a configuração
t000_config.t000_descricao = Descricao

t000_config.t000_valor = "SIM"

t000_config.t000_status = True

HAdd(t000_config)

bStatus = True

END

END

RESULT(bStatus)

Procedure BuscaConfigValor(Descricao)

tempo_ocioso = 0

sValor is string

IF Descricao <> "" THEN

HReset(t000_config)

IF HReadSeek(t000_config,t000_descricao,Descricao,hIdentical) = True THEN

IF HFound(t000_config) = True

sValor = t000_config.t000_valor

END

ELSE

//Nao existe cria a configuração
t000_config.t000_descricao = Descricao
HAdd(t000_config)

END

END

RESULT(sValor)