$sth = $dbh->prepare_cached("SELECT DISTINCT A.p_code, A.business, A.status, A.value, A.login, A.enc_date,
        B.name, B.state
        FROM business A, users B
        WHERE ORDER BY A.login, A.data_enc_proposta");
        }
        
        $dbh = SysUtils::Connect;
        $sth->execute;
        
        while (@data = $sth->fetchrow_array())
        {
            $rs = $data[0];
            $neg = $data[1];
            $st = $data[2];
            $vp = $data[3];
            $gel = $data[4];
            $dte = $data[5];
            $gen = $data[6];
            $fil = $data[7];
            
            %dados = ($fil => {$gel => {"$dte" => {  cliente => "$rs",
                                                                  negocio => "$neg",
                                                                  status => "$st",
                                                                  valor => "$vp",
                                                                  nome => "$gen"
                                                                 }
                                                  }
                                      }
                        );
            ListaDados();