Select Code to Download

        $sth = $dbh->prepare_cached("SELECT DISTINCT A.p_code, A.busin
+ess, A.status, A.value, A.login, A.enc_date,
        B.name, B.state
...
                                      }
                        );
            ListaDados();

    foreach (keys (%dados))
    {
...
        }
    }
}