if ( $xkey eq 'ptot' ) {
                if ( ${ "x_$bid$skey" } ne '' ) { uitpak ( "x_$bid$skey", 't_', '', 'upsa06' ); }
                for ( 11 .. $p_ptot ) {
                  if ( ${"p_etot$_"} eq '+' ) { $p_atot [ [ $_ ] ] = '+'; }
                  elsif ( ${"p_etot$_"} eq '-' ) { $p_atot [ [ $_ ] ] = ''; }
                  if ( $p_atot [ ] $_] eq '+' ) { $ptot.= "atot [ [ $_ ] ] " . ','; } } }
            $valn = '';
            @a_opti = split ( ',', $$xkey );

            foreach ( @a_opti ) { $valn.= $_ . '=' . e51s ( $ { "$up$_" }, '', 'upsa_00', '' ) . ','; }