« 2011年1月 | トップページ | 2011年3月 »

2011年2月22日 (火)

シャッター通り解消税制

 週刊ダイヤモンドで野口教授が相続税制の様々な特例(たとえば特定事業用宅地の8割評価減)を解消しないと相続対策のために店舗が持ち続けられることで駅前商店街の活性化ができないといった指摘をされています。なるほど、そういう側面はあります。しかし、この特例を軽々に廃止すると、「明治時代から代々続けてきた老舗」みたいなものが失われてしまって、日本の文化の一部を税制が壊すような気がしないでもありません。そこで、視点を変えて、駅前商店街のテコ入れ税制があったらどうか?という提案です。
 
 うちの顧問先にもたくさんありますが、商店街の家の特徴は、通りに面して店舗の入り口があり、1階の店舗と2階以上の自宅の境が曖昧なことです。なので、その家の子どもがランドセルを背負って店の玄関から入ってきて、厨房を抜けて2階へ上がったりするような光景が見られます。これでは、1階の店舗だけ見知らぬ人に賃貸して、自分たちは引退して1階の店舗の家賃で生活するといった転換は考えられません。そこで、店舗と自宅の分離の改築工事が必要になります。この工事に助成金を出す、あるいは住宅ローン税制のように借入金残高の1%(場合によっては2%)の税額控除をするといった政策はどうでしょう。お店をやってみたいという人がいるなら、こうした工事で商店街に新しい経営者が流入してくることになります。
 
 リスクを負って商売を始めた人たちの撤退の機会を支援してあげてもよいのではないかと思う次第ですが、みなさんのご意見はいかがでしょうか。

| | コメント (0) | トラックバック (0)

2011年2月12日 (土)

ビジネス創造フォーラム

 昔、といっても1995年から10年ほどですが、ニフティの中にフォーラムというサービスがあり、そこでビジネス創造フォーラムというネットのコミュニティを運営しておりました。

 今でも、その頃の方々と交流がありますが、最近はやりのFacebookで似たことができそうだというアドバイスをしてくださる方があり、ちょっとそういうページを作ってみました。

http://www.facebook.com/#!/pages/bijinesu-chuang-zaoforamu/197116453633207

 上記のURLですので、興味をお持ちの方は、ぜひ、クリックしてみてください。そして、「いいね!」というリンクをクリックしてもらうと、ユーザーが増えたということになって、ユーザーが増えるとそのページの名称を使ったもっと短いページのリンクがもらえるのだそうです。ご協力いただければ幸いです。

| | コメント (0) | トラックバック (0)

2011年2月 7日 (月)

プログラムに強い人、教えてください。

 うちの事務所の報酬管理システムなんですが、2010年から2011年への更新ができないというバグが出ました。外注して作ったのですが、なぜかそこに連絡が取れない。そこで、アクセスで作られているので、自分で見てみました。
 
 「年度は既に設定されています。」というメッセージボックスが出て、更新が止まるので、そこが問題なのだろうと探してみると、下記のような記述が。そこで、思いきって、赤色表示している下の4行を削除して、ファイルを保存して、年度更新をかけると、見事に年度更新が完了しました。
 
 ただ、このままで良いのでしょうかね。もしかすると、このIFの構文はうっかり2度年度更新しないようにチェックをかける構文なのかもしれず、そして、それが2009年から2010年の時には問題ないけれど、2010から2011年の時には問題が出るようなロジックなのかもしれず。来年以降に問題が出ないなら、この4行を書き戻しておけばよいのですが。
 
'    If MsgBox(intYear & "年 → " & intNextYear & "年へ" & vbCrLf & vbCrLf & "年度更新を実行します。よろしいですか。", vbYesNo Or vbInformation) = vbYes Then

        Set dbs = CurrentDb()
        SQL = "SELECT CURRENT_YEAR "
        SQL = SQL & "FROM T_URIKAKE "
        SQL = SQL & "WHERE CURRENT_YEAR = " & intNextYear
        Set rst = dbs.OpenRecordset(SQL, dbOpenSnapshot)
        If rst.RecordCount > 0 Then
            MsgBox intNextYear & "年度は既に設定されています。"
            Exit Sub
        End If

| | コメント (2) | トラックバック (0)

« 2011年1月 | トップページ | 2011年3月 »