2122 lines
89 KiB
PHP
2122 lines
89 KiB
PHP
<?php
|
|
/* Copyright (C) 2001-2002 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2006-2013 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2012 Regis Houssin <regis.houssin@inodbox.com>
|
|
* Copyright (C) 2021-2023 Waël Almoman <info@almoman.com>
|
|
* Copyright (C) 2021 Maxime Demarest <maxime@indelog.fr>
|
|
* Copyright (C) 2021 Dorian Vabre <dorian.vabre@gmail.com>
|
|
* Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/public/payment/paymentok.php
|
|
* \ingroup core
|
|
* \brief File to show page after a successful payment on a payment line system.
|
|
* The payment was already really recorded. So an error here must send warning to admin but must still info user that payment is ok.
|
|
* This page is called by payment system with url provided to it completed with parameter TOKEN=xxx
|
|
* This token and session can be used to get more information.
|
|
*/
|
|
|
|
if (!defined('NOLOGIN')) {
|
|
define("NOLOGIN", 1); // This means this output page does not require to be logged.
|
|
}
|
|
if (!defined('NOCSRFCHECK')) {
|
|
define("NOCSRFCHECK", 1); // We accept to go on this page from external web site.
|
|
}
|
|
if (!defined('NOIPCHECK')) {
|
|
define('NOIPCHECK', '1'); // Do not check IP defined into conf $dolibarr_main_restrict_ip
|
|
}
|
|
if (!defined('NOBROWSERNOTIF')) {
|
|
define('NOBROWSERNOTIF', '1');
|
|
}
|
|
|
|
// For MultiCompany module.
|
|
// Do not use GETPOST here, function is not defined and define must be done before including main.inc.php
|
|
// Because 2 entities can have the same ref.
|
|
$entity = (!empty($_GET['e']) ? (int) $_GET['e'] : (!empty($_POST['e']) ? (int) $_POST['e'] : 1));
|
|
if (is_numeric($entity)) {
|
|
define("DOLENTITY", $entity);
|
|
}
|
|
|
|
// Load Dolibarr environment
|
|
require '../../main.inc.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/payments.lib.php';
|
|
if (isModEnabled('paypal')) {
|
|
require_once DOL_DOCUMENT_ROOT.'/paypal/lib/paypal.lib.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/paypal/lib/paypalfunctions.lib.php';
|
|
}
|
|
|
|
// Hook to be used by external payment modules (ie Payzen, ...)
|
|
$hookmanager = new HookManager($db);
|
|
|
|
$hookmanager->initHooks(array('newpayment'));
|
|
|
|
$langs->loadLangs(array("main", "other", "dict", "bills", "companies", "paybox", "paypal", "stripe"));
|
|
|
|
// Clean parameters
|
|
if (isModEnabled('paypal')) {
|
|
$PAYPAL_API_USER = "";
|
|
if (getDolGlobalString('PAYPAL_API_USER')) {
|
|
$PAYPAL_API_USER = getDolGlobalString('PAYPAL_API_USER');
|
|
}
|
|
$PAYPAL_API_PASSWORD = "";
|
|
if (getDolGlobalString('PAYPAL_API_PASSWORD')) {
|
|
$PAYPAL_API_PASSWORD = getDolGlobalString('PAYPAL_API_PASSWORD');
|
|
}
|
|
$PAYPAL_API_SIGNATURE = "";
|
|
if (getDolGlobalString('PAYPAL_API_SIGNATURE')) {
|
|
$PAYPAL_API_SIGNATURE = getDolGlobalString('PAYPAL_API_SIGNATURE');
|
|
}
|
|
$PAYPAL_API_SANDBOX = "";
|
|
if (getDolGlobalString('PAYPAL_API_SANDBOX')) {
|
|
$PAYPAL_API_SANDBOX = getDolGlobalString('PAYPAL_API_SANDBOX');
|
|
}
|
|
/*$PAYPAL_API_OK = "";
|
|
if ($urlok) {
|
|
$PAYPAL_API_OK = $urlok;
|
|
}
|
|
$PAYPAL_API_KO = "";
|
|
if ($urlko) {
|
|
$PAYPAL_API_KO = $urlko;
|
|
}*/
|
|
|
|
$PAYPALTOKEN = GETPOST('TOKEN');
|
|
if (empty($PAYPALTOKEN)) {
|
|
$PAYPALTOKEN = GETPOST('token');
|
|
}
|
|
$PAYPALPAYERID = GETPOST('PAYERID');
|
|
if (empty($PAYPALPAYERID)) {
|
|
$PAYPALPAYERID = GETPOST('PayerID');
|
|
}
|
|
}
|
|
|
|
$FULLTAG = GETPOST('FULLTAG');
|
|
if (empty($FULLTAG)) {
|
|
$FULLTAG = GETPOST('fulltag');
|
|
}
|
|
$source = GETPOST('s', 'alpha') ? GETPOST('s', 'alpha') : GETPOST('source', 'alpha');
|
|
$ref = GETPOST('ref');
|
|
|
|
$suffix = GETPOST("suffix", 'aZ09');
|
|
$membertypeid = GETPOSTINT("membertypeid");
|
|
|
|
|
|
// Detect $paymentmethod
|
|
$paymentmethod = '';
|
|
$reg = array();
|
|
if (preg_match('/PM=([^\.]+)/', $FULLTAG, $reg)) {
|
|
$paymentmethod = $reg[1];
|
|
}
|
|
if (empty($paymentmethod)) {
|
|
dol_syslog("***** paymentok.php was called with a non valid parameter FULLTAG=".$FULLTAG, LOG_DEBUG, 0, '_payment');
|
|
dol_print_error(null, 'The callback url does not contain a parameter fulltag that should help us to find the payment method used');
|
|
exit;
|
|
}
|
|
|
|
dol_syslog("***** paymentok.php is called paymentmethod=".$paymentmethod." FULLTAG=".$FULLTAG." REQUEST_URI=".$_SERVER["REQUEST_URI"], LOG_DEBUG, 0, '_payment');
|
|
|
|
// Detect $ws
|
|
$ws = preg_match('/WS=([^\.]+)/', $FULLTAG, $reg_ws) ? $reg_ws[1] : 0;
|
|
if ($ws) {
|
|
dol_syslog("Paymentok.php page is invoked from a website with ref ".$ws.". It performs actions and then redirects back to this website. A page with ref paymentok must be created for this website.", LOG_DEBUG, 0, '_payment');
|
|
}
|
|
|
|
$validpaymentmethod = getValidOnlinePaymentMethods($paymentmethod);
|
|
|
|
// Security check
|
|
if (empty($validpaymentmethod)) {
|
|
httponly_accessforbidden('No valid payment mode');
|
|
}
|
|
|
|
// Common variables
|
|
$creditor = $mysoc->name;
|
|
$paramcreditor = 'ONLINE_PAYMENT_CREDITOR';
|
|
$paramcreditorlong = 'ONLINE_PAYMENT_CREDITOR_'.$suffix;
|
|
if (getDolGlobalString($paramcreditorlong)) {
|
|
$creditor = getDolGlobalString($paramcreditorlong); // use label long of the seller to show
|
|
} elseif (getDolGlobalString($paramcreditor)) {
|
|
$creditor = getDolGlobalString($paramcreditor); // use label short of the seller to show
|
|
}
|
|
|
|
|
|
$ispaymentok = false;
|
|
// If payment is ok
|
|
$PAYMENTSTATUS = $TRANSACTIONID = $TAXAMT = $NOTE = '';
|
|
// If payment is ko
|
|
$ErrorCode = $ErrorShortMsg = $ErrorLongMsg = $ErrorSeverityCode = '';
|
|
|
|
|
|
$object = new stdClass(); // For triggers
|
|
|
|
$error = 0;
|
|
|
|
|
|
/*
|
|
* Actions and view
|
|
*/
|
|
|
|
// Check if we have redirtodomain to do.
|
|
if ($ws) {
|
|
$doactionsthenredirect = 1;
|
|
}
|
|
|
|
|
|
$now = dol_now();
|
|
|
|
dol_syslog("Callback url when a payment was done. query_string=".(empty($_SERVER["QUERY_STRING"]) ? '' : dol_escape_htmltag($_SERVER["QUERY_STRING"]))." script_uri=".(empty($_SERVER["SCRIPT_URI"]) ? '' : dol_escape_htmltag($_SERVER["SCRIPT_URI"])), LOG_DEBUG, 0, '_payment');
|
|
dol_syslog("_SERVER[SERVER_NAME] = ".(empty($_SERVER["SERVER_NAME"]) ? '' : dol_escape_htmltag($_SERVER["SERVER_NAME"])), LOG_DEBUG, 0, '_payment');
|
|
dol_syslog("_SERVER[SERVER_ADDR] = ".(empty($_SERVER["SERVER_ADDR"]) ? '' : dol_escape_htmltag($_SERVER["SERVER_ADDR"])), LOG_DEBUG, 0, '_payment');
|
|
|
|
$tracepost = "";
|
|
foreach ($_POST as $k => $v) {
|
|
if (is_scalar($k) && is_scalar($v)) {
|
|
$tracepost .= "$k - $v\n";
|
|
}
|
|
}
|
|
dol_syslog("POST=".$tracepost, LOG_DEBUG, 0, '_payment');
|
|
$tracesession = "";
|
|
foreach ($_SESSION as $k => $v) {
|
|
if (is_scalar($k) && is_scalar($v)) {
|
|
$tracesession .= "$k - $v\n";
|
|
}
|
|
}
|
|
dol_syslog("SESSION=".$tracesession, LOG_DEBUG, 0, '_payment');
|
|
|
|
$head = '';
|
|
if (getDolGlobalString('ONLINE_PAYMENT_CSS_URL')) {
|
|
$head = '<link rel="stylesheet" type="text/css" href="' . getDolGlobalString('ONLINE_PAYMENT_CSS_URL').'?lang='.$langs->defaultlang.'">'."\n";
|
|
}
|
|
|
|
$conf->dol_hide_topmenu = 1;
|
|
$conf->dol_hide_leftmenu = 1;
|
|
|
|
|
|
// Show header
|
|
if (empty($doactionsthenredirect)) {
|
|
$replacemainarea = (empty($conf->dol_hide_leftmenu) ? '<div>' : '').'<div>';
|
|
llxHeader($head, $langs->trans("PaymentForm"), '', '', 0, 0, '', '', '', 'onlinepaymentbody', $replacemainarea);
|
|
|
|
|
|
// Show page content id="dolpaymentdiv"
|
|
print '<span id="dolpaymentspan"></span>'."\n";
|
|
print '<div id="dolpaymentdiv" class="center">'."\n";
|
|
|
|
|
|
// Show logo (search order: logo defined by PAYMENT_LOGO_suffix, then PAYMENT_LOGO, then small company logo, large company logo, theme logo, common logo)
|
|
// Define logo and logosmall
|
|
$logosmall = $mysoc->logo_small;
|
|
$logo = $mysoc->logo;
|
|
$paramlogo = 'ONLINE_PAYMENT_LOGO_'.$suffix;
|
|
if (getDolGlobalString($paramlogo)) {
|
|
$logosmall = getDolGlobalString($paramlogo);
|
|
} elseif (getDolGlobalString('ONLINE_PAYMENT_LOGO')) {
|
|
$logosmall = getDolGlobalString('ONLINE_PAYMENT_LOGO');
|
|
}
|
|
//print '<!-- Show logo (logosmall='.$logosmall.' logo='.$logo.') -->'."\n";
|
|
// Define urllogo
|
|
$urllogo = '';
|
|
$urllogofull = '';
|
|
if (!empty($logosmall) && is_readable($conf->mycompany->dir_output.'/logos/thumbs/'.$logosmall)) {
|
|
$urllogo = DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&entity='.$conf->entity.'&file='.urlencode('logos/thumbs/'.$logosmall);
|
|
$urllogofull = $dolibarr_main_url_root.'/viewimage.php?modulepart=mycompany&entity='.$conf->entity.'&file='.urlencode('logos/thumbs/'.$logosmall);
|
|
} elseif (!empty($logo) && is_readable($conf->mycompany->dir_output.'/logos/'.$logo)) {
|
|
$urllogo = DOL_URL_ROOT.'/viewimage.php?modulepart=mycompany&entity='.$conf->entity.'&file='.urlencode('logos/'.$logo);
|
|
$urllogofull = $dolibarr_main_url_root.'/viewimage.php?modulepart=mycompany&entity='.$conf->entity.'&file='.urlencode('logos/'.$logo);
|
|
}
|
|
|
|
// Output html code for logo
|
|
if ($urllogo) {
|
|
print '<div class="backgreypublicpayment">';
|
|
print '<div class="logopublicpayment">';
|
|
print '<img id="dolpaymentlogo" src="'.$urllogo.'"';
|
|
print '>';
|
|
print '</div>';
|
|
if (!getDolGlobalString('MAIN_HIDE_POWERED_BY')) {
|
|
print '<div class="poweredbypublicpayment opacitymedium right"><a class="poweredbyhref" href="https://www.dolibarr.org?utm_medium=website&utm_source=poweredby" target="dolibarr" rel="noopener">'.$langs->trans("PoweredBy").'<br><img class="poweredbyimg" src="'.DOL_URL_ROOT.'/theme/dolibarr_logo.svg" width="80px"></a></div>';
|
|
}
|
|
print '</div>';
|
|
} elseif ($creditor) {
|
|
print '<div class="backgreypublicpayment">';
|
|
print '<div class="logopublicpayment">';
|
|
print $creditor;
|
|
print '</div>';
|
|
print '</div>';
|
|
}
|
|
if (getDolGlobalString('MAIN_IMAGE_PUBLIC_PAYMENT')) {
|
|
print '<div class="backimagepublicpayment">';
|
|
print '<img id="idMAIN_IMAGE_PUBLIC_PAYMENT" src="' . getDolGlobalString('MAIN_IMAGE_PUBLIC_PAYMENT').'">';
|
|
print '</div>';
|
|
}
|
|
|
|
|
|
print '<br><br><br>';
|
|
}
|
|
|
|
|
|
// Validate the payment (for payment mode that need another step after the callback return for this).
|
|
if (isModEnabled('paypal')) {
|
|
if ($paymentmethod === 'paypal') { // We call this page only if payment is ok on payment system
|
|
if ($PAYPALTOKEN) {
|
|
// Get on url call
|
|
$onlinetoken = $PAYPALTOKEN;
|
|
$fulltag = $FULLTAG;
|
|
$payerID = $PAYPALPAYERID;
|
|
// Set by newpayment.php
|
|
$currencyCodeType = $_SESSION['currencyCodeType'];
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
$paymentType = $_SESSION['PaymentType']; // Value can be 'Mark', 'Sole', 'Sale' for example
|
|
// From env
|
|
$ipaddress = $_SESSION['ipaddress'];
|
|
|
|
dol_syslog("Call paymentok with token=".$onlinetoken." paymentType=".$paymentType." currencyCodeType=".$currencyCodeType." payerID=".$payerID." ipaddress=".$ipaddress." FinalPaymentAmt=".$FinalPaymentAmt." fulltag=".$fulltag, LOG_DEBUG, 0, '_payment');
|
|
|
|
// Validate record
|
|
if (!empty($paymentType)) {
|
|
dol_syslog("We call GetExpressCheckoutDetails", LOG_DEBUG, 0, '_payment');
|
|
$resArray = getDetails($onlinetoken);
|
|
//var_dump($resarray);
|
|
|
|
$ack = strtoupper($resArray["ACK"]);
|
|
if ($ack == "SUCCESS" || $ack == "SUCCESSWITHWARNING") {
|
|
// Nothing to do
|
|
dol_syslog("Call to GetExpressCheckoutDetails return ".$ack, LOG_DEBUG, 0, '_payment');
|
|
} else {
|
|
dol_syslog("Call to GetExpressCheckoutDetails return error: ".json_encode($resArray), LOG_WARNING, 0, '_payment');
|
|
}
|
|
|
|
dol_syslog("We call DoExpressCheckoutPayment token=".$onlinetoken." paymentType=".$paymentType." currencyCodeType=".$currencyCodeType." payerID=".$payerID." ipaddress=".$ipaddress." FinalPaymentAmt=".$FinalPaymentAmt." fulltag=".$fulltag, LOG_DEBUG, 0, '_payment');
|
|
$resArray2 = confirmPayment($onlinetoken, $paymentType, $currencyCodeType, $payerID, $ipaddress, $FinalPaymentAmt, $fulltag);
|
|
//var_dump($resarray);
|
|
|
|
$ack = strtoupper($resArray2["ACK"]);
|
|
if ($ack == "SUCCESS" || $ack == "SUCCESSWITHWARNING") {
|
|
dol_syslog("Call to GetExpressCheckoutDetails return ".$ack, LOG_DEBUG, 0, '_payment');
|
|
|
|
$object->source = $source;
|
|
$object->ref = $ref;
|
|
$object->payerID = $payerID;
|
|
$object->fulltag = $fulltag;
|
|
$object->resArray = $resArray2;
|
|
|
|
// resArray was built from a string like that
|
|
// TOKEN=EC%2d1NJ057703V9359028&TIMESTAMP=2010%2d11%2d01T11%3a40%3a13Z&CORRELATIONID=1efa8c6a36bd8&ACK=Success&VERSION=56&BUILD=1553277&TRANSACTIONID=9B994597K9921420R&TRANSACTIONTYPE=expresscheckout&PAYMENTTYPE=instant&ORDERTIME=2010%2d11%2d01T11%3a40%3a12Z&AMT=155%2e57&FEEAMT=5%2e54&TAXAMT=0%2e00&CURRENCYCODE=EUR&PAYMENTSTATUS=Completed&PENDINGREASON=None&REASONCODE=None
|
|
$PAYMENTSTATUS = urldecode($resArray2["PAYMENTSTATUS"]); // Should contains 'Completed'
|
|
$TRANSACTIONID = urldecode($resArray2["TRANSACTIONID"]);
|
|
$TAXAMT = urldecode($resArray2["TAXAMT"]);
|
|
$NOTE = urldecode($resArray2["NOTE"]);
|
|
|
|
$ispaymentok = true;
|
|
} else {
|
|
dol_syslog("Call to DoExpressCheckoutPayment return error: ".json_encode($resArray2), LOG_WARNING, 0, '_payment');
|
|
|
|
//Display a user friendly Error on the page using any of the following error information returned by PayPal
|
|
$ErrorCode = urldecode($resArray2["L_ERRORCODE0"]);
|
|
$ErrorShortMsg = urldecode($resArray2["L_SHORTMESSAGE0"]);
|
|
$ErrorLongMsg = urldecode($resArray2["L_LONGMESSAGE0"]);
|
|
$ErrorSeverityCode = urldecode($resArray2["L_SEVERITYCODE0"]);
|
|
}
|
|
} else {
|
|
$ErrorCode = "SESSIONEXPIRED";
|
|
$ErrorLongMsg = "Session expired. Can't retrieve PaymentType. Payment has not been validated.";
|
|
$ErrorShortMsg = "Session expired";
|
|
|
|
dol_syslog($ErrorLongMsg, LOG_WARNING, 0, '_payment');
|
|
dol_print_error(null, 'Session expired');
|
|
}
|
|
} else {
|
|
$ErrorCode = "PAYPALTOKENNOTDEFINED";
|
|
$ErrorLongMsg = "The parameter PAYPALTOKEN was not defined. Payment has not been validated.";
|
|
$ErrorShortMsg = "Parameter PAYPALTOKEN not defined";
|
|
|
|
dol_syslog($ErrorLongMsg, LOG_WARNING, 0, '_payment');
|
|
dol_print_error(null, 'PAYPALTOKEN not defined');
|
|
}
|
|
}
|
|
}
|
|
|
|
if (isModEnabled('paybox')) {
|
|
if ($paymentmethod === 'paybox') {
|
|
// TODO Add a check to validate that payment is ok.
|
|
$ispaymentok = true; // We call this page only if payment is ok on payment system
|
|
}
|
|
}
|
|
|
|
if (isModEnabled('stripe')) {
|
|
if ($paymentmethod === 'stripe') {
|
|
// TODO Add a check to validate that payment is ok. We can request Stripe with payment_intent and payment_intent_client_secret
|
|
$ispaymentok = true; // We call this page only if payment is ok on payment system
|
|
}
|
|
}
|
|
|
|
// Check status of the object to verify if it is paid by external payment modules
|
|
$action = '';
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('isPaymentOK', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['ispaymentok'])) {
|
|
dol_syslog('ispaymentok overwrite by hook return with value='.$hookmanager->resArray['ispaymentok'], LOG_DEBUG, 0, '_payment');
|
|
$ispaymentok = $hookmanager->resArray['ispaymentok'];
|
|
}
|
|
}
|
|
|
|
|
|
// If data not provided into callback url, search them into the session env
|
|
if (empty($ipaddress)) {
|
|
$ipaddress = $_SESSION['ipaddress'];
|
|
}
|
|
if (empty($TRANSACTIONID)) {
|
|
$TRANSACTIONID = empty($_SESSION['TRANSACTIONID']) ? '' :$_SESSION['TRANSACTIONID']; // pi_... or ch_...
|
|
if (empty($TRANSACTIONID) && GETPOST('payment_intent', 'alphanohtml')) {
|
|
// For the case we use STRIPE_USE_INTENT_WITH_AUTOMATIC_CONFIRMATION = 2
|
|
$TRANSACTIONID = GETPOST('payment_intent', 'alphanohtml');
|
|
}
|
|
}
|
|
if (empty($FinalPaymentAmt)) {
|
|
$FinalPaymentAmt = empty($_SESSION["FinalPaymentAmt"]) ? '' : $_SESSION["FinalPaymentAmt"];
|
|
}
|
|
if (empty($currencyCodeType)) {
|
|
$currencyCodeType = empty($_SESSION['currencyCodeType']) ? '' : $_SESSION['currencyCodeType'];
|
|
}
|
|
// Seems used only by Paypal
|
|
if (empty($paymentType)) {
|
|
$paymentType = empty($_SESSION["paymentType"]) ? '' : $_SESSION["paymentType"];
|
|
}
|
|
|
|
$fulltag = $FULLTAG;
|
|
$tmptag = dolExplodeIntoArray($fulltag, '.', '=');
|
|
|
|
|
|
dol_syslog("ispaymentok=".$ispaymentok." tmptag=".var_export($tmptag, true), LOG_DEBUG, 0, '_payment');
|
|
|
|
|
|
// Set $appli for emails title
|
|
$appli = $mysoc->name;
|
|
|
|
|
|
// Make complementary actions (post payment actions if payment is ok)
|
|
$ispostactionok = 0;
|
|
$postactionmessages = array();
|
|
if ($ispaymentok) {
|
|
// Set permission for the anonymous user
|
|
if (empty($user->rights->societe)) {
|
|
$user->rights->societe = new stdClass();
|
|
}
|
|
if (empty($user->rights->facture)) {
|
|
$user->rights->facture = new stdClass();
|
|
$user->rights->facture->invoice_advance = new stdClass();
|
|
}
|
|
if (empty($user->rights->adherent)) {
|
|
$user->rights->adherent = new stdClass();
|
|
$user->rights->adherent->cotisation = new stdClass();
|
|
}
|
|
$user->rights->societe->creer = 1;
|
|
$user->rights->facture->creer = 1;
|
|
$user->rights->facture->invoice_advance->validate = 1;
|
|
$user->rights->adherent->cotisation->creer = 1;
|
|
|
|
if (array_key_exists('MEM', $tmptag) && $tmptag['MEM'] > 0) {
|
|
// Validate member
|
|
// Create subscription
|
|
// Create complementary actions (this include creation of thirdparty)
|
|
// Send confirmation email
|
|
|
|
// Record subscription
|
|
include_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent_type.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/adherents/class/subscription.class.php';
|
|
$adht = new AdherentType($db);
|
|
$object = new Adherent($db);
|
|
|
|
$result1 = $object->fetch((int) $tmptag['MEM']);
|
|
$result2 = $adht->fetch($object->typeid);
|
|
|
|
$defaultdelay = !empty($adht->duration_value) ? $adht->duration_value : 1;
|
|
$defaultdelayunit = !empty($adht->duration_unit) ? $adht->duration_unit : 'y';
|
|
|
|
dol_syslog("We have to process member with id=".$tmptag['MEM']." result1=".$result1." result2=".$result2, LOG_DEBUG, 0, '_payment');
|
|
|
|
if ($result1 > 0 && $result2 > 0) {
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
dol_syslog("FinalPaymentAmt=".$FinalPaymentAmt." paymentTypeId=".$paymentTypeId." currencyCodeType=".$currencyCodeType, LOG_DEBUG, 0, '_payment');
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
// Security protection:
|
|
if (empty($adht->caneditamount)) { // If we didn't allow members to choose their membership amount (if the amount is allowed in edit mode, no need to check)
|
|
if ($object->status == $object::STATUS_DRAFT) { // If the member is not yet validated, we check that the amount is the same as expected.
|
|
$typeid = $object->typeid;
|
|
$amountbytype = $adht->amountByType(1); // Load the array of amount per type
|
|
|
|
// Set amount for the subscription:
|
|
// - First check the amount of the member type.
|
|
$amountexpected = empty($amountbytype[$typeid]) ? 0 : $amountbytype[$typeid];
|
|
// - If not found, take the default amount
|
|
if (empty($amountexpected) && getDolGlobalString('MEMBER_NEWFORM_AMOUNT')) {
|
|
$amountexpected = getDolGlobalString('MEMBER_NEWFORM_AMOUNT');
|
|
}
|
|
// - If not set, we accept to have amount defined as parameter (for backward compatibility).
|
|
//if (empty($amount)) {
|
|
// $amount = (GETPOST('amount') ? price2num(GETPOST('amount', 'alpha'), 'MT', 2) : '');
|
|
//}
|
|
// - If a min is set, we take it into account
|
|
$amountexpected = max(0, (float) $amountexpected, (float) getDolGlobalInt("MEMBER_MIN_AMOUNT"));
|
|
|
|
if ($amountexpected && $amountexpected != $FinalPaymentAmt) {
|
|
$error++;
|
|
$errmsg = 'Value of FinalPayment ('.$FinalPaymentAmt.') propagated by payment page differs from the expected value for membership ('.$amountexpected.'). May be a hack to try to pay a different amount ?';
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
dol_syslog("Failed to validate member (bad amount check): ".$errmsg, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
}
|
|
|
|
// Security protection:
|
|
if (getDolGlobalInt('MEMBER_MIN_AMOUNT')) {
|
|
if ($FinalPaymentAmt < getDolGlobalInt('MEMBER_MIN_AMOUNT')) {
|
|
$error++;
|
|
$errmsg = 'Value of FinalPayment ('.$FinalPaymentAmt.') is lower than the minimum allowed (' . getDolGlobalString('MEMBER_MIN_AMOUNT').'). May be a hack to try to pay a different amount ?';
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
dol_syslog("Failed to validate member (amount propagated from payment page is lower than allowed minimum): ".$errmsg, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
|
|
// Security protection:
|
|
if ($currencyCodeType && $currencyCodeType != $conf->currency) { // Check that currency is the good one
|
|
$error++;
|
|
$errmsg = 'Value of currencyCodeType ('.$currencyCodeType.') differs from value expected for membership ('.$conf->currency.'). May be a hack to try to pay a different amount ?';
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
dol_syslog("Failed to validate member (bad currency check): ".$errmsg, LOG_ERR, 0, '_payment');
|
|
}
|
|
|
|
if (! $error) {
|
|
// We validate the member (no effect if it is already validated)
|
|
$result = ($object->status == $object::STATUS_EXCLUDED) ? -1 : $object->validate($user); // if membre is excluded (status == -2) the new validation is not possible
|
|
if ($result < 0 || empty($object->datevalid)) {
|
|
$error++;
|
|
$errmsg = $object->error;
|
|
$postactionmessages[] = $errmsg;
|
|
$postactionmessages = array_merge($postactionmessages, $object->errors);
|
|
$ispostactionok = -1;
|
|
dol_syslog("Failed to validate member: ".$errmsg, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
|
|
// Guess the subscription start date
|
|
$datesubscription = $object->datevalid; // By default, the subscription start date is the payment date
|
|
if ($object->datefin > 0) {
|
|
$datesubscription = dol_time_plus_duree($object->datefin, 1, 'd');
|
|
} elseif (getDolGlobalString('MEMBER_SUBSCRIPTION_START_AFTER')) {
|
|
$datesubscription = dol_time_plus_duree($now, (int) substr(getDolGlobalString('MEMBER_SUBSCRIPTION_START_AFTER'), 0, -1), substr(getDolGlobalString('MEMBER_SUBSCRIPTION_START_AFTER'), -1));
|
|
}
|
|
// Now do a correction of the suggested date
|
|
if (getDolGlobalString('MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF') === "m") {
|
|
$datesubscription = dol_get_first_day((int) dol_print_date($datesubscription, "%Y"), (int) dol_print_date($datesubscription, "%m"));
|
|
} elseif (getDolGlobalString('MEMBER_SUBSCRIPTION_START_FIRST_DAY_OF') === "Y") {
|
|
$datesubscription = dol_get_first_day((int) dol_print_date($datesubscription, "%Y"));
|
|
}
|
|
|
|
$datesubend = null;
|
|
if ($datesubscription && $defaultdelay && $defaultdelayunit) {
|
|
$datesubend = dol_time_plus_duree($datesubscription, $defaultdelay, $defaultdelayunit);
|
|
// the new end date of subscription must be in futur
|
|
while ($datesubend < $now) {
|
|
$datesubend = dol_time_plus_duree($datesubend, $defaultdelay, $defaultdelayunit);
|
|
$datesubscription = dol_time_plus_duree($datesubscription, $defaultdelay, $defaultdelayunit);
|
|
}
|
|
$datesubend = dol_time_plus_duree($datesubend, -1, 'd');
|
|
}
|
|
|
|
// Set output language
|
|
$outputlangs = new Translate('', $conf);
|
|
$outputlangs->setDefaultLang(empty($object->thirdparty->default_lang) ? $mysoc->default_lang : $object->thirdparty->default_lang);
|
|
$paymentdate = $now;
|
|
$amount = $FinalPaymentAmt;
|
|
$formatteddate = dol_print_date($paymentdate, 'dayhour', 'auto', $outputlangs);
|
|
$label = $langs->trans("OnlineSubscriptionPaymentLine", $formatteddate, $paymentmethod, $ipaddress, $TRANSACTIONID);
|
|
|
|
// Payment information
|
|
$accountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$accountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$accountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$accountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('accountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$accountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($accountid < 0) {
|
|
$error++;
|
|
$errmsg = 'Setup of bank account to use for payment is not correctly done for payment method '.$paymentmethod;
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
dol_syslog("Failed to get the bank account to record payment: ".$errmsg, LOG_ERR, 0, '_payment');
|
|
}
|
|
|
|
$operation = dol_getIdFromCode($db, $paymentTypeId, 'c_paiement', 'id', 'code', 1); // Payment mode code returned from payment mode id
|
|
$num_chq = '';
|
|
$emetteur_nom = '';
|
|
$emetteur_banque = '';
|
|
// Define default choice for complementary actions
|
|
$option = '';
|
|
if (getDolGlobalString('ADHERENT_BANK_USE') == 'bankviainvoice' && isModEnabled("bank") && isModEnabled("societe") && isModEnabled('invoice')) {
|
|
$option = 'bankviainvoice';
|
|
} elseif (getDolGlobalString('ADHERENT_BANK_USE') == 'bankdirect' && isModEnabled("bank")) {
|
|
$option = 'bankdirect';
|
|
} elseif (getDolGlobalString('ADHERENT_BANK_USE') == 'invoiceonly' && isModEnabled("bank") && isModEnabled("societe") && isModEnabled('invoice')) {
|
|
$option = 'invoiceonly';
|
|
}
|
|
if (empty($option)) {
|
|
$option = 'none';
|
|
}
|
|
$sendalsoemail = 1;
|
|
|
|
// Record the subscription then complementary actions
|
|
$db->begin();
|
|
|
|
// Create subscription
|
|
if (!$error) {
|
|
dol_syslog("Call ->subscription to create subscription", LOG_DEBUG, 0, '_payment');
|
|
|
|
$crowid = $object->subscription($datesubscription, $amount, $accountid, $operation, $label, $num_chq, $emetteur_nom, $emetteur_banque, $datesubend, $membertypeid);
|
|
if ($crowid <= 0) {
|
|
$error++;
|
|
$errmsg = $object->error;
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
} else {
|
|
$postactionmessages[] = 'Subscription created (id='.$crowid.')';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
dol_syslog("Call ->subscriptionComplementaryActions option=".$option, LOG_DEBUG, 0, '_payment');
|
|
|
|
$autocreatethirdparty = 1; // will create thirdparty if member not yet linked to a thirdparty
|
|
|
|
$result = $object->subscriptionComplementaryActions($crowid, $option, $accountid, $datesubscription, $paymentdate, $operation, $label, $amount, $num_chq, $emetteur_nom, $emetteur_banque, $autocreatethirdparty, $TRANSACTIONID, $service);
|
|
if ($result < 0) {
|
|
dol_syslog("Error ".$object->error." ".implode(',', $object->errors), LOG_DEBUG, 0, '_payment');
|
|
|
|
$error++;
|
|
$postactionmessages[] = $object->error;
|
|
$postactionmessages = array_merge($postactionmessages, $object->errors);
|
|
$ispostactionok = -1;
|
|
} else {
|
|
if ($option == 'bankviainvoice') {
|
|
$postactionmessages[] = 'Invoice, payment and bank record created';
|
|
dol_syslog("Invoice, payment and bank record created", LOG_DEBUG, 0, '_payment');
|
|
}
|
|
if ($option == 'bankdirect') {
|
|
$postactionmessages[] = 'Bank record created';
|
|
dol_syslog("Bank record created", LOG_DEBUG, 0, '_payment');
|
|
}
|
|
if ($option == 'invoiceonly') {
|
|
$postactionmessages[] = 'Invoice recorded';
|
|
dol_syslog("Invoice recorded", LOG_DEBUG, 0, '_payment');
|
|
}
|
|
$ispostactionok = 1;
|
|
|
|
// If an invoice was created, it is into $object->invoice
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
// If payment using Strip, save the Stripe payment info into societe_account
|
|
if ($paymentmethod == 'stripe' && $autocreatethirdparty && $option == 'bankviainvoice') {
|
|
$thirdparty_id = ($object->socid ? $object->socid : $object->fk_soc);
|
|
|
|
dol_syslog("Search existing Stripe customer profile for thirdparty_id=".$thirdparty_id, LOG_DEBUG, 0, '_payment');
|
|
|
|
$service = 'StripeTest';
|
|
$servicestatus = 0;
|
|
if (getDolGlobalString('STRIPE_LIVE') && !GETPOST('forcesandbox', 'alpha')) {
|
|
$service = 'StripeLive';
|
|
$servicestatus = 1;
|
|
}
|
|
$stripeacc = null; // No Oauth/connect use for public pages
|
|
|
|
$thirdparty = new Societe($db);
|
|
$thirdparty->fetch($thirdparty_id);
|
|
|
|
include_once DOL_DOCUMENT_ROOT.'/stripe/class/stripe.class.php'; // This also set $stripearrayofkeysbyenv
|
|
$stripe = new Stripe($db);
|
|
//$stripeacc = $stripe->getStripeAccount($service); Already defined previously
|
|
|
|
$customer = $stripe->customerStripe($thirdparty, $stripeacc, $servicestatus, 0);
|
|
|
|
if (!$customer && $TRANSACTIONID) { // Not linked to a stripe customer, we make the link
|
|
dol_syslog("No stripe profile found, so we add it for TRANSACTIONID = ".$TRANSACTIONID, LOG_DEBUG, 0, '_payment');
|
|
|
|
try {
|
|
global $stripearrayofkeysbyenv;
|
|
\Stripe\Stripe::setApiKey($stripearrayofkeysbyenv[$servicestatus]['secret_key']);
|
|
|
|
if (preg_match('/^pi_/', $TRANSACTIONID)) {
|
|
// This may throw an error if not found.
|
|
$chpi = \Stripe\PaymentIntent::retrieve($TRANSACTIONID); // payment_intent (pi_...)
|
|
} else {
|
|
// This throw an error if not found
|
|
$chpi = \Stripe\Charge::retrieve($TRANSACTIONID); // old method, contains the charge id (ch_...)
|
|
}
|
|
|
|
if ($chpi) {
|
|
$stripecu = $chpi->customer; // value 'cus_....'. WARNING: This property may be empty if first payment was recorded before the stripe customer was created.
|
|
|
|
if (empty($stripecu)) {
|
|
// This include the INSERT
|
|
$customer = $stripe->customerStripe($thirdparty, $stripeacc, $servicestatus, 1);
|
|
|
|
// Link this customer to the payment intent
|
|
if (preg_match('/^pi_/', $TRANSACTIONID) && $customer) {
|
|
\Stripe\PaymentIntent::update($chpi->id, array('customer' => $customer->id));
|
|
}
|
|
} else {
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe_account (fk_soc, login, key_account, site, site_account, status, entity, date_creation, fk_user_creat)";
|
|
$sql .= " VALUES (".$thirdparty_id.", '', '".$db->escape($stripecu)."', 'stripe', '".$db->escape($stripearrayofkeysbyenv[$servicestatus]['publishable_key'])."', ".((int) $servicestatus).", ".((int) $conf->entity).", '".$db->idate(dol_now())."', 0)";
|
|
$resql = $db->query($sql);
|
|
if (!$resql) { // should not happen
|
|
$error++;
|
|
$errmsg = 'Failed to insert customer stripe id in database : '.$db->lasterror();
|
|
dol_syslog($errmsg, LOG_ERR, 0, '_payment');
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
}
|
|
}
|
|
} else { // should not happen
|
|
$error++;
|
|
$errmsg = 'Failed to retrieve paymentintent or charge from id';
|
|
dol_syslog($errmsg, LOG_ERR, 0, '_payment');
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
}
|
|
} catch (Exception $e) { // should not happen
|
|
$error++;
|
|
$errmsg = 'Failed to get or save customer stripe id in database : '.$e->getMessage();
|
|
dol_syslog($errmsg, LOG_ERR, 0, '_payment');
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
|
|
// Set string to use to send email info
|
|
$infouserlogin = '';
|
|
|
|
// Create external user
|
|
if (getDolGlobalString('ADHERENT_CREATE_EXTERNAL_USER_LOGIN')) {
|
|
$nuser = new User($db);
|
|
$tmpuser = dol_clone($object, 0); // $object is type Adherent
|
|
|
|
// Check if a user login already exists for this member or not
|
|
$found = 0;
|
|
$sql = "SELECT COUNT(rowid) as nb FROM ".MAIN_DB_PREFIX."user WHERE fk_member = ".((int) $object->id);
|
|
$resqlcount = $db->query($sql);
|
|
if ($resqlcount) {
|
|
$objcount = $db->fetch_object($resqlcount);
|
|
if ($objcount) {
|
|
$found = $objcount->nb;
|
|
}
|
|
}
|
|
|
|
if (!$found) {
|
|
$result = $nuser->create_from_member($tmpuser, $object->login);
|
|
$newpassword = $nuser->setPassword($user, '');
|
|
|
|
if ($result < 0) {
|
|
$outputlangs->load("errors");
|
|
$postactionmessages[] = 'Error in create external user : '.$nuser->error;
|
|
} else {
|
|
$infouserlogin = $outputlangs->trans("Login").': '.$nuser->login.' '."\n".$outputlangs->trans("Password").': '.$newpassword;
|
|
$postactionmessages[] = $langs->trans("NewUserCreated", $nuser->login);
|
|
}
|
|
} else {
|
|
$outputlangs->load("errors");
|
|
$postactionmessages[] = 'No user created because a user linked to member already exists';
|
|
}
|
|
}
|
|
|
|
// Send email to member
|
|
if (!$error) {
|
|
dol_syslog("Send email to customer to ".$object->email." if we have to (sendalsoemail = ".$sendalsoemail.")", LOG_DEBUG, 0, '_payment');
|
|
|
|
// Send confirmation Email
|
|
if ($object->email && $sendalsoemail) {
|
|
$subject = '';
|
|
$msg = '';
|
|
|
|
// Send subscription email
|
|
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
|
|
$formmail = new FormMail($db);
|
|
// Load traductions files required by page
|
|
$outputlangs->loadLangs(array("main", "members"));
|
|
// Get email content from template
|
|
$arraydefaultmessage = null;
|
|
$labeltouse = getDolGlobalString('ADHERENT_EMAIL_TEMPLATE_SUBSCRIPTION');
|
|
|
|
if (!empty($labeltouse)) {
|
|
$arraydefaultmessage = $formmail->getEMailTemplate($db, 'member', $user, $outputlangs, 0, 1, $labeltouse);
|
|
}
|
|
|
|
if (!empty($labeltouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
|
|
$subject = $arraydefaultmessage->topic;
|
|
$msg = $arraydefaultmessage->content;
|
|
}
|
|
|
|
$substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
|
|
|
|
if ($infouserlogin) {
|
|
$substitutionarray['__MEMBER_USER_LOGIN_INFORMATION__'] = $infouserlogin;
|
|
}
|
|
|
|
complete_substitutions_array($substitutionarray, $outputlangs, $object);
|
|
$subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs);
|
|
$texttosend = make_substitutions(dol_concatdesc($msg, $adht->getMailOnSubscription()), $substitutionarray, $outputlangs);
|
|
|
|
// Attach a file ?
|
|
$file = '';
|
|
$listofpaths = array();
|
|
$listofnames = array();
|
|
$listofmimes = array();
|
|
if (is_object($object->invoice)) {
|
|
$invoicediroutput = $conf->facture->dir_output;
|
|
$fileparams = dol_most_recent_file($invoicediroutput.'/'.$object->invoice->ref, preg_quote($object->invoice->ref, '/').'[^\-]+');
|
|
$file = $fileparams['fullname'];
|
|
|
|
$listofpaths = array($file);
|
|
$listofnames = array(basename($file));
|
|
$listofmimes = array(dol_mimetype($file));
|
|
}
|
|
|
|
$moreinheader = 'X-Dolibarr-Info: send_an_email by public/payment/paymentok.php'."\r\n";
|
|
|
|
$result = $object->sendEmail($texttosend, $subjecttosend, $listofpaths, $listofmimes, $listofnames, "", "", 0, -1, "", $moreinheader);
|
|
|
|
if ($result < 0) {
|
|
$errmsg = $object->error;
|
|
$postactionmessages[] = $errmsg;
|
|
$ispostactionok = -1;
|
|
} else {
|
|
if ($file) {
|
|
$postactionmessages[] = 'Email sent to member (with invoice document attached)';
|
|
} else {
|
|
$postactionmessages[] = 'Email sent to member (without any attached document)';
|
|
}
|
|
|
|
// TODO Add actioncomm event
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" or "payment type" to record the payment of subscription for member '.$tmptag['MEM'].'. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Member '.$tmptag['MEM'].' for subscription paid was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
} elseif (array_key_exists('INV', $tmptag) && $tmptag['INV'] > 0) {
|
|
// Record payment
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
|
|
$object = new Facture($db);
|
|
$result = $object->fetch((int) $tmptag['INV']);
|
|
if ($result) {
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod === 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod === 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod === 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
dol_syslog("FinalPaymentAmt = ".$FinalPaymentAmt." paymentTypeId = ".$paymentTypeId, LOG_DEBUG, 0, '_payment');
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
$db->begin();
|
|
|
|
// Creation of payment line
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$paiement->datepaye = $now;
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching with invoice id
|
|
} else {
|
|
$paiement->multicurrency_amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching
|
|
|
|
$postactionmessages[] = 'Payment was done in a currency ('.$currencyCodeType.') other than the expected currency of company ('.$conf->currency.')';
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
}
|
|
$paiement->paiementid = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment '.dol_print_date($now, 'standard').' from '.$ipaddress;
|
|
$paiement->ext_payment_id = $TRANSACTIONID; // TODO LDR May be we should store py_... instead of pi_... but we started with pi_... so we continue.
|
|
//$paiement->ext_payment_id = $TRANSACTIONID.':'.$customer->id.'@'.$stripearrayofkeysbyenv[$servicestatus]['publishable_key']; // TODO LDR It would be better if we could store this. Do we have customer->id and publishable_key ?
|
|
$paiement->ext_payment_site = $service;
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1); // This include closing invoices and regenerating documents
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(CustomerInvoicePayment)';
|
|
if ($object->type == Facture::TYPE_CREDIT_NOTE) {
|
|
$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
|
|
}
|
|
$result = $paiement->addPaymentToBank($user, 'payment', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module '.$paymentmethod.' was not set. Your payment was really executed but we failed to record it. Please contact us.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" ('.$FinalPaymentAmt.') or "payment type id" ('.$paymentTypeId.') to record the payment of invoice '.$tmptag['INV'].'. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Invoice paid '.$tmptag['INV'].' was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
} elseif (array_key_exists('ORD', $tmptag) && $tmptag['ORD'] > 0) {
|
|
include_once DOL_DOCUMENT_ROOT . '/commande/class/commande.class.php';
|
|
$object = new Commande($db);
|
|
$result = $object->fetch((int) $tmptag['ORD']);
|
|
if ($result) {
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (isModEnabled('invoice')) {
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
include_once DOL_DOCUMENT_ROOT . '/compta/facture/class/facture.class.php';
|
|
$invoice = new Facture($db);
|
|
$result = $invoice->createFromOrder($object, $user);
|
|
if ($result > 0) {
|
|
$object->classifyBilled($user);
|
|
$invoice->validate($user);
|
|
// Creation of payment line
|
|
include_once DOL_DOCUMENT_ROOT . '/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$paiement->datepaye = $now;
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($invoice->id => $FinalPaymentAmt); // Array with all payments dispatching with invoice id
|
|
} else {
|
|
$paiement->multicurrency_amounts = array($invoice->id => $FinalPaymentAmt); // Array with all payments dispatching
|
|
|
|
$postactionmessages[] = 'Payment was done in a currency ('.$currencyCodeType.') other than the expected currency of company ('.$conf->currency.')';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
$paiement->paiementid = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment ' . dol_print_date($now, 'standard') . ' from ' . $ipaddress;
|
|
$paiement->ext_payment_id = $TRANSACTIONID; // pi_... for Stripe, ...
|
|
$paiement->ext_payment_site = $service; // 'StripeLive' or 'Stripe', or ...
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1); // This include closing invoices and regenerating documents
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error . ' ' . implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(CustomerInvoicePayment)';
|
|
if ($object->type == Facture::TYPE_CREDIT_NOTE) {
|
|
$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
|
|
}
|
|
$result = $paiement->addPaymentToBank($user, 'payment', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error . ' ' . implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module ' . $paymentmethod . ' was not set. No way to record the payment.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to create invoice form order ' . $tmptag['ORD'] . '.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" (' . $FinalPaymentAmt . ') or "payment type id" (' . $paymentTypeId . ') to record the payment of order ' . $tmptag['ORD'] . '. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Invoice module is not enable';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Order paid ' . $tmptag['ORD'] . ' was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
} elseif (array_key_exists('DON', $tmptag) && $tmptag['DON'] > 0) {
|
|
include_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
|
|
$don = new Don($db);
|
|
$result = $don->fetch((int) $tmptag['DON']);
|
|
if ($result) {
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('global->PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
$db->begin();
|
|
|
|
// Creation of paiement line for donation
|
|
include_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
|
|
$paiement = new PaymentDonation($db);
|
|
|
|
$totalpaid = $FinalPaymentAmt;
|
|
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($object->id => $totalpaid); // Array with all payments dispatching with donation
|
|
} else {
|
|
// PaymentDonation does not support multi currency
|
|
$postactionmessages[] = 'Payment donation can\'t be paid with different currency than '.$conf->currency;
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
}
|
|
|
|
$paiement->fk_donation = $don->id;
|
|
$paiement->datep = $now;
|
|
$paiement->paymenttype = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment '.dol_print_date($now, 'standard').' from '.$ipaddress;
|
|
$paiement->ext_payment_id = $TRANSACTIONID;
|
|
$paiement->ext_payment_site = $service;
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1);
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
|
|
if ($totalpaid >= $don->getRemainToPay()) {
|
|
$don->setPaid($don->id);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(DonationPayment)';
|
|
$result = $paiement->addPaymentToBank($user, 'payment_donation', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module '.$paymentmethod.' was not set. Your payment was really executed but we failed to record it. Please contact us.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" ('.$FinalPaymentAmt.') or "payment type id" ('.$paymentTypeId.') to record the payment of donation '.$tmptag['DON'].'. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Donation paid '.$tmptag['DON'].' was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
|
|
// TODO send email with acknowledgment for the donation
|
|
// (we need first that the donation module is able to generate a pdf document for the cerfa with pre filled content)
|
|
} elseif (array_key_exists('ATT', $tmptag) && $tmptag['ATT'] > 0) {
|
|
// Record payment for registration to an event for an attendee
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorboothattendee.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorbooth.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
|
|
$object = new Facture($db);
|
|
$result = $object->fetch($ref);
|
|
if ($result) {
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
$resultvalidate = $object->validate($user);
|
|
if ($resultvalidate < 0) {
|
|
$postactionmessages[] = 'Cannot validate invoice';
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
} else {
|
|
$db->begin();
|
|
|
|
// Creation of payment line
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$paiement->datepaye = $now;
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching with invoice id
|
|
} else {
|
|
$paiement->multicurrency_amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching
|
|
|
|
$postactionmessages[] = 'Payment was done in a currency ('.$currencyCodeType.') other than the expected currency of company ('.$conf->currency.')';
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
}
|
|
$paiement->paiementid = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment '.dol_print_date($now, 'standard').' from '.$ipaddress.' for event registration';
|
|
$paiement->ext_payment_id = $TRANSACTIONID;
|
|
$paiement->ext_payment_site = $service;
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1); // This include closing invoices and regenerating documents
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(CustomerInvoicePayment)';
|
|
if ($object->type == Facture::TYPE_CREDIT_NOTE) {
|
|
$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
|
|
}
|
|
$result = $paiement->addPaymentToBank($user, 'payment', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module '.$paymentmethod.' was not set. Your payment was really executed but we failed to record it. Please contact us.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
$attendeetovalidate = new ConferenceOrBoothAttendee($db);
|
|
|
|
if (!$error) {
|
|
// Validating the attendee
|
|
$resultattendee = $attendeetovalidate->fetch((int) $tmptag['ATT']);
|
|
if ($resultattendee < 0) {
|
|
$error++;
|
|
setEventMessages(null, $attendeetovalidate->errors, "errors");
|
|
} else {
|
|
$attendeetovalidate->validate($user);
|
|
|
|
$attendeetovalidate->amount = $FinalPaymentAmt;
|
|
$attendeetovalidate->date_subscription = dol_now();
|
|
$attendeetovalidate->update($user);
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
setEventMessages(null, $postactionmessages, 'warnings');
|
|
|
|
$db->rollback();
|
|
}
|
|
|
|
if (! $error) {
|
|
// Sending mail
|
|
$thirdparty = new Societe($db);
|
|
$resultthirdparty = $thirdparty->fetch($attendeetovalidate->fk_soc);
|
|
if ($resultthirdparty < 0) {
|
|
setEventMessages($resultthirdparty->error, $resultthirdparty->errors, "errors");
|
|
} else {
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
|
|
$formmail = new FormMail($db);
|
|
// Set output language
|
|
$outputlangs = new Translate('', $conf);
|
|
$outputlangs->setDefaultLang(empty($thirdparty->default_lang) ? $mysoc->default_lang : $thirdparty->default_lang);
|
|
// Load traductions files required by page
|
|
$outputlangs->loadLangs(array("main", "members", "eventorganization"));
|
|
// Get email content from template
|
|
$arraydefaultmessage = null;
|
|
|
|
$idoftemplatetouse = getDolGlobalString('EVENTORGANIZATION_TEMPLATE_EMAIL_AFT_SUBS_EVENT'); // Email to send for Event organization registration
|
|
|
|
if (!empty($idoftemplatetouse)) {
|
|
$arraydefaultmessage = $formmail->getEMailTemplate($db, 'conferenceorbooth', $user, $outputlangs, $idoftemplatetouse, 1, '');
|
|
}
|
|
|
|
if (!empty($idoftemplatetouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
|
|
$subject = $arraydefaultmessage->topic;
|
|
$msg = $arraydefaultmessage->content;
|
|
} else {
|
|
$subject = '['.$appli.'] '.$object->ref.' - '.$outputlangs->trans("NewRegistration");
|
|
$msg = $outputlangs->trans("OrganizationEventPaymentOfRegistrationWasReceived");
|
|
}
|
|
|
|
$substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $thirdparty);
|
|
complete_substitutions_array($substitutionarray, $outputlangs, $object);
|
|
|
|
$subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs);
|
|
$texttosend = make_substitutions($msg, $substitutionarray, $outputlangs);
|
|
|
|
$sendto = $attendeetovalidate->email;
|
|
$cc = '';
|
|
if ($thirdparty->email) {
|
|
$cc = $thirdparty->email;
|
|
}
|
|
if ($attendeetovalidate->email_company && $attendeetovalidate->email_company != $thirdparty->email) {
|
|
$cc = ($cc ? ', ' : '').$attendeetovalidate->email_company;
|
|
}
|
|
|
|
$from = getDolGlobalString('MAILING_EMAIL_FROM') ? $conf->global->MAILING_EMAIL_FROM : getDolGlobalString("MAIN_MAIL_EMAIL_FROM");
|
|
|
|
$urlback = $_SERVER["REQUEST_URI"];
|
|
|
|
$ishtml = dol_textishtml($texttosend); // May contain urls
|
|
|
|
// Attach a file ?
|
|
$file = '';
|
|
$listofpaths = array();
|
|
$listofnames = array();
|
|
$listofmimes = array();
|
|
if (is_object($object)) {
|
|
$invoicediroutput = $conf->facture->dir_output;
|
|
$fileparams = dol_most_recent_file($invoicediroutput.'/'.$object->ref, preg_quote($object->ref, '/').'[^\-]+');
|
|
$file = $fileparams['fullname'];
|
|
|
|
$listofpaths = array($file);
|
|
$listofnames = array(basename($file));
|
|
$listofmimes = array(dol_mimetype($file));
|
|
}
|
|
|
|
$trackid = 'inv'.$object->id;
|
|
|
|
$mailfile = new CMailFile($subjecttosend, $sendto, $from, $texttosend, $listofpaths, $listofmimes, $listofnames, $cc, '', 0, ($ishtml ? 1 : 0), '', '', $trackid, '', 'standard');
|
|
|
|
$result = $mailfile->sendfile();
|
|
if ($result) {
|
|
dol_syslog("EMail sent to ".$sendto, LOG_DEBUG, 0, '_payment');
|
|
} else {
|
|
dol_syslog("Failed to send EMail to ".$sendto.' - '.$mailfile->error, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" ('.$FinalPaymentAmt.') or "payment type id" ('.$paymentTypeId.') to record the payment of invoice '.$tmptag['ATT'].'. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Invoice paid '.$tmptag['ATT'].' was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
} elseif (array_key_exists('BOO', $tmptag) && $tmptag['BOO'] > 0) {
|
|
// Record payment for booth or conference
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorboothattendee.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorbooth.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
|
|
$object = new Facture($db);
|
|
$result = $object->fetch($ref);
|
|
if ($result) {
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
$resultvalidate = $object->validate($user);
|
|
if ($resultvalidate < 0) {
|
|
$postactionmessages[] = 'Cannot validate invoice';
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
} else {
|
|
$db->begin();
|
|
|
|
// Creation of payment line
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$paiement->datepaye = $now;
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching with invoice id
|
|
} else {
|
|
$paiement->multicurrency_amounts = array($object->id => $FinalPaymentAmt); // Array with all payments dispatching
|
|
|
|
$postactionmessages[] = 'Payment was done in a currency ('.$currencyCodeType.') other than the expected currency of company ('.$conf->currency.')';
|
|
$ispostactionok = -1;
|
|
$error++; // Not yet supported
|
|
}
|
|
$paiement->paiementid = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment '.dol_print_date($now, 'standard').' from '.$ipaddress;
|
|
$paiement->ext_payment_id = $TRANSACTIONID;
|
|
$paiement->ext_payment_site = $service;
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1); // This include closing invoices and regenerating documents
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(CustomerInvoicePayment)';
|
|
if ($object->type == Facture::TYPE_CREDIT_NOTE) {
|
|
$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
|
|
}
|
|
$result = $paiement->addPaymentToBank($user, 'payment', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error.' '.implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module '.$paymentmethod.' was not set. Your payment was really executed but we failed to record it. Please contact us.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
// Putting the booth to "suggested" state
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorboothattendee.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/eventorganization/class/conferenceorbooth.class.php';
|
|
$booth = new ConferenceOrBooth($db);
|
|
$resultbooth = $booth->fetch((int) $tmptag['BOO']);
|
|
if ($resultbooth < 0) {
|
|
$error++;
|
|
setEventMessages(null, $booth->errors, "errors");
|
|
} else {
|
|
$booth->status = ConferenceOrBooth::STATUS_SUGGESTED;
|
|
$resultboothupdate = $booth->update($user);
|
|
if ($resultboothupdate<0) {
|
|
// Finding the thirdparty by getting the invoice
|
|
$invoice = new Facture($db);
|
|
$resultinvoice = $invoice->fetch($ref);
|
|
if ($resultinvoice<0) {
|
|
$postactionmessages[] = 'Could not find the associated invoice.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$thirdparty = new Societe($db);
|
|
$resultthirdparty = $thirdparty->fetch($invoice->socid);
|
|
if ($resultthirdparty<0) {
|
|
$error++;
|
|
setEventMessages(null, $thirdparty->errors, "errors");
|
|
} else {
|
|
// Sending mail
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
|
|
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php';
|
|
$formmail = new FormMail($db);
|
|
// Set output language
|
|
$outputlangs = new Translate('', $conf);
|
|
$outputlangs->setDefaultLang(empty($thirdparty->default_lang) ? $mysoc->default_lang : $thirdparty->default_lang);
|
|
// Load traductions files required by page
|
|
$outputlangs->loadLangs(array("main", "members", "eventorganization"));
|
|
// Get email content from template
|
|
$arraydefaultmessage = null;
|
|
|
|
$idoftemplatetouse = getDolGlobalString('EVENTORGANIZATION_TEMPLATE_EMAIL_AFT_SUBS_BOOTH'); // Email sent after registration for a Booth
|
|
|
|
if (!empty($idoftemplatetouse)) {
|
|
$arraydefaultmessage = $formmail->getEMailTemplate($db, 'conferenceorbooth', $user, $outputlangs, $idoftemplatetouse, 1, '');
|
|
}
|
|
|
|
if (!empty($idoftemplatetouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) {
|
|
$subject = $arraydefaultmessage->topic;
|
|
$msg = $arraydefaultmessage->content;
|
|
} else {
|
|
$subject = '['.$appli.'] '.$booth->ref.' - '.$outputlangs->trans("NewRegistration").']';
|
|
$msg = $outputlangs->trans("OrganizationEventPaymentOfBoothWasReceived");
|
|
}
|
|
|
|
$substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $thirdparty);
|
|
complete_substitutions_array($substitutionarray, $outputlangs, $object);
|
|
|
|
$subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs);
|
|
$texttosend = make_substitutions($msg, $substitutionarray, $outputlangs);
|
|
|
|
$sendto = $thirdparty->email;
|
|
$from = getDolGlobalString('MAILING_EMAIL_FROM');
|
|
$urlback = $_SERVER["REQUEST_URI"];
|
|
|
|
$ishtml = dol_textishtml($texttosend); // May contain urls
|
|
$trackid = 'inv'.$invoice->id;
|
|
|
|
$mailfile = new CMailFile($subjecttosend, $sendto, $from, $texttosend, array(), array(), array(), '', '', 0, $ishtml ? 1 : 0, '', '', $trackid, '', 'standard');
|
|
|
|
$result = $mailfile->sendfile();
|
|
if ($result) {
|
|
dol_syslog("EMail sent to ".$sendto, LOG_DEBUG, 0, '_payment');
|
|
} else {
|
|
dol_syslog("Failed to send EMail to ".$sendto, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" ('.$FinalPaymentAmt.') or "payment type id" ('.$paymentTypeId.') to record the payment of invoice '.$tmptag['ATT'].'. May be payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Invoice paid '.$tmptag['ATT'].' was not found';
|
|
$ispostactionok = -1;
|
|
}
|
|
} elseif (array_key_exists('CON', $tmptag) && $tmptag['CON'] > 0) {
|
|
include_once DOL_DOCUMENT_ROOT . '/contrat/class/contrat.class.php';
|
|
$object = new Contrat($db);
|
|
$result = $object->fetch((int) $tmptag['CON']);
|
|
if ($result) {
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
|
|
$paymentTypeId = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$paymentTypeId = getDolGlobalInt('PAYBOX_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'paypal') {
|
|
$paymentTypeId = getDolGlobalInt('PAYPAL_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if ($paymentmethod == 'stripe') {
|
|
$paymentTypeId = getDolGlobalInt('STRIPE_PAYMENT_MODE_FOR_PAYMENTS');
|
|
}
|
|
if (empty($paymentTypeId)) {
|
|
dol_syslog("paymentType = ".$paymentType, LOG_DEBUG, 0, '_payment');
|
|
|
|
if (empty($paymentType)) {
|
|
$paymentType = 'CB';
|
|
}
|
|
// May return nothing when paymentType means nothing
|
|
// (for example when paymentType is 'Mark', 'Sole', 'Sale', for paypal)
|
|
$paymentTypeId = dol_getIdFromCode($db, $paymentType, 'c_paiement', 'code', 'id', 1);
|
|
|
|
// If previous line has returned nothing, we force to get the ID of payment of Credit Card (hard coded code 'CB').
|
|
if (empty($paymentTypeId) || $paymentTypeId < 0) {
|
|
$paymentTypeId = dol_getIdFromCode($db, 'CB', 'c_paiement', 'code', 'id', 1);
|
|
}
|
|
}
|
|
|
|
$currencyCodeType = $_SESSION['currencyCodeType'];
|
|
$contract_lines = (array_key_exists('COL', $tmptag) && $tmptag['COL'] > 0) ? $tmptag['COL'] : null;
|
|
|
|
// Do action only if $FinalPaymentAmt is set (session variable is cleaned after this page to avoid duplicate actions when page is POST a second time)
|
|
if (isModEnabled('invoice')) {
|
|
if (!empty($FinalPaymentAmt) && $paymentTypeId > 0) {
|
|
include_once DOL_DOCUMENT_ROOT . '/compta/facture/class/facture.class.php';
|
|
$invoice = new Facture($db);
|
|
$result = $invoice->createFromContract($object, $user, array((int) $contract_lines));
|
|
if ($result > 0) {
|
|
// $object->classifyBilled($user);
|
|
$invoice->validate($user);
|
|
// Creation of payment line
|
|
include_once DOL_DOCUMENT_ROOT . '/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$paiement->datepaye = $now;
|
|
if ($currencyCodeType == $conf->currency) {
|
|
$paiement->amounts = array($invoice->id => $FinalPaymentAmt); // Array with all payments dispatching with invoice id
|
|
} else {
|
|
$paiement->multicurrency_amounts = array($invoice->id => $FinalPaymentAmt); // Array with all payments dispatching
|
|
|
|
$postactionmessages[] = 'Payment was done in a currency ('.$currencyCodeType.') other than the expected currency of company ('.$conf->currency.')';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
$paiement->paiementid = $paymentTypeId;
|
|
$paiement->num_payment = '';
|
|
$paiement->note_public = 'Online payment ' . dol_print_date($now, 'standard') . ' from ' . $ipaddress;
|
|
$paiement->ext_payment_id = $TRANSACTIONID; // pi_... for Stripe, ...
|
|
$paiement->ext_payment_site = $service; // 'StripeLive' or 'Stripe', or ...
|
|
|
|
if (!$error) {
|
|
$paiement_id = $paiement->create($user, 1); // This include closing invoices and regenerating documents
|
|
if ($paiement_id < 0) {
|
|
$postactionmessages[] = $paiement->error . ' ' . implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
}
|
|
|
|
if (!$error && isModEnabled("bank")) {
|
|
$bankaccountid = 0;
|
|
if ($paymentmethod == 'paybox') {
|
|
$bankaccountid = getDolGlobalString('PAYBOX_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'paypal') {
|
|
$bankaccountid = getDolGlobalString('PAYPAL_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
} elseif ($paymentmethod == 'stripe') {
|
|
$bankaccountid = getDolGlobalString('STRIPE_BANK_ACCOUNT_FOR_PAYMENTS');
|
|
}
|
|
|
|
//Get bank account for a specific paymentmedthod
|
|
$parameters = [
|
|
'paymentmethod' => $paymentmethod,
|
|
];
|
|
$reshook = $hookmanager->executeHooks('getBankAccountPaymentMethod', $parameters, $object, $action);
|
|
if ($reshook >= 0) {
|
|
if (isset($hookmanager->resArray['bankaccountid'])) {
|
|
dol_syslog('bankaccountid overwrite by hook return with value='.$hookmanager->resArray['bankaccountid'], LOG_DEBUG, 0, '_payment');
|
|
$bankaccountid = $hookmanager->resArray['bankaccountid'];
|
|
}
|
|
}
|
|
if ($bankaccountid > 0) {
|
|
$label = '(CustomerInvoicePayment)';
|
|
if ($object->type == Facture::TYPE_CREDIT_NOTE) {
|
|
$label = '(CustomerInvoicePaymentBack)'; // Refund of a credit note
|
|
}
|
|
$result = $paiement->addPaymentToBank($user, 'payment', $label, $bankaccountid, '', '');
|
|
if ($result < 0) {
|
|
$postactionmessages[] = $paiement->error . ' ' . implode("<br>\n", $paiement->errors);
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
} else {
|
|
$postactionmessages[] = 'Bank transaction of payment created';
|
|
$ispostactionok = 1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Setup of bank account to use in module ' . $paymentmethod . ' was not set. No way to record the payment.';
|
|
$ispostactionok = -1;
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
} else {
|
|
$msg = 'Failed to create invoice form contract ' . $tmptag['CON'];
|
|
if (!empty($cols)) {
|
|
$msg .= ' and col '. $cols .'.';
|
|
}
|
|
$postactionmessages[] = $msg;
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Failed to get a valid value for "amount paid" (' . $FinalPaymentAmt . ') or "payment type id" (' . $paymentTypeId . ') to record the payment of contract ' . $tmptag['CON'] .'. Maybe payment was already recorded.';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$postactionmessages[] = 'Invoice module is not enable';
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
$msg = 'Contract paid ' . $tmptag['CON'] . ' was not found';
|
|
if (!empty($cols)) {
|
|
$msg .= ' for col '.$tmptag['COL'] .'.';
|
|
}
|
|
$postactionmessages[] = $msg;
|
|
$ispostactionok = -1;
|
|
}
|
|
} else {
|
|
// Nothing done
|
|
}
|
|
}
|
|
|
|
if ($ispaymentok) {
|
|
// Get on url call
|
|
$onlinetoken = empty($PAYPALTOKEN) ? $_SESSION['onlinetoken'] : $PAYPALTOKEN;
|
|
$payerID = empty($PAYPALPAYERID) ? $_SESSION['payerID'] : $PAYPALPAYERID;
|
|
// Set by newpayment.php
|
|
$currencyCodeType = empty($_SESSION['currencyCodeType']) ? '' : $_SESSION['currencyCodeType'];
|
|
$FinalPaymentAmt = empty($_SESSION["FinalPaymentAmt"]) ? '': $_SESSION["FinalPaymentAmt"];
|
|
$paymentType = empty($_SESSION['PaymentType']) ? '' : $_SESSION['PaymentType']; // Seems used by paypal only
|
|
|
|
if (is_object($object) && method_exists($object, 'call_trigger')) {
|
|
// Call trigger
|
|
$result = $object->call_trigger('PAYMENTONLINE_PAYMENT_OK', $user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
}
|
|
// End call triggers
|
|
} elseif (get_class($object) == 'stdClass') {
|
|
//In some case $object is not instantiate (for paiement on custom object) We need to deal with payment
|
|
include_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
|
$paiement = new Paiement($db);
|
|
$result = $paiement->call_trigger('PAYMENTONLINE_PAYMENT_OK', $user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Show result message
|
|
if (empty($doactionsthenredirect)) {
|
|
if ($ispaymentok) {
|
|
print $langs->trans("YourPaymentHasBeenRecorded")."<br>\n";
|
|
if ($TRANSACTIONID) {
|
|
print $langs->trans("ThisIsTransactionId", $TRANSACTIONID)."<br><br>\n";
|
|
}
|
|
|
|
// Show a custom message
|
|
$key = 'ONLINE_PAYMENT_MESSAGE_OK';
|
|
if (getDolGlobalString($key)) {
|
|
print '<br>';
|
|
print getDolGlobalString($key);
|
|
}
|
|
} else {
|
|
print $langs->trans('DoExpressCheckoutPaymentAPICallFailed')."<br>\n";
|
|
print $langs->trans('DetailedErrorMessage').": ".$ErrorLongMsg."<br>\n";
|
|
print $langs->trans('ShortErrorMessage').": ".$ErrorShortMsg."<br>\n";
|
|
print $langs->trans('ErrorCode').": ".$ErrorCode."<br>\n";
|
|
print $langs->trans('ErrorSeverityCode').": ".$ErrorSeverityCode."<br>\n";
|
|
|
|
if ($mysoc->email) {
|
|
print "\nPlease, send a screenshot of this page to ".$mysoc->email."<br>\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Send email
|
|
if ($ispaymentok) {
|
|
$sendemail = getDolGlobalString('ONLINE_PAYMENT_SENDEMAIL');
|
|
|
|
$tmptag = dolExplodeIntoArray($fulltag, '.', '=');
|
|
|
|
dol_syslog("Send email to admins if we have to (sendemail = ".$sendemail.")", LOG_DEBUG, 0, '_payment');
|
|
|
|
// Send an email to the admins
|
|
if ($sendemail) {
|
|
$companylangs = new Translate('', $conf);
|
|
$companylangs->setDefaultLang($mysoc->default_lang);
|
|
$companylangs->loadLangs(array('main', 'members', 'bills', 'paypal', 'paybox', 'stripe'));
|
|
|
|
$sendto = $sendemail;
|
|
$from = getDolGlobalString('MAILING_EMAIL_FROM') ? $conf->global->MAILING_EMAIL_FROM : getDolGlobalString("MAIN_MAIL_EMAIL_FROM");
|
|
// Define $urlwithroot
|
|
$urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
|
|
$urlwithroot = $urlwithouturlroot.DOL_URL_ROOT; // This is to use external domain name found into config file
|
|
//$urlwithroot=DOL_MAIN_URL_ROOT; // This is to use same domain name than current
|
|
|
|
// Define link to login card
|
|
|
|
$urlback = $_SERVER["REQUEST_URI"];
|
|
$topic = '['.$appli.'] '.$companylangs->transnoentitiesnoconv("NewOnlinePaymentReceived");
|
|
$content = "";
|
|
if (array_key_exists('MEM', $tmptag)) {
|
|
$url = $urlwithroot."/adherents/subscription.php?rowid=".((int) $tmptag['MEM']);
|
|
$content .= '<strong>'.$companylangs->trans("PaymentSubscription")."</strong><br><br>\n";
|
|
$content .= $companylangs->trans("MemberId").': <strong>'.$tmptag['MEM']."</strong><br>\n";
|
|
$content .= $companylangs->trans("Link").': <a href="'.$url.'">'.$url.'</a>'."<br>\n";
|
|
} elseif (array_key_exists('INV', $tmptag)) {
|
|
$url = $urlwithroot."/compta/facture/card.php?id=".((int) $tmptag['INV']);
|
|
$content .= '<strong>'.$companylangs->trans("Payment")."</strong><br><br>\n";
|
|
$content .= $companylangs->trans("InvoiceId").': <strong>'.$tmptag['INV']."</strong><br>\n";
|
|
//$content.=$companylangs->trans("ThirdPartyId").': '.$tmptag['CUS']."<br>\n";
|
|
$content .= $companylangs->trans("Link").': <a href="'.$url.'">'.$url.'</a>'."<br>\n";
|
|
} else {
|
|
$content .= $companylangs->transnoentitiesnoconv("NewOnlinePaymentReceived")."<br>\n";
|
|
}
|
|
$content .= $companylangs->transnoentities("PostActionAfterPayment").' : ';
|
|
if ($ispostactionok > 0) {
|
|
//$topic.=' ('.$companylangs->transnoentitiesnoconv("Status").' '.$companylangs->transnoentitiesnoconv("OK").')';
|
|
$content .= '<span style="color: green">'.$companylangs->transnoentitiesnoconv("OK").'</span>';
|
|
} elseif ($ispostactionok == 0) {
|
|
$content .= $companylangs->transnoentitiesnoconv("None");
|
|
} else {
|
|
$topic .= ($ispostactionok ? '' : ' ('.$companylangs->trans("WarningPostActionErrorAfterPayment").')');
|
|
$content .= '<span class="star">'.$companylangs->transnoentitiesnoconv("Error").'</span>';
|
|
}
|
|
$content .= '<br>'."\n";
|
|
foreach ($postactionmessages as $postactionmessage) {
|
|
$content .= ' * '.$postactionmessage.'<br>'."\n";
|
|
}
|
|
if ($ispostactionok < 0) {
|
|
$content .= $langs->transnoentities("ARollbackWasPerformedOnPostActions");
|
|
}
|
|
$content .= '<br>'."\n";
|
|
|
|
$content .= "<br>\n";
|
|
$content .= '<u>'.$companylangs->transnoentitiesnoconv("TechnicalInformation").":</u><br>\n";
|
|
$content .= $companylangs->transnoentitiesnoconv("OnlinePaymentSystem").': <strong>'.$paymentmethod."</strong><br>\n";
|
|
$content .= $companylangs->transnoentitiesnoconv("ThisIsTransactionId").': <strong>'.$TRANSACTIONID."</strong><br>\n";
|
|
$content .= $companylangs->transnoentitiesnoconv("ReturnURLAfterPayment").': '.$urlback."<br>\n";
|
|
$content .= "<br>\n";
|
|
$content .= "tag=".$fulltag."<br>\ntoken=".$onlinetoken."<br>\npaymentType=".$paymentType."<br>\ncurrencycodeType=".$currencyCodeType."<br>\npayerId=".$payerID."<br>\nipaddress=".$ipaddress."<br>\nFinalPaymentAmt=".$FinalPaymentAmt."<br>\n";
|
|
|
|
if (!empty($ErrorCode)) {
|
|
$content .= "ErrorCode = ".$ErrorCode."<br>\n";
|
|
}
|
|
if (!empty($ErrorShortMsg)) {
|
|
$content .= "ErrorShortMsg = ".$ErrorShortMsg."<br>\n";
|
|
}
|
|
if (!empty($ErrorLongMsg)) {
|
|
$content .= "ErrorLongMsg = ".$ErrorLongMsg."<br>\n";
|
|
}
|
|
if (!empty($ErrorSeverityCode)) {
|
|
$content .= "ErrorSeverityCode = ".$ErrorSeverityCode."<br>\n";
|
|
}
|
|
|
|
|
|
$ishtml = dol_textishtml($content); // May contain urls
|
|
$trackid = '';
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
|
|
$mailfile = new CMailFile($topic, $sendto, $from, $content, array(), array(), array(), '', '', 0, $ishtml ? 1 : 0, '', '', $trackid, '', 'standard');
|
|
|
|
$result = $mailfile->sendfile();
|
|
if ($result) {
|
|
dol_syslog("EMail sent to ".$sendto, LOG_DEBUG, 0, '_payment');
|
|
//dol_syslog("EMail sent to ".$sendto, LOG_DEBUG, 0);
|
|
} else {
|
|
dol_syslog("Failed to send EMail to ".$sendto, LOG_ERR, 0, '_payment');
|
|
//dol_syslog("Failed to send EMail to ".$sendto, LOG_ERR, 0);
|
|
}
|
|
}
|
|
} else {
|
|
$sendemail = getDolGlobalString('ONLINE_PAYMENT_SENDEMAIL');
|
|
|
|
// Get on url call
|
|
$onlinetoken = empty($PAYPALTOKEN) ? $_SESSION['onlinetoken'] : $PAYPALTOKEN;
|
|
$payerID = empty($PAYPALPAYERID) ? $_SESSION['payerID'] : $PAYPALPAYERID;
|
|
// Set by newpayment.php
|
|
$paymentType = $_SESSION['PaymentType'];
|
|
$currencyCodeType = $_SESSION['currencyCodeType'];
|
|
$FinalPaymentAmt = $_SESSION["FinalPaymentAmt"];
|
|
|
|
if (is_object($object) && method_exists($object, 'call_trigger')) {
|
|
// Call trigger
|
|
$result = $object->call_trigger('PAYMENTONLINE_PAYMENT_KO', $user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
}
|
|
// End call triggers
|
|
}
|
|
|
|
// Send warning of error to administrator
|
|
if ($sendemail) {
|
|
$companylangs = new Translate('', $conf);
|
|
$companylangs->setDefaultLang($mysoc->default_lang);
|
|
$companylangs->loadLangs(array('main', 'members', 'bills', 'paypal', 'paybox', 'stripe'));
|
|
|
|
$sendto = $sendemail;
|
|
$from = getDolGlobalString('MAILING_EMAIL_FROM') ? $conf->global->MAILING_EMAIL_FROM : getDolGlobalString("MAIN_MAIL_EMAIL_FROM");
|
|
// Define $urlwithroot
|
|
$urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
|
|
$urlwithroot = $urlwithouturlroot.DOL_URL_ROOT; // This is to use external domain name found into config file
|
|
//$urlwithroot=DOL_MAIN_URL_ROOT; // This is to use same domain name than current
|
|
|
|
$urlback = $_SERVER["REQUEST_URI"];
|
|
$topic = '['.$appli.'] '.$companylangs->transnoentitiesnoconv("ValidationOfPaymentFailed");
|
|
$content = "";
|
|
$content .= '<span style="color: orange">'.$companylangs->transnoentitiesnoconv("PaymentSystemConfirmPaymentPageWasCalledButFailed")."</span>\n";
|
|
|
|
$content .= "<br><br>\n";
|
|
$content .= '<u>'.$companylangs->transnoentitiesnoconv("TechnicalInformation").":</u><br>\n";
|
|
$content .= $companylangs->transnoentitiesnoconv("OnlinePaymentSystem").': <strong>'.$paymentmethod."</strong><br>\n";
|
|
$content .= $companylangs->transnoentitiesnoconv("ReturnURLAfterPayment").': '.$urlback."<br>\n";
|
|
$content .= "<br>\n";
|
|
$content .= "tag=".$fulltag."<br>\ntoken=".$onlinetoken."<br>\npaymentType=".$paymentType."<br>\ncurrencycodeType=".$currencyCodeType."<br>\npayerId=".$payerID."<br>\nipaddress=".$ipaddress."<br>\nFinalPaymentAmt=".$FinalPaymentAmt."<br>\n";
|
|
|
|
|
|
$ishtml = dol_textishtml($content); // May contain urls
|
|
$trackid = '';
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';
|
|
$mailfile = new CMailFile($topic, $sendto, $from, $content, array(), array(), array(), '', '', 0, $ishtml ? 1 : 0, '', '', $trackid, '', 'standard');
|
|
|
|
$result = $mailfile->sendfile();
|
|
if ($result) {
|
|
dol_syslog("EMail sent to ".$sendto, LOG_DEBUG, 0, '_payment');
|
|
} else {
|
|
dol_syslog("Failed to send EMail to ".$sendto, LOG_ERR, 0, '_payment');
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// Clean session variables to avoid duplicate actions if post is resent
|
|
unset($_SESSION["FinalPaymentAmt"]);
|
|
unset($_SESSION["TRANSACTIONID"]);
|
|
|
|
|
|
// Close page content id="dolpaymentdiv"
|
|
if (empty($doactionsthenredirect)) {
|
|
print "\n</div>\n";
|
|
|
|
print "<!-- Info for payment: FinalPaymentAmt=".dol_escape_htmltag($FinalPaymentAmt)." paymentTypeId=".dol_escape_htmltag($paymentTypeId)." currencyCodeType=".dol_escape_htmltag($currencyCodeType)." -->\n";
|
|
}
|
|
|
|
|
|
// Show footer
|
|
if (empty($doactionsthenredirect)) {
|
|
htmlPrintOnlineFooter($mysoc, $langs, 0, $suffix);
|
|
|
|
llxFooter('', 'public');
|
|
}
|
|
|
|
|
|
$db->close();
|
|
|
|
|
|
// If option to do a redirect somewhere else.
|
|
if (!empty($doactionsthenredirect)) {
|
|
if ($ispaymentok) {
|
|
// Redirect to a success page
|
|
// Paymentok page must be created for the specific website
|
|
$ext_urlok = DOL_URL_ROOT.'/public/website/index.php?website='.urlencode($ws).'&pageref=paymentok&fulltag='.$FULLTAG;
|
|
print "<script>window.top.location.href = '".dol_escape_js($ext_urlok) ."';</script>";
|
|
} else {
|
|
// Redirect to an error page
|
|
// Paymentko page must be created for the specific website
|
|
$ext_urlko = DOL_URL_ROOT.'/public/website/index.php?website='.urlencode($ws).'&pageref=paymentko&fulltag='.$FULLTAG;
|
|
print "<script>window.top.location.href = '".dol_escape_js($ext_urlko)."';</script>";
|
|
}
|
|
}
|