paymentmodes.php

Go to the documentation of this file.

<?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-2025  MDW           <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024-2025  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2025       Josep Lluís Amador      <joseplluis@lliuretic.cat>
 *
 * 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/>.
 */
 
// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
require_once DOL_DOCUMENT_ROOT.'/societe/class/companybankaccount.class.php';
require_once DOL_DOCUMENT_ROOT.'/societe/class/companypaymentmode.class.php';
require_once DOL_DOCUMENT_ROOT.'/societe/class/societeaccount.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
require_once DOL_DOCUMENT_ROOT.'/stripe/class/stripe.class.php';
 
// Load translation files required by the page
$langs->loadLangs(array("companies", "commercial", "banks", "bills", 'paypal', 'stripe', 'withdrawals'));
 
 
// Get parameters
$action = GETPOST("action", 'alpha', 3);
$cancel = GETPOST('cancel', 'alpha');
$backtopage = GETPOST('backtopage');
 
$id = GETPOSTINT("id");
$source = GETPOST("source", "alpha"); // source can be a source or a paymentmode
$ribid = GETPOSTINT("ribid");
 
// Security check
$socid = GETPOSTINT("socid");
if ($user->socid) {
  $socid = $user->socid;
}
 
// Initialize objects
$object = new Societe($db);
$object->fetch($socid);
 
$companybankaccount = new CompanyBankAccount($db);
$companypaymentmode = new CompanyPaymentMode($db);
$prelevement = new BonPrelevement($db);
 
$extrafields = new ExtraFields($db);
 
// fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);
 
// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an 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 = $user->hasRight('societe', 'thirdparty_paymentinformation', 'write');
 
// Check permission on company
$result = restrictedArea($user, 'societe', '', '');
 
$stripe = null;  // Stripe object
$stripeacc = null; // Stripe Account
$stripecu = null; // Remote stripe customer
 
$servicestatus = 0;
$site_account = 'UnknownSiteAccount';
 
