<perl>
get "Id==*","provision";
while (get_next("provision"))
{
    $arbeiterliste{$Verkaeufer}++; 
}
foreach $verk (sort keys %arbeiterliste)
{
    $Umsatz="0";
    $WES="0";
    $Bruttogewinn="0";
    $Provision="0";
    #chop $verk;
    get "Verkaeufer==$verk","provision","danach";
    while (get_next("danach"))
    {
        $Umsatz=$Umsatz+$ZwischensBNto+$ZubehoersummNto;
        $WES=$WES+$Inventurwert;
        $Provision=$Provision+$VkfProvFahrz+$VkfProvZubeh;
        out "$Umsatz= $ZwischensBNto - $Verkaeufer<br>";
    }
    $Bruttogewinn=$Umsatz-$WES;
    out "Bruttogewinn = Umsatz-WES<br>$Bruttogewinn=$Umsatz-$WES<br><br>";
}
</perl>

##############   Ergebnis zb: