$Q{_balance} = $Q{Set_balance} if $Admin and $Q{Set_balance};
$dbh->Insert("Customer", {%Q, id_cust=>$CustID});