mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2026-02-26 14:46:16 +01:00
63b2fff4a7
* Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored * Qual: Ignore suspicious param positions # Qual: Ignore suspicious param positions Add annotations to ignore false positives about suspicious parameter positions. The cases that require more analysis or may be actual bad parameters positions are not ignored
2302 lines
92 KiB
PHP
2302 lines
92 KiB
PHP
<?php
|
|
/* Copyright (C) 2002-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
|
|
* Copyright (C) 2004-2022 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
|
|
* Copyright (C) 2013 Peter Fontaine <contact@peterfontaine.fr>
|
|
* Copyright (C) 2015-2016 Marcos García <marcosgdf@gmail.com>
|
|
* Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
|
|
* Copyright (C) 2018-2023 Thibault FOUCART <support@ptibogxiv.net>
|
|
* Copyright (C) 2021 Alexandre Spangaro <aspangaro@open-dsi.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/societe/paymentmodes.php
|
|
* \ingroup societe
|
|
* \brief Tab of payment modes for the customer
|
|
*/
|
|
|
|
|
|
// Load Dolibarr environment
|
|
require '../main.inc.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/societe/class/companybankaccount.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/societe/class/companypaymentmode.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/societe/class/societeaccount.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
|
|
require_once DOL_DOCUMENT_ROOT.'/stripe/class/stripe.class.php';
|
|
|
|
|
|
// Load translation files required by the page
|
|
$langs->loadLangs(array("companies", "commercial", "banks", "bills", 'paypal', 'stripe', 'withdrawals'));
|
|
|
|
|
|
// Get parameters
|
|
$action = GETPOST("action", 'alpha', 3);
|
|
$cancel = GETPOST('cancel', 'alpha');
|
|
$backtopage = GETPOST('backtopage');
|
|
|
|
$id = GETPOSTINT("id");
|
|
$source = GETPOST("source", "alpha"); // source can be a source or a paymentmode
|
|
$ribid = GETPOSTINT("ribid");
|
|
|
|
// Security check
|
|
$socid = GETPOSTINT("socid");
|
|
if ($user->socid) {
|
|
$socid = $user->socid;
|
|
}
|
|
|
|
// Initialize objects
|
|
$object = new Societe($db);
|
|
$object->fetch($socid);
|
|
|
|
$companybankaccount = new CompanyBankAccount($db);
|
|
$companypaymentmode = new CompanyPaymentMode($db);
|
|
$prelevement = new BonPrelevement($db);
|
|
|
|
$extrafields = new ExtraFields($db);
|
|
|
|
// fetch optionals attributes and labels
|
|
$extrafields->fetch_name_optionals_label($object->table_element);
|
|
|
|
// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
|
|
$hookmanager->initHooks(array('thirdpartybancard', 'globalcard'));
|
|
|
|
// Permissions
|
|
$permissiontoread = $user->hasRight('societe', 'lire');
|
|
$permissiontoadd = $user->hasRight('societe', 'creer'); // Used by the include of actions_addupdatedelete.inc.php and actions_builddoc.inc.php
|
|
|
|
$permissiontoaddupdatepaymentinformation = ((!getDolGlobalString('MAIN_USE_ADVANCED_PERMS') && $permissiontoadd) || (getDolGlobalString('MAIN_USE_ADVANCED_PERMS') && $user->hasRight('societe', 'thirdparty_paymentinformation_advance', 'write')));
|
|
|
|
|
|
// Check permission on company
|
|
$result = restrictedArea($user, 'societe', '', '');
|
|
|
|
|
|
// Init Stripe objects
|
|
if (isModEnabled('stripe')) {
|
|
$service = 'StripeTest';
|
|
$servicestatus = 0;
|
|
if (getDolGlobalString('STRIPE_LIVE') && !GETPOST('forcesandbox', 'alpha')) {
|
|
$service = 'StripeLive';
|
|
$servicestatus = 1;
|
|
}
|
|
|
|
// Force to use the correct API key
|
|
global $stripearrayofkeysbyenv;
|
|
$site_account = $stripearrayofkeysbyenv[$servicestatus]['publishable_key'];
|
|
|
|
$stripe = new Stripe($db);
|
|
$stripeacc = $stripe->getStripeAccount($service); // Get Stripe OAuth connect account (no remote access to Stripe here)
|
|
$stripecu = $stripe->getStripeCustomerAccount($object->id, $servicestatus, $site_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
|
|
}
|
|
|
|
$error = 0;
|
|
|
|
|
|
/*
|
|
* Actions
|
|
*/
|
|
|
|
if ($cancel) {
|
|
$action = '';
|
|
}
|
|
|
|
$morehtmlright = '';
|
|
$parameters = array('id' => $socid);
|
|
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
|
|
if ($reshook < 0) {
|
|
setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
|
|
}
|
|
|
|
if (empty($reshook)) {
|
|
if ($cancel) {
|
|
$action = '';
|
|
if (!empty($backtopage)) {
|
|
header("Location: ".$backtopage);
|
|
exit;
|
|
}
|
|
}
|
|
|
|
if ($action == 'update') {
|
|
// Update the bank account
|
|
if (!GETPOST('label', 'alpha') || !GETPOST('bank', 'alpha')) {
|
|
if (!GETPOST('label', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
|
|
}
|
|
if (!GETPOST('bank', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BankName")), null, 'errors');
|
|
}
|
|
$action = 'edit';
|
|
$error++;
|
|
}
|
|
$companybankaccount->fetch($id);
|
|
if ($companybankaccount->needIBAN() == 1) {
|
|
if (!GETPOST('iban')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("IBAN")), null, 'errors');
|
|
$action = 'edit';
|
|
$error++;
|
|
}
|
|
if (!GETPOST('bic')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BIC")), null, 'errors');
|
|
$action = 'edit';
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$companybankaccount->oldcopy = dol_clone($companybankaccount);
|
|
|
|
$companybankaccount->socid = $object->id;
|
|
|
|
$companybankaccount->bank = GETPOST('bank', 'alpha');
|
|
$companybankaccount->label = GETPOST('label', 'alpha');
|
|
$companybankaccount->courant = GETPOSTINT('courant');
|
|
$companybankaccount->clos = GETPOSTINT('clos');
|
|
$companybankaccount->code_banque = GETPOST('code_banque', 'alpha');
|
|
$companybankaccount->code_guichet = GETPOST('code_guichet', 'alpha');
|
|
$companybankaccount->number = GETPOST('number', 'alpha');
|
|
$companybankaccount->cle_rib = GETPOST('cle_rib', 'alpha');
|
|
$companybankaccount->bic = GETPOST('bic', 'alpha');
|
|
$companybankaccount->iban = GETPOST('iban', 'alpha');
|
|
|
|
$companybankaccount->domiciliation = GETPOST('address', 'alpha');
|
|
$companybankaccount->address = GETPOST('address', 'alpha');
|
|
|
|
$companybankaccount->proprio = GETPOST('proprio', 'alpha');
|
|
$companybankaccount->owner_address = GETPOST('owner_address', 'alpha');
|
|
$companybankaccount->frstrecur = GETPOST('frstrecur', 'alpha');
|
|
$companybankaccount->rum = GETPOST('rum', 'alpha');
|
|
$companybankaccount->date_rum = dol_mktime(0, 0, 0, GETPOST('date_rummonth'), GETPOST('date_rumday'), GETPOST('date_rumyear'));
|
|
if (empty($companybankaccount->rum)) {
|
|
$companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, $companybankaccount->id);
|
|
}
|
|
|
|
if (GETPOST('stripe_card_ref', 'alpha') && GETPOST('stripe_card_ref', 'alpha') != $companypaymentmode->stripe_card_ref) {
|
|
// If we set a stripe value that is different than previous one, we also set the stripe account
|
|
$companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
|
|
}
|
|
$companybankaccount->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
|
|
|
|
$result = $companybankaccount->update($user);
|
|
if ($result <= 0) {
|
|
// Display error message and get back to edit mode
|
|
setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
|
|
$action = 'edit';
|
|
} else {
|
|
// If this account is the default bank account, we disable others
|
|
if ($companybankaccount->default_rib) {
|
|
$companybankaccount->setAsDefault($id); // This will make sure there is only one default rib
|
|
}
|
|
|
|
if ($companypaymentmode->oldcopy->stripe_card_ref != $companypaymentmode->stripe_card_ref) {
|
|
if ($companybankaccount->oldcopy->iban != $companybankaccount->iban) {
|
|
// TODO If we modified the iban, we must also update the pm_ on Stripe side, or break the link completely ?
|
|
}
|
|
}
|
|
|
|
$url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($action == 'updatecard') {
|
|
// Update credit card
|
|
if (!GETPOST('label', 'alpha') || !GETPOST('proprio', 'alpha') || !GETPOST('exp_date_month', 'alpha') || !GETPOST('exp_date_year', 'alpha')) {
|
|
if (!GETPOST('label', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
|
|
}
|
|
if (!GETPOST('proprio', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("NameOnCard")), null, 'errors');
|
|
}
|
|
//if (!GETPOST('cardnumber', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CardNumber")), null, 'errors');
|
|
if (!(GETPOST('exp_date_month', 'alpha') > 0) || !(GETPOST('exp_date_year', 'alpha') > 0)) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpiryDate")), null, 'errors');
|
|
}
|
|
//if (!GETPOST('cvn', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CVN")), null, 'errors');
|
|
$action = 'createcard';
|
|
$error++;
|
|
}
|
|
|
|
$companypaymentmode->fetch($id);
|
|
if (!$error) {
|
|
$companybankaccount->oldcopy = dol_clone($companybankaccount);
|
|
|
|
$companypaymentmode->fk_soc = $object->id;
|
|
|
|
$companypaymentmode->bank = GETPOST('bank', 'alpha');
|
|
$companypaymentmode->label = GETPOST('label', 'alpha');
|
|
$companypaymentmode->number = GETPOST('cardnumber', 'alpha');
|
|
$companypaymentmode->last_four = substr(GETPOST('cardnumber', 'alpha'), -4);
|
|
$companypaymentmode->proprio = GETPOST('proprio', 'alpha');
|
|
$companypaymentmode->exp_date_month = GETPOSTINT('exp_date_month');
|
|
$companypaymentmode->exp_date_year = GETPOSTINT('exp_date_year');
|
|
$companypaymentmode->cvn = GETPOST('cvn', 'alpha');
|
|
$companypaymentmode->country_code = $object->country_code;
|
|
|
|
if (GETPOST('stripe_card_ref', 'alpha') && GETPOST('stripe_card_ref', 'alpha') != $companypaymentmode->stripe_card_ref) {
|
|
// If we set a stripe value that is different than previous one, we also set the stripe account
|
|
$companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
|
|
}
|
|
$companypaymentmode->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
|
|
|
|
$result = $companypaymentmode->update($user);
|
|
if (!$result) {
|
|
setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
|
|
} else {
|
|
// If this account is the default bank account, we disable others
|
|
if ($companypaymentmode->default_rib) {
|
|
$companypaymentmode->setAsDefault($id); // This will make sure there is only one default rib
|
|
}
|
|
|
|
if ($companypaymentmode->oldcopy->stripe_card_ref != $companypaymentmode->stripe_card_ref) {
|
|
if ($companybankaccount->oldcopy->number != $companybankaccount->number) {
|
|
// TODO If we modified the card, we must also update the pm_ on Stripe side, or break the link completely ?
|
|
}
|
|
}
|
|
|
|
$url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Add bank account
|
|
if ($action == 'add') {
|
|
$error = 0;
|
|
|
|
if (!GETPOST('label', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
|
|
$action = 'create';
|
|
$error++;
|
|
}
|
|
|
|
if (!$error) {
|
|
// Ajout
|
|
$companybankaccount = new CompanyBankAccount($db);
|
|
|
|
$companybankaccount->socid = $object->id;
|
|
|
|
$companybankaccount->fetch_thirdparty();
|
|
|
|
$companybankaccount->bank = GETPOST('bank', 'alpha');
|
|
$companybankaccount->label = GETPOST('label', 'alpha');
|
|
$companybankaccount->courant = GETPOSTINT('courant');
|
|
$companybankaccount->clos = GETPOSTINT('clos');
|
|
$companybankaccount->code_banque = GETPOST('code_banque', 'alpha');
|
|
$companybankaccount->code_guichet = GETPOST('code_guichet', 'alpha');
|
|
$companybankaccount->number = GETPOST('number', 'alpha');
|
|
$companybankaccount->cle_rib = GETPOST('cle_rib', 'alpha');
|
|
$companybankaccount->bic = GETPOST('bic', 'alpha');
|
|
$companybankaccount->iban = GETPOST('iban', 'alpha');
|
|
|
|
$companybankaccount->domiciliation = GETPOST('address', 'alpha');
|
|
$companybankaccount->address = GETPOST('address', 'alpha');
|
|
|
|
$companybankaccount->proprio = GETPOST('proprio', 'alpha');
|
|
$companybankaccount->owner_address = GETPOST('owner_address', 'alpha');
|
|
$companybankaccount->frstrecur = GETPOST('frstrecur', 'alpha');
|
|
$companybankaccount->rum = GETPOST('rum', 'alpha');
|
|
$companybankaccount->date_rum = dol_mktime(0, 0, 0, GETPOSTINT('date_rummonth'), GETPOSTINT('date_rumday'), GETPOSTINT('date_rumyear'));
|
|
$companybankaccount->datec = dol_now();
|
|
$companybankaccount->status = 1;
|
|
|
|
$companybankaccount->bank = trim($companybankaccount->bank);
|
|
if (empty($companybankaccount->bank) && !empty($companybankaccount->thirdparty)) {
|
|
$companybankaccount->bank = $langs->trans("Bank").' '.$companybankaccount->thirdparty->name;
|
|
}
|
|
$companybankaccount->bic = str_replace(' ', '', $companybankaccount->bic);
|
|
|
|
$db->begin();
|
|
|
|
// This test can be done only once properties were set
|
|
if ($companybankaccount->needIBAN() == 1) {
|
|
if (!GETPOST('iban')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("IBAN")), null, 'errors');
|
|
$action = 'create';
|
|
$error++;
|
|
}
|
|
if (!GETPOST('bic')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BIC")), null, 'errors');
|
|
$action = 'create';
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$result = $companybankaccount->create($user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
|
|
$action = 'create'; // Force chargement page création
|
|
}
|
|
|
|
if (empty($companybankaccount->rum)) {
|
|
$companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, $companybankaccount->id);
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$result = $companybankaccount->update($user); // This will set the UMR number.
|
|
if ($result < 0) {
|
|
$error++;
|
|
setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
|
|
$action = 'create';
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
|
|
$url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
}
|
|
}
|
|
|
|
// Add credit card
|
|
if ($action == 'addcard') {
|
|
$error = 0;
|
|
|
|
if (!GETPOST('label', 'alpha') || !GETPOST('proprio', 'alpha') || !GETPOST('exp_date_month', 'alpha') || !GETPOST('exp_date_year', 'alpha')) {
|
|
if (!GETPOST('label', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
|
|
}
|
|
if (!GETPOST('proprio', 'alpha')) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("NameOnCard")), null, 'errors');
|
|
}
|
|
//if (!GETPOST('cardnumber', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CardNumber")), null, 'errors');
|
|
if (!(GETPOST('exp_date_month', 'alpha') > 0) || !(GETPOST('exp_date_year', 'alpha') > 0)) {
|
|
setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpiryDate")), null, 'errors');
|
|
}
|
|
//if (!GETPOST('cvn', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CVN")), null, 'errors');
|
|
$action = 'createcard';
|
|
$error++;
|
|
}
|
|
|
|
if (!$error) {
|
|
// Ajout
|
|
$companypaymentmode = new CompanyPaymentMode($db);
|
|
|
|
$companypaymentmode->fk_soc = $object->id;
|
|
$companypaymentmode->bank = GETPOST('bank', 'alpha');
|
|
$companypaymentmode->label = GETPOST('label', 'alpha');
|
|
$companypaymentmode->number = GETPOST('cardnumber', 'alpha');
|
|
$companypaymentmode->last_four = substr(GETPOST('cardnumber', 'alpha'), -4);
|
|
$companypaymentmode->proprio = GETPOST('proprio', 'alpha');
|
|
$companypaymentmode->exp_date_month = GETPOSTINT('exp_date_month');
|
|
$companypaymentmode->exp_date_year = GETPOSTINT('exp_date_year');
|
|
$companypaymentmode->cvn = GETPOST('cvn', 'alpha');
|
|
$companypaymentmode->datec = dol_now();
|
|
$companypaymentmode->default_rib = 0;
|
|
$companypaymentmode->type = 'card';
|
|
$companypaymentmode->country_code = $object->country_code;
|
|
$companypaymentmode->status = $servicestatus;
|
|
|
|
if (GETPOST('stripe_card_ref', 'alpha')) {
|
|
// If we set a stripe value, we also set the stripe account
|
|
$companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
|
|
}
|
|
$companypaymentmode->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
|
|
|
|
$db->begin();
|
|
|
|
if (!$error) {
|
|
$result = $companypaymentmode->create($user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
|
|
$action = 'createcard'; // Force chargement page création
|
|
}
|
|
}
|
|
|
|
if (!$error) {
|
|
$db->commit();
|
|
|
|
$url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($action == 'setasbankdefault' && GETPOSTINT('ribid') > 0) {
|
|
$companybankaccount = new CompanyBankAccount($db);
|
|
$res = $companybankaccount->setAsDefault(GETPOSTINT('ribid'));
|
|
if ($res) {
|
|
$url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} else {
|
|
setEventMessages($db->lasterror, null, 'errors');
|
|
}
|
|
}
|
|
|
|
if ($action == 'confirm_deletecard' && GETPOST('confirm', 'alpha') == 'yes') {
|
|
// Delete the credi card
|
|
$companypaymentmode = new CompanyPaymentMode($db);
|
|
if ($companypaymentmode->fetch($ribid ? $ribid : $id)) {
|
|
// TODO This is currently done at bottom of page instead of asking confirm
|
|
/*if ($companypaymentmode->stripe_card_ref && preg_match('/pm_/', $companypaymentmode->stripe_card_ref))
|
|
{
|
|
$payment_method = \Stripe\PaymentMethod::retrieve($companypaymentmode->stripe_card_ref);
|
|
if ($payment_method)
|
|
{
|
|
$payment_method->detach();
|
|
}
|
|
}*/
|
|
|
|
$result = $companypaymentmode->delete($user);
|
|
if ($result > 0) {
|
|
$url = $_SERVER['PHP_SELF']."?socid=".$object->id;
|
|
|
|
header('Location: '.$url);
|
|
exit;
|
|
} else {
|
|
setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
|
|
}
|
|
} else {
|
|
setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
|
|
}
|
|
}
|
|
if ($action == 'confirm_deletebank' && GETPOST('confirm', 'alpha') == 'yes') {
|
|
// Delete the bank account
|
|
$companybankaccount = new CompanyBankAccount($db);
|
|
if ($companybankaccount->fetch($ribid ? $ribid : $id) > 0) {
|
|
// TODO This is currently done at bottom of page instead of asking confirm
|
|
/*if ($companypaymentmode->stripe_card_ref && preg_match('/pm_/', $companypaymentmode->stripe_card_ref))
|
|
{
|
|
$payment_method = \Stripe\PaymentMethod::retrieve($companypaymentmode->stripe_card_ref);
|
|
if ($payment_method)
|
|
{
|
|
$payment_method->detach();
|
|
}
|
|
}*/
|
|
|
|
$result = $companybankaccount->delete($user);
|
|
|
|
if ($result > 0) {
|
|
$url = $_SERVER['PHP_SELF']."?socid=".$object->id;
|
|
|
|
header('Location: '.$url);
|
|
exit;
|
|
} else {
|
|
setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
|
|
}
|
|
} else {
|
|
setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
|
|
}
|
|
}
|
|
|
|
$savid = $id;
|
|
|
|
// Actions to build doc
|
|
if ($action == 'builddocrib') {
|
|
$action = 'builddoc';
|
|
$moreparams = array(
|
|
'use_companybankid' => GETPOST('companybankid'),
|
|
'force_dir_output' => $conf->societe->multidir_output[$object->entity].'/'.dol_sanitizeFileName($object->id)
|
|
);
|
|
$_POST['lang_id'] = GETPOSTINT('lang_idrib'.GETPOSTINT('companybankid'));
|
|
$_POST['model'] = GETPOSTINT('modelrib'.GETPOSTINT('companybankid'));
|
|
}
|
|
|
|
$id = $socid;
|
|
$upload_dir = $conf->societe->multidir_output[$object->entity];
|
|
include DOL_DOCUMENT_ROOT.'/core/actions_builddoc.inc.php';
|
|
|
|
$id = $savid;
|
|
|
|
// Action for stripe
|
|
if (isModEnabled('stripe') && class_exists('Stripe')) {
|
|
if ($action == 'synccustomertostripe' || $action == 'synccustomertostripetest') {
|
|
if ($object->client == 0) {
|
|
$error++;
|
|
setEventMessages('ThisThirdpartyIsNotACustomer', null, 'errors');
|
|
} else {
|
|
if ($action == 'synccustomertostripe') {
|
|
$tmpservicestatus = 1;
|
|
$tmpservice = 'StripeLive';
|
|
} else {
|
|
$tmpservicestatus = 0;
|
|
$tmpservice = 'StripeTest';
|
|
}
|
|
|
|
$stripe = new Stripe($db);
|
|
$tmpstripeacc = $stripe->getStripeAccount($tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
|
|
|
|
// Creation of Stripe customer + update of societe_account
|
|
$tmpcu = $stripe->customerStripe($object, $tmpstripeacc, $tmpservicestatus, 1);
|
|
|
|
if (empty($tmpcu)) {
|
|
$error++;
|
|
setEventMessages($stripe->error, $stripe->errors, 'errors');
|
|
} else {
|
|
if ($tmpservicestatus == $servicestatus) {
|
|
$stripecu = $tmpcu->id;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ($action == 'synccardtostripe') {
|
|
// Create the credit card on current Stripe env
|
|
$companypaymentmode = new CompanyPaymentMode($db);
|
|
$companypaymentmode->fetch($id);
|
|
|
|
if ($companypaymentmode->type != 'card') {
|
|
$error++;
|
|
setEventMessages('ThisPaymentModeIsNotACard', null, 'errors');
|
|
} else {
|
|
// Get the Stripe customer
|
|
$cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
if (!$cu) {
|
|
$error++;
|
|
setEventMessages($stripe->error, $stripe->errors, 'errors');
|
|
}
|
|
|
|
if (!$error) {
|
|
// Creation of Stripe card + update of llx_societe_rib
|
|
// Note that with the new Stripe API, option to create a card is no more available, instead an error message will be returned to
|
|
// ask to create the crdit card from Stripe backoffice.
|
|
$card = $stripe->cardStripe($cu, $companypaymentmode, $stripeacc, $servicestatus, 1);
|
|
if (!$card) {
|
|
$error++;
|
|
setEventMessages($stripe->error, $stripe->errors, 'errors');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ($action == 'syncsepatostripe') {
|
|
// Create the bank account on current Stripe env
|
|
$companypaymentmode = new CompanyPaymentMode($db); // Get record in llx_societe_rib
|
|
$companypaymentmode->fetch($id);
|
|
|
|
if ($companypaymentmode->type != 'ban') {
|
|
$error++;
|
|
$langs->load("errors");
|
|
setEventMessages('ThisPaymentModeIsNotABan', null, 'errors');
|
|
} else {
|
|
// Get the Stripe customer
|
|
$cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
// print json_encode($cu);
|
|
if (empty($cu)) {
|
|
$error++;
|
|
$langs->load("errors");
|
|
setEventMessages($langs->trans("ErrorStripeCustomerNotFoundCreateFirst"), null, 'errors');
|
|
}
|
|
if (!$error) {
|
|
// Creation of Stripe SEPA + update of llx_societe_rib
|
|
$card = $stripe->sepaStripe($cu, $companypaymentmode, $stripeacc, $servicestatus, 1);
|
|
if (!$card) {
|
|
$error++;
|
|
setEventMessages($stripe->error, $stripe->errors, 'errors');
|
|
} else {
|
|
setEventMessages("", array("Bank Account on Stripe", "BAN is now linked to the Stripe customer account !"));
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// Set the customer Stripe account (for Live or Test env)
|
|
if ($action == 'setkey_account' || $action == 'setkey_accounttest') {
|
|
$error = 0;
|
|
|
|
$tmpservice = 'StripeTest';
|
|
$tmpservicestatus = 0;
|
|
if ($action == 'setkey_account') {
|
|
$tmpservice = 'StripeLive';
|
|
$tmpservicestatus = 1;
|
|
}
|
|
|
|
// Force to use the correct API key
|
|
global $stripearrayofkeysbyenv;
|
|
$tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
|
|
|
|
if ($action == 'setkey_account') {
|
|
$newcu = GETPOST('key_account', 'alpha');
|
|
} else {
|
|
$newcu = GETPOST('key_accounttest', 'alpha');
|
|
}
|
|
|
|
$db->begin();
|
|
|
|
if (empty($newcu)) {
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."societe_account WHERE site = 'stripe' AND (site_account IS NULL or site_account = '' or site_account = '".$db->escape($tmpsite_account)."') AND fk_soc = ".$object->id." AND status = ".((int) $tmpservicestatus)." AND entity = ".$conf->entity;
|
|
} else {
|
|
$sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX."societe_account";
|
|
$sql .= " WHERE site = 'stripe' AND (site_account IS NULL or site_account = '' or site_account = '".$db->escape($tmpsite_account)."') AND fk_soc = ".((int) $object->id)." AND status = ".((int) $tmpservicestatus)." AND entity = ".$conf->entity; // Keep = here for entity. Only 1 record must be modified !
|
|
}
|
|
|
|
$resql = $db->query($sql);
|
|
$num = $db->num_rows($resql); // Note: $num is always 0 on an update and delete, it is defined for select only.
|
|
if (!empty($newcu)) {
|
|
if (empty($num)) {
|
|
$societeaccount = new SocieteAccount($db);
|
|
$societeaccount->fk_soc = $object->id;
|
|
$societeaccount->login = '';
|
|
$societeaccount->pass_encoding = '';
|
|
$societeaccount->site = 'stripe';
|
|
$societeaccount->status = $servicestatus;
|
|
$societeaccount->key_account = $newcu;
|
|
$societeaccount->site_account = $tmpsite_account;
|
|
$result = $societeaccount->create($user);
|
|
if ($result < 0) {
|
|
$error++;
|
|
}
|
|
} else {
|
|
$sql = 'UPDATE '.MAIN_DB_PREFIX."societe_account";
|
|
$sql .= " SET key_account = '".$db->escape($newcu)."', site_account = '".$db->escape($tmpsite_account)."'";
|
|
$sql .= " WHERE site = 'stripe' AND (site_account IS NULL or site_account = '' or site_account = '".$db->escape($tmpsite_account)."') AND fk_soc = ".((int) $object->id)." AND status = ".((int) $tmpservicestatus)." AND entity = ".$conf->entity; // Keep = here for entity. Only 1 record must be modified !
|
|
$resql = $db->query($sql);
|
|
}
|
|
}
|
|
//var_dump($sql);
|
|
//var_dump($newcu);
|
|
//var_dump($num); exit;
|
|
|
|
if (!$error) {
|
|
if ($tmpservicestatus == $servicestatus) {
|
|
$stripecu = $newcu;
|
|
}
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
}
|
|
|
|
// Set the supplier Stripe account (for Live or Test env)
|
|
if ($action == 'setkey_account_supplier' || $action == 'setkey_account_suppliertest') {
|
|
$error = 0;
|
|
|
|
$tmpservice = 'StripeTest';
|
|
$tmpservicestatus = 0;
|
|
if ($action == 'setkey_account_supplier') {
|
|
$tmpservice = 'StripeLive';
|
|
$tmpservicestatus = 1;
|
|
}
|
|
|
|
// Force to use the correct API key
|
|
global $stripearrayofkeysbyenv;
|
|
$tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
|
|
|
|
if ($action == 'setkey_account_supplier') {
|
|
$newsup = GETPOST('key_account_supplier', 'alpha');
|
|
} else {
|
|
$newsup = GETPOST('key_account_suppliertest', 'alpha');
|
|
}
|
|
|
|
$db->begin();
|
|
|
|
if (empty($newsup)) {
|
|
$sql = "DELETE FROM ".MAIN_DB_PREFIX."oauth_token WHERE fk_soc = ".$object->id." AND service = '".$db->escape($tmpservice)."' AND entity = ".$conf->entity;
|
|
// TODO Add site and site_account on oauth_token table
|
|
//$sql = "DELETE FROM ".MAIN_DB_PREFIX."oauth_token WHERE site = 'stripe' AND (site_account IS NULL or site_account = '".$db->escape($site_account)."') AND fk_soc = ".((int) $object->id)." AND service = '".$db->escape($service)."' AND entity = ".$conf->entity;
|
|
} else {
|
|
try {
|
|
$stripesup = \Stripe\Account::retrieve($newsup);
|
|
$tokenstring['stripe_user_id'] = $stripesup->id;
|
|
$tokenstring['type'] = $stripesup->type;
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."oauth_token";
|
|
$sql .= " SET tokenstring = '".$db->escape(json_encode($tokenstring))."'";
|
|
$sql .= " WHERE site = 'stripe' AND (site_account IS NULL or site_account = '".$db->escape($tmpsite_account)."') AND fk_soc = ".((int) $object->id)." AND service = '".$db->escape($tmpservice)."' AND entity = ".$conf->entity; // Keep = here for entity. Only 1 record must be modified !
|
|
// TODO Add site and site_account on oauth_token table
|
|
$sql .= " WHERE fk_soc = ".$object->id." AND service = '".$db->escape($tmpservice)."' AND entity = ".$conf->entity; // Keep = here for entity. Only 1 record must be modified !
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
}
|
|
|
|
$resql = $db->query($sql);
|
|
$num = $db->num_rows($resql);
|
|
if (empty($num) && !empty($newsup)) {
|
|
try {
|
|
$stripesup = \Stripe\Account::retrieve($newsup);
|
|
$tokenstring['stripe_user_id'] = $stripesup->id;
|
|
$tokenstring['type'] = $stripesup->type;
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."oauth_token (service, fk_soc, entity, tokenstring)";
|
|
$sql .= " VALUES ('".$db->escape($tmpservice)."', ".((int) $object->id).", ".((int) $conf->entity).", '".$db->escape(json_encode($tokenstring))."')";
|
|
// TODO Add site and site_account on oauth_token table
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
$resql = $db->query($sql);
|
|
}
|
|
|
|
if (!$error) {
|
|
if ($tmpservicestatus == $servicestatus) {
|
|
$stripesupplieracc = $newsup;
|
|
}
|
|
$db->commit();
|
|
} else {
|
|
$db->rollback();
|
|
}
|
|
}
|
|
|
|
if ($action == 'setlocalassourcedefault') { // Set as default when payment mode defined locally (and may be also remotely)
|
|
try {
|
|
$companypaymentmode->setAsDefault($id);
|
|
|
|
$url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
} elseif ($action == 'setassourcedefault') { // Set as default when payment mode defined remotely only
|
|
try {
|
|
$cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
if (preg_match('/pm_|src_/', $source)) {
|
|
$cu->invoice_settings->default_payment_method = (string) $source; // New
|
|
} else {
|
|
$cu->default_source = (string) $source; // Old
|
|
}
|
|
$result = $cu->save();
|
|
|
|
$url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
} elseif ($action == 'deletecard' && $source) {
|
|
// Delete the credit card on Stripe side
|
|
try {
|
|
if (preg_match('/pm_/', $source)) {
|
|
$payment_method = \Stripe\PaymentMethod::retrieve($source, array("stripe_account" => $stripeacc));
|
|
if ($payment_method) {
|
|
$payment_method->detach();
|
|
}
|
|
} else {
|
|
$cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
$card = $cu->sources->retrieve("$source");
|
|
if ($card) {
|
|
// $card->detach(); Does not work with card_, only with src_
|
|
if (method_exists($card, 'detach')) {
|
|
$card->detach();
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."societe_rib as sr ";
|
|
$sql .= " SET stripe_card_ref = null";
|
|
$sql .= " WHERE sr.stripe_card_ref = '".$db->escape($source)."'";
|
|
$resql = $db->query($sql);
|
|
} else {
|
|
$card->delete($user);
|
|
}
|
|
}
|
|
}
|
|
|
|
$url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
|
|
header('Location: '.$url);
|
|
exit;
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
} elseif ($action == 'deletebank' && $source) {
|
|
// Delete the bank account on Stripe side
|
|
try {
|
|
if (preg_match('/pm_/', $source)) {
|
|
$payment_method = \Stripe\PaymentMethod::retrieve($source, array("stripe_account" => $stripeacc));
|
|
if ($payment_method) {
|
|
$payment_method->detach();
|
|
}
|
|
} else {
|
|
$cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
$card = $cu->sources->retrieve("$source");
|
|
if ($card) {
|
|
// $card->detach(); Does not work with card_, only with src_
|
|
if (method_exists($card, 'detach')) {
|
|
$card->detach();
|
|
$sql = "UPDATE ".MAIN_DB_PREFIX."societe_rib as sr ";
|
|
$sql .= " SET stripe_card_ref = null";
|
|
$sql .= " WHERE sr.stripe_card_ref = '".$db->escape($source)."'";
|
|
|
|
$resql = $db->query($sql);
|
|
} else {
|
|
$card->delete($user);
|
|
}
|
|
}
|
|
}
|
|
|
|
$url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
|
|
if (GETPOSTINT('page_y')) {
|
|
$url .= '&page_y='.GETPOSTINT('page_y');
|
|
}
|
|
|
|
header('Location: '.$url);
|
|
exit;
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* View
|
|
*/
|
|
|
|
$form = new Form($db);
|
|
$formother = new FormOther($db);
|
|
$formfile = new FormFile($db);
|
|
|
|
$title = $langs->trans("ThirdParty");
|
|
if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', $conf->global->MAIN_HTML_TITLE) && $object->name) {
|
|
$title = $object->name." - ".$langs->trans('PaymentInformation');
|
|
}
|
|
$help_url = '';
|
|
|
|
llxHeader('', $title, $help_url);
|
|
|
|
$head = societe_prepare_head($object);
|
|
|
|
// Show sandbox warning
|
|
/*if (isModEnabled('paypal') && (!empty($conf->global->PAYPAL_API_SANDBOX) || GETPOST('forcesandbox','alpha'))) // We can force sand box with param 'forcesandbox'
|
|
{
|
|
dol_htmloutput_mesg($langs->trans('YouAreCurrentlyInSandboxMode','Paypal'),'','warning');
|
|
}*/
|
|
if (isModEnabled('stripe') && (!getDolGlobalString('STRIPE_LIVE') || GETPOST('forcesandbox', 'alpha'))) {
|
|
dol_htmloutput_mesg($langs->trans('YouAreCurrentlyInSandboxMode', 'Stripe'), '', 'warning');
|
|
}
|
|
|
|
// Load Bank account
|
|
if (!$id) {
|
|
// @phan-suppress-next-line PhanPluginSuspiciousParamPosition
|
|
$companybankaccount->fetch(0, $object->id);
|
|
// @phan-suppress-next-line PhanPluginSuspiciousParamPosition
|
|
$companypaymentmode->fetch(0, null, $object->id, 'card');
|
|
} else {
|
|
$companybankaccount->fetch($id);
|
|
$companypaymentmode->fetch($id);
|
|
}
|
|
if (empty($companybankaccount->socid)) {
|
|
$companybankaccount->socid = $object->id;
|
|
}
|
|
|
|
if ($socid && ($action == 'edit' || $action == 'editcard') && $permissiontoaddupdatepaymentinformation) {
|
|
print '<form action="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'" method="post">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
$actionforadd = 'update';
|
|
if ($action == 'editcard') {
|
|
$actionforadd = 'updatecard';
|
|
}
|
|
print '<input type="hidden" name="action" value="'.$actionforadd.'">';
|
|
print '<input type="hidden" name="id" value="'.GETPOSTINT("id").'">';
|
|
}
|
|
if ($socid && ($action == 'create' || $action == 'createcard') && $permissiontoaddupdatepaymentinformation) {
|
|
print '<form action="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'" method="post">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
$actionforadd = 'add';
|
|
if ($action == 'createcard') {
|
|
$actionforadd = 'addcard';
|
|
}
|
|
print '<input type="hidden" name="action" value="'.$actionforadd.'">';
|
|
}
|
|
|
|
|
|
// View
|
|
if ($socid && $action != 'edit' && $action != 'create' && $action != 'editcard' && $action != 'createcard') {
|
|
print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), -1, 'company');
|
|
|
|
// Confirm delete ban
|
|
if ($action == 'deletebank') {
|
|
print $form->formconfirm($_SERVER["PHP_SELF"]."?socid=".$object->id."&ribid=".($ribid ? $ribid : $id), $langs->trans("DeleteARib"), $langs->trans("ConfirmDeleteRib", $companybankaccount->getRibLabel()), "confirm_deletebank", '', 0, 1);
|
|
}
|
|
// Confirm delete card
|
|
if ($action == 'deletecard') {
|
|
print $form->formconfirm($_SERVER["PHP_SELF"]."?socid=".$object->id."&ribid=".($ribid ? $ribid : $id), $langs->trans("DeleteACard"), $langs->trans("ConfirmDeleteCard", $companybankaccount->getRibLabel()), "confirm_deletecard", '', 0, 1);
|
|
}
|
|
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
|
|
|
|
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
|
|
|
|
print '<div class="fichecenter">';
|
|
|
|
print '<div class="underbanner clearboth"></div>';
|
|
print '<table class="border tableforfield centpercent">';
|
|
|
|
// Type Prospect/Customer/Supplier
|
|
print '<tr><td class="titlefield">'.$langs->trans('NatureOfThirdParty').'</td><td colspan="2">';
|
|
print $object->getTypeUrl(1);
|
|
print '</td></tr>';
|
|
|
|
if (getDolGlobalString('SOCIETE_USEPREFIX')) { // Old not used prefix field
|
|
print '<tr><td class="titlefield">'.$langs->trans('Prefix').'</td><td colspan="2">'.$object->prefix_comm.'</td></tr>';
|
|
}
|
|
|
|
if ($object->client) {
|
|
print '<tr><td class="titlefield">';
|
|
print $langs->trans('CustomerCode').'</td><td colspan="2">';
|
|
print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_client));
|
|
$tmpcheck = $object->check_codeclient();
|
|
if ($tmpcheck != 0 && $tmpcheck != -5) {
|
|
print ' <span class="error">('.$langs->trans("WrongCustomerCode").')</span>';
|
|
}
|
|
print '</td></tr>';
|
|
$sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."facture where fk_soc = ".((int) $socid);
|
|
$resql = $db->query($sql);
|
|
if (!$resql) {
|
|
dol_print_error($db);
|
|
}
|
|
|
|
$obj = $db->fetch_object($resql);
|
|
$nbFactsClient = $obj->nb;
|
|
$thirdTypeArray['customer'] = $langs->trans("customer");
|
|
if (isModEnabled("propal") && $user->hasRight('propal', 'lire')) {
|
|
$elementTypeArray['propal'] = $langs->transnoentitiesnoconv('Proposals');
|
|
}
|
|
if (isModEnabled('order') && $user->hasRight('commande', 'lire')) {
|
|
$elementTypeArray['order'] = $langs->transnoentitiesnoconv('Orders');
|
|
}
|
|
if (isModEnabled('invoice') && $user->hasRight('facture', 'lire')) {
|
|
$elementTypeArray['invoice'] = $langs->transnoentitiesnoconv('Invoices');
|
|
}
|
|
if (isModEnabled('contract') && $user->hasRight('contrat', 'lire')) {
|
|
$elementTypeArray['contract'] = $langs->transnoentitiesnoconv('Contracts');
|
|
}
|
|
|
|
if (isModEnabled('stripe')) {
|
|
// Force to use the correct API key
|
|
global $stripearrayofkeysbyenv;
|
|
|
|
$tmpservice = 0;
|
|
$tmpsite_account = $stripearrayofkeysbyenv[$tmpservice]['publishable_key'];
|
|
$tmpstripeacc = $stripe->getStripeAccount($tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
|
|
$tmpstripecu = $stripe->getStripeCustomerAccount($object->id, $tmpservice, $tmpsite_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
|
|
|
|
// Stripe customer key 'cu_....' stored into llx_societe_account
|
|
print '<tr><td class="titlefield">';
|
|
print $form->editfieldkey($langs->trans("StripeCustomerId").' (Test)', 'key_accounttest', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
|
|
print '</td><td>';
|
|
print $form->editfieldval($langs->trans("StripeCustomerId").' (Test)', 'key_accounttest', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
|
|
if ($tmpstripecu && $action != 'editkey_accounttest') {
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'test/customers/'.$tmpstripecu;
|
|
print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key = '.$tmpsite_account, 'globe').'</a>';
|
|
}
|
|
print '</td><td class="right">';
|
|
if (empty($tmpstripecu)) {
|
|
print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">';
|
|
print '<input type="hidden" name="action" value="synccustomertostripetest">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
print '<input type="hidden" name="socid" value="'.$object->id.'">';
|
|
print img_picto($langs->trans("CreateCustomerOnStripe"), 'stripe');
|
|
print '<input type="submit" class="buttonlink nomargintop nomarginbottom noborderbottom nopaddingtopimp nopaddingbottomimp" name="syncstripecustomertest" value="'.$langs->trans("CreateCustomerOnStripe").'">';
|
|
print '</form>';
|
|
}
|
|
print '</td></tr>';
|
|
|
|
$tmpservice = 1;
|
|
$tmpsite_account = $stripearrayofkeysbyenv[$tmpservice]['publishable_key'];
|
|
$tmpstripeacc = $stripe->getStripeAccount($tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
|
|
$tmpstripecu = $stripe->getStripeCustomerAccount($object->id, $tmpservice, $tmpsite_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
|
|
|
|
// Stripe customer key 'cu_....' stored into llx_societe_account
|
|
print '<tr><td class="titlefield">';
|
|
print $form->editfieldkey($langs->trans("StripeCustomerId").' (Live)', 'key_account', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
|
|
print '</td><td>';
|
|
print $form->editfieldval($langs->trans("StripeCustomerId").' (Live)', 'key_account', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
|
|
if ($tmpstripecu && $action != 'editkey_account') {
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'customers/'.$tmpstripecu;
|
|
print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key = '.$tmpsite_account, 'globe').'</a>';
|
|
}
|
|
print '</td><td class="right">';
|
|
if (empty($tmpstripecu)) {
|
|
print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">';
|
|
print '<input type="hidden" name="action" value="synccustomertostripe">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
print '<input type="hidden" name="socid" value="'.$object->id.'">';
|
|
print img_picto($langs->trans("CreateCustomerOnStripe"), 'stripe');
|
|
print '<input type="submit" class="buttonlink nomargintop nomarginbottom noborderbottom nopaddingtopimp nopaddingbottomimp" name="syncstripecustomer" value="'.$langs->trans("CreateCustomerOnStripe").'">';
|
|
print '</form>';
|
|
}
|
|
print '</td></tr>';
|
|
}
|
|
}
|
|
|
|
if ($object->fournisseur) {
|
|
print '<tr><td class="titlefield">';
|
|
print $langs->trans('SupplierCode').'</td><td colspan="2">';
|
|
print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_fournisseur));
|
|
$tmpcheck = $object->check_codefournisseur();
|
|
if ($tmpcheck != 0 && $tmpcheck != -5) {
|
|
print ' <span class="error">('.$langs->trans("WrongSupplierCode").')</span>';
|
|
}
|
|
print '</td></tr>';
|
|
$sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."facture where fk_soc = ".((int) $socid);
|
|
$resql = $db->query($sql);
|
|
if (!$resql) {
|
|
dol_print_error($db);
|
|
}
|
|
$obj = $db->fetch_object($resql);
|
|
$nbFactsClient = $obj->nb;
|
|
$thirdTypeArray['customer'] = $langs->trans("customer");
|
|
if (isModEnabled('propal') && $user->hasRight('propal', 'lire')) {
|
|
$elementTypeArray['propal'] = $langs->transnoentitiesnoconv('Proposals');
|
|
}
|
|
if (isModEnabled('order') && $user->hasRight('commande', 'lire')) {
|
|
$elementTypeArray['order'] = $langs->transnoentitiesnoconv('Orders');
|
|
}
|
|
if (isModEnabled('invoice') && $user->hasRight('facture', 'lire')) {
|
|
$elementTypeArray['invoice'] = $langs->transnoentitiesnoconv('Invoices');
|
|
}
|
|
if (isModEnabled('contract') && $user->hasRight('contrat', 'lire')) {
|
|
$elementTypeArray['contract'] = $langs->transnoentitiesnoconv('Contracts');
|
|
}
|
|
}
|
|
|
|
// Stripe connect
|
|
if (isModEnabled('stripe') && !empty($conf->stripeconnect->enabled) && getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2) {
|
|
$stripesupplieracc = $stripe->getStripeAccount($service, $object->id); // Get Stripe OAuth connect account (no network access here)
|
|
|
|
// Stripe customer key 'cu_....' stored into llx_societe_account
|
|
print '<tr><td class="titlefield">';
|
|
print $form->editfieldkey("StripeConnectAccount", 'key_account_supplier', $stripesupplieracc, $object, $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
|
|
print '</td><td>';
|
|
print $form->editfieldval("StripeConnectAccount", 'key_account_supplier', $stripesupplieracc, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
|
|
if (isModEnabled('stripe') && $stripesupplieracc && $action != 'editkey_account_supplier') {
|
|
$connect = '';
|
|
|
|
$url = 'https://dashboard.stripe.com/test/connect/accounts/'.$stripesupplieracc;
|
|
if ($servicestatus) {
|
|
$url = 'https://dashboard.stripe.com/connect/accounts/'.$stripesupplieracc;
|
|
}
|
|
print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key '.$site_account, 'globe').'</a>';
|
|
}
|
|
print '</td><td class="right">';
|
|
if (empty($stripesupplieracc)) {
|
|
print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">';
|
|
print '<input type="hidden" name="action" value="syncsuppliertostripe">';
|
|
print '<input type="hidden" name="token" value="'.newToken().'">';
|
|
print '<input type="hidden" name="socid" value="'.$object->id.'">';
|
|
print '<input type="hidden" name="companybankid" value="'.$rib->id.'">';
|
|
//print '<input type="submit" class="button buttongen" name="syncstripecustomer" value="'.$langs->trans("CreateSupplierOnStripe").'">';
|
|
print '</form>';
|
|
}
|
|
print '</td></tr>';
|
|
}
|
|
|
|
print '</table>';
|
|
print '</div>';
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
print '<br>';
|
|
|
|
$showcardpaymentmode = 0;
|
|
if (isModEnabled('stripe')) {
|
|
$showcardpaymentmode++;
|
|
}
|
|
|
|
// Get list of remote payment modes
|
|
$listofsources = array();
|
|
|
|
if (isset($stripe) && is_object($stripe)) {
|
|
try {
|
|
$customerstripe = $stripe->customerStripe($object, $stripeacc, $servicestatus);
|
|
if (!empty($customerstripe->id)) {
|
|
// When using the Charge API architecture
|
|
if (!getDolGlobalString('STRIPE_USE_INTENT_WITH_AUTOMATIC_CONFIRMATION')) {
|
|
$listofsources = $customerstripe->sources->data;
|
|
} else {
|
|
$service = 'StripeTest';
|
|
$servicestatus = 0;
|
|
if (getDolGlobalString('STRIPE_LIVE') && !GETPOST('forcesandbox', 'alpha')) {
|
|
$service = 'StripeLive';
|
|
$servicestatus = 1;
|
|
}
|
|
|
|
// Force to use the correct API key
|
|
global $stripearrayofkeysbyenv;
|
|
\Stripe\Stripe::setApiKey($stripearrayofkeysbyenv[$servicestatus]['secret_key']);
|
|
|
|
try {
|
|
if (empty($stripeacc)) { // If the Stripe connect account not set, we use common API usage
|
|
$paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"));
|
|
$paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"));
|
|
} else {
|
|
$paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"), array("stripe_account" => $stripeacc));
|
|
$paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"), array("stripe_account" => $stripeacc));
|
|
}
|
|
|
|
if ($paymentmethodobjsA->data != null && $paymentmethodobjsB->data != null) {
|
|
$listofsources = array_merge((array) $paymentmethodobjsA->data, (array) $paymentmethodobjsB->data);
|
|
} elseif ($paymentmethodobjsB->data != null) {
|
|
$listofsources = $paymentmethodobjsB->data;
|
|
} else {
|
|
$listofsources = $paymentmethodobjsA->data;
|
|
}
|
|
} catch (Exception $e) {
|
|
$error++;
|
|
setEventMessages($e->getMessage(), null, 'errors');
|
|
}
|
|
}
|
|
}
|
|
} catch (Exception $e) {
|
|
dol_syslog("Error when searching/loading Stripe customer for thirdparty id =".$object->id);
|
|
}
|
|
}
|
|
|
|
|
|
// List of Card payment modes
|
|
if ($showcardpaymentmode && $object->client) {
|
|
$morehtmlright = '';
|
|
if (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD')) {
|
|
$morehtmlright .= dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"].'?socid='.$object->id.'&action=createcard');
|
|
}
|
|
print load_fiche_titre($langs->trans('CreditCard'), $morehtmlright, 'fa-credit-card');
|
|
//($stripeacc ? ' (Stripe connection with StripeConnect account '.$stripeacc.')' : ' (Stripe connection with keys from Stripe module setup)')
|
|
|
|
print '<!-- List of card payments -->'."\n";
|
|
print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
|
|
print '<table class="liste centpercent">'."\n";
|
|
print '<tr class="liste_titre">';
|
|
print '<td>'.$langs->trans('Label').'</td>';
|
|
print '<td>'.$form->textwithpicto($langs->trans('ExternalSystemID'), $langs->trans("IDOfPaymentInAnExternalSystem")).'</td>'; // external system ID
|
|
print '<td>'.$langs->trans('Type').'</td>';
|
|
print '<td>'.$langs->trans('Informations').'</td>';
|
|
print '<td></td>';
|
|
print '<td class="center">'.$langs->trans('Default').'</td>';
|
|
print '<td>'.$langs->trans('Note').'</td>';
|
|
print '<td>'.$langs->trans('DateModification').'</td>';
|
|
// Hook fields
|
|
$parameters = array('arrayfields' => array(), 'param' => '', 'sortfield' => '', 'sortorder' => '', 'linetype' => 'stripetitle');
|
|
$reshook = $hookmanager->executeHooks('printFieldListTitle', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
// Action column
|
|
print "<td></td>";
|
|
print "</tr>\n";
|
|
|
|
$nbremote = 0;
|
|
$nblocal = 0;
|
|
$arrayofremotecard = array();
|
|
|
|
// Show local sources
|
|
if (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD')) {
|
|
//$societeaccount = new SocieteAccount($db);
|
|
$companypaymentmodetemp = new CompanyPaymentMode($db);
|
|
|
|
$sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX."societe_rib";
|
|
$sql .= " WHERE type in ('card')";
|
|
$sql .= " AND fk_soc = ".((int) $object->id);
|
|
$sql .= " AND status = ".((int) $servicestatus);
|
|
|
|
$resql = $db->query($sql);
|
|
if ($resql) {
|
|
$num_rows = $db->num_rows($resql);
|
|
if ($num_rows) {
|
|
$i = 0;
|
|
while ($i < $num_rows) {
|
|
$nblocal++;
|
|
|
|
$obj = $db->fetch_object($resql);
|
|
if ($obj) {
|
|
$companypaymentmodetemp->fetch($obj->rowid);
|
|
|
|
$arrayofremotecard[$companypaymentmodetemp->stripe_card_ref] = $companypaymentmodetemp->stripe_card_ref;
|
|
|
|
print '<tr class="oddeven" data-rowid="'.((int) $companypaymentmodetemp->id).'">';
|
|
// Label
|
|
print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($companypaymentmodetemp->label).'">';
|
|
print dol_escape_htmltag($companypaymentmodetemp->label);
|
|
print '</td>';
|
|
// External system card ID
|
|
print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($companypaymentmodetemp->stripe_card_ref.(empty($companypaymentmodetemp->stripe_account) ? '' : ' - '.$companypaymentmodetemp->stripe_account)).'">';
|
|
if (!empty($companypaymentmodetemp->stripe_card_ref) && !empty($companypaymentmodetemp->ext_payment_site)) {
|
|
if (isModEnabled('stripe') && in_array($companypaymentmodetemp->ext_payment_site, array('StripeTest', 'StripeLive'))) {
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
if ($companypaymentmodetemp->ext_payment_site == 'StripeLive') {
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$companypaymentmodetemp->stripe_card_ref;
|
|
} else {
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$companypaymentmodetemp->stripe_card_ref;
|
|
}
|
|
print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe').' - '.$companypaymentmodetemp->stripe_account, 'globe')."</a> ";
|
|
}
|
|
// TODO Add hook here for other payment services
|
|
}
|
|
print dol_escape_htmltag($companypaymentmodetemp->stripe_card_ref);
|
|
print '</td>';
|
|
// Type
|
|
print '<td>';
|
|
print img_credit_card($companypaymentmodetemp->type);
|
|
print '</td>';
|
|
// Information (Owner, ...)
|
|
print '<td class="minwidth100">';
|
|
if ($companypaymentmodetemp->proprio) {
|
|
print '<span class="opacitymedium">'.$companypaymentmodetemp->proprio.'</span><br>';
|
|
}
|
|
if ($companypaymentmodetemp->last_four) {
|
|
print '....'.$companypaymentmodetemp->last_four;
|
|
}
|
|
if ($companypaymentmodetemp->exp_date_month || $companypaymentmodetemp->exp_date_year) {
|
|
print ' - '.sprintf("%02d", $companypaymentmodetemp->exp_date_month).'/'.$companypaymentmodetemp->exp_date_year;
|
|
}
|
|
print '</td>';
|
|
// Country
|
|
print '<td class="tdoverflowmax100">';
|
|
if ($companypaymentmodetemp->country_code) {
|
|
$img = picto_from_langcode($companypaymentmodetemp->country_code);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($companypaymentmodetemp->country_code, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
print '</td>';
|
|
// Default
|
|
print '<td class="center">';
|
|
if (empty($companypaymentmodetemp->default_rib)) {
|
|
print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=setlocalassourcedefault&token='.newToken().'">';
|
|
print img_picto($langs->trans("Default"), 'off');
|
|
print '</a>';
|
|
} else {
|
|
print img_picto($langs->trans("Default"), 'on');
|
|
}
|
|
print '</td>';
|
|
if (empty($companypaymentmodetemp->stripe_card_ref)) {
|
|
$s = $langs->trans("Local");
|
|
} else {
|
|
$s = $langs->trans("LocalAndRemote");
|
|
}
|
|
print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($s).'">';
|
|
print $s;
|
|
print '</td>';
|
|
print '<td>';
|
|
print dol_print_date($companypaymentmodetemp->tms, 'dayhour');
|
|
print '</td>';
|
|
// Fields from hook
|
|
$parameters = array('arrayfields' => array(), 'obj' => $obj, 'linetype' => 'stripecard');
|
|
$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
// Action column
|
|
print '<td class="right minwidth50 nowraponall">';
|
|
if ($permissiontoaddupdatepaymentinformation) {
|
|
if ($stripecu && empty($companypaymentmodetemp->stripe_card_ref)) {
|
|
print '<a href="'.$_SERVER['PHP_SELF'].'?action=synccardtostripe&socid='.$object->id.'&id='.$companypaymentmodetemp->id.'" class="paddingrightonly marginrightonly">'.$langs->trans("CreateCardOnStripe").'</a>';
|
|
}
|
|
|
|
print '<a class="editfielda marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=editcard&token='.newToken().'">';
|
|
print img_picto($langs->trans("Modify"), 'edit');
|
|
print '</a>';
|
|
print '<a class="marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=deletecard&token='.newToken().'">'; // source='.$companypaymentmodetemp->stripe_card_ref.'&
|
|
print img_picto($langs->trans("Delete"), 'delete');
|
|
print '</a>';
|
|
}
|
|
print '</td>';
|
|
print '</tr>';
|
|
}
|
|
$i++;
|
|
}
|
|
}
|
|
} else {
|
|
dol_print_error($db);
|
|
}
|
|
}
|
|
|
|
// Show remote sources (not already shown as local source)
|
|
if (is_array($listofsources) && count($listofsources)) {
|
|
foreach ($listofsources as $src) {
|
|
if (!empty($arrayofremotecard[$src->id])) {
|
|
continue; // Already in previous list
|
|
}
|
|
|
|
$nbremote++;
|
|
|
|
$imgline = '';
|
|
if ($src->object == 'card') {
|
|
$imgline = img_credit_card($src->brand);
|
|
} elseif ($src->object == 'source' && $src->type == 'card') {
|
|
$imgline = img_credit_card($src->card->brand);
|
|
} elseif ($src->object == 'payment_method' && $src->type == 'card') {
|
|
$imgline = img_credit_card($src->card->brand);
|
|
} elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
|
|
continue;
|
|
} elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
|
|
continue;
|
|
}
|
|
|
|
print '<tr class="oddeven">';
|
|
print '<td>';
|
|
print '</td>';
|
|
// Src ID
|
|
print '<td class="tdoverflowmax150">';
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
//$url='https://dashboard.stripe.com/'.$connect.'test/sources/'.$src->id;
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$src->id;
|
|
if ($servicestatus) {
|
|
//$url='https://dashboard.stripe.com/'.$connect.'sources/'.$src->id;
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$src->id;
|
|
}
|
|
print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
|
|
print $src->id;
|
|
print '</td>';
|
|
// Img
|
|
print '<td>';
|
|
print $imgline;
|
|
print'</td>';
|
|
// Information
|
|
print '<td valign="middle">';
|
|
if ($src->object == 'card') {
|
|
print '....'.$src->last4.' - '.$src->exp_month.'/'.$src->exp_year;
|
|
print '</td><td>';
|
|
if ($src->country) {
|
|
$img = picto_from_langcode($src->country);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($src->country, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
} elseif ($src->object == 'source' && $src->type == 'card') {
|
|
print '<span class="opacitymedium">'.$src->owner->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
|
|
print '</td><td>';
|
|
|
|
if ($src->card->country) {
|
|
$img = picto_from_langcode($src->card->country);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($src->card->country, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
} elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
|
|
print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
|
|
print '</td><td>';
|
|
if ($src->sepa_debit->country) {
|
|
$img = picto_from_langcode($src->sepa_debit->country);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($src->sepa_debit->country, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
} elseif ($src->object == 'payment_method' && $src->type == 'card') {
|
|
print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
|
|
print '</td><td>';
|
|
|
|
if ($src->card->country) {
|
|
$img = picto_from_langcode($src->card->country);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($src->card->country, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
} elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
|
|
print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
|
|
print '</td><td>';
|
|
if ($src->sepa_debit->country) {
|
|
$img = picto_from_langcode($src->sepa_debit->country);
|
|
print $img ? $img.' ' : '';
|
|
print getCountry($src->sepa_debit->country, 1);
|
|
} else {
|
|
print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
|
|
}
|
|
} else {
|
|
print '</td><td>';
|
|
}
|
|
print '</td>';
|
|
// Default
|
|
print '<td class="center" width="50">';
|
|
if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
|
|
(!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
|
|
print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
|
|
print img_picto($langs->trans("Default"), 'off');
|
|
print '</a>';
|
|
} else {
|
|
print img_picto($langs->trans("Default"), 'on');
|
|
}
|
|
print '</td>';
|
|
print '<td>';
|
|
print $langs->trans("Remote");
|
|
//if ($src->cvc_check == 'fail') print ' - CVC check fail';
|
|
print '</td>';
|
|
|
|
print '<td>';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
|
|
// Fields from hook
|
|
$parameters = array('arrayfields' => array(), 'stripesource' => $src, 'linetype' => 'stripecardremoteonly');
|
|
$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
|
|
// Action column
|
|
print '<td class="right nowraponall">';
|
|
if ($permissiontoaddupdatepaymentinformation) {
|
|
print '<a class="marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletecard&token='.newToken().'">';
|
|
print img_picto($langs->trans("Delete"), 'delete');
|
|
print '</a>';
|
|
}
|
|
print '</td>';
|
|
|
|
print '</tr>';
|
|
}
|
|
}
|
|
|
|
if ($nbremote == 0 && $nblocal == 0) {
|
|
$colspan = (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD') ? 10 : 9);
|
|
print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
|
|
}
|
|
print "</table>";
|
|
print "</div>";
|
|
print '<br>';
|
|
}
|
|
|
|
// List of Stripe connect accounts
|
|
if (isModEnabled('stripe') && !empty($conf->stripeconnect->enabled) && !empty($stripesupplieracc)) {
|
|
print load_fiche_titre($langs->trans('StripeBalance').($stripesupplieracc ? ' (Stripe connection with StripeConnect account '.$stripesupplieracc.')' : ' (Stripe connection with keys from Stripe module setup)'), $morehtmlright, 'stripe-s');
|
|
$balance = \Stripe\Balance::retrieve(array("stripe_account" => $stripesupplieracc));
|
|
print '<table class="liste centpercent">'."\n";
|
|
print '<tr class="liste_titre">';
|
|
print '<td>'.$langs->trans('Currency').'</td>';
|
|
print '<td>'.$langs->trans('Available').'</td>';
|
|
print '<td>'.$langs->trans('Pending').'</td>';
|
|
print '<td>'.$langs->trans('Total').'</td>';
|
|
print '</tr>';
|
|
|
|
$currencybalance = array();
|
|
if (is_array($balance->available) && count($balance->available)) {
|
|
foreach ($balance->available as $cpt) {
|
|
$arrayzerounitcurrency = array('BIF', 'CLP', 'DJF', 'GNF', 'JPY', 'KMF', 'KRW', 'MGA', 'PYG', 'RWF', 'VND', 'VUV', 'XAF', 'XOF', 'XPF');
|
|
if (!in_array($cpt->currency, $arrayzerounitcurrency)) {
|
|
$currencybalance[$cpt->currency]['available'] = $cpt->amount / 100;
|
|
} else {
|
|
$currencybalance[$cpt->currency]['available'] = $cpt->amount;
|
|
}
|
|
$currencybalance[$cpt->currency]['currency'] = $cpt->currency;
|
|
}
|
|
}
|
|
|
|
if (is_array($balance->pending) && count($balance->pending)) {
|
|
foreach ($balance->pending as $cpt) {
|
|
$arrayzerounitcurrency = array('BIF', 'CLP', 'DJF', 'GNF', 'JPY', 'KMF', 'KRW', 'MGA', 'PYG', 'RWF', 'VND', 'VUV', 'XAF', 'XOF', 'XPF');
|
|
if (!in_array($cpt->currency, $arrayzerounitcurrency)) {
|
|
$currencybalance[$cpt->currency]['pending'] = $currencybalance[$cpt->currency]['available'] + $cpt->amount / 100;
|
|
} else {
|
|
$currencybalance[$cpt->currency]['pending'] = $currencybalance[$cpt->currency]['available'] + $cpt->amount;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (is_array($currencybalance)) {
|
|
foreach ($currencybalance as $cpt) {
|
|
print '<tr><td>'.$langs->trans("Currency".strtoupper($cpt['currency'])).'</td><td>'.price($cpt['available'], 0, '', 1, - 1, - 1, strtoupper($cpt['currency'])).'</td><td>'.price(isset($cpt->pending) ? $cpt->pending : 0, 0, '', 1, - 1, - 1, strtoupper($cpt['currency'])).'</td><td>'.price($cpt['available'] + (isset($cpt->pending) ? $cpt->pending : 0), 0, '', 1, - 1, - 1, strtoupper($cpt['currency'])).'</td></tr>';
|
|
}
|
|
}
|
|
|
|
print '</table>';
|
|
print '<br>';
|
|
}
|
|
|
|
// List of bank accounts
|
|
if ($permissiontoaddupdatepaymentinformation) {
|
|
$morehtmlright = dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"] . '?socid=' . $object->id . '&action=create');
|
|
}
|
|
|
|
print load_fiche_titre($langs->trans("BankAccounts"), $morehtmlright, 'bank');
|
|
|
|
$nblocal = 0;
|
|
$nbremote = 0;
|
|
$arrayofremoteban = array();
|
|
|
|
$rib_list = $object->get_all_rib();
|
|
|
|
if (is_array($rib_list)) {
|
|
print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
|
|
print '<table class="liste centpercent">';
|
|
|
|
print '<tr class="liste_titre">';
|
|
print_liste_field_titre("Label");
|
|
print_liste_field_titre($form->textwithpicto($langs->trans('ExternalSystemID'), $langs->trans("IDOfPaymentInAnExternalSystem"))); // external system ID
|
|
print_liste_field_titre("Bank");
|
|
print_liste_field_titre("RIB");
|
|
print_liste_field_titre("IBAN");
|
|
print_liste_field_titre("BIC");
|
|
if (isModEnabled('prelevement')) {
|
|
print_liste_field_titre("RUM");
|
|
print_liste_field_titre("DateRUM");
|
|
print_liste_field_titre("WithdrawMode");
|
|
}
|
|
print_liste_field_titre("Default", '', '', '', '', '', '', '', 'center ');
|
|
if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
|
|
print_liste_field_titre('', '', '', '', '', '', '', '', 'center ');
|
|
}
|
|
print_liste_field_titre('', '', '', '', '', '', '', '', 'center ');
|
|
// Fields from hook
|
|
$parameters = array('arrayfields' => array(), 'linetype' => 'stripebantitle');
|
|
$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
print_liste_field_titre('', $_SERVER["PHP_SELF"], "", '', '', '', '', '', 'maxwidthsearch ');
|
|
print "</tr>\n";
|
|
|
|
// List of local BAN
|
|
foreach ($rib_list as $rib) {
|
|
$arrayofremoteban[$rib->stripe_card_ref] = $rib->stripe_card_ref;
|
|
|
|
$nblocal++;
|
|
|
|
print '<tr class="oddeven">';
|
|
// Label
|
|
print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($rib->label).'">'.dol_escape_htmltag($rib->label).'</td>';
|
|
// External system ID
|
|
print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($rib->stripe_card_ref.(empty($rib->stripe_account) ? '' : ' - '.$rib->stripe_account)).'">';
|
|
if (!empty($rib->stripe_card_ref) && !empty($rib->ext_payment_site)) {
|
|
if (isModEnabled('stripe') && in_array($rib->ext_payment_site, array('StripeTest', 'StripeLive'))) {
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
if ($rib->ext_payment_site == 'StripeLive') {
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$rib->stripe_card_ref;
|
|
} else {
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$rib->stripe_card_ref;
|
|
}
|
|
print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
|
|
}
|
|
// TODO Add hook here for other payment services
|
|
}
|
|
print dol_escape_htmltag($rib->stripe_card_ref);
|
|
print '</td>';
|
|
// Bank name
|
|
print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($rib->bank).'">'.dol_escape_htmltag($rib->bank).'</td>';
|
|
// Account number
|
|
$string = '';
|
|
foreach ($rib->getFieldsToShow() as $val) {
|
|
if ($val == 'BankCode') {
|
|
$string .= $rib->code_banque.' ';
|
|
} elseif ($val == 'BankAccountNumber') {
|
|
$string .= $rib->number.' ';
|
|
} elseif ($val == 'DeskCode') {
|
|
$string .= $rib->code_guichet.' ';
|
|
} elseif ($val == 'BankAccountNumberKey') {
|
|
$string .= $rib->cle_rib.' ';
|
|
}
|
|
// Already output after
|
|
// } elseif ($val == 'BIC') {
|
|
// $string .= $rib->bic.' ';
|
|
// } elseif ($val == 'IBAN') {
|
|
// $string .= $rib->iban.' ';*/
|
|
//}
|
|
}
|
|
if (!empty($rib->label) && $rib->number) {
|
|
if (!checkBanForAccount($rib)) {
|
|
$string .= ' '.img_picto($langs->trans("ValueIsNotValid"), 'warning');
|
|
} else {
|
|
$string .= ' '.img_picto($langs->trans("ValueIsValid"), 'info');
|
|
}
|
|
}
|
|
print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($string).'">';
|
|
print $string;
|
|
print '</td>';
|
|
// IBAN
|
|
print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($rib->iban).'">';
|
|
if (!empty($rib->iban)) {
|
|
if (!checkIbanForAccount($rib)) {
|
|
print img_picto($langs->trans("IbanNotValid"), 'warning').' ';
|
|
}
|
|
}
|
|
print dol_escape_htmltag($rib->iban);
|
|
print '</td>';
|
|
// BIC
|
|
print '<td>';
|
|
if (!empty($rib->bic)) {
|
|
if (!checkSwiftForAccount($rib)) {
|
|
print img_picto($langs->trans("SwiftNotValid"), 'warning').' ';
|
|
}
|
|
}
|
|
print dol_escape_htmltag($rib->bic);
|
|
print '</td>';
|
|
|
|
if (isModEnabled('prelevement')) {
|
|
// RUM
|
|
//print '<td>'.$prelevement->buildRumNumber($object->code_client, $rib->datec, $rib->id).'</td>';
|
|
print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($rib->rum).'">'.dol_escape_htmltag($rib->rum).'</td>';
|
|
|
|
print '<td>'.dol_print_date($rib->date_rum, 'day').'</td>';
|
|
|
|
// FRST or RCUR
|
|
print '<td>'.dol_escape_htmltag($rib->frstrecur).'</td>';
|
|
}
|
|
|
|
// Default
|
|
print '<td class="center" width="70">';
|
|
if (!$rib->default_rib) {
|
|
print '<a href="'.$_SERVER["PHP_SELF"].'?socid='.((int) $object->id).'&ribid='.((int) $rib->id).'&action=setasbankdefault&token='.newToken().'">';
|
|
print img_picto($langs->trans("Disabled"), 'off');
|
|
print '</a>';
|
|
} else {
|
|
print img_picto($langs->trans("Enabled"), 'on');
|
|
}
|
|
print '</td>';
|
|
|
|
// Generate doc
|
|
print '<td class="center">';
|
|
|
|
$buttonlabel = $langs->trans("BuildDoc");
|
|
$forname = 'builddocrib'.$rib->id;
|
|
|
|
include_once DOL_DOCUMENT_ROOT.'/core/modules/bank/modules_bank.php';
|
|
$modellist = ModeleBankAccountDoc::liste_modeles($db);
|
|
|
|
$out = '';
|
|
if (is_array($modellist) && count($modellist)) {
|
|
$out .= '<form action="'.$_SERVER["PHP_SELF"].(!getDolGlobalString('MAIN_JUMP_TAG') ? '' : '#builddoc').'" name="'.$forname.'" id="'.$forname.'_form" method="post">';
|
|
$out .= '<input type="hidden" name="action" value="builddocrib">';
|
|
$out .= '<input type="hidden" name="token" value="'.newToken().'">';
|
|
$out .= '<input type="hidden" name="socid" value="'.$object->id.'">';
|
|
$out .= '<input type="hidden" name="companybankid" value="'.$rib->id.'">';
|
|
|
|
$modelselected = '';
|
|
if (count($modellist) == 1) { // If there is only one element
|
|
$arraykeys = array_keys($modellist);
|
|
$modelselected = $arraykeys[0];
|
|
}
|
|
if (getDolGlobalString('BANKADDON_PDF')) {
|
|
$modelselected = getDolGlobalString('BANKADDON_PDF');
|
|
}
|
|
|
|
$out .= $form->selectarray('modelrib'.$rib->id, $modellist, $modelselected, 1, 0, 0, '', 0, 0, 0, '', 'minwidth100 maxwidth125');
|
|
$out .= ajax_combobox('modelrib'.$rib->id);
|
|
|
|
// Language code (if multilang)
|
|
if (getDolGlobalInt('MAIN_MULTILANGS')) {
|
|
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formadmin.class.php';
|
|
$formadmin = new FormAdmin($db);
|
|
$defaultlang = $langs->getDefaultLang();
|
|
$morecss = 'maxwidth150';
|
|
if ($conf->browser->layout == 'phone') {
|
|
$morecss = 'maxwidth100';
|
|
}
|
|
$out .= $formadmin->select_language($defaultlang, 'lang_idrib'.$rib->id, 0, 0, 0, 0, 0, $morecss);
|
|
}
|
|
// Button
|
|
$out .= '<input class="button buttongen reposition nomargintop nomarginbottom" id="'.$forname.'_generatebutton" name="'.$forname.'_generatebutton"';
|
|
$out .= ' type="submit" value="'.$buttonlabel.'"';
|
|
$out .= '>';
|
|
$out .= '</form>';
|
|
}
|
|
print $out;
|
|
print '</td>';
|
|
|
|
// Fields from hook
|
|
$parameters = array('arrayfields' => array(), 'stripe_card_ref' => $rib->stripe_card_ref, 'stripe_account' => $rib->stripe_account, 'linetype' => 'stripeban');
|
|
$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
|
|
if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
|
|
// Show online signature link
|
|
print '<td class="right nowraponall">';
|
|
$useonlinesignature = 1;
|
|
if ($useonlinesignature) {
|
|
require_once DOL_DOCUMENT_ROOT . '/core/lib/signature.lib.php';
|
|
print showOnlineSignatureUrl($companybankaccount->element, $rib->id, $rib);
|
|
}
|
|
print '</td>';
|
|
}
|
|
|
|
// Edit/Delete
|
|
print '<td class="right nowraponall">';
|
|
if ($permissiontoaddupdatepaymentinformation) {
|
|
if (isModEnabled('stripe')) {
|
|
if (empty($rib->stripe_card_ref)) {
|
|
if ($object->client) {
|
|
// Add link to create BAN on Stripe
|
|
print '<a class="editfielda marginrightonly marginleftonly" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=syncsepatostripe&token='.newToken().'">';
|
|
print img_picto($langs->trans("CreateBANOnStripe"), 'stripe');
|
|
print '</a>';
|
|
} else {
|
|
print '<span class="opacitymedium marginrightonly marginleftonly">';
|
|
print img_picto($langs->trans("ThirdPartyMustBeACustomerToCreateBANOnStripe"), 'stripe');
|
|
print '</span>';
|
|
}
|
|
}
|
|
}
|
|
|
|
print '<a class="editfielda marginrightonly marginleftonly" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=edit">';
|
|
print img_picto($langs->trans("Modify"), 'edit');
|
|
print '</a>';
|
|
|
|
print '<a class="marginrightonly marginleftonly reposition" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=deletebank&token='.newToken().'">';
|
|
print img_picto($langs->trans("Delete"), 'delete');
|
|
print '</a>';
|
|
}
|
|
print '</td>';
|
|
|
|
print '</tr>';
|
|
}
|
|
|
|
|
|
// List of remote BAN (if not already added as local)
|
|
foreach ($listofsources as $src) {
|
|
if (!empty($arrayofremoteban[$src->id])) {
|
|
continue; // Already in previous list
|
|
}
|
|
|
|
$imgline = '';
|
|
if ($src->object == 'source' && $src->type == 'sepa_debit') {
|
|
$imgline = '<span class="fa fa-university fa-2x fa-fw"></span>';
|
|
} elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
|
|
$imgline = '<span class="fa fa-university fa-2x fa-fw"></span>';
|
|
} else {
|
|
continue;
|
|
}
|
|
|
|
$nbremote++;
|
|
|
|
print '<tr class="oddeven">';
|
|
print '<td>';
|
|
print '</td>';
|
|
// Src ID
|
|
print '<td class="tdoverflowmax150">';
|
|
$connect = '';
|
|
if (!empty($stripeacc)) {
|
|
$connect = $stripeacc.'/';
|
|
}
|
|
//$url='https://dashboard.stripe.com/'.$connect.'test/sources/'.$src->id;
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$src->id;
|
|
if ($servicestatus) {
|
|
//$url='https://dashboard.stripe.com/'.$connect.'sources/'.$src->id;
|
|
$url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$src->id;
|
|
}
|
|
print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
|
|
print $src->id;
|
|
print '</td>';
|
|
// Bank
|
|
print '<td>';
|
|
print'</td>';
|
|
// Account number
|
|
print '<td valign="middle">';
|
|
print '</td>';
|
|
// IBAN
|
|
print '<td valign="middle">';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
// BIC
|
|
print '<td valign="middle">';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
|
|
if (isModEnabled('prelevement')) {
|
|
// RUM
|
|
print '<td valign="middle">';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
// Date
|
|
print '<td valign="middle">';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
// Mode mandate
|
|
print '<td valign="middle">';
|
|
//var_dump($src);
|
|
print '</td>';
|
|
}
|
|
|
|
// Default
|
|
print '<td class="center" width="50">';
|
|
if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
|
|
(!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
|
|
print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
|
|
print img_picto($langs->trans("Default"), 'off');
|
|
print '</a>';
|
|
} else {
|
|
print img_picto($langs->trans("Default"), 'on');
|
|
}
|
|
print '</td>';
|
|
/*
|
|
print '<td>';
|
|
print $langs->trans("Remote");
|
|
//if ($src->cvc_check == 'fail') print ' - CVC check fail';
|
|
print '</td>';
|
|
*/
|
|
|
|
print '<td>';
|
|
print '</td>';
|
|
|
|
// Fields from hook
|
|
$parameters = array('arrayfields' => array(), 'stripe_card_ref' => $rib->stripe_card_ref, 'stripe_account' => $rib->stripe_account, 'linetype' => 'stripebanremoteonly');
|
|
$reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
|
|
print $hookmanager->resPrint;
|
|
|
|
// Action column
|
|
print '<td class="right nowraponall">';
|
|
if ($permissiontoaddupdatepaymentinformation) {
|
|
print '<a class="marginleftonly marginrightonly reposition" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletebank&token='.newToken().'">';
|
|
print img_picto($langs->trans("Delete"), 'delete');
|
|
print '</a>';
|
|
}
|
|
print '</td>';
|
|
|
|
print '</tr>';
|
|
}
|
|
|
|
if ($nbremote == 0 && $nblocal == 0) {
|
|
$colspan = 10;
|
|
if (isModEnabled('prelevement')) {
|
|
$colspan += 3;
|
|
}
|
|
print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("NoBANRecord").'</span></td></tr>';
|
|
}
|
|
|
|
print '</table>';
|
|
print '</div>';
|
|
} else {
|
|
dol_print_error($db);
|
|
}
|
|
|
|
//Hook to display your print listing (list of CB card from Stancer Plugin for example)
|
|
$parameters = array('arrayfields' => array(), 'param' => '', 'sortfield' => '', 'sortorder' => '', 'linetype' => '');
|
|
$reshook = $hookmanager->executeHooks('printNewTable', $parameters, $object);
|
|
print $hookmanager->resPrint;
|
|
|
|
if (!getDolGlobalString('SOCIETE_DISABLE_BUILDDOC')) {
|
|
print '<br>';
|
|
|
|
print '<div class="fichecenter"><div class="fichehalfleft">';
|
|
print '<a name="builddoc"></a>'; // ancre
|
|
|
|
/*
|
|
* Generated documents
|
|
*/
|
|
$filedir = $conf->societe->multidir_output[$object->entity].'/'.$object->id;
|
|
$urlsource = $_SERVER["PHP_SELF"]."?socid=".$object->id;
|
|
|
|
print $formfile->showdocuments('company', $object->id, $filedir, $urlsource, $permissiontoread, $permissiontoaddupdatepaymentinformation, $object->model_pdf, 0, 0, 0, 28, 0, 'entity='.$object->entity, 0, '', $object->default_lang);
|
|
|
|
// Show direct download link
|
|
if (getDolGlobalString('BANK_ACCOUNT_ALLOW_EXTERNAL_DOWNLOAD')) {
|
|
$companybankaccounttemp = new CompanyBankAccount($db);
|
|
$companypaymentmodetemp = new CompanyPaymentMode($db);
|
|
// @phan-suppress-next-line PhanPluginSuspiciousParamPosition
|
|
$result = $companypaymentmodetemp->fetch(0, null, $object->id, 'ban');
|
|
|
|
include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
|
|
$ecmfile = new EcmFiles($db);
|
|
// @phan-suppress-next-line PhanPluginSuspiciousParamPosition
|
|
$result = $ecmfile->fetch(0, '', '', '', '', $companybankaccounttemp->table_element, $companypaymentmodetemp->id);
|
|
if ($result > 0) {
|
|
$companybankaccounttemp->last_main_doc = $ecmfile->filepath.'/'.$ecmfile->filename;
|
|
print '<br><!-- Link to download main doc -->'."\n";
|
|
print showDirectDownloadLink($companybankaccounttemp).'<br>';
|
|
}
|
|
}
|
|
|
|
print '</div><div class="fichehalfright">';
|
|
|
|
|
|
print '</div></div>';
|
|
|
|
print '<br>';
|
|
}
|
|
/*
|
|
include_once DOL_DOCUMENT_ROOT.'/core/modules/bank/modules_bank.php';
|
|
$modellist=ModeleBankAccountDoc::liste_modeles($db);
|
|
//print '<td>';
|
|
if (is_array($modellist) && count($modellist) == 1) // If there is only one element
|
|
{
|
|
$arraykeys=array_keys($modellist);
|
|
$modelselected=$arraykeys[0];
|
|
}
|
|
$out.= $form->selectarray('model', $modellist, $modelselected, 0, 0, 0, '', 0, 0, 0, '', 'minwidth100');
|
|
$out.= ajax_combobox('model');
|
|
//print $out;
|
|
$buttonlabel=$langs->trans("Generate");
|
|
$genbutton = '<input class="button buttongen reposition nomargintop nomarginbottom" id="'.$forname.'_generatebutton" name="'.$forname.'_generatebutton"';
|
|
$genbutton.= ' type="submit" value="'.$buttonlabel.'"';
|
|
$genbutton.= '>';
|
|
print $genbutton;
|
|
//print '</td>'; // TODO Add link to generate doc
|
|
*/
|
|
}
|
|
|
|
// Edit BAN
|
|
if ($socid && $action == 'edit' && $permissiontoaddupdatepaymentinformation) {
|
|
print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
|
|
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
|
|
|
|
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
|
|
|
|
print '<div class="underbanner clearboth"></div>';
|
|
|
|
print '<br>';
|
|
|
|
print '<div class="div-table-responsive-no-min">';
|
|
print '<table class="border centpercent">';
|
|
|
|
print '<tr><td class="titlefield fieldrequired">'.$langs->trans("Label").'</td>';
|
|
print '<td><input class="minwidth300" type="text" name="label" value="'.$companybankaccount->label.'"></td></tr>';
|
|
|
|
print '<tr><td class="fieldrequired">'.$langs->trans("BankName").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="bank" value="'.$companybankaccount->bank.'"></td></tr>';
|
|
|
|
// Show fields of bank account
|
|
$bankaccount = $companybankaccount;
|
|
// Code here is similare than into bank.php for users
|
|
foreach ($bankaccount->getFieldsToShow(1) as $val) {
|
|
$require = false;
|
|
$tooltip = '';
|
|
if ($val == 'BankCode') {
|
|
$name = 'code_banque';
|
|
$size = 8;
|
|
$content = $bankaccount->code_banque;
|
|
} elseif ($val == 'DeskCode') {
|
|
$name = 'code_guichet';
|
|
$size = 8;
|
|
$content = $bankaccount->code_guichet;
|
|
} elseif ($val == 'BankAccountNumber') {
|
|
$name = 'number';
|
|
$size = 18;
|
|
$content = $bankaccount->number;
|
|
} elseif ($val == 'BankAccountNumberKey') {
|
|
$name = 'cle_rib';
|
|
$size = 3;
|
|
$content = $bankaccount->cle_rib;
|
|
} elseif ($val == 'IBAN') {
|
|
$name = 'iban';
|
|
$size = 30;
|
|
$content = $bankaccount->iban;
|
|
if ($bankaccount->needIBAN()) {
|
|
$require = true;
|
|
}
|
|
$tooltip = $langs->trans("Example").':<br>CH93 0076 2011 6238 5295 7<br>LT12 1000 0111 0100 1000<br>FR14 2004 1010 0505 0001 3M02 606<br>LU28 0019 4006 4475 0000<br>DE89 3704 0044 0532 0130 00';
|
|
} elseif ($val == 'BIC') {
|
|
$name = 'bic';
|
|
$size = 12;
|
|
$content = $bankaccount->bic;
|
|
if ($bankaccount->needIBAN()) {
|
|
$require = true;
|
|
}
|
|
$tooltip = $langs->trans("Example").': LIABLT2XXXX';
|
|
}
|
|
|
|
print '<tr>';
|
|
print '<td'.($require ? ' class="fieldrequired" ' : '').'>';
|
|
if ($tooltip) {
|
|
print $form->textwithpicto($langs->trans($val), $tooltip, 4, 'help', '', 0, 3, $name);
|
|
} else {
|
|
print $langs->trans($val);
|
|
}
|
|
print '</td>';
|
|
print '<td><input size="'.$size.'" type="text" class="flat" name="'.$name.'" value="'.$content.'"></td>';
|
|
print '</tr>';
|
|
}
|
|
|
|
print '<tr><td class="tdtop">'.$langs->trans("BankAccountDomiciliation").'</td><td>';
|
|
print '<textarea name="address" rows="4" cols="40" maxlength="255">';
|
|
print $companybankaccount->address;
|
|
print "</textarea></td></tr>";
|
|
|
|
print '<tr><td>'.$langs->trans("BankAccountOwner").'</td>';
|
|
print '<td><input class="minwidth300" type="text" name="proprio" value="'.$companybankaccount->proprio.'"></td></tr>';
|
|
print "</td></tr>\n";
|
|
|
|
print '<tr><td class="tdtop">'.$langs->trans("BankAccountOwnerAddress").'</td><td>';
|
|
print '<textarea name="owner_address" rows="'.ROWS_4.'" cols="40" maxlength="255">';
|
|
print $companybankaccount->owner_address;
|
|
print "</textarea></td></tr>";
|
|
|
|
print '</table>';
|
|
print '</div>';
|
|
|
|
if (isModEnabled('prelevement')) {
|
|
print '<br>';
|
|
|
|
print '<div class="div-table-responsive-no-min">';
|
|
print '<table class="border centpercent">';
|
|
|
|
if (empty($companybankaccount->rum)) {
|
|
$companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, $companybankaccount->id);
|
|
}
|
|
|
|
// RUM
|
|
print '<tr><td class="titlefield">'.$langs->trans("RUM").'</td>';
|
|
print '<td><input class="minwidth300" type="text" name="rum" value="'.dol_escape_htmltag($companybankaccount->rum).'"></td></tr>';
|
|
|
|
$date_rum = dol_mktime(0, 0, 0, GETPOST('date_rummonth'), GETPOST('date_rumday'), GETPOST('date_rumyear'));
|
|
|
|
print '<tr><td class="titlefield">'.$langs->trans("DateRUM").'</td>';
|
|
print '<td>'.$form->selectDate($date_rum ? $date_rum : $companybankaccount->date_rum, 'date_rum', 0, 0, 1, 'date_rum', 1, 1).'</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("WithdrawMode").'</td><td>';
|
|
$tblArraychoice = array("FRST" => $langs->trans("FRST"), "RCUR" => $langs->trans("RECUR"));
|
|
print $form->selectarray("frstrecur", $tblArraychoice, dol_escape_htmltag(GETPOST('frstrecur', 'alpha') ? GETPOST('frstrecur', 'alpha') : $companybankaccount->frstrecur), 0);
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("ExternalSystemID")." ('pm_...' or 'src_...')</td>";
|
|
print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.$companypaymentmode->stripe_card_ref.'"></td></tr>';
|
|
|
|
print '</table>';
|
|
print '</div>';
|
|
}
|
|
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
print $form->buttonsSaveCancel("Modify");
|
|
}
|
|
|
|
// Edit Card
|
|
if ($socid && $action == 'editcard' && $permissiontoaddupdatepaymentinformation) {
|
|
print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
|
|
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
|
|
|
|
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
|
|
|
|
print '<div class="nofichecenter">';
|
|
|
|
print '<div class="underbanner clearboth"></div>';
|
|
|
|
print '<br>';
|
|
|
|
print '<table class="border centpercent">';
|
|
|
|
print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
|
|
print '<td><input class="minwidth300" type="text" id="label" name="label" value="'.$companypaymentmode->label.'"></td></tr>';
|
|
|
|
print '<tr><td class="fieldrequired">'.$langs->trans("NameOnCard").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="proprio" value="'.$companypaymentmode->proprio.'"></td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("CardNumber").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="cardnumber" value="'.$companypaymentmode->number.'"></td></tr>';
|
|
|
|
print '<tr><td class="fieldrequired">'.$langs->trans("ExpiryDate").'</td>';
|
|
print '<td>';
|
|
print $formother->select_month($companypaymentmode->exp_date_month, 'exp_date_month', 1);
|
|
print $formother->selectyear($companypaymentmode->exp_date_year, 'exp_date_year', 1, 5, 10, 0, 0, '', 'marginleftonly');
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("CVN").'</td>';
|
|
print '<td><input size="8" type="text" name="cvn" value="'.$companypaymentmode->cvn.'"></td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("ExternalSystemID")." ('pm_... ".$langs->trans("or")." card_....')</td>";
|
|
print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.$companypaymentmode->stripe_card_ref.'"></td></tr>';
|
|
|
|
print '</table>';
|
|
print '</div>';
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
print $form->buttonsSaveCancel("Modify");
|
|
}
|
|
|
|
|
|
// Create BAN
|
|
if ($socid && $action == 'create' && $permissiontoaddupdatepaymentinformation) {
|
|
print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
|
|
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
|
|
|
|
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
|
|
|
|
print '<div class="nofichecenter">';
|
|
|
|
print '<div class="underbanner clearboth"></div>';
|
|
|
|
print '<br>';
|
|
|
|
print '<table class="border centpercent">';
|
|
|
|
print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
|
|
print '<td><input class="minwidth200" type="text" id="label" name="label" value="'.(GETPOSTISSET('label') ? GETPOST('label') : $object->name).'"></td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("Bank").'</td>';
|
|
print '<td><input class="minwidth200" type="text" id="bank" name="bank" value="'.GETPOST('bank').'"></td></tr>';
|
|
|
|
// Show fields of bank account
|
|
foreach ($companybankaccount->getFieldsToShow(1) as $val) {
|
|
$require = false;
|
|
$tooltip = '';
|
|
if ($val == 'BankCode') {
|
|
$name = 'code_banque';
|
|
$size = 8;
|
|
$content = $companybankaccount->code_banque;
|
|
} elseif ($val == 'DeskCode') {
|
|
$name = 'code_guichet';
|
|
$size = 8;
|
|
$content = $companybankaccount->code_guichet;
|
|
} elseif ($val == 'BankAccountNumber') {
|
|
$name = 'number';
|
|
$size = 18;
|
|
$content = $companybankaccount->number;
|
|
} elseif ($val == 'BankAccountNumberKey') {
|
|
$name = 'cle_rib';
|
|
$size = 3;
|
|
$content = $companybankaccount->cle_rib;
|
|
} elseif ($val == 'IBAN') {
|
|
$name = 'iban';
|
|
$size = 30;
|
|
$content = $companybankaccount->iban;
|
|
if ($companybankaccount->needIBAN()) {
|
|
$require = true;
|
|
}
|
|
$tooltip = $langs->trans("Example").':<br>CH93 0076 2011 6238 5295 7<br>LT12 1000 0111 0100 1000<br>FR14 2004 1010 0505 0001 3M02 606<br>LU28 0019 4006 4475 0000<br>DE89 3704 0044 0532 0130 00';
|
|
} elseif ($val == 'BIC') {
|
|
$name = 'bic';
|
|
$size = 12;
|
|
$content = $companybankaccount->bic;
|
|
if ($companybankaccount->needIBAN()) {
|
|
$require = true;
|
|
}
|
|
$tooltip = $langs->trans("Example").': LIABLT2XXXX';
|
|
}
|
|
|
|
print '<tr><td'.($require ? ' class="fieldrequired" ' : '').'>';
|
|
if ($tooltip) {
|
|
print $form->textwithpicto($langs->trans($val), $tooltip, 4, 'help', '', 0, 3, $name);
|
|
} else {
|
|
print $langs->trans($val);
|
|
}
|
|
print '</td>';
|
|
print '<td><input size="'.$size.'" type="text" class="flat" name="'.$name.'" value="'.GETPOST($name).'"></td>';
|
|
print '</tr>';
|
|
}
|
|
|
|
print '<tr><td class="tdtop">'.$langs->trans("BankAccountDomiciliation").'</td><td>';
|
|
print '<textarea name="address" rows="'.ROWS_4.'" class="quatrevingtpercent" maxlength="255">';
|
|
print GETPOST('address');
|
|
print "</textarea></td></tr>";
|
|
|
|
print '<tr><td>'.$langs->trans("BankAccountOwner").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="proprio" value="'.GETPOST('proprio').'"></td></tr>';
|
|
print "</td></tr>\n";
|
|
|
|
print '<tr><td class="tdtop">'.$langs->trans("BankAccountOwnerAddress").'</td><td>';
|
|
print '<textarea name="owner_address" rows="'.ROWS_4.'" class="quatrevingtpercent" maxlength="255">';
|
|
print GETPOST('owner_address');
|
|
print "</textarea></td></tr>";
|
|
|
|
print '</table>';
|
|
|
|
if (isModEnabled('prelevement')) {
|
|
print '<br>';
|
|
|
|
print '<table class="border centpercent">';
|
|
|
|
// RUM
|
|
print '<tr><td class="titlefieldcreate">'.$form->textwithpicto($langs->trans("RUM"), $langs->trans("RUMLong").'<br>'.$langs->trans("RUMWillBeGenerated")).'</td>';
|
|
print '<td colspan="4"><input type="text" class="minwidth300" name="rum" value="'.GETPOST('rum', 'alpha').'"></td></tr>';
|
|
|
|
$date_rum = dol_mktime(0, 0, 0, GETPOST('date_rummonth'), GETPOST('date_rumday'), GETPOST('date_rumyear'));
|
|
|
|
print '<tr><td class="titlefieldcreate">'.$langs->trans("DateRUM").'</td>';
|
|
print '<td colspan="4">'.$form->selectDate($date_rum, 'date_rum', 0, 0, 1, 'date_rum', 1, 1).'</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("WithdrawMode").'</td><td>';
|
|
$tblArraychoice = array("FRST" => $langs->trans("FRST"), "RCUR" => $langs->trans("RECUR"));
|
|
print $form->selectarray("frstrecur", $tblArraychoice, (GETPOSTISSET('frstrecur') ? GETPOST('frstrecur') : 'FRST'), 0);
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("ExternalSystemID")." ('src_....')</td>";
|
|
print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.GETPOST('stripe_card_ref', 'alpha').'"></td></tr>';
|
|
|
|
print '</table>';
|
|
}
|
|
|
|
print '</div>';
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
dol_set_focus('#bank');
|
|
|
|
print $form->buttonsSaveCancel("Add");
|
|
}
|
|
|
|
// Create Card
|
|
if ($socid && $action == 'createcard' && $permissiontoaddupdatepaymentinformation) {
|
|
print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
|
|
|
|
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
|
|
|
|
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
|
|
|
|
print '<div class="nofichecenter">';
|
|
|
|
print '<div class="underbanner clearboth"></div>';
|
|
|
|
print '<br>';
|
|
|
|
print '<table class="border centpercent">';
|
|
|
|
print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
|
|
print '<td><input class="minwidth200" type="text" id="label" name="label" value="'.GETPOST('label', 'alpha').'"></td></tr>';
|
|
|
|
print '<tr><td class="fieldrequired">'.$langs->trans("NameOnCard").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="proprio" value="'.GETPOST('proprio', 'alpha').'"></td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("CardNumber").'</td>';
|
|
print '<td><input class="minwidth200" type="text" name="cardnumber" value="'.GETPOST('cardnumber', 'alpha').'"></td></tr>';
|
|
|
|
print '<tr><td class="fieldrequired">'.$langs->trans("ExpiryDate").'</td>';
|
|
print '<td>';
|
|
print $formother->select_month(GETPOSTINT('exp_date_month'), 'exp_date_month', 1);
|
|
print $formother->selectyear(GETPOSTINT('exp_date_year'), 'exp_date_year', 1, 5, 10, 0, 0, '', 'marginleftonly');
|
|
print '</td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("CVN").'</td>';
|
|
print '<td><input class="width50" type="text" name="cvn" value="'.GETPOST('cvn', 'alpha').'"></td></tr>';
|
|
|
|
print '<tr><td>'.$langs->trans("ExternalSystemID")." ('card_....')</td>";
|
|
print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.GETPOST('stripe_card_ref', 'alpha').'"></td></tr>';
|
|
|
|
print '</table>';
|
|
|
|
print '</div>';
|
|
|
|
print dol_get_fiche_end();
|
|
|
|
dol_set_focus('#label');
|
|
|
|
print $form->buttonsSaveCancel("Add");
|
|
}
|
|
|
|
if ($socid && ($action == 'edit' || $action == 'editcard') && $permissiontoaddupdatepaymentinformation) {
|
|
print '</form>';
|
|
}
|
|
if ($socid && ($action == 'create' || $action == 'createcard') && $permissiontoaddupdatepaymentinformation) {
|
|
print '</form>';
|
|
}
|
|
|
|
// End of page
|
|
llxFooter();
|
|
$db->close();
|