• スクリプトは自由に改変して頂いて結構ですが Script-coder は消さないでください。
• サポートは一切お受け致しませんのであらかじめご了承ください。
• 本スクリプトを導入したことによる損害等一切責任を持ちませんので各自の責任の元で行ってください。
• 確認バージョン：SOLD OUT system ver.2002-07-28-j

(1) まずは、ダウンロードしてください。　⇒　banksys100.lzh

(2) 圧縮されているので解凍してください。

(3) 各ファイルの行頭の Perl へのパスをサーバーにあわせて（必要に応じて）訂正してください。

(4) サーバーへアップロードしてください。パーミッションは次のようになります。

soldout/
    |
    |--- banksystem.cgi [777]
    |
    |--- inc/
    |
    |---inc-html-banksystem.cgi [644]

(5) 既存の /inc/inc-html-ownerinfo.cgi のファイル中に１行追加

※追加場所は違うところでもかまいません。

$TD店名:$DT->{shopname}$TDE
$TD資金:\\$DT->{money}$TDE
$TD入金庫:\\$DT->{moneystock}$TDE

# ↓↓↓ここから↓↓↓
$TD預金:\\$DT->{user}->{ggak}$TDE
# ↑↑↑ここまで↑↑↑

$TD時間:$tm$TDE

(6) 既存の _base.cgi のファイル中に１行追加

※追加場所は違うところでもかまいません。

print GetMenuTag(’main’, ‘[店長室]‘);
print GetMenuTag(’moneystock’, ‘[入金処理]‘);

# ↓↓↓ここから↓↓↓
print GetMenuTag(’banksystem’, ‘[資金運用]‘);
# ↑↑↑ここまで↑↑↑

print GetMenuTag(’stock’, ‘[倉庫]‘);
print GetMenuTag(’showcase’, ‘[陳列棚]‘);

(7) 既存の /inc/inc-item-data.cgi のファイル中に複数行を追加

※必須確認事項

• 　$bankmax は、預金の最大額です。banksystem.cgi と同じ額にしてください。
• 　$ritu は、預金額に対する利率です（1%なら0.01）。
• 　ここはそのままでも良いし、変更してもかまいません。

@@FUNCUPDATE
sub UpdateResetBefore #決算直前の処理(関数名固定)
{

#途中省略・・・

# ↓↓↓ここから↓↓↓
    # 銀行預貯金に利息をつける オリジナル
    # 必ず設定してください
    my $bankmax = 1000000000; # 銀行預金預入最大額
    my $ritu = $main::DTpeople / 1000000000;
    foreach my $DT (@DT)
    {
        my $msg = '';
        unless( $DT->{user}->{ggak} ){ $DT->{user}->{ggak} = 0; }
        my $ggakplus = int($DT->{user}->{ggak}*$ritu);
        if( $ggakplus > 0 ){
            my $gzei = int($ggakplus*0.15);
            $ggakplus -= $gzei; # 利息税率15%で引く
            my $ggaktmp = $DT->{user}->{ggak} + $ggakplus;
            if( $ggaktmp > $bankmax ){ # 銀行の許容範囲を超える
                $DT->{user}->{ggak} = $bankmax;
                $msg .= 'これ以上利息が増えることはありません';
            }
            else{
                $DT->{user}->{ggak} += $ggakplus;
                $msg .= '利息として ' . $ggakplus . '円が預金に入金されました';
                $msg .= ' (利率' . sprintf("%01.3f",$ritu*100) . '%)';
                $msg .= ' (税額\\' . $gzei . ')';
            }
            WriteLog(0,$DT->{id},0,$msg,1);
        }
    }
# ↑↑↑ここまで↑↑↑

  }　←これはもとからある
}　←これはもとからある

(8) 管理メニューで「商品データ生成/更新」を行ってください。

(9) 以上です。動作確認してください。