// Init Stripe objects
if (isModEnabled('stripe')) {
  $service = 'StripeTest';
  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;
    }
  }
 
  // Security: any action that references a bank account / payment mode by a posted id or ribid must
  // only act on a record of the thirdparty of the page. Without this, the id of a societe_rib row of
  // another company (or another entity) could be forged to read (IBAN...), update or delete it.
  if (in_array($action, ['update', 'updatecard', 'edit', 'editcard', 'setasbankdefault', 'confirm_deletecard', 'confirm_deletebank', 'synccardtostripe', 'syncsepatostripe'])) {
    $idtocheckowner = ($ribid > 0 ? $ribid : $id);
    if ($idtocheckowner > 0) {
      $tmppaymentinfo = new CompanyBankAccount($db);
      if ($tmppaymentinfo->fetch($idtocheckowner) <= 0 || $tmppaymentinfo->socid != $object->id) {
        accessforbidden($langs->trans('ErrorRecordNotFound'));
      }
    }
  }
 
  if ($action == 'update' && $permissiontoaddupdatepaymentinformation) {
    // Update the bank account
    if (!GETPOST('label', 'alpha') || !(GETPOST('bank', 'alpha') || (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') != 0))) {
      if (!GETPOST('label', 'alpha')) {
        setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
      }
      if (!GETPOST('bank', 'alpha') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
        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 ($companybankaccount->needBIC() == 1) {
      if (!GETPOST('bic') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
        setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BIC")), null, 'errors');
        $action = 'edit';
        $error++;
      }
    }
 
    if (!$error) {
      $companybankaccount->oldcopy = dol_clone($companybankaccount, 2);  // @phan-suppress-current-line PhanTypeMismatchProperty
 
      $companybankaccount->socid           = $object->id;
 
      $companybankaccount->bank            = GETPOST('bank', 'alpha');
      $companybankaccount->label           = GETPOST('label', 'alpha');
      $companybankaccount->status          = GETPOSTINT('clos');
      $companybankaccount->clos            = $companybankaccount->status;
      $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->address         = GETPOST('address', 'alpha');
 
      $companybankaccount->owner_name      = GETPOST('proprio', 'alpha');
      $companybankaccount->proprio         = $companybankaccount->owner_name;
      $companybankaccount->owner_address   = GETPOST('owner_address', 'alpha');
      $companybankaccount->frstrecur       = GETPOST('frstrecur', 'alpha');
      $companybankaccount->rum             = GETPOST('rum', 'alpha');
      $companybankaccount->date_rum = GETPOSTDATE('date_rum', '00:00:00');
      if (empty($companybankaccount->rum)) {
        $companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, (string) $companybankaccount->id);
      }
 
      if (GETPOST('stripe_card_ref', 'alpha') && GETPOST('stripe_card_ref', 'alpha') != $companypaymentmode->stripe_card_ref) {
        // If we set a stripe value that is different than previous one, we also set the stripe account
        $companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
      }
      $companybankaccount->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
 
      $result = $companybankaccount->update($user);
      if ($result <= 0) {
        // Display error message and get back to edit mode
        setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
        $action = 'edit';
      } else {
        // If this account is the default bank account, we disable others
        if ($companybankaccount->default_rib) {
          $companybankaccount->setAsDefault($id); // This will make sure there is only one default rib
        }
 
        if ($companypaymentmode->oldcopy->stripe_card_ref != $companypaymentmode->stripe_card_ref) {
          if ($companybankaccount->oldcopy->iban != $companybankaccount->iban) {
            // TODO If we modified the iban, we must also update the pm_ on Stripe side, or break the link completely ?
          }
        }
 
        $url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
        header('Location: '.$url);
        exit;
      }
    }
  }
 
  if ($action == 'updatecard' && $permissiontoaddupdatepaymentinformation) {
    // 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) {
      $companypaymentmode->oldcopy = dol_clone($companypaymentmode, 2);  // @phan-suppress-current-line PhanTypeMismatchProperty
 
      $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->owner_name      = GETPOST('proprio', 'alpha');
      $companypaymentmode->proprio         = $companypaymentmode->owner_name;
      $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' && $permissiontoaddupdatepaymentinformation) {
    $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->address         = GETPOST('address', 'alpha');
 
      $companybankaccount->owner_name      = GETPOST('proprio', 'alpha');
      $companybankaccount->proprio         = $companybankaccount->owner_name;
      $companybankaccount->owner_address   = GETPOST('owner_address', 'alpha');
      $companybankaccount->frstrecur       = GETPOST('frstrecur', 'alpha');
      $companybankaccount->rum             = GETPOST('rum', 'alpha');
      $companybankaccount->date_rum        = GETPOSTDATE('date_rum', '00:00:00');
      $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 ($companybankaccount->needBIC() == 1) {
        if (!GETPOST('bic') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
          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, (string) $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' && $permissiontoaddupdatepaymentinformation) {
    $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 && $permissiontoaddupdatepaymentinformation) {
    $companybankaccount = new CompanyBankAccount($db);
    $res = $companybankaccount->setAsDefault(GETPOSTINT('ribid'));
    if ($res) {
      $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
      header('Location: '.$url);
      exit;
    } else {
      setEventMessages($db->lasterror, null, 'errors');
    }
  }
 
  if ($action == 'confirm_deletecard' && GETPOST('confirm', 'alpha') == 'yes' && $permissiontoaddupdatepaymentinformation) {
    // 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' && $permissiontoaddupdatepaymentinformation) {
    // 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' && $permissiontoread) {
    $action = 'builddoc';
    $moreparams = array(
      'use_companybankid' => GETPOST('companybankid'),
      'force_dir_output' => $conf->societe->multidir_output[$object->entity ?? $conf->entity].'/'.dol_sanitizeFileName((string) $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 ?? $conf->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') && $permissiontoaddupdatepaymentinformation) {
      if ($object->client == 0) {
        $error++;
        setEventMessages('ThisThirdpartyIsNotACustomer', null, 'errors');
      } else {
        if ($action == 'synccustomertostripe') {  // Test on permission already done
          $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' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
      // 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) {
          '@phan-var-force \Stripe\Customer $cu';
          // 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' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
      // 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) {
          '@phan-var-force \Stripe\Customer $cu';
          // 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') && $permissiontoaddupdatepaymentinformation) {
      $error = 0;
 
      $tmpservice = 'StripeTest';
      $tmpservicestatus = 0;
      if ($action == 'setkey_account') {  // Test on permission not required
        $tmpservice = 'StripeLive';
        $tmpservicestatus = 1;
      }
 
      // Force to use the correct API key
      global $stripearrayofkeysbyenv;
      $tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
 
      if ($action == 'setkey_account') {  // Test on permission not required
        $newcu = GETPOST('key_account', 'alpha');
      } else {
        $newcu = GETPOST('key_accounttest', 'alpha');
      }
 
      $db->begin();
 
      if (empty($newcu)) {
        $sql = "DELETE 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;
      } 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 the = 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 we did a select
        if (empty($num)) {  // and found nothing
          $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') && $permissiontoaddupdatepaymentinformation) {
      $error = 0;
 
      $tmpservice = 'StripeTest';
      $tmpservicestatus = 0;
      if ($action == 'setkey_account_supplier') {   // Test on permission not required
        $tmpservice = 'StripeLive';
        $tmpservicestatus = 1;
      }
 
      // Force to use the correct API key
      global $stripearrayofkeysbyenv;
      $tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
 
      if ($action == 'setkey_account_supplier') {   // Test on permission not required
        $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 = ".((int) $object->id)." AND service = '".$db->escape($tmpservice)."' AND entity = ".((int) $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' && $permissiontoaddupdatepaymentinformation) { // Set as default when payment mode defined locally (and may be also remotely)
      try {
        $companypaymentmode->setAsDefault($id);
 
        $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
        header('Location: '.$url);
        exit;
      } catch (Exception $e) {
        $error++;
        setEventMessages($e->getMessage(), null, 'errors');
      }
    } elseif ($action == 'setassourcedefault' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) { // 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 = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
        header('Location: '.$url);
        exit;
      } catch (Exception $e) {
        $error++;
        setEventMessages($e->getMessage(), null, 'errors');
      }
    } elseif ($action == 'deletecard' && $source && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
      // 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();
            }
          }
        }
 
        $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
        header('Location: '.$url);
        exit;
      } catch (Exception $e) {
        $error++;
        setEventMessages($e->getMessage(), null, 'errors');
      }
    } elseif ($action == 'deletebank' && $source && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
      // 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((string) $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();
            }
          }
        }
 
        $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
        if (GETPOSTINT('page_y')) {
          $url .= '&page_y='.GETPOSTINT('page_y');
        }
 
        header('Location: '.$url);
        exit;
      } catch (Exception $e) {
        $error++;
        setEventMessages($e->getMessage(), null, 'errors');
      }
    }
  }
}
 
 
 
/*
 *  View
 */
 
$form = new Form($db);
$formother = new FormOther($db);
$formfile = new FormFile($db);
 
$title = $langs->trans("ThirdParty");
if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
  $title = $object->name." - ".$langs->trans('PaymentInformation');
}
$help_url = '';
 
llxHeader('', $title, $help_url);
 
$head = societe_prepare_head($object);
 
// Show sandbox warning
//if (isModEnabled('paypal') && (getDolGlobalString('PAYPAL_API_SANDBOX')/* || GETPOST('forcesandbox','alpha') */)) {
//  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, '', $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') {    // Test on permission not required
    $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') {    // Test on permission not required
    $actionforadd = 'addcard';
  }
  print '<input type="hidden" name="action" value="'.$actionforadd.'">';
}
 
 
// View
if ($socid && $action != 'edit' && $action != 'create' && $action != 'editcard' && $action != 'createcard') {
  print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), -1, 'company');
 
  // Confirm delete ban
  if ($action == 'deletebank') {
    print $form->formconfirm($_SERVER["PHP_SELF"]."?socid=".$object->id."&ribid=".($ribid ? $ribid : $id), $langs->trans("DeleteARib"), $langs->trans("ConfirmDeleteRib", $companybankaccount->getRibLabel()), "confirm_deletebank", '', 0, 1);
  }
  // Confirm delete card
  if ($action == 'deletecard') {
    print $form->formconfirm($_SERVER["PHP_SELF"]."?socid=".$object->id."&ribid=".($ribid ? $ribid : $id), $langs->trans("DeleteACard"), $langs->trans("ConfirmDeleteCard", $companybankaccount->getRibLabel()), "confirm_deletecard", '', 0, 1);
  }
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
  print '<div class="fichecenter">';
 
  print '<div class="underbanner clearboth"></div>';
  print '<table class="border tableforfield centpercent">';
 
  // Type Prospect/Customer/Supplier
  print '<tr><td class="titlefield">';
  print $langs->trans('NatureOfThirdParty');
  print '</td><td>';
  print $object->getTypeUrl(1);
  print '</td></tr>';
 
  if ($object->client) {
    print '<tr><td class="titlefield">';
    print $langs->trans('CustomerCode');
    print '</td><td>';
    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((string) $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, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
      print '</td><td'.(empty($tmpstripecu) ? ' class="right"' : '').'>';
      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>';
      }
      if (empty($tmpstripecu)) {
        print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall">';
        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((string) $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, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
      print '</td><td'.(empty($tmpstripecu) ? ' class="right"' : '').'>';
      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>';
      }
      if (empty($tmpstripecu)) {
        print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall">';
        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');
    print '</td><td>';
    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 && $service !== null) {
    $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, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
    print '</td><td'.(empty($stripesupplieracc) ? ' class="right"' : '').'>';
    print $form->editfieldval("StripeConnectAccount", 'key_account_supplier', $stripesupplieracc, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
    if ($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>';
    }
    if (empty($stripesupplieracc)) {
      print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall">';
      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="'.$ribid.'">';
      //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();
 
  $customerstripe = null;
  if (isset($stripe) && is_object($stripe) && $stripeacc !== null) {
    try {
      $customerstripe = $stripe->customerStripe($object, $stripeacc, $servicestatus);
      if (!empty($customerstripe->id)) {
        // When using the Charge API architecture
        if (!getDolGlobalString('STRIPE_USE_INTENT_WITH_AUTOMATIC_CONFIRMATION')) {
          $listofsources = $customerstripe->sources->data;
        } else {
          $service = 'StripeTest';
          $servicestatus = 0;
          if (getDolGlobalString('STRIPE_LIVE')/* && !GETPOST('forcesandbox', 'alpha') */) {
            $service = 'StripeLive';
            $servicestatus = 1;
          }
 
          // Force to use the correct API key
          global $stripearrayofkeysbyenv;
          \Stripe\Stripe::setApiKey($stripearrayofkeysbyenv[$servicestatus]['secret_key']);
 
          try {
            if (empty($stripeacc)) {        // If the Stripe connect account not set, we use common API usage
              $paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"));
              $paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"));
            } else {
              $paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"), array("stripe_account" => $stripeacc));
              $paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"), array("stripe_account" => $stripeacc));
            }
 
            if ($paymentmethodobjsA->data != null && $paymentmethodobjsB->data != null) {
              $listofsources = array_merge((array) $paymentmethodobjsA->data, (array) $paymentmethodobjsB->data);
            } elseif ($paymentmethodobjsB->data != null) {
              $listofsources = $paymentmethodobjsB->data;
            } else {
              $listofsources = $paymentmethodobjsA->data;
            }
          } catch (Exception $e) {
            $error++;
            setEventMessages($e->getMessage(), null, 'errors');
          }
        }
      }
    } catch (Exception $e) {
      dol_syslog("Error when searching/loading Stripe customer for thirdparty id =".$object->id);
    }
  }
 
 
  // List of Card payment modes
  if ($showcardpaymentmode && $object->client) {
    $morehtmlright = '';
    if (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD')) {
      $morehtmlright .= dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"].'?socid='.$object->id.'&action=createcard');
    }
    print load_fiche_titre($langs->trans('CreditCard'), $morehtmlright, 'fa-credit-card');
    //($stripeacc ? ' (Stripe connection with StripeConnect account '.$stripeacc.')' : ' (Stripe connection with keys from Stripe module setup)')
 
    print '<!-- List of card payments -->'."\n";
    print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
    print '<table class="liste centpercent noborder">'."\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->owner_name) {
                print '<span class="opacitymedium">'.$companypaymentmodetemp->owner_name.'</span><br>';
              }
              if ($companypaymentmodetemp->last_four) {
                print '....'.$companypaymentmodetemp->last_four;
              }
              if ($companypaymentmodetemp->exp_date_month || $companypaymentmodetemp->exp_date_year) {
                print ' - '.sprintf("%02d", $companypaymentmodetemp->exp_date_month).'/'.$companypaymentmodetemp->exp_date_year;
              }
              print '</td>';
              // Country
              print '<td class="tdoverflowmax100">';
              if ($companypaymentmodetemp->country_code) {
                $img = picto_from_langcode($companypaymentmodetemp->country_code);
                print $img ? $img.' ' : '';
                print getCountry($companypaymentmodetemp->country_code, '1');
              } else {
                print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
              }
              print '</td>';
              // Default
              print '<td class="center">';
              if (empty($companypaymentmodetemp->default_rib)) {
                print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=setlocalassourcedefault&token='.newToken().'">';
                print img_picto($langs->trans("Default"), 'off');
                print '</a>';
              } else {
                print img_picto($langs->trans("Default"), 'on');
              }
              print '</td>';
              if (empty($companypaymentmodetemp->stripe_card_ref)) {
                $s = $langs->trans("Local");
              } else {
                $s = $langs->trans("LocalAndRemote");
              }
              print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($s).'">';
              print $s;
              print '</td>';
              print '<td>';
              print dol_print_date($companypaymentmodetemp->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="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=editcard&token='.newToken().'">';
                print img_picto($langs->trans("Modify"), 'edit');
                print '</a>';
                print '<a class="marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=deletecard&token='.newToken().'">'; // source='.$companypaymentmodetemp->stripe_card_ref.'&
                print img_picto($langs->trans("Delete"), 'delete');
                print '</a>';
              }
              print '</td>';
              print '</tr>';
            }
            $i++;
          }
        }
      } else {
        dol_print_error($db);
      }
    }
 
    // Show remote sources (not already shown as local source)
    if (is_array($listofsources) && count($listofsources)) {
      foreach ($listofsources as $src) {
        if (!empty($arrayofremotecard[$src->id])) {
          continue; // Already in previous list
        }
 
        $nbremote++;
 
        $imgline = '';
        if ($src->object == 'card') {
          $imgline = img_credit_card($src->brand);
        } elseif ($src->object == 'source' && $src->type == 'card') {
          $imgline = img_credit_card($src->card->brand);
        } elseif ($src->object == 'payment_method' && $src->type == 'card') {
          $imgline = img_credit_card($src->card->brand);
        } elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
          continue;
        } elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
          continue;
        }
 
        print '<tr class="oddeven">';
        print '<td>';
        print '</td>';
        // Src ID
        print '<td class="tdoverflowmax150">';
        $connect = '';
        if (!empty($stripeacc)) {
          $connect = $stripeacc.'/';
        }
        //$url='https://dashboard.stripe.com/'.$connect.'test/sources/'.$src->id;
        $url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$src->id;
        if ($servicestatus) {
          //$url='https://dashboard.stripe.com/'.$connect.'sources/'.$src->id;
          $url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$src->id;
        }
        print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
        print $src->id;
        print '</td>';
        // Img
        print '<td>';
        print $imgline;
        print'</td>';
        // Information
        print '<td valign="middle">';
        if ($src->object == 'card') {
          print '....'.$src->last4.' - '.$src->exp_month.'/'.$src->exp_year;
          print '</td><td>';
          if ($src->country) {
            $img = picto_from_langcode($src->country);
            print $img ? $img.' ' : '';
            print getCountry($src->country, '1');
          } else {
            print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
          }
        } elseif ($src->object == 'source' && $src->type == 'card') {
          print '<span class="opacitymedium">'.$src->owner->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
          print '</td><td>';
 
          if ($src->card->country) {
            $img = picto_from_langcode($src->card->country);
            print $img ? $img.' ' : '';
            print getCountry($src->card->country, '1');
          } else {
            print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
          }
        } elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
          print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
          print '</td><td>';
          if ($src->sepa_debit->country) {
            $img = picto_from_langcode($src->sepa_debit->country);
            print $img ? $img.' ' : '';
            print getCountry($src->sepa_debit->country, '1');
          } else {
            print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
          }
        } elseif ($src->object == 'payment_method' && $src->type == 'card') {
          print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
          print '</td><td>';
 
          if ($src->card->country) {
            $img = picto_from_langcode($src->card->country);
            print $img ? $img.' ' : '';
            print getCountry($src->card->country, '1');
          } else {
            print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
          }
        } elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
          print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
          print '</td><td>';
          if ($src->sepa_debit->country) {
            $img = picto_from_langcode($src->sepa_debit->country);
            print $img ? $img.' ' : '';
            print getCountry($src->sepa_debit->country, '1');
          } else {
            print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
          }
        } else {
          print '</td><td>';
        }
        print '</td>';
        // Default
        print '<td class="center" width="50">';
        if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
          (!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
          print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
          print img_picto($langs->trans("Default"), 'off');
          print '</a>';
        } else {
          print img_picto($langs->trans("Default"), 'on');
        }
        print '</td>';
        print '<td>';
        print $langs->trans("Remote");
        //if ($src->cvc_check == 'fail') print ' - CVC check fail';
        print '</td>';
 
        print '<td>';
        //var_dump($src);
        print '</td>';
 
        // Fields from hook
        $parameters = array('arrayfields' => array(), 'stripesource' => $src, 'linetype' => 'stripecardremoteonly');
        $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
        print $hookmanager->resPrint;
 
        // Action column
        print '<td class="right nowraponall">';
        if ($permissiontoaddupdatepaymentinformation) {
          print '<a class="marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletecard&token='.newToken().'">';
          print img_picto($langs->trans("Delete"), 'delete');
          print '</a>';
        }
        print '</td>';
 
        print '</tr>';
      }
    }
 
    if ($nbremote == 0 && $nblocal == 0) {
      $colspan = (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD') ? 10 : 9);
      print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
    }
    print "</table>";
    print "</div>";
    print '<br>';
  }
 
  // List of Stripe connect accounts
  if (isModEnabled('stripe') && !empty($conf->stripeconnect->enabled) && !empty($stripesupplieracc)) {
    print load_fiche_titre($langs->trans('StripeBalance').($stripesupplieracc ? ' (Stripe connection with StripeConnect account '.$stripesupplieracc.')' : ' (Stripe connection with keys from Stripe module setup)'), $morehtmlright, 'stripe-s');
    $balance = \Stripe\Balance::retrieve(array("stripe_account" => $stripesupplieracc));
    print '<!-- List of Stripe connected accounts -->'."\n";
    print '<table class="liste centpercent noborder">'."\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_arr) {
        print '<tr><td>'.$langs->trans("Currency".strtoupper($cpt_arr['currency'])).'</td><td>'.price($cpt_arr['available'], 0, '', 1, - 1, - 1, strtoupper($cpt_arr['currency'])).'</td><td>'.price(isset($cpt_arr['pending']) ? $cpt_arr['pending'] : 0, 0, '', 1, - 1, - 1, strtoupper($cpt_arr['currency'])).'</td><td>'.price($cpt_arr['available'] + (isset($cpt_arr['pending']) ? $cpt_arr['pending'] : 0), 0, '', 1, - 1, - 1, strtoupper($cpt_arr['currency'])).'</td></tr>';
      }
    }
 
    print '</table>';
    print '<br>';
  }
 
 
  // List of bank accounts
  if ($permissiontoaddupdatepaymentinformation) {
    $morehtmlright = dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"] . '?socid=' . $object->id . '&action=create');
  }
 
  print load_fiche_titre($langs->trans("BankAccounts"), $morehtmlright, 'bank');
 
  $nblocal = 0;
  $nbremote = 0;
  $arrayofremoteban = array();
 
  $rib_list = $object->get_all_rib();
 
  if (is_array($rib_list)) {
    print '<!-- List of bank accounts -->'."\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 noborder">';
 
    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("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="'.dolPrintHTMLForAttribute($rib->label).'">'.dolPrintHTML($rib->label);
      print '<br><span class="opacitymedium">'.dolPrintHTML($rib->bank).'</span>';
      print '</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', 'class="pictofixedwidth"').$string;
          } else {
            $string .= img_picto($langs->trans("ValueIsValid"), 'info', 'class="pictofixedwidth"').$string;
          }
        }
      }  // EndFor $rib_list as $rib
      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 class="tdoverflowmax100 small" title="'.dolPrintHTMLForAttribute($rib->rum).'">'.dolPrintHTML($rib->rum);
        print '<br><span class="opacitymedium">'.dolPrintHTML($rib->frstrecur).'</span>'; // FRST or RCUR
        print '</td>';
 
        // Date
        print '<td>'.dol_print_date($rib->date_rum, 'day').'</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');
        }
 
        $morecss = 'maxwidth125';
        if ($conf->browser->layout == 'phone') {
          $morecss = 'maxwidth100';
        }
 
        $out .= $form->selectarray('modelrib'.$rib->id, $modellist, $modelselected, 1, 0, 0, '', 0, 0, 0, '', 'minwidth100 '.$morecss);
        $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();
          $out .= $formadmin->select_language($defaultlang, 'lang_idrib'.$rib->id, 0, array(), 0, 0, 0, $morecss);
        }
        // Button
        $out .= '<input class="button buttongen reposition nomargintop nomarginbottom small '.$morecss.'" 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;
 
      // Show online signature link
      if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
        print '<td class="minwidth200 width200">';
        $useonlinesignature = 1;
        if ($useonlinesignature) {
          $rib->entity = $object->entity; //Assign $rib->entity necessary for a valid multicompany hash
          require_once DOL_DOCUMENT_ROOT . '/core/lib/signature.lib.php';
          print showOnlineSignatureUrl($companybankaccount->element, (string) $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">';
      // Label
      print '<td>';
      print '</td>';
      // External 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>';
      print '</td>';
      // IBAN
      print '<td>';
      //var_dump($src);
      print '</td>';
      // BIC
      print '<td>';
      //var_dump($src);
      print '</td>';
 
      if (isModEnabled('prelevement')) {
        // RUM
        print '<td>';
        print '</td>';
 
        // Date
        print '<td>';
        print '</td>';
      }
 
      // Default
      print '<td class="center" width="50">';
      if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
        (!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
        print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
        print img_picto($langs->trans("Default"), 'off');
        print '</a>';
      } else {
        print img_picto($langs->trans("Default"), 'on');
      }
      print '</td>';
 
      // Doc gen
      print '<td>';
      print '</td>';
 
      // Online sign
      if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
        print '<td>';
        print '</td>';
      }
 
      // Fields from hook
      // TODO: No longer in foreach -> using last rib of for each which may be undeclared!
      $parameters = array('arrayfields' => array(), 'stripe_card_ref' => $rib->stripe_card_ref, 'stripe_account' => $rib->stripe_account, 'linetype' => 'stripebanremoteonly');
      $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
      print $hookmanager->resPrint;
 
      // Action column
      print '<td class="right nowraponall">';
      if ($permissiontoaddupdatepaymentinformation) {
        print '<a class="marginleftonly marginrightonly reposition" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletebank&token='.newToken().'">';
        print img_picto($langs->trans("Delete"), 'delete');
        print '</a>';
      }
      print '</td>';
 
      print '</tr>';
    }
 
    if ($nbremote == 0 && $nblocal == 0) {
      $colspan = 10;
      if (isModEnabled('prelevement')) {
        $colspan += 2;
      }
      if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
        $colspan++;
      }
      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 ?? $conf->entity].'/'.$object->id;
    $urlsource = $_SERVER["PHP_SELF"]."?socid=".$object->id;
 
    print $formfile->showdocuments('company', (string) $object->id, $filedir, $urlsource, $permissiontoread, (int) $permissiontoaddupdatepaymentinformation, $object->model_pdf, 0, 0, 0, 28, 0, 'entity='.$object->entity, '', '', $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, '', $object->id, 'ban');
 
      include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
      $ecmfile = new EcmFiles($db);
      // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
      $result = $ecmfile->fetch(0, '', '', '', '', $companybankaccounttemp->table_element, $companypaymentmodetemp->id);
      if ($result > 0) {
        $companybankaccounttemp->last_main_doc = $ecmfile->filepath.'/'.$ecmfile->filename;
        print '<br><!-- Link to download main doc -->'."\n";
        print showDirectDownloadLink($companybankaccounttemp).'<br>';
      }
    }
 
    print '</div><div class="fichehalfright">';
 
 
    print '</div></div>';
 
    print '<br>';
  }
  /*
  include_once DOL_DOCUMENT_ROOT.'/core/modules/bank/modules_bank.php';
  $modellist=ModeleBankAccountDoc::liste_modeles($db);
  //print '<td>';
  if (is_array($modellist) && count($modellist) == 1)    // If there is only one element
  {
    $arraykeys=array_keys($modellist);
    $modelselected=$arraykeys[0];
  }
  $out.= $form->selectarray('model', $modellist, $modelselected, 0, 0, 0, '', 0, 0, 0, '', 'minwidth100');
  $out.= ajax_combobox('model');
  //print $out;
  $buttonlabel=$langs->trans("Generate");
  $genbutton = '<input class="button buttongen reposition nomargintop nomarginbottom" id="'.$forname.'_generatebutton" name="'.$forname.'_generatebutton"';
  $genbutton.= ' type="submit" value="'.$buttonlabel.'"';
  $genbutton.= '>';
  print $genbutton;
  //print '</td>';     // TODO Add link to generate doc
  */
}
 
