/* check if a RIB account number is valid */
function check_rib($rib)
{
- if(strlen($rib) != 23) return false;
-
+ if(strlen($rib) != 23) return false;
+
// extract fields
$rib = strtr(strtoupper($rib),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','12345678912345678923456789');
- $bank = substr($rib,0,5);
- $counter = substr($rib,5,5);
- $account = substr($rib,10,11);
- $key = substr($rib,21,2);
-
+ $bank = substr($rib,0,5);
+ $counter = substr($rib,5,5);
+ $account = substr($rib,10,11);
+ $key = substr($rib,21,2);
+
// check
return 0 == fmod(89 * $bank + 15 * $counter + 3 * $account + $key, 97);
}
'admin/payments' => $this->make_hook('admin', AUTH_MDP, 'admin'),
'admin/payments/methods' => $this->make_hook('adm_methods', AUTH_MDP, 'admin'),
'admin/payments/transactions'=> $this->make_hook('adm_transactions', AUTH_MDP, 'admin'),
- 'admin/payments/reconcile' => $this->make_hook('adm_reconcile', AUTH_MDP, 'admin'),
- 'admin/payments/bankaccounts'=> $this->make_hook('adm_bankaccounts', AUTH_MDP, 'admin'),
+ 'admin/reconcile' => $this->make_hook('adm_reconcile', AUTH_MDP, 'admin'),
+ 'admin/reconcile/importlogs' => $this->make_hook('adm_importlogs', AUTH_MDP, 'admin'),
+ 'admin/reconcile/transfers' => $this->make_hook('adm_transfers', AUTH_MDP, 'admin'),
+ 'admin/reconcile/bankaccounts'=> $this->make_hook('adm_bankaccounts', AUTH_MDP, 'admin'),
);
}
/* on genere le mail de confirmation */
$conf_text = str_replace(
- array('<prenom>', '<nom>', '<promo>', '<montant>', '<salutation>', '<cher>', 'comment>'),
+ array('<prenom>', '<nom>', '<promo>', '<montant>', '<salutation>', '<cher>', '<comment>'),
array($user->firstName(), $user->lastName(), $user->promo(), $montant,
$user->isFemale() ? 'Chère' : 'Cher', $user->isFemale() ? 'Chère' : 'Cher',
Env::v('comment')), $conf_text);
//}
/* on extrait les informations sur l'utilisateur */
- $user = User::get(Env::v('vads_cust_id'));
+ $user = User::get(Env::i('vads_cust_id'));
if (!$user) {
cb_erreur("uid invalide");
}
$res = XDB::query("SELECT mail, text, confirmation
FROM payments
WHERE id={?}", $ref);
- if (!list($conf_mail, $conf_title, $conf_text) = $res->fetchOneRow()) {
+ if ($res->numRows() != 1) {
cb_erreur("référence de commande inconnue");
}
+ list($conf_mail, $conf_title, $conf_text) = $res->fetchOneRow();
/* on extrait le montant */
if (Env::v('vads_currency') != "978") {
cb_erreur("monnaie autre que l'euro");
}
- $montant = sprintf("%.02f", ((float)Env::v('vads_amount'))/100) . " EUR";
+ $amount = ((float)Env::i('vads_amount')) / 100;
+ $montant = sprintf("%.02f EUR", $amount);
/* on extrait le code de retour */
if (Env::v('vads_result') != "00") {
echo "Paiement stored.\n";
// We check if it is an Xnet payment and then update the related ML.
- $res = XDB::query('SELECT eid
+ $res = XDB::query('SELECT eid, asso_id
FROM group_events
WHERE paiement_id = {?}', $ref);
- if ($eid = $res->fetchOneCell()) {
+ if ($res->numRows() == 1) {
+ list($eid, $asso_id) = $res->fetchOneRow();
require_once dirname(__FILE__) . '/xnetevents/xnetevents.inc.php';
- $evt = get_event_detail($eid);
- subscribe_lists_event($user->id(), $evt, 1, $montant, true);
+ $evt = get_event_detail($eid, false, $asso_id);
+ subscribe_lists_event($user->id(), $evt, 1, $amount, true);
}
/* on genere le mail de confirmation */
$conf_text = str_replace(
- array('<prenom>', '<nom>', '<promo>', '<montant>', '<salutation>', '<cher>', 'comment>'),
+ array('<prenom>', '<nom>', '<promo>', '<montant>', '<salutation>', '<cher>', '<comment>'),
array($user->firstName(), $user->lastName(), $user->promo(), $montant,
$user->isFemale() ? 'Chère' : 'Cher', $user->isFemale() ? 'Chère' : 'Cher',
Env::v('comment')), $conf_text);
}
$res = XDB::query("SELECT 1
FROM group_events AS e
- INNER JOIN group_event_participants AS ep ON (ep.eid = e.eid AND uid = {?})
+ INNER JOIN group_event_participants AS ep ON (ep.eid = e.eid AND e.uid = {?})
WHERE e.paiement_id = {?} AND e.asso_id = {?}",
S::i('uid'), $pid, $globals->asso('id'));
if ($res->numRows() == 0) {
}
$res = XDB::iterRow("SELECT e.eid, e.short_name, e.intitule, ep.nb, ei.montant, ep.paid
FROM group_events AS e
- LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND uid = {?})
+ LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
INNER JOIN group_event_items AS ei ON (ep.eid = ei.eid AND ep.item_id = ei.item_id)
WHERE e.paiement_id = {?}",
S::v('uid'), $pid);
// check RIB key
if ($action == "update" && Post::has("account") && !check_rib(Post::v("account"))) {
$page->trigError("Le RIB n'est pas valide");
- $table_editor->apply($page, "edit", $id);
+ $table_editor->apply($page, "edit", $id);
return;
}
$page->setTitle('Administration - Paiements - Réconciliations');
$page->changeTpl('payment/reconcile.tpl');
$page->assign('step', $step);
+ $list = true;
- if (substr($step,0,4) != 'step') {
- // clean up
- unset($_SESSION['paymentrecon_method']);
- unset($_SESSION['paymentrecon_data']);
- unset($_SESSION['paymentrecon_id']);
+ // actions
+ if ($step == 'delete' && $param != null) {
+ S::assert_xsrf_token();
+ XDB::execute("DELETE FROM payment_reconcilations WHERE id={?}", $param);
+ // FIXME: hardcoding !!!
+ XDB::execute("UPDATE payment_transactions SET recon_id=NULL,commission=NULL WHERE recon_id={?} AND method_id=2", $param);
+ XDB::execute("UPDATE payment_transactions SET recon_id=NULL WHERE recon_id={?} AND method_id=1", $param);
+ $page->trigSuccess("L'entrée ".$param." a été supprimée.");
+
+ } elseif ($step == 'edit') {
+ $page->trigError("L'édition n'est pas implémentée.");
+
+ } elseif ($step == 'step5') {
+ $page->trigSuccess("La réconciliation est terminée. Il est maintenant nécessaire de générer les virements.");
+
+ }
+
+ if($list) {
+ // show list of reconciliations, with a "add" button
+ $page->assign('title', "Réconciliation - Liste");
+ $page->assign('step', 'list');
- } elseif (isset($_SESSION['paymentrecon_data'])) {
+ $recongps = array();
+
+ $res = XDB::query("SELECT r.id, short_name AS method, period_start, period_end, status,
+ payment_count, sum_amounts, sum_commissions
+ FROM payment_reconcilations AS r
+ LEFT JOIN payment_methods AS m ON r.method_id=m.id
+ WHERE recongroup_id IS NULL
+ ORDER BY period_end DESC, period_start DESC");
+ foreach ($res->fetchAllAssoc() as $recon)
+ $recongps[] = array('recons' => array($recon), 'transfers' => array());
+
+ $res = XDB::query("SELECT recongroup_id AS id
+ FROM payment_reconcilations
+ GROUP BY recongroup_id
+ ORDER BY MAX(period_end) DESC, MIN(period_start) DESC");
+ foreach ($res->fetchAllAssoc() as $recongp) {
+ $res = XDB::query("SELECT r.id, short_name AS method, period_start, period_end, status,
+ payment_count, sum_amounts, sum_commissions
+ FROM payment_reconcilations AS r
+ LEFT JOIN payment_methods AS m ON r.method_id=m.id
+ WHERE recongroup_id={?}
+ ORDER BY period_end DESC, period_start DESC",
+ $recongp['id']);
+ $recongp['recons'] = $res->fetchAllAssoc();
+
+ $res = XDB::query("SELECT id, payment_id, amount, account_id, message, date
+ FROM payment_transfers
+ WHERE recongroup_id={?}",
+ $recongp['id']);
+ $recongp['transfers'] = $res->fetchAllAssoc();
+
+ $recongps[] = $recongp;
+ }
+ $page->assign_by_ref('recongps', $recongps);
+ }
+ }
+
+ function handler_adm_importlogs(&$page, $step, $param = null) {
+ $page->setTitle('Administration - Paiements - Réconciliations');
+ $page->changeTpl('payment/reconcile.tpl');
+ $page->assign('step', $step);
+
+ if (isset($_SESSION['paymentrecon_data'])) {
// create temporary table with imported data
XDB::execute("CREATE TEMPORARY TABLE payment_tmp (
reference VARCHAR(255) PRIMARY KEY,
$i['reference'], $i['date'], $i['amount'], $i['commission']);
}
- if ($step == 'list' || $step == 'delete' || $step == 'edit' || $step == 'step5') {
- // actions
- if ($step == 'delete' && $param != null) {
- S::assert_xsrf_token();
- XDB::execute("DELETE FROM payment_reconcilations WHERE id={?}", $param);
- // FIXME: hardcoding !!!
- XDB::execute("UPDATE payment_transactions SET recon_id=NULL,commission=NULL WHERE recon_id={?} AND method_id=2", $param);
- XDB::execute("UPDATE payment_transactions SET recon_id=NULL WHERE recon_id={?} AND method_id=1", $param);
- $page->trigSuccess("L'entrée ".$param." a été supprimée.");
-
- } elseif ($step == 'edit') {
- $page->trigError("L'édition n'est pas implémentée.");
-
- } elseif ($step == 'step5') {
- $page->trigSuccess("La réconciliation est terminée. Il est maintenant nécessaire de générer les virements.");
- }
-
- // show list of reconciliations, with a "add" button
- $page->assign('title', "Réconciliation - Liste");
- $table_editor = new PLTableEditor("admin/payments/reconcile",'payment_reconcilations','id');
- $table_editor->describe('payment_count','transactions',true);
- $table_editor->describe('period_start','from',true);
- $table_editor->describe('period_end','to',true);
- $table_editor->describe('sum_amounts','total (€)',true);
- $table_editor->describe('sum_commissions','coms (€)',true);
- $table_editor->describe('comments','comments',false);
- $table_editor->apply($page, 'list');
-
- } elseif ($step == 'new' || $step == 'massadd') {
- pl_redirect("admin/payments/reconcile/step1");
-
- } elseif ($step == 'step1') {
+ if ($step == 'step1') {
$page->assign('title', "Étape 1");
+ unset($_SESSION['paymentrecon_method']);
+ unset($_SESSION['paymentrecon_data']);
+ unset($_SESSION['paymentrecon_id']);
// was a payment method choosen ?
if ($param != null) {
$_SESSION['paymentrecon_method'] = (int)$param;
- pl_redirect("admin/payments/reconcile/step2");
+ pl_redirect("admin/reconcile/importlogs/step2");
} else {
// ask to choose a payment method
// import logs formated in CVS
$fields = array('date','reference','amount','commission');
$importer = new PaymentLogsImporter();
- $importer->apply($page, 'admin/payments/reconcile/step2', $fields);
+ $importer->apply($page, 'admin/reconcile/importlogs/step2', $fields);
// if import is finished
$result = $importer->get_result();
if($result != null) {
$_SESSION['paymentrecon_data'] = $result;
- pl_redirect("admin/payments/reconcile/step3");
+ pl_redirect("admin/reconcile/importlogs/step3");
}
} elseif ($step == 'step3' ) {
AND method_id={?} AND recon_id IS NULL AND status='confirmed'",
$_SESSION['paymentrecon_id'], $recon['method_id']);
- pl_redirect("admin/payments/reconcile/step4");
+ pl_redirect("admin/reconcile/importlogs/step4");
// show summary of the imported data + ask form start/end of reconcilation period
} else {
$page->trigError("Le commentaire doit contenir au moins 3 caractères.");
} else {
XDB::execute("UPDATE payment_reconcilations SET status='transfering' WHERE id={?}", $_SESSION['paymentrecon_id']);
- pl_redirect('admin/payments/reconcile/step5');
+ pl_redirect('admin/reconcile/step5');
}
} elseif (Post::has('savecomments')) {
S::assert_xsrf_token();
$recon['comments'] = Post::v('comments');
- $page->assign('recon', $recon);
+ $page->assign('recon', $recon);
XDB::execute("UPDATE payment_reconcilations SET comments={?} WHERE id={?}", $recon['comments'], $_SESSION['paymentrecon_id']);
$page->trigSuccess('Les commentaires ont été enregistrés.');
}
$only_database = $res->fetchAllAssoc();
$page->assign_by_ref('only_database', $only_database);
$page->assign('onlydb_count', count($only_database));
-
- } else {
- $page->trigError('Bad parameters.');
}
}
- function handler_adm_transferts(&$page) {
- // list/log all bank transferts and link them to individual transactions
+ function handler_adm_transfers(&$page, $action = null, $id = null) {
+ // list/log all bank transfers and link them to individual transactions
+
+ if (Post::has('generate')) {
+ $recon_ids = array_keys(Post::v('recon_id'));
+
+ // generate a new reconcilation group ID
+ $res = XDB::query("SELECT MAX(recongroup_id)+1 FROM payment_reconcilations");
+ $recongp_id = $res->fetchOneCell();
+ if ($recongp_id == null) $recongp_id = 1;
+
+ // add reconcilations to group
+ // FIXME: should check if reconcilations are in good status
+ XDB::execute("UPDATE payment_reconcilations SET recongroup_id={?}, status='closed'
+ WHERE id IN {?}",
+ $recongp_id, $recon_ids);
+
+ // create transfers
+ XDB::execute("INSERT INTO payment_transfers
+ SELECT NULL, {?}, t.ref, SUM(t.amount+t.commission), NULL, p.text, NULL
+ FROM payment_transactions AS t
+ LEFT JOIN payments AS p ON t.ref = p.id
+ LEFT JOIN groups AS g ON p.asso_id = g.id
+ WHERE t.recon_id IN {?}
+ GROUP BY t.ref",
+ $recongp_id, $recon_ids);
+
+ //$res = XDB::query("SELECT * FROM payment_reconcilations WHERE id IN {?}", $recon_ids);
+ //$recons = $res->fetchAllAssoc();
+
+ $page->trigSuccess("Les virements ont été générés pour ".count($recon_ids)." réconciliations.");
+ $this->handler_adm_reconcile($page);
+
+ } elseif ($action == "delgroup") {
+ S::assert_xsrf_token();
+ XDB::execute("UPDATE payment_reconcilations SET status='transfering', recongroup_id=NULL WHERE recongroup_id={?}", $id);
+ XDB::execute("DELETE FROM payment_transfers WHERE recongroup_id={?} AND date IS NULL", $id);
+
+ $page->trigSuccess("Les virements non réalisés ont été supprimé du groupe ".$id.".");
+ $this->handler_adm_reconcile($page);
+
+ } elseif ($action == "confirm") {
+ S::assert_xsrf_token();
+ XDB::execute("UPDATE payment_transfers SET date=NOW() WHERE id={?}", $id);
+
+ $page->trigSuccess("Virement ".$id." confirmé.");
+ $this->handler_adm_reconcile($page);
+
+ } else {
+ pl_redirect("admin/reconcile");
+ }
}
}
class PaymentLogsImporter extends CSVImporter {
- protected $result;
-
- public function __construct() {
- parent::__construct('');
- $this->registerFunction('systempay_commission', 'Compute BPLC commission', array($this,"compute_systempay_commission"));
- $this->registerFunction('payment_id', 'Autocompute payment ID', array($this,"compute_payment_id"));
+ protected $result;
+
+ public function __construct() {
+ parent::__construct('');
+ $this->registerFunction('systempay_commission', 'Compute BPLC commission', array($this,"compute_systempay_commission"));
+ $this->registerFunction('payment_id', 'Autocompute payment ID', array($this,"compute_payment_id"));
//$this->forceValue('payment_id','func_payment_id');
- }
-
- public function run($action = null, $insert_relation = null, $update_relation = null) {
- $this->result = array();
- foreach ($this->data as $line) {
+ }
+
+ public function run($action = null, $insert_relation = null, $update_relation = null) {
+ $this->result = array();
+ foreach ($this->data as $line) {
$a = $this->makeAssoc($line, $insert_relation);
- $a['date'] = preg_replace('/([0-9]{2})\/([0-9]{2})\/([0-9]{4}) .*/','\3-\2-\1', $a['date']);
- $this->result[] = $a;
+ $a['date'] = preg_replace('/([0-9]{2})\/([0-9]{2})\/([0-9]{4}).*/','\3-\2-\1', $a['date']);
+ $a['amount'] = str_replace(',','.',$a['amount']);
+ $a['commission'] = str_replace(',','.',$a['commission']);
+ $this->result[] = $a;
}
- }
-
- public function get_result() {
- return $this->result;
- }
-
- static public function compute_systempay_commission($line, $key, $relation) {
- if($key!='commission' || !array_key_exists('carte',$line)) return null;
- $amount = self::getValue($line, 'amount', $relation['amount']);
- if ($line['carte'] == 'CB')
- return 0.20 + round($amount*0.005, 2);
- else
- return 0.20 + round($amount*0.005, 2) + 0.76;
- }
-
- static public function compute_payment_id($line, $key, $relation) {
- if ($key != 'payment_id') return null;
- $reference = self::getValue($line, 'reference', $relation['reference']);
+ }
+
+ public function get_result() {
+ return $this->result;
+ }
+
+ static public function compute_systempay_commission($line, $key, $relation) {
+ static $EEE_countries = array('France','Allemagne','Autriche','Belgique','Bulgarie','Chypre',
+ 'Danemark','Espagne','Estonie','Finlande','Grèce','Hongrie','Irlande','Islande','Italie',
+ 'Lettonie','Liechtenstein','Lituanie','Luxembourg','Malte','Norvège','Pays-Bas','Pologne',
+ 'Portugal','Roumanie','Royaume-Uni','Slovaquie','Slovénie','Suède','République Tchèque');
+
+ if($key!='commission' || !array_key_exists('carte',$line)) return null;
+ $amount = self::getValue($line, 'amount', $relation['amount']);
+ if (in_array($line['pays carte'],$EEE_countries))
+ return -0.20 - round($amount*0.005, 2);
+ else
+ return -0.20 - round($amount*0.005, 2) - 0.76;
+ }
+
+ static public function compute_payment_id($line, $key, $relation) {
+ if ($key != 'payment_id') return null;
+ $reference = self::getValue($line, 'reference', $relation['reference']);
if (ereg('-([0-9]+)$', $reference, $matches))
- return $matches[1];
+ return $matches[1];
else
return null;
- }
+ }
}
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: