alxarafe / alixar

public/htdocs/societe/paymentmodes.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>
 * Copyright (C) 2024		MDW							<mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024       Frédéric France             <frederic.france@free.fr>
 * Copyright (C) 2024       Rafael San José             <rsanjose@alxarafe.com>
 *
 * 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/>.
 */

use Dolibarr\Code\Compta\Classes\BonPrelevement;
use Dolibarr\Code\Core\Classes\ExtraFields;
use Dolibarr\Code\Core\Classes\Form;
use Dolibarr\Code\Core\Classes\FormAdmin;
use Dolibarr\Code\Core\Classes\FormFile;
use Dolibarr\Code\Core\Classes\FormOther;
use Dolibarr\Code\Ecm\Classes\EcmFiles;
use Dolibarr\Code\Societe\Classes\CompanyBankAccount;
use Dolibarr\Code\Societe\Classes\CompanyPaymentMode;
use Dolibarr\Code\Societe\Classes\Societe;
use Dolibarr\Code\Societe\Classes\SocieteAccount;
use Dolibarr\Code\Stripe\Classes\Stripe;
use Dolibarr\Lib\ViewMain;

/**
 *      \file       htdocs/societe/paymentmodes.php
 *      \ingroup    societe
 *      \brief      Tab of payment modes for the customer
 */

// Load Dolibarr environment
require constant('DOL_DOCUMENT_ROOT') . '/main.inc.php';
require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/company.lib.php';
require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/bank.lib.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, 2);

            $companybankaccount->socid = $object->id;

            $companybankaccount->bank = GETPOST('bank', 'alpha');
            $companybankaccount->label = GETPOST('label', 'alpha');

It seems like GETPOST('label', 'alpha') can also be of type array or array or array. However, the property $label is declared as type string. Maybe add an additional type check?

            $companybankaccount->status = GETPOSTINT('clos');
            $companybankaccount->clos = $companybankaccount->status;

The property Dolibarr\Code\Compta\Classes\Account::$clos has been deprecated: Duplicate field. We already have the field $this->status

The property $clos is declared private in Dolibarr\Code\Compta\Classes\Account. Since you implement __set, consider adding a @property or @property-write.

            $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');

It seems like GETPOST('iban', 'alpha') can also be of type array or array or array. However, the property $iban is declared as type string. Maybe add an additional type check?

            $companybankaccount->address = GETPOST('address', 'alpha');

It seems like GETPOST('address', 'alpha') can also be of type array or array or array. However, the property $address is declared as type string. Maybe add an additional type check?

            $companybankaccount->domiciliation = $companybankaccount->address;

The property $domiciliation is declared private in Dolibarr\Code\Compta\Classes\Account. Since you implement __set, consider adding a @property or @property-write.

It seems like $companybankaccount->address can also be of type array or array or array. However, the property $domiciliation is declared as type string. Maybe add an additional type check?

            $companybankaccount->owner_name = GETPOST('proprio', 'alpha');

It seems like GETPOST('proprio', 'alpha') can also be of type array or array or array. However, the property $owner_name is declared as type string. Maybe add an additional type check?

            $companybankaccount->proprio = $companybankaccount->owner_name;

The property $proprio is declared private in Dolibarr\Code\Compta\Classes\Account. Since you implement __set, consider adding a @property or @property-write.

It seems like $companybankaccount->owner_name can also be of type array or array or array. However, the property $proprio is declared as type string. Maybe add an additional type check?

            $companybankaccount->owner_address = GETPOST('owner_address', 'alpha');

It seems like GETPOST('owner_address', 'alpha') can also be of type array or array or array. However, the property $owner_address is declared as type string. Maybe add an additional type check?

            $companybankaccount->frstrecur = GETPOST('frstrecur', 'alpha');

It seems like GETPOST('frstrecur', 'alpha') can also be of type array or array or array. However, the property $frstrecur is declared as type string. Maybe add an additional type check?

            $companybankaccount->rum = GETPOST('rum', 'alpha');

It seems like GETPOST('rum', 'alpha') can also be of type array or array or array. However, the property $rum is declared as type string. Maybe add an additional type check?

            $companybankaccount->date_rum = dol_mktime(0, 0, 0, GETPOST('date_rummonth'), GETPOST('date_rumday'), GETPOST('date_rumyear'));

It seems like dol_mktime(0, 0, 0, GETPOST('date_rummonth'), GETPOST('date_rumday'), GETPOST('date_rumyear')) can also be of type string. However, the property $date_rum is declared as type integer. Maybe add an additional type check?

            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');

It seems like GETPOST('stripe_card_ref', 'alpha') can also be of type array or array or array. However, the property $stripe_card_ref is declared as type string. Maybe add an additional type check?

            $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) {

The property stripe_card_ref does not exist on Dolibarr\Core\Base\CommonObject. Since you implemented __get, consider adding a @property annotation.

                    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, 2);

            $companypaymentmode->fk_soc = $object->id;

            $companypaymentmode->bank = GETPOST('bank', 'alpha');
            $companypaymentmode->label = GETPOST('label', 'alpha');

It seems like GETPOST('label', 'alpha') can also be of type array or array or array. However, the property $label is declared as type string. Maybe add an additional type check?

            $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->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->clos          = GETPOSTINT('clos');
            $companybankaccount->status = GETPOSTINT('clos');

            $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 = constant('BASE_URL') . '/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'] = GETPOST('lang_idrib' . GETPOSTINT('companybankid'), 'alphanohtml');   // This is required by core/action_builddoc.inc.php
        $_POST['model'] = GETPOST('modelrib' . GETPOSTINT('companybankid'), 'alphanohtml');       // This is required by core/action_builddoc.inc.php
    }

    $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 = array();
                    $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 = constant('BASE_URL') . '/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
                }
                // @phan-suppress-next-line PhanDeprecatedFunction
                $result = $cu->save();

                $url = constant('BASE_URL') . '/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 = constant('BASE_URL') . '/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 = constant('BASE_URL') . '/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/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
    $title = $object->name . " - " . $langs->trans('PaymentInformation');
}
$help_url = '';

ViewMain::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="' . constant('BASE_URL') . '/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 = array();
        $elementTypeArray = array();
        $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 . '&amp;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="' . constant('BASE_URL') . '/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->date_modification, 'dayhour', 'tzuserrel');
                            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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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 . '&amp;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::selectLanguage($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="width200">';
                $useonlinesignature = 1;
                if ($useonlinesignature) {
                    require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/signature.lib.php';
                    print showOnlineSignatureUrl($companybankaccount->element, $rib->id, $rib, 'short');
                }
                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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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');

            $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="' . constant('BASE_URL') . '/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 similar as in 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->owner_name . '"></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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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="' . constant('BASE_URL') . '/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
ViewMain::llxFooter();
$db->close();