sub sold_rep_calculations {
    $dbh->do("UPDATE INV SET PRICE=$PRICE WHERE CODE==$CODE");
    $dbh->do("UPDATE INV SET SALESMAN=$SALESMAN WHERE CODE==$CODE");
    $dbh->do("UPDATE INV SET DATE_SOLD=$date WHERE CODE==$CODE");
    my $updy="Y";
    $dbh->do("UPDATE INV SET SOLD=$updy WHERE CODE==$CODE");
    $dbh->do("UPDATE SALESMAN
    		SET YTDGROSS=( $YTDGROSS + $PRICE ) WHERE ID==$ID");
    $dbh->do("UPDATE SALESMAN
    		SET YTDCOMM=( $YTDCOMM + ( $PRICE * $COMM / 100 ) )
    		WHERE ID==$ID");
    $dbh->do("UPDATE SALESMAN
		SET COMM_OWED=( $COMM_OWED + ( $PRICE * $COMM / 100 ) )
		WHERE ID==$ID");
}