KENT-WEB サポートコーナー 過去ログ [ 0474 ]


記事No: 8854
投稿日: 2011/07/26(Tue) 10:31:48
タイトルWeb Mart 代引・コンビニ手数料を購入金額で変更にて
ID情報: 3758
投稿者: 73
URLhttp://dimaven.com/menu4.html

Web Mart 利用させていただき感謝しております。

(Web Mart Ver2.13使用)

支払い方法 代引&コンビニ にて
購入金額3150円以上(送料は含まない)お買上の場合
手数料を無料にする変更にて

過去ログ等で以下のように修正しました

画面上では正常に動作しておりますが
送信文に反映されません

送信文においても同様の結果となるようにするにはどうしたら良いでしょうか

ご教授頂けましたら大変ありがたく感謝致します
宜しくお願い致します。


【修正箇所】

■ init.cgi


# 支払方法の選択
# → 支払い別に手数料を指定する時はコンマの後に送料を指定
# → 手数料が不要な場合は手数料部分を 0 とする
$cf{payment} = [
'代引,exchange', ## ← ここ修正
'前払-コンビニ支払,exchange2', ## ← ここ修正
'前払-銀行振込,0',
'前払-郵便局,0',
'締日支払(取引が3回目以降),0',
];

# 支払手数料は税込み (0=no 1=yes)




■ order.cgi


#----------------------------------------------------------
# 確認画面 (Step2)
#----------------------------------------------------------


-------省略---------


# 書き出し
my $tmp = $loop;
$tmp =~ s/!code!/$code/;
$tmp =~ s/!item!/$name/;
$tmp =~ s/!num!/$num/;
$tmp =~ s/!tanka!/&comma($price)/e;
$tmp =~ s/!gouka!/&comma($kei)/e;
$tmp =~ s/!memo!/$memo/;
print $tmp;
}

# 送料
if ($postage > 0) {
#送料地域別 & 金額別指定 ■ここの部分は今回の質問内容とは別です■
# if($in{'pref'}==46) が 沖縄 100000円以上無料  と言う意味で
#▼ここから▼
if($q->param('pref2') ne "") {$q{pref} = $q{pref2};}
if($q{pref}==46) {$cf{cari_serv} = 100000;}
#▲ここまで追加▲
# 送料サービス有り
if ($cf{cari_serv} && $cf{cari_serv} <= $all) {
$postage = 0;
$serv_flag++;
}
}
$gkei = $all;

# ▼ここから▼ 支払手数料が設定されている場合( 代引き手数料3150円未満 315円、以上0円 3行追加 )
# exchange を代引き手数料として使用
if ($cost eq "exchange") {
if ($all < 3150) { $cost = 315; }
else { $cost = 0; }
}
# ▲ここまで追加▲

# ▼ここから▼ 支払手数料が設定されている場合 ( コンビニ手数料 3150円未満 190円、以上0円 ↓3行を追加 )
# exchange2 を、コンビニ手数料として使用
if ($cost eq "exchange2") {
if ($all < 3150) { $cost = 190; }
else { $cost = 0; }
}
# ▲ここまで追加▲

# 送料が設定されている場合
if (!$serv_flag) {
$gkei += $postage;
}

# 支払手数料が設定されている場合
if ($cost > 0) {
$gkei += $cost;
}

next;
}


記事No: 8861
投稿日: 2011/07/26(Tue) 22:58:40
タイトルRe: Web Mart 代引・コンビニ手数料を購入金額で変更にて
ID情報: Fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

メール送信箇所にも同様に追加してください。

#-----------------------------------------------------------
# 注文送信 (Step3)
#-----------------------------------------------------------
-- 省略 --

# ▼ここから▼ 支払手数料が設定されている場合 ( コンビニ手数料 3150円未満 190円、以上0円 ↓3行を追加 )
# exchange2 を、コンビニ手数料として使用
if ($cost eq "exchange2") {
if ($all < 3150) { $cost = 190; }
else { $cost = 0; }
}
# ▲ここまで追加▲
# 支払手数料
$q{cost} = 0;
if ($cost > 0) {
$all += $cost;
$q{cost} = &comma($cost);
}


記事No: 8862
投稿日: 2011/07/27(Wed) 08:38:52
タイトルRe^2: Web Mart 代引・コンビニ手数料を購入金額で変更にて
ID情報: 3758
投稿者: 73
URLhttp://dimaven.com

BAL様

おはようございます。

お陰様で解決できました。
度重なるご教授感謝しております。
本当にありがとうございました。


[検索ページ]