// Edit BAN
if ($socid && $action == 'edit' && $permissiontoaddupdatepaymentinformation) {
  print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
  print '<div class="underbanner clearboth"></div>';
 
  print '<br>';
 
  print '<div class="div-table-responsive-no-min">';
  print '<table class="border tableforfield 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>';
 
  $required = (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0) ? "fieldrequired" : "";
  print '<tr><td class="'.$required.'">'.$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 = '';
    $name = 'Unset';
    $size = 8;
    $content = 'NoContent';
    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->needBIC() && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
        $require = true;
      }
      $tooltip = $langs->trans("Example").': LIABLT2XXXX';
    }
 
    print '<tr>';
    print '<td'.($require ? ' class="fieldrequired" ' : '').'>';
    if ($tooltip) {
      // $tooltip looks like $tooltiptrigger so: @phan-suppress-next-line PhanPluginSuspiciousParamOrder
      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="'.ROWS_4.'" cols="40" maxlength="255" spellcheck="false">';
  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" spellcheck="false">';
  print $companybankaccount->owner_address;
  print "</textarea></td></tr>";
 
  print '</table>';
  print '</div>';
 
  if (isModEnabled('prelevement')) {
    print '<hr>';
 
    print '<div class="div-table-responsive-no-min">';
    print '<table class="border tableforfield centpercent">';
 
    if (empty($companybankaccount->rum)) {
      $companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, (string) $companybankaccount->id);
    }
 
    // Title
    print '<tr><td class="titlefieldcreate" colspan="5">'.$langs->trans("WithdrawalsSetup").'</td></tr>';
 
    // 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 = GETPOSTDATE('date_rum', '00:00:00');
 
    print '<tr><td class="titlefield">'.$langs->trans("DateRUM").'</td>';
    print '<td>'.$form->selectDate($date_rum ? $date_rum : $companybankaccount->date_rum, 'date_rum', 0, 0, 1, 'date_rum', 1, 1).'</td></tr>';
 
    print '<tr><td>'.$langs->trans("WithdrawMode").'</td><td>';
    $tblArraychoice = array("FRST" => $langs->trans("FRST"), "RCUR" => $langs->trans("RECUR"));
    print $form->selectarray("frstrecur", $tblArraychoice, dol_escape_htmltag(GETPOST('frstrecur', 'alpha') ? GETPOST('frstrecur', 'alpha') : $companybankaccount->frstrecur), 0);
    print '</td></tr>';
 
    print '<tr><td>'.$langs->trans("ExternalSystemID")." ('pm_...' or 'src_...')</td>";
    print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.$companypaymentmode->stripe_card_ref.'"></td></tr>';
 
    print '</table>';
    print '</div>';
  }
 
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel("Modify");
}
 
