$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();

##</code><code>##

    foreach (keys (%dados))
    {
        $vf = "R\$ ";
        $tf = "R\$ ";
        $dados{$fil}{$gel}{$dte}{valor} =~ s/\.0000$/\,00/;
        $vf .= $dados{$fil}{$gel}{$dte}{valor};
        
        if ($cnt eq 0)
        {
            $message .= "<TR class=\"texto3\">
            <TD colspan=\"4\" BGCOLOR=\"$color2\"><span class =\"texto2\">$dados{$fil}{$gel}{$dte}{nome}</span></TD>
            </TR>
            <TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
            <TR CLASS=\"texto2\">
            <TD>Client</TD>
            <TD>Business</TD>
            <TD>Status</TD>
            <TD>Value</TD>
            </TR>
            <TR>
            <TD COLSPAN=\"4\">
            <HR>
            </TD>
            </TR>
            <TR CLASS=\"texto3\">
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{cliente}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{negocio}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{status}</TD>
            <TD BGCOLOR=\"$color2\">$vf</TD>
            </TR>";
            $cnt++;
            ($color2,$color1) = ($color1,$color2);
        }
        else
        {
            $message .= "<TR CLASS=\"texto3\">
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{cliente}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{negocio}</TD>
            <TD BGCOLOR=\"$color2\">$dados{$fil}{$gel}{$dte}{status}</TD>
            <TD BGCOLOR=\"$color2\">$vf</TD>
            </TR>";
            ($color2,$color1) = ($color1,$color2);
        }
    }
}