sub getlast{
        my $panel = shift;
        my @lastsale;
        my $dbh;
        my $sth;

        $dbh = DBI->connect( "dbi:Sybase:server=$ini{SQL01DB}{server};
                database=$ini{SQL01DB}{database}", $ini{SQL01DB}{username},
                $ini{SQL01DB}{password} );
        $sth = $dbh->prepare( "select convert(varchar,max(dtmTimeEnter),120),
                convert(varchar,max(dtmDateTime),120) from $table
                where intSiteID=$site and intPanelID=$panel
                and intAdditiveCode>0" );
        $sth->execute();

        @lastsale = $sth->fetchrow;

        $sth->finish;
        $dbh->disconnect;

        if ( $lastsale[0] || $lastsale[1] ){
                return ( @lastsale );
                }
        else{
                return;
                }
        }