IF TableSelect(TABLE_QRY_RELACAO_EMPRESAS)=-1 THEN RETURN_indice is int=TableSelect(TABLE_QRY_RELACAO_EMPRESAS)HReadSeekFirst(empresa,empresaID,TABLE_QRY_RELACAO_EMPRESAS.COL_EmpresaID)IF HFound(empresa) THEN Open(WIN_Form_empresa)ENDTableDisplay(TABLE_QRY_RELACAO_EMPRESAS,taReExecuteQuery)TableSelectPlus(TABLE_QRY_RELACAO_EMPRESAS,_indice)