// Edit Card
if ($socid && $action == 'editcard' && $permissiontoaddupdatepaymentinformation) {
  print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
  print '<div class="nofichecenter">';
 
  print '<div class="underbanner clearboth"></div>';
 
  print '<br>';
 
  print '<div class="div-table-responsive-no-min">';
  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->owner_name.'"></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((string) $companypaymentmode->exp_date_month, 'exp_date_month', 1);
  print $formother->selectyear((string) $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 '</div>';
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel("Modify");
}
 
 
// Create BAN
if ($socid && $action == 'create' && $permissiontoaddupdatepaymentinformation) {
  print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
  print '<div class="nofichecenter">';
 
  print '<div class="underbanner clearboth"></div>';
 
  print '<br>';
 
  print '<div class="div-table-responsive-no-min">';
  print '<table class="border tableforfield centpercent">';
 
  print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
  print '<td><input class="minwidth250" type="text" id="label" name="label" value="'.(GETPOSTISSET('label') ? GETPOST('label') : $langs->trans("Bank").' '.$object->name).'"></td></tr>';
 
  print '<tr><td>'.$langs->trans("Bank").'</td>';
  print '<td><input class="minwidth250" 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 = '';
    $size = 8;
    $name = 'Unknown';
    $content = 'NoContent';
    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->needBIC() && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
        $require = true;
      }
      $tooltip = $langs->trans("Example").': LIABLT2XXXX';
    }
 
    print '<tr><td'.($require ? ' class="fieldrequired" ' : '').'>';
    if ($tooltip) {
      // tooltip lookslike tooltip trigger so @phan-suppress-next-line PhanPluginSuspiciousParamOrder
      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>';
  print '</div>';
 
  if (isModEnabled('prelevement')) {
    print '<hr>';
 
    print '<div class="div-table-responsive-no-min">';
    print '<table class="border tableforfield centpercent">';
 
    // Title
    print '<tr><td class="titlefieldcreate" colspan="5">'.$langs->trans("WithdrawalsSetup").'</td></tr>';
 
    // 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 = GETPOSTDATE('date_rum', '00:00:00');
 
    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 '</div>';
 
  print dol_get_fiche_end();
 
  dol_set_focus('#bank');
 
  print $form->buttonsSaveCancel("Add");
}
 
// Create Card
if ($socid && $action == 'createcard' && $permissiontoaddupdatepaymentinformation) {
  print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
 
  $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
  dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
  print '<div class="nofichecenter">';
 
  print '<div class="underbanner clearboth"></div>';
 
  print '<br>';
 
  print '<div class="div-table-responsive-no-min">';
  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((string) GETPOSTINT('exp_date_month'), 'exp_date_month', 1);
  print $formother->selectyear((string) 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 '</div>';
 
  print dol_get_fiche_end();
 
  dol_set_focus('#label');
 
  print $form->buttonsSaveCancel("Add");
}
 
if ($socid && ($action == 'edit' || $action == 'editcard') && $permissiontoaddupdatepaymentinformation) {
  print '</form>';
}
if ($socid && ($action == 'create' || $action == 'createcard') && $permissiontoaddupdatepaymentinformation) {
  print '</form>';
}
 
// End of page
llxFooter();
$db->close();