dolibarr 24.0.0-beta
paymentmodes.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2002-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
4 * Copyright (C) 2004-2022 Laurent Destailleur <eldy@users.sourceforge.net>
5 * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
6 * Copyright (C) 2013 Peter Fontaine <contact@peterfontaine.fr>
7 * Copyright (C) 2015-2016 Marcos García <marcosgdf@gmail.com>
8 * Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
9 * Copyright (C) 2018-2023 Thibault FOUCART <support@ptibogxiv.net>
10 * Copyright (C) 2021 Alexandre Spangaro <aspangaro@open-dsi.fr>
11 * Copyright (C) 2024-2026 MDW <mdeweerd@users.noreply.github.com>
12 * Copyright (C) 2024-2026 Frédéric France <frederic.france@free.fr>
13 * Copyright (C) 2025 Josep Lluís Amador <joseplluis@lliuretic.cat>
14 *
15 * This program is free software; you can redistribute it and/or modify
16 * it under the terms of the GNU General Public License as published by
17 * the Free Software Foundation; either version 3 of the License, or
18 * (at your option) any later version.
19 *
20 * This program is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 * GNU General Public License for more details.
24 *
25 * You should have received a copy of the GNU General Public License
26 * along with this program. If not, see <https://www.gnu.org/licenses/>.
27 */
28
35// Load Dolibarr environment
36require '../main.inc.php';
45require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
46require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
47require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
48require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
49require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
50require_once DOL_DOCUMENT_ROOT.'/societe/class/companybankaccount.class.php';
51require_once DOL_DOCUMENT_ROOT.'/societe/class/companypaymentmode.class.php';
52require_once DOL_DOCUMENT_ROOT.'/societe/class/societeaccount.class.php';
53require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
54require_once DOL_DOCUMENT_ROOT.'/stripe/class/stripe.class.php';
55
56// Load translation files required by the page
57$langs->loadLangs(array("companies", "commercial", "banks", "bills", 'paypal', 'stripe', 'withdrawals'));
58
59
60// Get parameters
61$action = GETPOST("action", 'alpha', 3);
62$cancel = GETPOST('cancel', 'alpha');
63$backtopage = GETPOST('backtopage');
64
65$id = GETPOSTINT("id");
66$source = GETPOST("source", "alpha"); // source can be a source or a paymentmode
67$ribid = GETPOSTINT("ribid");
68
69// Security check
70$socid = GETPOSTINT("socid");
71if ($user->socid) {
72 $socid = $user->socid;
73}
74
75// Initialize objects
76$object = new Societe($db);
77$object->fetch($socid);
78
79$companybankaccount = new CompanyBankAccount($db);
80$companypaymentmode = new CompanyPaymentMode($db);
81$prelevement = new BonPrelevement($db);
82
83$extrafields = new ExtraFields($db);
84
85// fetch optionals attributes and labels
86$extrafields->fetch_name_optionals_label($object->table_element);
87
88// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
89$hookmanager->initHooks(array('thirdpartybancard', 'globalcard'));
90
91// Permissions
92$permissiontoread = $user->hasRight('societe', 'lire');
93$permissiontoadd = $user->hasRight('societe', 'creer'); // Used by the include of actions_addupdatedelete.inc.php and actions_builddoc.inc.php
94
95$permissiontoaddupdatepaymentinformation = $user->hasRight('societe', 'thirdparty_paymentinformation', 'write');
96
97// Check permission on company
98$result = restrictedArea($user, 'societe', '', '');
99
100$stripe = null; // Stripe object
101$stripeacc = null; // Stripe Account
102$stripecu = null; // Remote stripe customer
103$service = null;
104
105$servicestatus = 0;
106$site_account = 'UnknownSiteAccount';
107
108// Init Stripe objects
109if (isModEnabled('stripe')) {
110 $service = 'StripeTest';
111 if (getDolGlobalString('STRIPE_LIVE')/* && !GETPOST('forcesandbox', 'alpha') */) {
112 $service = 'StripeLive';
113 $servicestatus = 1;
114 }
115
116 // Force to use the correct API key
117 global $stripearrayofkeysbyenv;
118 $site_account = $stripearrayofkeysbyenv[$servicestatus]['publishable_key'];
119
120 $stripe = new Stripe($db);
121 $stripeacc = $stripe->getStripeAccount($service); // Get Stripe OAuth connect account (no remote access to Stripe here)
122 $stripecu = $stripe->getStripeCustomerAccount($object->id, $servicestatus, $site_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
123}
124
125$error = 0;
126
127
128/*
129 * Actions
130 */
131
132if ($cancel) {
133 $action = '';
134}
135
136$morehtmlright = '';
137$parameters = array('id' => $socid);
138$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
139if ($reshook < 0) {
140 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
141}
142
143if (empty($reshook)) {
144 if ($cancel) {
145 $action = '';
146 if (!empty($backtopage)) {
147 header("Location: ".$backtopage);
148 exit;
149 }
150 }
151
152 if ($action == 'update' && $permissiontoaddupdatepaymentinformation) {
153 // Update the bank account
154 if (!GETPOST('label', 'alpha') || !(GETPOST('bank', 'alpha') || (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') != 0))) {
155 if (!GETPOST('label', 'alpha')) {
156 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
157 }
158 if (!GETPOST('bank', 'alpha') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
159 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BankName")), null, 'errors');
160 }
161 $action = 'edit';
162 $error++;
163 }
164 $companybankaccount->fetch($id);
165 if ($companybankaccount->needIBAN() == 1) {
166 if (!GETPOST('iban')) {
167 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("IBAN")), null, 'errors');
168 $action = 'edit';
169 $error++;
170 }
171 }
172 if ($companybankaccount->needBIC() == 1) {
173 if (!GETPOST('bic') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
174 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BIC")), null, 'errors');
175 $action = 'edit';
176 $error++;
177 }
178 }
179
180 if (!$error) {
181 $companybankaccount->oldcopy = dol_clone($companybankaccount, 2); // @phan-suppress-current-line PhanTypeMismatchProperty
182
183 $companybankaccount->socid = $object->id;
184
185 $companybankaccount->bank = GETPOST('bank', 'alpha');
186 $companybankaccount->label = GETPOST('label', 'alpha');
187 $companybankaccount->code_banque = GETPOST('code_banque', 'alpha');
188 $companybankaccount->code_guichet = GETPOST('code_guichet', 'alpha');
189 $companybankaccount->number = GETPOST('number', 'alpha');
190 $companybankaccount->cle_rib = GETPOST('cle_rib', 'alpha');
191 $companybankaccount->bic = GETPOST('bic', 'alpha');
192 $companybankaccount->iban = GETPOST('iban', 'alpha');
193
194 $companybankaccount->currency_code = GETPOST('account_currency_code', 'alpha');
195 $companybankaccount->fk_country = GETPOSTINT('account_country_id');
196 $companybankaccount->state_id = GETPOSTINT('account_state_id');
197 $companybankaccount->address = GETPOST('address', 'alpha');
198
199 $companybankaccount->owner_name = GETPOST('proprio', 'alpha');
200 $companybankaccount->proprio = $companybankaccount->owner_name;
201 $companybankaccount->owner_address = GETPOST('owner_address', 'alpha');
202 $companybankaccount->frstrecur = GETPOST('frstrecur', 'alpha');
203 $companybankaccount->rum = GETPOST('rum', 'alpha');
204 $companybankaccount->date_rum = GETPOSTDATE('date_rum', '00:00:00');
205 if (empty($companybankaccount->rum)) {
206 $companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, (string) $companybankaccount->id);
207 }
208
209 $companybankaccount->status = GETPOSTINT('clos');
210
211 if (GETPOST('stripe_card_ref', 'alpha') && GETPOST('stripe_card_ref', 'alpha') != $companypaymentmode->stripe_card_ref) {
212 // If we set a stripe value that is different than previous one, we also set the stripe account
213 $companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
214 }
215 $companybankaccount->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
216
217 $result = $companybankaccount->update($user);
218 if ($result <= 0) {
219 // Display error message and get back to edit mode
220 setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
221 $action = 'edit';
222 } else {
223 // If this account is the default bank account, we disable others
224 if ($companybankaccount->default_rib) {
225 $companybankaccount->setAsDefault($id); // This will make sure there is only one default rib
226 }
227
228 if ($companypaymentmode->oldcopy->stripe_card_ref != $companypaymentmode->stripe_card_ref) {
229 if ($companybankaccount->oldcopy->iban != $companybankaccount->iban) {
230 // TODO If we modified the iban, we must also update the pm_ on Stripe side, or break the link completely ?
231 }
232 }
233
234 $url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
235 header('Location: '.$url);
236 exit;
237 }
238 }
239 }
240
241 if ($action == 'updatecard' && $permissiontoaddupdatepaymentinformation) {
242 // Update credit card
243 if (!GETPOST('label', 'alpha') || !GETPOST('proprio', 'alpha') || !GETPOST('exp_date_month', 'alpha') || !GETPOST('exp_date_year', 'alpha')) {
244 if (!GETPOST('label', 'alpha')) {
245 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
246 }
247 if (!GETPOST('proprio', 'alpha')) {
248 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("NameOnCard")), null, 'errors');
249 }
250 //if (!GETPOST('cardnumber', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CardNumber")), null, 'errors');
251 if (!(GETPOST('exp_date_month', 'alpha') > 0) || !(GETPOST('exp_date_year', 'alpha') > 0)) {
252 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpiryDate")), null, 'errors');
253 }
254 //if (!GETPOST('cvn', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CVN")), null, 'errors');
255 $action = 'createcard';
256 $error++;
257 }
258
259 $companypaymentmode->fetch($id);
260 if (!$error) {
261 $companypaymentmode->oldcopy = dol_clone($companypaymentmode, 2); // @phan-suppress-current-line PhanTypeMismatchProperty
262
263 $companypaymentmode->fk_soc = $object->id;
264
265 $companypaymentmode->bank = GETPOST('bank', 'alpha');
266 $companypaymentmode->label = GETPOST('label', 'alpha');
267 $companypaymentmode->number = GETPOST('cardnumber', 'alpha');
268 $companypaymentmode->last_four = substr(GETPOST('cardnumber', 'alpha'), -4);
269 $companypaymentmode->owner_name = GETPOST('proprio', 'alpha');
270 $companypaymentmode->proprio = $companypaymentmode->owner_name;
271 $companypaymentmode->exp_date_month = GETPOSTINT('exp_date_month');
272 $companypaymentmode->exp_date_year = GETPOSTINT('exp_date_year');
273 $companypaymentmode->cvn = GETPOST('cvn', 'alpha');
274 $companypaymentmode->country_code = $object->country_code;
275
276 if (GETPOST('stripe_card_ref', 'alpha') && GETPOST('stripe_card_ref', 'alpha') != $companypaymentmode->stripe_card_ref) {
277 // If we set a stripe value that is different than previous one, we also set the stripe account
278 $companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
279 }
280 $companypaymentmode->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
281
282 $result = $companypaymentmode->update($user);
283 if (!$result) {
284 setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
285 } else {
286 // If this account is the default bank account, we disable others
287 if ($companypaymentmode->default_rib) {
288 $companypaymentmode->setAsDefault($id); // This will make sure there is only one default rib
289 }
290
291 if ($companypaymentmode->oldcopy->stripe_card_ref != $companypaymentmode->stripe_card_ref) {
292 if ($companybankaccount->oldcopy->number != $companybankaccount->number) {
293 // TODO If we modified the card, we must also update the pm_ on Stripe side, or break the link completely ?
294 }
295 }
296
297 $url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
298 header('Location: '.$url);
299 exit;
300 }
301 }
302 }
303
304 // Add bank account
305 if ($action == 'add' && $permissiontoaddupdatepaymentinformation) {
306 $error = 0;
307
308 if (!GETPOST('label', 'alpha')) {
309 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
310 $action = 'create';
311 $error++;
312 }
313
314 if (!$error) {
315 // Ajout
316 $companybankaccount = new CompanyBankAccount($db);
317
318 $companybankaccount->socid = $object->id;
319
320 $companybankaccount->fetch_thirdparty();
321
322 $companybankaccount->bank = GETPOST('bank', 'alpha');
323 $companybankaccount->label = GETPOST('label', 'alpha');
324 $companybankaccount->code_banque = GETPOST('code_banque', 'alpha');
325 $companybankaccount->code_guichet = GETPOST('code_guichet', 'alpha');
326 $companybankaccount->number = GETPOST('number', 'alpha');
327 $companybankaccount->cle_rib = GETPOST('cle_rib', 'alpha');
328 $companybankaccount->bic = GETPOST('bic', 'alpha');
329 $companybankaccount->iban = GETPOST('iban', 'alpha');
330
331 $companybankaccount->currency_code = GETPOST('account_currency_code', 'alpha');
332 $companybankaccount->fk_country = GETPOSTINT('account_country_id');
333 $companybankaccount->state_id = GETPOSTINT('account_state_id');
334 $companybankaccount->address = GETPOST('address', 'alpha');
335
336 $companybankaccount->owner_name = GETPOST('proprio', 'alpha');
337 $companybankaccount->proprio = $companybankaccount->owner_name;
338 $companybankaccount->owner_address = GETPOST('owner_address', 'alpha');
339 $companybankaccount->frstrecur = GETPOST('frstrecur', 'alpha');
340 $companybankaccount->rum = GETPOST('rum', 'alpha');
341 $companybankaccount->date_rum = GETPOSTDATE('date_rum', '00:00:00');
342 $companybankaccount->datec = dol_now();
343
344 $companybankaccount->status = GETPOSTINT('clos');
345
346 $companybankaccount->bank = trim($companybankaccount->bank);
347 if (empty($companybankaccount->bank) && !empty($companybankaccount->thirdparty)) {
348 $companybankaccount->bank = $langs->trans("Bank").' '.$companybankaccount->thirdparty->name;
349 }
350 $companybankaccount->bic = str_replace(' ', '', $companybankaccount->bic);
351
352 $db->begin();
353
354 // This test can be done only once properties were set
355 if ($companybankaccount->needIBAN() == 1) {
356 if (!GETPOST('iban')) {
357 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("IBAN")), null, 'errors');
358 $action = 'create';
359 $error++;
360 }
361 }
362 if ($companybankaccount->needBIC() == 1) {
363 if (!GETPOST('bic') && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
364 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("BIC")), null, 'errors');
365 $action = 'create';
366 $error++;
367 }
368 }
369
370 if (!$error) {
371 $result = $companybankaccount->create($user);
372 if ($result < 0) {
373 $error++;
374 setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
375 $action = 'create'; // Force loading of creation page
376 }
377
378 if (empty($companybankaccount->rum)) {
379 $companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, (string) $companybankaccount->id);
380 }
381 }
382
383 if (!$error) {
384 $result = $companybankaccount->update($user); // This will set the UMR number.
385 if ($result < 0) {
386 $error++;
387 setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
388 $action = 'create';
389 }
390 }
391
392 if (!$error) {
393 $db->commit();
394
395 $url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
396 header('Location: '.$url);
397 exit;
398 } else {
399 $db->rollback();
400 }
401 }
402 }
403
404 // Add credit card
405 if ($action == 'addcard' && $permissiontoaddupdatepaymentinformation) {
406 $error = 0;
407
408 if (!GETPOST('label', 'alpha') || !GETPOST('proprio', 'alpha') || !GETPOST('exp_date_month', 'alpha') || !GETPOST('exp_date_year', 'alpha')) {
409 if (!GETPOST('label', 'alpha')) {
410 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Label")), null, 'errors');
411 }
412 if (!GETPOST('proprio', 'alpha')) {
413 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("NameOnCard")), null, 'errors');
414 }
415 //if (!GETPOST('cardnumber', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CardNumber")), null, 'errors');
416 if (!(GETPOST('exp_date_month', 'alpha') > 0) || !(GETPOST('exp_date_year', 'alpha') > 0)) {
417 setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpiryDate")), null, 'errors');
418 }
419 //if (!GETPOST('cvn', 'alpha')) setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CVN")), null, 'errors');
420 $action = 'createcard';
421 $error++;
422 }
423
424 if (!$error) {
425 // Ajout
426 $companypaymentmode = new CompanyPaymentMode($db);
427
428 $companypaymentmode->fk_soc = $object->id;
429 $companypaymentmode->bank = GETPOST('bank', 'alpha');
430 $companypaymentmode->label = GETPOST('label', 'alpha');
431 $companypaymentmode->number = GETPOST('cardnumber', 'alpha');
432 $companypaymentmode->last_four = substr(GETPOST('cardnumber', 'alpha'), -4);
433 $companypaymentmode->proprio = GETPOST('proprio', 'alpha');
434 $companypaymentmode->exp_date_month = GETPOSTINT('exp_date_month');
435 $companypaymentmode->exp_date_year = GETPOSTINT('exp_date_year');
436 $companypaymentmode->cvn = GETPOST('cvn', 'alpha');
437 $companypaymentmode->datec = dol_now();
438 $companypaymentmode->default_rib = 0;
439 $companypaymentmode->type = 'card';
440 $companypaymentmode->country_code = $object->country_code;
441 $companypaymentmode->status = $servicestatus;
442
443 if (GETPOST('stripe_card_ref', 'alpha')) {
444 // If we set a stripe value, we also set the stripe account
445 $companypaymentmode->stripe_account = $stripecu.'@'.$site_account;
446 }
447 $companypaymentmode->stripe_card_ref = GETPOST('stripe_card_ref', 'alpha');
448
449 $db->begin();
450
451 if (!$error) {
452 $result = $companypaymentmode->create($user);
453 if ($result < 0) {
454 $error++;
455 setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
456 $action = 'createcard'; // Force loading of creation page
457 }
458 }
459
460 if (!$error) {
461 $db->commit();
462
463 $url = $_SERVER["PHP_SELF"].'?socid='.$object->id;
464 header('Location: '.$url);
465 exit;
466 } else {
467 $db->rollback();
468 }
469 }
470 }
471
472 if ($action == 'setasbankdefault' && GETPOSTINT('ribid') > 0 && $permissiontoaddupdatepaymentinformation) {
473 $companybankaccount = new CompanyBankAccount($db);
474 $res = $companybankaccount->setAsDefault(GETPOSTINT('ribid'));
475 if ($res) {
476 $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
477 header('Location: '.$url);
478 exit;
479 } else {
480 setEventMessages($db->lasterror, null, 'errors');
481 }
482 }
483
484 if ($action == 'confirm_deletecard' && GETPOST('confirm', 'alpha') == 'yes' && $permissiontoaddupdatepaymentinformation) {
485 // Delete the credi card
486 $companypaymentmode = new CompanyPaymentMode($db);
487 if ($companypaymentmode->fetch($ribid ? $ribid : $id)) {
488 // TODO This is currently done at bottom of page instead of asking confirm
489 /*if ($companypaymentmode->stripe_card_ref && preg_match('/pm_/', $companypaymentmode->stripe_card_ref))
490 {
491 $payment_method = \Stripe\PaymentMethod::retrieve($companypaymentmode->stripe_card_ref);
492 if ($payment_method)
493 {
494 $payment_method->detach();
495 }
496 }*/
497
498 $result = $companypaymentmode->delete($user);
499 if ($result > 0) {
500 $url = $_SERVER['PHP_SELF']."?socid=".$object->id;
501
502 header('Location: '.$url);
503 exit;
504 } else {
505 setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
506 }
507 } else {
508 setEventMessages($companypaymentmode->error, $companypaymentmode->errors, 'errors');
509 }
510 }
511 if ($action == 'confirm_deletebank' && GETPOST('confirm', 'alpha') == 'yes' && $permissiontoaddupdatepaymentinformation) {
512 // Delete the bank account
513 $companybankaccount = new CompanyBankAccount($db);
514 if ($companybankaccount->fetch($ribid ? $ribid : $id) > 0) {
515 // TODO This is currently done at bottom of page instead of asking confirm
516 /*if ($companypaymentmode->stripe_card_ref && preg_match('/pm_/', $companypaymentmode->stripe_card_ref))
517 {
518 $payment_method = \Stripe\PaymentMethod::retrieve($companypaymentmode->stripe_card_ref);
519 if ($payment_method)
520 {
521 $payment_method->detach();
522 }
523 }*/
524
525 $result = $companybankaccount->delete($user);
526
527 if ($result > 0) {
528 $url = $_SERVER['PHP_SELF']."?socid=".$object->id;
529
530 header('Location: '.$url);
531 exit;
532 } else {
533 setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
534 }
535 } else {
536 setEventMessages($companybankaccount->error, $companybankaccount->errors, 'errors');
537 }
538 }
539
540 $savid = $id;
541
542 // Actions to build doc
543 if ($action == 'builddocrib' && $permissiontoread) {
544 $action = 'builddoc';
545 $moreparams = array(
546 'use_companybankid' => GETPOST('companybankid'),
547 'force_dir_output' => $conf->societe->multidir_output[$object->entity ?? $conf->entity].'/'.dol_sanitizeFileName((string) $object->id)
548 );
549 $_POST['lang_id'] = GETPOST('lang_idrib'.GETPOSTINT('companybankid'), 'alphanohtml'); // This is required by core/action_builddoc.inc.php
550 $_POST['model'] = GETPOST('modelrib'.GETPOSTINT('companybankid'), 'alphanohtml'); // This is required by core/action_builddoc.inc.php
551 }
552
553 $id = $socid;
554 $upload_dir = $conf->societe->multidir_output[$object->entity ?? $conf->entity];
555 include DOL_DOCUMENT_ROOT.'/core/actions_builddoc.inc.php';
556
557 $id = $savid;
558
559 // Action for stripe
560 if (isModEnabled('stripe') && class_exists('Stripe')) {
561 if (($action == 'synccustomertostripe' || $action == 'synccustomertostripetest') && $permissiontoaddupdatepaymentinformation) {
562 if ($object->client == 0) {
563 $error++;
564 setEventMessages('ThisThirdpartyIsNotACustomer', null, 'errors');
565 } else {
566 if ($action == 'synccustomertostripe') { // Test on permission already done
567 $tmpservicestatus = 1;
568 $tmpservice = 'StripeLive';
569 } else {
570 $tmpservicestatus = 0;
571 $tmpservice = 'StripeTest';
572 }
573
574 $stripe = new Stripe($db);
575 $tmpstripeacc = $stripe->getStripeAccount($tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
576
577 // Creation of Stripe customer + update of societe_account
578 $tmpcu = $stripe->customerStripe($object, $tmpstripeacc, $tmpservicestatus, 1);
579
580 if (empty($tmpcu)) {
581 $error++;
582 setEventMessages($stripe->error, $stripe->errors, 'errors');
583 } else {
584 if ($tmpservicestatus == $servicestatus) {
585 $stripecu = $tmpcu->id;
586 }
587 }
588 }
589 }
590 if ($action == 'synccardtostripe' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
591 // Create the credit card on current Stripe env
592 $companypaymentmode = new CompanyPaymentMode($db);
593 $companypaymentmode->fetch($id);
594
595 if ($companypaymentmode->type != 'card') {
596 $error++;
597 setEventMessages('ThisPaymentModeIsNotACard', null, 'errors');
598 } else {
599 // Get the Stripe customer
600 $cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
601 if (!$cu) {
602 $error++;
603 setEventMessages($stripe->error, $stripe->errors, 'errors');
604 }
605
606 if (!$error) {
607 '@phan-var-force \Stripe\Customer $cu';
608 // Creation of Stripe card + update of llx_societe_rib
609 // Note that with the new Stripe API, option to create a card is no more available, instead an error message will be returned to
610 // ask to create the crdit card from Stripe backoffice.
611 $card = $stripe->cardStripe($cu, $companypaymentmode, $stripeacc, $servicestatus, 1);
612 if (!$card) {
613 $error++;
614 setEventMessages($stripe->error, $stripe->errors, 'errors');
615 }
616 }
617 }
618 }
619 if ($action == 'syncsepatostripe' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
620 // Create the bank account on current Stripe env
621 $companypaymentmode = new CompanyPaymentMode($db); // Get record in llx_societe_rib
622 $companypaymentmode->fetch($id);
623
624 if ($companypaymentmode->type != 'ban') {
625 $error++;
626 $langs->load("errors");
627 setEventMessages('ThisPaymentModeIsNotABan', null, 'errors');
628 } else {
629 // Get the Stripe customer
630 $cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
631 // print json_encode($cu);
632 if (empty($cu)) {
633 $error++;
634 $langs->load("errors");
635 setEventMessages($langs->trans("ErrorStripeCustomerNotFoundCreateFirst"), null, 'errors');
636 }
637 if (!$error) {
638 '@phan-var-force \Stripe\Customer $cu';
639 // Creation of Stripe SEPA + update of llx_societe_rib
640 $card = $stripe->sepaStripe($cu, $companypaymentmode, $stripeacc, $servicestatus, 1);
641 if (!$card) {
642 $error++;
643 setEventMessages($stripe->error, $stripe->errors, 'errors');
644 } else {
645 setEventMessages("", array("Bank Account on Stripe", "BAN is now linked to the Stripe customer account !"));
646 }
647 }
648 }
649 }
650
651 // Set the customer Stripe account (for Live or Test env)
652 if (($action == 'setkey_account' || $action == 'setkey_accounttest') && $permissiontoaddupdatepaymentinformation) {
653 $error = 0;
654
655 $tmpservice = 'StripeTest';
656 $tmpservicestatus = 0;
657 if ($action == 'setkey_account') { // Test on permission not required
658 $tmpservice = 'StripeLive';
659 $tmpservicestatus = 1;
660 }
661
662 // Force to use the correct API key
663 global $stripearrayofkeysbyenv;
664 $tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
665
666 if ($action == 'setkey_account') { // Test on permission not required
667 $newcu = GETPOST('key_account', 'alpha');
668 } else {
669 $newcu = GETPOST('key_accounttest', 'alpha');
670 }
671
672 $db->begin();
673
674 if (empty($newcu)) {
675 $sql = "DELETE FROM ".MAIN_DB_PREFIX."societe_account";
676 $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;
677 } else {
678 $sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX."societe_account";
679 $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 !
680 }
681
682 $resql = $db->query($sql);
683 $num = $db->num_rows($resql); // Note: $num is always 0 on an update and delete, it is defined for select only.
684
685 if (!empty($newcu)) { // If we did a select
686 if (empty($num)) { // and found nothing
687 $societeaccount = new SocieteAccount($db);
688 $societeaccount->fk_soc = $object->id;
689 $societeaccount->login = '';
690 $societeaccount->pass_encoding = '';
691 $societeaccount->site = 'stripe';
692 $societeaccount->status = $servicestatus;
693 $societeaccount->key_account = $newcu;
694 $societeaccount->site_account = $tmpsite_account;
695 $result = $societeaccount->create($user);
696 if ($result < 0) {
697 $error++;
698 }
699 } else {
700 $sql = 'UPDATE '.MAIN_DB_PREFIX."societe_account";
701 $sql .= " SET key_account = '".$db->escape($newcu)."', site_account = '".$db->escape($tmpsite_account)."'";
702 $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 !
703 $resql = $db->query($sql);
704 }
705 }
706 //var_dump($sql);
707 //var_dump($newcu);
708 //var_dump($num); exit;
709
710 if (!$error) {
711 if ($tmpservicestatus == $servicestatus) {
712 $stripecu = $newcu;
713 }
714 $db->commit();
715 } else {
716 $db->rollback();
717 }
718 }
719
720 // Set the supplier Stripe account (for Live or Test env)
721 if (($action == 'setkey_account_supplier' || $action == 'setkey_account_suppliertest') && $permissiontoaddupdatepaymentinformation) {
722 $error = 0;
723
724 $tmpservice = 'StripeTest';
725 $tmpservicestatus = 0;
726 if ($action == 'setkey_account_supplier') { // Test on permission not required
727 $tmpservice = 'StripeLive';
728 $tmpservicestatus = 1;
729 }
730
731 // Force to use the correct API key
732 global $stripearrayofkeysbyenv;
733 $tmpsite_account = $stripearrayofkeysbyenv[$tmpservicestatus]['publishable_key'];
734
735 if ($action == 'setkey_account_supplier') { // Test on permission not required
736 $newsup = GETPOST('key_account_supplier', 'alpha');
737 } else {
738 $newsup = GETPOST('key_account_suppliertest', 'alpha');
739 }
740
741 $db->begin();
742
743 $sql = '';
744 if (empty($newsup)) {
745 $sql = "DELETE FROM ".MAIN_DB_PREFIX."oauth_token WHERE fk_soc = ".((int) $object->id)." AND service = '".$db->escape($tmpservice)."' AND entity = ".((int) $conf->entity);
746 // TODO Add site and site_account on oauth_token table
747 //$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;
748 } else {
749 try {
750 $stripesup = \Stripe\Account::retrieve($newsup);
751 $tokenstring = array();
752 $tokenstring['stripe_user_id'] = $stripesup->id;
753 $tokenstring['type'] = $stripesup->type;
754 $sql = "UPDATE ".MAIN_DB_PREFIX."oauth_token";
755 $sql .= " SET tokenstring = '".$db->escape(json_encode($tokenstring))."'";
756 $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 !
757 // TODO Add site and site_account on oauth_token table
758 $sql .= " WHERE fk_soc = ".((int) $object->id)." AND service = '".$db->escape($tmpservice)."' AND entity = ".$conf->entity; // Keep = here for entity. Only 1 record must be modified !
759 } catch (Exception $e) {
760 $error++;
761 setEventMessages($e->getMessage(), null, 'errors');
762 }
763 }
764
765 $resql = $db->query($sql);
766 $num = $db->num_rows($resql);
767 if (empty($num) && !empty($newsup)) {
768 try {
769 $stripesup = \Stripe\Account::retrieve($newsup);
770 $tokenstring['stripe_user_id'] = $stripesup->id;
771 $tokenstring['type'] = $stripesup->type;
772 $sql = "INSERT INTO ".MAIN_DB_PREFIX."oauth_token (service, fk_soc, entity, tokenstring)";
773 $sql .= " VALUES ('".$db->escape($tmpservice)."', ".((int) $object->id).", ".((int) $conf->entity).", '".$db->escape(json_encode($tokenstring))."')";
774 // TODO Add site and site_account on oauth_token table
775 } catch (Exception $e) {
776 $error++;
777 setEventMessages($e->getMessage(), null, 'errors');
778 }
779 $resql = $db->query($sql);
780 }
781
782 if (!$error) {
783 if ($tmpservicestatus == $servicestatus) {
784 $stripesupplieracc = $newsup;
785 }
786 $db->commit();
787 } else {
788 $db->rollback();
789 }
790 }
791
792 if ($action == 'setlocalassourcedefault' && $permissiontoaddupdatepaymentinformation) { // Set as default when payment mode defined locally (and may be also remotely)
793 try {
794 $companypaymentmode->setAsDefault($id);
795
796 $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
797 header('Location: '.$url);
798 exit;
799 } catch (Exception $e) {
800 $error++;
801 setEventMessages($e->getMessage(), null, 'errors');
802 }
803 } elseif ($action == 'setassourcedefault' && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) { // Set as default when payment mode defined remotely only
804 try {
805 $cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
806 if (preg_match('/pm_|src_/', $source)) {
807 $cu->invoice_settings->default_payment_method = (string) $source; // New
808 } else {
809 $cu->default_source = (string) $source; // Old
810 }
811 // @phan-suppress-next-line PhanDeprecatedFunction
812 $result = $cu->save();
813
814 $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
815 header('Location: '.$url);
816 exit;
817 } catch (Exception $e) {
818 $error++;
819 setEventMessages($e->getMessage(), null, 'errors');
820 }
821 } elseif ($action == 'deletecard' && $source && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
822 // Delete the credit card on Stripe side
823 try {
824 if (preg_match('/pm_/', $source)) {
825 $payment_method = \Stripe\PaymentMethod::retrieve($source, array("stripe_account" => $stripeacc));
826 if ($payment_method) {
827 $payment_method->detach();
828 }
829 } else {
830 $cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
831 $card = $cu->sources->retrieve("$source");
832 if ($card) {
833 // $card->detach(); Does not work with card_, only with src_
834 if (method_exists($card, 'detach')) {
835 $card->detach();
836 $sql = "UPDATE ".MAIN_DB_PREFIX."societe_rib as sr ";
837 $sql .= " SET stripe_card_ref = null";
838 $sql .= " WHERE sr.stripe_card_ref = '".$db->escape($source)."'";
839
840 $resql = $db->query($sql);
841 } else {
842 $card->delete($user);
843 }
844 }
845 }
846
847 $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
848 header('Location: '.$url);
849 exit;
850 } catch (Exception $e) {
851 $error++;
852 setEventMessages($e->getMessage(), null, 'errors');
853 }
854 } elseif ($action == 'deletebank' && $source && $permissiontoaddupdatepaymentinformation && $stripeacc !== null) {
855 // Delete the bank account on Stripe side
856 try {
857 if (preg_match('/pm_/', $source)) {
858 $payment_method = \Stripe\PaymentMethod::retrieve($source, array("stripe_account" => $stripeacc));
859 if ($payment_method) {
860 $payment_method->detach();
861 }
862 } else {
863 $cu = $stripe->customerStripe($object, $stripeacc, $servicestatus);
864 $card = $cu->sources->retrieve((string) $source);
865 if ($card) {
866 // $card->detach(); Does not work with card_, only with src_
867 if (method_exists($card, 'detach')) {
868 $card->detach();
869 $sql = "UPDATE ".MAIN_DB_PREFIX."societe_rib as sr ";
870 $sql .= " SET stripe_card_ref = null";
871 $sql .= " WHERE sr.stripe_card_ref = '".$db->escape($source)."'";
872
873 $resql = $db->query($sql);
874 } else {
875 $card->delete($user);
876 }
877 }
878 }
879
880 $url = DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id;
881 if (GETPOSTINT('page_y')) {
882 $url .= '&page_y='.GETPOSTINT('page_y');
883 }
884
885 header('Location: '.$url);
886 exit;
887 } catch (Exception $e) {
888 $error++;
889 setEventMessages($e->getMessage(), null, 'errors');
890 }
891 }
892 }
893}
894
895
896
897/*
898 * View
899 */
900
901$form = new Form($db);
902$formcompany = new FormCompany($db);
903$formother = new FormOther($db);
904$formfile = new FormFile($db);
905
906$countrynotdefined = $langs->trans("ErrorSetACountryFirst").' ('.$langs->trans("SeeAbove").')';
907
908$title = $langs->trans("ThirdParty");
909if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
910 $title = $object->name." - ".$langs->trans('PaymentInformation');
911}
912$help_url = '';
913
914llxHeader('', $title, $help_url);
915
916$head = societe_prepare_head($object);
917
918// Show sandbox warning
919//if (isModEnabled('paypal') && (getDolGlobalString('PAYPAL_API_SANDBOX')/* || GETPOST('forcesandbox','alpha') */)) {
920// dol_htmloutput_mesg($langs->trans('YouAreCurrentlyInSandboxMode', 'Paypal'), [], 'warning');
921//}
922if (isModEnabled('stripe') && (!getDolGlobalString('STRIPE_LIVE')/* || GETPOST('forcesandbox', 'alpha') */)) {
923 dol_htmloutput_mesg($langs->trans('YouAreCurrentlyInSandboxMode', 'Stripe'), [], 'warning');
924}
925
926// Load Bank account
927if (!$id) {
928 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
929 $companybankaccount->fetch(0, '', $object->id);
930 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
931 $companypaymentmode->fetch(0, '', $object->id, 'card');
932} else {
933 $companybankaccount->fetch($id);
934 $companypaymentmode->fetch($id);
935}
936if (empty($companybankaccount->socid)) {
937 $companybankaccount->socid = $object->id;
938}
939
940if ($socid && ($action == 'edit' || $action == 'editcard') && $permissiontoaddupdatepaymentinformation) {
941 print '<form action="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'" method="post" spellcheck="false">';
942 print '<input type="hidden" name="token" value="'.newToken().'">';
943 $actionforadd = 'update';
944 if ($action == 'editcard') { // Test on permission not required
945 $actionforadd = 'updatecard';
946 }
947 print '<input type="hidden" name="action" value="'.$actionforadd.'">';
948 print '<input type="hidden" name="id" value="'.GETPOSTINT("id").'">';
949}
950if ($socid && ($action == 'create' || $action == 'createcard') && $permissiontoaddupdatepaymentinformation) {
951 print '<form action="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'" method="post" spellcheck="false">';
952 print '<input type="hidden" name="token" value="'.newToken().'">';
953 $actionforadd = 'add';
954 if ($action == 'createcard') { // Test on permission not required
955 $actionforadd = 'addcard';
956 }
957 print '<input type="hidden" name="action" value="'.$actionforadd.'">';
958}
959
960// View
961if ($socid && $action != 'edit' && $action != 'create' && $action != 'editcard' && $action != 'createcard') {
962 print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), -1, 'company');
963
964 // Confirm delete ban
965 if ($action == 'deletebank') {
966 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);
967 }
968 // Confirm delete card
969 if ($action == 'deletecard') {
970 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);
971 }
972
973 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
974
975 dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
976
977 print '<div class="fichecenter">';
978
979 print '<div class="underbanner clearboth"></div>';
980 print '<table class="border tableforfield centpercent">';
981
982 // Type Prospect/Customer/Supplier
983 print '<tr><td class="titlefield">';
984 print $langs->trans('NatureOfThirdParty');
985 print '</td><td>';
986 print $object->getTypeUrl(1);
987 print '</td></tr>';
988
989 if ($object->client) {
990 print '<tr><td class="titlefield">';
991 print $langs->trans('CustomerCode');
992 print '</td><td>';
993 print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_client));
994 $tmpcheck = $object->check_codeclient();
995 if ($tmpcheck != 0 && $tmpcheck != -5) {
996 print ' <span class="error">('.$langs->trans("WrongCustomerCode").')</span>';
997 }
998 print '</td></tr>';
999 $sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."facture where fk_soc = ".((int) $socid);
1000 $resql = $db->query($sql);
1001 if (!$resql) {
1002 dol_print_error($db);
1003 }
1004
1005 $obj = $db->fetch_object($resql);
1006 $nbFactsClient = $obj->nb;
1007 $thirdTypeArray = array();
1008 $elementTypeArray = array();
1009 $thirdTypeArray['customer'] = $langs->trans("customer");
1010 if (isModEnabled("propal") && $user->hasRight('propal', 'lire')) {
1011 $elementTypeArray['propal'] = $langs->transnoentitiesnoconv('Proposals');
1012 }
1013 if (isModEnabled('order') && $user->hasRight('commande', 'lire')) {
1014 $elementTypeArray['order'] = $langs->transnoentitiesnoconv('Orders');
1015 }
1016 if (isModEnabled('invoice') && $user->hasRight('facture', 'lire')) {
1017 $elementTypeArray['invoice'] = $langs->transnoentitiesnoconv('Invoices');
1018 }
1019 if (isModEnabled('contract') && $user->hasRight('contrat', 'lire')) {
1020 $elementTypeArray['contract'] = $langs->transnoentitiesnoconv('Contracts');
1021 }
1022
1023 if (isModEnabled('stripe')) {
1024 // Force to use the correct API key
1025 global $stripearrayofkeysbyenv;
1026
1027 $tmpservice = 0;
1028 $tmpsite_account = $stripearrayofkeysbyenv[$tmpservice]['publishable_key'];
1029 $tmpstripeacc = $stripe->getStripeAccount((string) $tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
1030 $tmpstripecu = $stripe->getStripeCustomerAccount($object->id, $tmpservice, $tmpsite_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
1031
1032 // Stripe customer key 'cu_....' stored into llx_societe_account
1033 print '<tr><td class="titlefield">';
1034 print $form->editfieldkey($langs->trans("StripeCustomerId").' (Test)', 'key_accounttest', $tmpstripecu, $object, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
1035 print '</td><td'.(empty($tmpstripecu) ? ' class="right"' : '').'>';
1036 print $form->editfieldval($langs->trans("StripeCustomerId").' (Test)', 'key_accounttest', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
1037 if ($tmpstripecu && $action != 'editkey_accounttest') {
1038 $connect = '';
1039 if (!empty($stripeacc)) {
1040 $connect = $stripeacc.'/';
1041 }
1042 $url = 'https://dashboard.stripe.com/'.$connect.'test/customers/'.$tmpstripecu;
1043 print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key = '.$tmpsite_account, 'globe').'</a>';
1044 }
1045 if (empty($tmpstripecu)) {
1046 print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall" spellcheck="false">';
1047 print '<input type="hidden" name="action" value="synccustomertostripetest">';
1048 print '<input type="hidden" name="token" value="'.newToken().'">';
1049 print '<input type="hidden" name="socid" value="'.$object->id.'">';
1050 print img_picto($langs->trans("CreateCustomerOnStripe"), 'stripe');
1051 print '<input type="submit" class="buttonlink nomargintop nomarginbottom noborderbottom nopaddingtopimp nopaddingbottomimp" name="syncstripecustomertest" value="'.$langs->trans("CreateCustomerOnStripe").'">';
1052 print '</form>';
1053 }
1054 print '</td></tr>';
1055
1056 $tmpservice = 1;
1057 $tmpsite_account = $stripearrayofkeysbyenv[$tmpservice]['publishable_key'];
1058 $tmpstripeacc = $stripe->getStripeAccount((string) $tmpservice); // Get Stripe OAuth connect account (no remote access to Stripe here)
1059 $tmpstripecu = $stripe->getStripeCustomerAccount($object->id, $tmpservice, $tmpsite_account); // Get remote Stripe customer 'cus_...' (no remote access to Stripe here)
1060
1061 // Stripe customer key 'cu_....' stored into llx_societe_account
1062 print '<tr><td class="titlefield">';
1063 print $form->editfieldkey($langs->trans("StripeCustomerId").' (Live)', 'key_account', $tmpstripecu, $object, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
1064 print '</td><td'.(empty($tmpstripecu) ? ' class="right"' : '').'>';
1065 print $form->editfieldval($langs->trans("StripeCustomerId").' (Live)', 'key_account', $tmpstripecu, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
1066 if ($tmpstripecu && $action != 'editkey_account') {
1067 $connect = '';
1068 if (!empty($stripeacc)) {
1069 $connect = $stripeacc.'/';
1070 }
1071 $url = 'https://dashboard.stripe.com/'.$connect.'customers/'.$tmpstripecu;
1072 print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key = '.$tmpsite_account, 'globe').'</a>';
1073 }
1074 if (empty($tmpstripecu)) {
1075 print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall" spellcheck="false">';
1076 print '<input type="hidden" name="action" value="synccustomertostripe">';
1077 print '<input type="hidden" name="token" value="'.newToken().'">';
1078 print '<input type="hidden" name="socid" value="'.$object->id.'">';
1079 print img_picto($langs->trans("CreateCustomerOnStripe"), 'stripe');
1080 print '<input type="submit" class="buttonlink nomargintop nomarginbottom noborderbottom nopaddingtopimp nopaddingbottomimp" name="syncstripecustomer" value="'.$langs->trans("CreateCustomerOnStripe").'">';
1081 print '</form>';
1082 }
1083 print '</td></tr>';
1084 }
1085 }
1086
1087 if ($object->fournisseur) {
1088 print '<tr><td class="titlefield">';
1089 print $langs->trans('SupplierCode');
1090 print '</td><td>';
1091 print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_fournisseur));
1092 $tmpcheck = $object->check_codefournisseur();
1093 if ($tmpcheck != 0 && $tmpcheck != -5) {
1094 print ' <span class="error">('.$langs->trans("WrongSupplierCode").')</span>';
1095 }
1096 print '</td></tr>';
1097 $sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."facture where fk_soc = ".((int) $socid);
1098 $resql = $db->query($sql);
1099 if (!$resql) {
1100 dol_print_error($db);
1101 }
1102 $obj = $db->fetch_object($resql);
1103 $nbFactsClient = $obj->nb;
1104 $thirdTypeArray['customer'] = $langs->trans("customer");
1105 if (isModEnabled('propal') && $user->hasRight('propal', 'lire')) {
1106 $elementTypeArray['propal'] = $langs->transnoentitiesnoconv('Proposals');
1107 }
1108 if (isModEnabled('order') && $user->hasRight('commande', 'lire')) {
1109 $elementTypeArray['order'] = $langs->transnoentitiesnoconv('Orders');
1110 }
1111 if (isModEnabled('invoice') && $user->hasRight('facture', 'lire')) {
1112 $elementTypeArray['invoice'] = $langs->transnoentitiesnoconv('Invoices');
1113 }
1114 if (isModEnabled('contract') && $user->hasRight('contrat', 'lire')) {
1115 $elementTypeArray['contract'] = $langs->transnoentitiesnoconv('Contracts');
1116 }
1117 }
1118
1119 // Stripe connect
1120 if (isModEnabled('stripe') && !empty($conf->stripeconnect->enabled) && getDolGlobalInt('MAIN_FEATURES_LEVEL') >= 2 && $service !== null) {
1121 $stripesupplieracc = $stripe->getStripeAccount($service, $object->id); // Get Stripe OAuth connect account (no network access here)
1122
1123 // Stripe customer key 'cu_....' stored into llx_societe_account
1124 print '<tr><td class="titlefield">';
1125 print $form->editfieldkey("StripeConnectAccount", 'key_account_supplier', $stripesupplieracc, $object, (int) $permissiontoaddupdatepaymentinformation, 'string', '', 0, 2, 'socid');
1126 print '</td><td'.(empty($stripesupplieracc) ? ' class="right"' : '').'>';
1127 print $form->editfieldval("StripeConnectAccount", 'key_account_supplier', $stripesupplieracc, $object, $permissiontoaddupdatepaymentinformation, 'string', '', null, null, '', 2, '', 'socid');
1128 if ($stripesupplieracc && $action != 'editkey_account_supplier') {
1129 $connect = '';
1130
1131 $url = 'https://dashboard.stripe.com/test/connect/accounts/'.$stripesupplieracc;
1132 if ($servicestatus) {
1133 $url = 'https://dashboard.stripe.com/connect/accounts/'.$stripesupplieracc;
1134 }
1135 print ' <a href="'.$url.'" target="_stripe">'.img_picto($langs->trans('ShowInStripe').' - Publishable key '.$site_account, 'globe').'</a>';
1136 }
1137 if (empty($stripesupplieracc)) {
1138 print '<form action="'.$_SERVER["PHP_SELF"].'" method="post" class="nowraponall" spellcheck="false">';
1139 print '<input type="hidden" name="action" value="syncsuppliertostripe">';
1140 print '<input type="hidden" name="token" value="'.newToken().'">';
1141 print '<input type="hidden" name="socid" value="'.$object->id.'">';
1142 print '<input type="hidden" name="companybankid" value="'.$ribid.'">';
1143 //print '<input type="submit" class="button buttongen" name="syncstripecustomer" value="'.$langs->trans("CreateSupplierOnStripe").'">';
1144 print '</form>';
1145 }
1146 print '</td></tr>';
1147 }
1148
1149 print '</table>';
1150 print '</div>';
1151
1152 print dol_get_fiche_end();
1153
1154 print '<br>';
1155
1156 $showcardpaymentmode = 0;
1157 if (isModEnabled('stripe')) {
1158 $showcardpaymentmode++;
1159 }
1160
1161 // Get list of remote payment modes
1162 $listofsources = array();
1163
1164 $customerstripe = null;
1165 if (isset($stripe) && is_object($stripe) && $stripeacc !== null) {
1166 try {
1167 $customerstripe = $stripe->customerStripe($object, $stripeacc, $servicestatus);
1168 if (!empty($customerstripe->id)) {
1169 // When using the Charge API architecture
1170 if (!getDolGlobalString('STRIPE_USE_INTENT_WITH_AUTOMATIC_CONFIRMATION')) {
1171 $listofsources = $customerstripe->sources->data;
1172 } else {
1173 $service = 'StripeTest';
1174 $servicestatus = 0;
1175 if (getDolGlobalString('STRIPE_LIVE')/* && !GETPOST('forcesandbox', 'alpha') */) {
1176 $service = 'StripeLive';
1177 $servicestatus = 1;
1178 }
1179
1180 // Force to use the correct API key
1181 global $stripearrayofkeysbyenv;
1182 \Stripe\Stripe::setApiKey($stripearrayofkeysbyenv[$servicestatus]['secret_key']);
1183
1184 try {
1185 if (empty($stripeacc)) { // If the Stripe connect account not set, we use common API usage
1186 $paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"));
1187 $paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"));
1188 } else {
1189 $paymentmethodobjsA = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "card"), array("stripe_account" => $stripeacc));
1190 $paymentmethodobjsB = \Stripe\PaymentMethod::all(array("customer" => $customerstripe->id, "type" => "sepa_debit"), array("stripe_account" => $stripeacc));
1191 }
1192
1193 if ($paymentmethodobjsA->data != null && $paymentmethodobjsB->data != null) {
1194 $listofsources = array_merge((array) $paymentmethodobjsA->data, (array) $paymentmethodobjsB->data);
1195 } elseif ($paymentmethodobjsB->data != null) {
1196 $listofsources = $paymentmethodobjsB->data;
1197 } else {
1198 $listofsources = $paymentmethodobjsA->data;
1199 }
1200 } catch (Exception $e) {
1201 $error++;
1202 setEventMessages($e->getMessage(), null, 'errors');
1203 }
1204 }
1205 }
1206 } catch (Exception $e) {
1207 dol_syslog("Error when searching/loading Stripe customer for thirdparty id =".$object->id);
1208 }
1209 }
1210
1211
1212 // List of Card payment modes
1213 if ($showcardpaymentmode && $object->client) {
1214 $morehtmlright = '';
1215 if (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD')) {
1216 $morehtmlright .= dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"].'?socid='.$object->id.'&action=createcard');
1217 }
1218 print load_fiche_titre($langs->trans('CreditCard'), $morehtmlright, 'fa-credit-card');
1219 //($stripeacc ? ' (Stripe connection with StripeConnect account '.$stripeacc.')' : ' (Stripe connection with keys from Stripe module setup)')
1220
1221 print '<!-- List of card payments -->'."\n";
1222 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
1223 print '<table class="liste centpercent noborder">'."\n";
1224 print '<tr class="liste_titre">';
1225 print '<td>'.$langs->trans('Label').'</td>';
1226 print '<td>'.$form->textwithpicto($langs->trans('ExternalSystemID'), $langs->trans("IDOfPaymentInAnExternalSystem")).'</td>'; // external system ID
1227 print '<td>'.$langs->trans('Type').'</td>';
1228 print '<td>'.$langs->trans('Informations').'</td>';
1229 print '<td></td>';
1230 print '<td class="center">'.$langs->trans('Default').'</td>';
1231 print '<td>'.$langs->trans('Note').'</td>';
1232 print '<td>'.$langs->trans('DateModification').'</td>';
1233 // Hook fields
1234 $parameters = array('arrayfields' => array(), 'param' => '', 'sortfield' => '', 'sortorder' => '', 'linetype' => 'stripetitle');
1235 $reshook = $hookmanager->executeHooks('printFieldListTitle', $parameters, $object); // Note that $action and $object may have been modified by hook
1236 print $hookmanager->resPrint;
1237 // Action column
1238 print "<td></td>";
1239 print "</tr>\n";
1240
1241 $nbremote = 0;
1242 $nblocal = 0;
1243 $arrayofremotecard = array();
1244
1245 // Show local sources
1246 if (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD')) {
1247 //$societeaccount = new SocieteAccount($db);
1248 $companypaymentmodetemp = new CompanyPaymentMode($db);
1249
1250 $sql = 'SELECT rowid FROM '.MAIN_DB_PREFIX."societe_rib";
1251 $sql .= " WHERE type in ('card')";
1252 $sql .= " AND fk_soc = ".((int) $object->id);
1253 $sql .= " AND status = ".((int) $servicestatus);
1254
1255 $resql = $db->query($sql);
1256 if ($resql) {
1257 $num_rows = $db->num_rows($resql);
1258 if ($num_rows) {
1259 $i = 0;
1260 while ($i < $num_rows) {
1261 $nblocal++;
1262
1263 $obj = $db->fetch_object($resql);
1264 if ($obj) {
1265 $companypaymentmodetemp->fetch($obj->rowid);
1266
1267 $arrayofremotecard[$companypaymentmodetemp->stripe_card_ref] = $companypaymentmodetemp->stripe_card_ref;
1268
1269 print '<tr class="oddeven" data-rowid="'.((int) $companypaymentmodetemp->id).'">';
1270 // Label
1271 print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($companypaymentmodetemp->label).'">';
1272 print dol_escape_htmltag($companypaymentmodetemp->label);
1273 print '</td>';
1274 // External system card ID
1275 print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($companypaymentmodetemp->stripe_card_ref.(empty($companypaymentmodetemp->stripe_account) ? '' : ' - '.$companypaymentmodetemp->stripe_account)).'">';
1276 if (!empty($companypaymentmodetemp->stripe_card_ref) && !empty($companypaymentmodetemp->ext_payment_site)) {
1277 if (isModEnabled('stripe') && in_array($companypaymentmodetemp->ext_payment_site, array('StripeTest', 'StripeLive'))) {
1278 $connect = '';
1279 if (!empty($stripeacc)) {
1280 $connect = $stripeacc.'/';
1281 }
1282 if ($companypaymentmodetemp->ext_payment_site == 'StripeLive') {
1283 $url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$companypaymentmodetemp->stripe_card_ref;
1284 } else {
1285 $url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$companypaymentmodetemp->stripe_card_ref;
1286 }
1287 print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe').' - '.$companypaymentmodetemp->stripe_account, 'globe')."</a> ";
1288 }
1289 // TODO Add hook here for other payment services
1290 }
1291 print dol_escape_htmltag($companypaymentmodetemp->stripe_card_ref);
1292 print '</td>';
1293 // Type
1294 print '<td>';
1295 print img_credit_card($companypaymentmodetemp->type);
1296 print '</td>';
1297 // Information (Owner, ...)
1298 print '<td class="minwidth100">';
1299 if ($companypaymentmodetemp->owner_name) {
1300 print '<span class="opacitymedium">'.$companypaymentmodetemp->owner_name.'</span><br>';
1301 }
1302 if ($companypaymentmodetemp->last_four) {
1303 print '....'.$companypaymentmodetemp->last_four;
1304 }
1305 if ($companypaymentmodetemp->exp_date_month || $companypaymentmodetemp->exp_date_year) {
1306 print ' - '.sprintf("%02d", $companypaymentmodetemp->exp_date_month).'/'.$companypaymentmodetemp->exp_date_year;
1307 }
1308 print '</td>';
1309 // Country
1310 print '<td class="tdoverflowmax100">';
1311 if ($companypaymentmodetemp->country_code) {
1312 $img = picto_from_langcode($companypaymentmodetemp->country_code);
1313 print $img ? $img.' ' : '';
1314 print getCountry($companypaymentmodetemp->country_code, '1');
1315 } else {
1316 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1317 }
1318 print '</td>';
1319 // Default
1320 print '<td class="center">';
1321 if (empty($companypaymentmodetemp->default_rib)) {
1322 print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=setlocalassourcedefault&token='.newToken().'">';
1323 print img_picto($langs->trans("Default"), 'off');
1324 print '</a>';
1325 } else {
1326 print img_picto($langs->trans("Default"), 'on');
1327 }
1328 print '</td>';
1329 if (empty($companypaymentmodetemp->stripe_card_ref)) {
1330 $s = $langs->trans("Local");
1331 } else {
1332 $s = $langs->trans("LocalAndRemote");
1333 }
1334 print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($s).'">';
1335 print $s;
1336 print '</td>';
1337 print '<td>';
1338 print dol_print_date($companypaymentmodetemp->date_modification, 'dayhour', 'tzuserrel');
1339 print '</td>';
1340 // Fields from hook
1341 $parameters = array('arrayfields' => array(), 'obj' => $obj, 'linetype' => 'stripecard');
1342 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
1343 print $hookmanager->resPrint;
1344 // Action column
1345 print '<td class="right minwidth50 nowraponall">';
1346 if ($permissiontoaddupdatepaymentinformation) {
1347 if ($stripecu && empty($companypaymentmodetemp->stripe_card_ref)) {
1348 print '<a href="'.$_SERVER['PHP_SELF'].'?action=synccardtostripe&socid='.$object->id.'&id='.$companypaymentmodetemp->id.'" class="paddingrightonly marginrightonly">'.$langs->trans("CreateCardOnStripe").'</a>';
1349 }
1350
1351 print '<a class="editfielda marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&id='.$companypaymentmodetemp->id.'&action=editcard&token='.newToken().'">';
1352 print img_picto($langs->trans("Modify"), 'edit');
1353 print '</a>';
1354 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.'&
1355 print img_picto($langs->trans("Delete"), 'delete');
1356 print '</a>';
1357 }
1358 print '</td>';
1359 print '</tr>';
1360 }
1361 $i++;
1362 }
1363 }
1364 } else {
1365 dol_print_error($db);
1366 }
1367 }
1368
1369 // Show remote sources (not already shown as local source)
1370 if (is_array($listofsources) && count($listofsources)) {
1371 foreach ($listofsources as $src) {
1372 if (!empty($arrayofremotecard[$src->id])) {
1373 continue; // Already in previous list
1374 }
1375
1376 $nbremote++;
1377
1378 $imgline = '';
1379 if ($src->object == 'card') {
1380 $imgline = img_credit_card($src->brand);
1381 } elseif ($src->object == 'source' && $src->type == 'card') {
1382 $imgline = img_credit_card($src->card->brand);
1383 } elseif ($src->object == 'payment_method' && $src->type == 'card') {
1384 $imgline = img_credit_card($src->card->brand);
1385 } elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
1386 continue;
1387 } elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
1388 continue;
1389 }
1390
1391 print '<tr class="oddeven">';
1392 print '<td>';
1393 print '</td>';
1394 // Src ID
1395 print '<td class="tdoverflowmax150">';
1396 $connect = '';
1397 if (!empty($stripeacc)) {
1398 $connect = $stripeacc.'/';
1399 }
1400 //$url='https://dashboard.stripe.com/'.$connect.'test/sources/'.$src->id;
1401 $url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$src->id;
1402 if ($servicestatus) {
1403 //$url='https://dashboard.stripe.com/'.$connect.'sources/'.$src->id;
1404 $url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$src->id;
1405 }
1406 print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
1407 print $src->id;
1408 print '</td>';
1409 // Img
1410 print '<td>';
1411 print $imgline;
1412 print'</td>';
1413 // Information
1414 print '<td valign="middle">';
1415 if ($src->object == 'card') {
1416 print '....'.$src->last4.' - '.$src->exp_month.'/'.$src->exp_year;
1417 print '</td><td>';
1418 if ($src->country) {
1419 $img = picto_from_langcode($src->country);
1420 print $img ? $img.' ' : '';
1421 print getCountry($src->country, '1');
1422 } else {
1423 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1424 }
1425 } elseif ($src->object == 'source' && $src->type == 'card') {
1426 print '<span class="opacitymedium">'.$src->owner->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
1427 print '</td><td>';
1428
1429 if ($src->card->country) {
1430 $img = picto_from_langcode($src->card->country);
1431 print $img ? $img.' ' : '';
1432 print getCountry($src->card->country, '1');
1433 } else {
1434 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1435 }
1436 } elseif ($src->object == 'source' && $src->type == 'sepa_debit') {
1437 print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
1438 print '</td><td>';
1439 if ($src->sepa_debit->country) {
1440 $img = picto_from_langcode($src->sepa_debit->country);
1441 print $img ? $img.' ' : '';
1442 print getCountry($src->sepa_debit->country, '1');
1443 } else {
1444 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1445 }
1446 } elseif ($src->object == 'payment_method' && $src->type == 'card') {
1447 print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->card->last4.' - '.$src->card->exp_month.'/'.$src->card->exp_year;
1448 print '</td><td>';
1449
1450 if ($src->card->country) {
1451 $img = picto_from_langcode($src->card->country);
1452 print $img ? $img.' ' : '';
1453 print getCountry($src->card->country, '1');
1454 } else {
1455 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1456 }
1457 } elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
1458 print '<span class="opacitymedium">'.$src->billing_details->name.'</span><br>....'.$src->sepa_debit->last4;
1459 print '</td><td>';
1460 if ($src->sepa_debit->country) {
1461 $img = picto_from_langcode($src->sepa_debit->country);
1462 print $img ? $img.' ' : '';
1463 print getCountry($src->sepa_debit->country, '1');
1464 } else {
1465 print img_warning().' <span class="error">'.$langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("CompanyCountry")).'</span>';
1466 }
1467 } else {
1468 print '</td><td>';
1469 }
1470 print '</td>';
1471 // Default
1472 print '<td class="center" width="50">';
1473 if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
1474 (!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
1475 print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
1476 print img_picto($langs->trans("Default"), 'off');
1477 print '</a>';
1478 } else {
1479 print img_picto($langs->trans("Default"), 'on');
1480 }
1481 print '</td>';
1482 print '<td>';
1483 print $langs->trans("Remote");
1484 //if ($src->cvc_check == 'fail') print ' - CVC check fail';
1485 print '</td>';
1486
1487 print '<td>';
1488 //var_dump($src);
1489 print '</td>';
1490
1491 // Fields from hook
1492 $parameters = array('arrayfields' => array(), 'stripesource' => $src, 'linetype' => 'stripecardremoteonly');
1493 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
1494 print $hookmanager->resPrint;
1495
1496 // Action column
1497 print '<td class="right nowraponall">';
1498 if ($permissiontoaddupdatepaymentinformation) {
1499 print '<a class="marginleftonly marginrightonly" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletecard&token='.newToken().'">';
1500 print img_picto($langs->trans("Delete"), 'delete');
1501 print '</a>';
1502 }
1503 print '</td>';
1504
1505 print '</tr>';
1506 }
1507 }
1508
1509 if ($nbremote == 0 && $nblocal == 0) {
1510 $colspan = (getDolGlobalString('STRIPE_ALLOW_LOCAL_CARD') ? 10 : 9);
1511 print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
1512 }
1513 print "</table>";
1514 print "</div>";
1515 print '<br>';
1516 }
1517
1518 // List of Stripe connect accounts
1519 if (isModEnabled('stripe') && !empty($conf->stripeconnect->enabled) && !empty($stripesupplieracc)) {
1520 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');
1521 $balance = \Stripe\Balance::retrieve(array("stripe_account" => $stripesupplieracc));
1522 print '<!-- List of Stripe connected accounts -->'."\n";
1523 print '<table class="liste centpercent noborder">'."\n";
1524 print '<tr class="liste_titre">';
1525 print '<td>'.$langs->trans('Currency').'</td>';
1526 print '<td>'.$langs->trans('Available').'</td>';
1527 print '<td>'.$langs->trans('Pending').'</td>';
1528 print '<td>'.$langs->trans('Total').'</td>';
1529 print '</tr>';
1530
1531 $currencybalance = array();
1532 if (is_array($balance->available) && count($balance->available)) {
1533 foreach ($balance->available as $cpt) {
1534 $arrayzerounitcurrency = array('BIF', 'CLP', 'DJF', 'GNF', 'JPY', 'KMF', 'KRW', 'MGA', 'PYG', 'RWF', 'VND', 'VUV', 'XAF', 'XOF', 'XPF');
1535 if (!in_array($cpt->currency, $arrayzerounitcurrency)) {
1536 $currencybalance[$cpt->currency]['available'] = $cpt->amount / 100;
1537 } else {
1538 $currencybalance[$cpt->currency]['available'] = $cpt->amount;
1539 }
1540 $currencybalance[$cpt->currency]['currency'] = $cpt->currency;
1541 }
1542 }
1543
1544 if (is_array($balance->pending) && count($balance->pending)) {
1545 foreach ($balance->pending as $cpt) {
1546 $arrayzerounitcurrency = array('BIF', 'CLP', 'DJF', 'GNF', 'JPY', 'KMF', 'KRW', 'MGA', 'PYG', 'RWF', 'VND', 'VUV', 'XAF', 'XOF', 'XPF');
1547 if (!in_array($cpt->currency, $arrayzerounitcurrency)) {
1548 $currencybalance[$cpt->currency]['pending'] = $currencybalance[$cpt->currency]['available'] + $cpt->amount / 100;
1549 } else {
1550 $currencybalance[$cpt->currency]['pending'] = $currencybalance[$cpt->currency]['available'] + $cpt->amount;
1551 }
1552 }
1553 }
1554
1555 if (is_array($currencybalance)) {
1556 foreach ($currencybalance as $cpt_arr) {
1557 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>';
1558 }
1559 }
1560
1561 print '</table>';
1562 print '<br>';
1563 }
1564
1565
1566 // List of bank accounts
1567 if ($permissiontoaddupdatepaymentinformation) {
1568 $morehtmlright = dolGetButtonTitle($langs->trans('Add'), '', 'fa fa-plus-circle', $_SERVER["PHP_SELF"] . '?socid=' . $object->id . '&action=create');
1569 }
1570
1571 print load_fiche_titre($langs->trans("BankAccounts"), $morehtmlright, 'bank');
1572
1573 $nblocal = 0;
1574 $nbremote = 0;
1575 $arrayofremoteban = array();
1576
1577 $rib_list = $object->get_all_rib();
1578
1579 if (is_array($rib_list)) {
1580 print '<!-- List of bank accounts -->'."\n";
1581 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
1582 print '<table class="liste centpercent noborder">';
1583
1584 print '<tr class="liste_titre">';
1585 print_liste_field_titre("Label");
1586 print_liste_field_titre($form->textwithpicto($langs->trans('ExternalSystemID'), $langs->trans("IDOfPaymentInAnExternalSystem"))); // external system ID
1587 //print_liste_field_titre("Bank");
1588 print_liste_field_titre("RIB");
1589 print_liste_field_titre("IBAN");
1590 print_liste_field_titre("BIC");
1591 if (isModEnabled('prelevement')) {
1592 print_liste_field_titre("RUM");
1593 print_liste_field_titre("DateRUM");
1594 }
1595 print_liste_field_titre("Default", '', '', '', '', '', '', '', 'center ');
1596 if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
1597 print_liste_field_titre('', '', '', '', '', '', '', '', 'center ');
1598 }
1599 print_liste_field_titre('', '', '', '', '', '', '', '', 'center ');
1600 // Fields from hook
1601 $parameters = array('arrayfields' => array(), 'linetype' => 'stripebantitle');
1602 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
1603 print $hookmanager->resPrint;
1604 print_liste_field_titre('', $_SERVER["PHP_SELF"], "", '', '', '', '', '', 'maxwidthsearch ');
1605 print "</tr>\n";
1606
1607 // List of local BAN
1608 foreach ($rib_list as $rib) {
1609 $arrayofremoteban[$rib->stripe_card_ref] = $rib->stripe_card_ref;
1610
1611 $nblocal++;
1612
1613 print '<tr class="oddeven">';
1614 // Label
1615 print '<td class="tdoverflowmax150" title="'.dolPrintHTMLForAttribute($rib->label).'">'.dolPrintHTML($rib->label);
1616 print '<br><span class="opacitymedium">'.dolPrintHTML($rib->bank).'</span>';
1617 print '</td>';
1618
1619 // External system ID
1620 print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($rib->stripe_card_ref.(empty($rib->stripe_account) ? '' : ' - '.$rib->stripe_account)).'">';
1621 if (!empty($rib->stripe_card_ref) && !empty($rib->ext_payment_site)) {
1622 if (isModEnabled('stripe') && in_array($rib->ext_payment_site, array('StripeTest', 'StripeLive'))) {
1623 $connect = '';
1624 if (!empty($stripeacc)) {
1625 $connect = $stripeacc.'/';
1626 }
1627 if ($rib->ext_payment_site == 'StripeLive') {
1628 $url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$rib->stripe_card_ref;
1629 } else {
1630 $url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$rib->stripe_card_ref;
1631 }
1632 print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
1633 }
1634 // TODO Add hook here for other payment services
1635 }
1636 print dol_escape_htmltag($rib->stripe_card_ref);
1637 print '</td>';
1638
1639 // Bank name
1640 //print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($rib->bank).'">'.dol_escape_htmltag($rib->bank).'</td>';
1641
1642 // Account number
1643 $string = '';
1644 foreach ($rib->getFieldsToShow() as $val) {
1645 if ($val == 'BankCode') {
1646 $string .= $rib->code_banque.' ';
1647 } elseif ($val == 'BankAccountNumber') {
1648 $string .= $rib->number.' ';
1649 } elseif ($val == 'DeskCode') {
1650 $string .= $rib->code_guichet.' ';
1651 } elseif ($val == 'BankAccountNumberKey') {
1652 $string .= $rib->cle_rib.' ';
1653 }
1654 // Already output after
1655 // } elseif ($val == 'BIC') {
1656 // $string .= $rib->bic.' ';
1657 // } elseif ($val == 'IBAN') {
1658 // $string .= $rib->iban.' ';*/
1659 //}
1660 if (!empty($rib->label) && $rib->number) {
1661 if (!checkBanForAccount($rib)) {
1662 $string .= img_picto($langs->trans("ValueIsNotValid"), 'warning', 'class="pictofixedwidth"').$string;
1663 } else {
1664 $string .= img_picto($langs->trans("ValueIsValid"), 'info', 'class="pictofixedwidth"').$string;
1665 }
1666 }
1667 } // EndFor $rib_list as $rib
1668 print '<td class="tdoverflowmax150" title="'.dol_escape_htmltag($string).'">';
1669 print $string;
1670 print '</td>';
1671
1672 // IBAN
1673 print '<td class="tdoverflowmax100" title="'.dol_escape_htmltag($rib->iban).'">';
1674 if (!empty($rib->iban)) {
1675 if (!checkIbanForAccount($rib)) {
1676 print img_picto($langs->trans("IbanNotValid"), 'warning').' ';
1677 }
1678 }
1679 print dol_escape_htmltag($rib->iban);
1680 print '</td>';
1681 // BIC
1682 print '<td>';
1683 if (!empty($rib->bic)) {
1684 if (!checkSwiftForAccount($rib)) {
1685 print img_picto($langs->trans("SwiftNotValid"), 'warning').' ';
1686 }
1687 }
1688 print dol_escape_htmltag($rib->bic);
1689 print '</td>';
1690
1691 if (isModEnabled('prelevement')) {
1692 // RUM
1693 print '<td class="tdoverflowmax100 small" title="'.dolPrintHTMLForAttribute($rib->rum).'">'.dolPrintHTML($rib->rum);
1694 print '<br><span class="opacitymedium">'.dolPrintHTML($rib->frstrecur).'</span>'; // FRST or RCUR
1695 print '</td>';
1696
1697 // Date
1698 print '<td>'.dol_print_date($rib->date_rum, 'day').'</td>';
1699 }
1700
1701 // Default
1702 print '<td class="center" width="70">';
1703 if (!$rib->default_rib) {
1704 print '<a href="'.$_SERVER["PHP_SELF"].'?socid='.((int) $object->id).'&ribid='.((int) $rib->id).'&action=setasbankdefault&token='.newToken().'">';
1705 print img_picto($langs->trans("Disabled"), 'off');
1706 print '</a>';
1707 } else {
1708 print img_picto($langs->trans("Enabled"), 'on');
1709 }
1710 print '</td>';
1711
1712 // Generate doc
1713 print '<td class="center">';
1714
1715 $buttonlabel = $langs->trans("BuildDoc");
1716 $forname = 'builddocrib'.$rib->id;
1717
1718 include_once DOL_DOCUMENT_ROOT.'/core/modules/bank/modules_bank.php';
1719 $modellist = ModeleBankAccountDoc::liste_modeles($db);
1720
1721 $out = '';
1722 if (is_array($modellist) && count($modellist)) {
1723 $out .= '<form action="'.$_SERVER["PHP_SELF"].(!getDolGlobalString('MAIN_JUMP_TAG') ? '' : '#builddoc').'" name="'.$forname.'" id="'.$forname.'_form" method="post" spellcheck="false">';
1724 $out .= '<input type="hidden" name="action" value="builddocrib">';
1725 $out .= '<input type="hidden" name="token" value="'.newToken().'">';
1726 $out .= '<input type="hidden" name="socid" value="'.$object->id.'">';
1727 $out .= '<input type="hidden" name="companybankid" value="'.$rib->id.'">';
1728
1729 $modelselected = '';
1730 if (count($modellist) == 1) { // If there is only one element
1731 $arraykeys = array_keys($modellist);
1732 $modelselected = $arraykeys[0];
1733 }
1734 if (getDolGlobalString('BANKADDON_PDF')) {
1735 $modelselected = getDolGlobalString('BANKADDON_PDF');
1736 }
1737
1738 $morecss = 'maxwidth125';
1739 if ($conf->browser->layout == 'phone') {
1740 $morecss = 'maxwidth100';
1741 }
1742
1743 $out .= $form->selectarray('modelrib'.$rib->id, $modellist, $modelselected, 1, 0, 0, '', 0, 0, 0, '', 'minwidth100 '.$morecss);
1744 $out .= ajax_combobox('modelrib'.$rib->id);
1745
1746 // Language code (if multilang)
1747 if (getDolGlobalInt('MAIN_MULTILANGS')) {
1748 include_once DOL_DOCUMENT_ROOT.'/core/class/html.formadmin.class.php';
1749 $formadmin = new FormAdmin($db);
1750 $defaultlang = $langs->getDefaultLang();
1751 $out .= $formadmin->select_language($defaultlang, 'lang_idrib'.$rib->id, 0, array(), 0, 0, 0, $morecss);
1752 }
1753 // Button
1754 $out .= '<input class="button buttongen reposition nomargintop nomarginbottom small '.$morecss.'" id="'.$forname.'_generatebutton" name="'.$forname.'_generatebutton"';
1755 $out .= ' type="submit" value="'.$buttonlabel.'"';
1756 $out .= '>';
1757 $out .= '</form>';
1758 }
1759 print $out;
1760 print '</td>';
1761
1762 // Fields from hook
1763 $parameters = array('arrayfields' => array(), 'stripe_card_ref' => $rib->stripe_card_ref, 'stripe_account' => $rib->stripe_account, 'linetype' => 'stripeban');
1764 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
1765 print $hookmanager->resPrint;
1766
1767 // Show online signature link
1768 if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
1769 print '<td class="minwidth200 width200">';
1770 $useonlinesignature = 1;
1771 if ($useonlinesignature) {
1772 $rib->entity = $object->entity; //Assign $rib->entity necessary for a valid multicompany hash
1773 require_once DOL_DOCUMENT_ROOT . '/core/lib/signature.lib.php';
1774 print showOnlineSignatureUrl($companybankaccount->element, (string) $rib->id, $rib, 'short');
1775 }
1776 print '</td>';
1777 }
1778
1779 // Edit/Delete
1780 print '<td class="right nowraponall">';
1781 if ($permissiontoaddupdatepaymentinformation) {
1782 if (isModEnabled('stripe')) {
1783 if (empty($rib->stripe_card_ref)) {
1784 if ($object->client) {
1785 // Add link to create BAN on Stripe
1786 print '<a class="editfielda marginrightonly marginleftonly" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=syncsepatostripe&token='.newToken().'">';
1787 print img_picto($langs->trans("CreateBANOnStripe"), 'stripe');
1788 print '</a>';
1789 } else {
1790 print '<span class="opacitymedium marginrightonly marginleftonly">';
1791 print img_picto($langs->trans("ThirdPartyMustBeACustomerToCreateBANOnStripe"), 'stripe');
1792 print '</span>';
1793 }
1794 }
1795 }
1796
1797 print '<a class="editfielda marginrightonly marginleftonly" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=edit">';
1798 print img_picto($langs->trans("Modify"), 'edit');
1799 print '</a>';
1800
1801 print '<a class="marginrightonly marginleftonly reposition" href="'.$_SERVER["PHP_SELF"].'?socid='.$object->id.'&id='.$rib->id.'&action=deletebank&token='.newToken().'">';
1802 print img_picto($langs->trans("Delete"), 'delete');
1803 print '</a>';
1804 }
1805 print '</td>';
1806
1807 print '</tr>';
1808 }
1809
1810
1811 // List of remote BAN (if not already added as local)
1812 foreach ($listofsources as $src) {
1813 if (!empty($arrayofremoteban[$src->id])) {
1814 continue; // Already in previous list
1815 }
1816
1817 $imgline = '';
1818 if ($src->object == 'source' && $src->type == 'sepa_debit') {
1819 $imgline = '<span class="fa fa-university fa-2x fa-fw"></span>';
1820 } elseif ($src->object == 'payment_method' && $src->type == 'sepa_debit') {
1821 $imgline = '<span class="fa fa-university fa-2x fa-fw"></span>';
1822 } else {
1823 continue;
1824 }
1825
1826 $nbremote++;
1827
1828 print '<tr class="oddeven">';
1829 // Label
1830 print '<td>';
1831 print '</td>';
1832 // External ID
1833 print '<td class="tdoverflowmax150">';
1834 $connect = '';
1835 if (!empty($stripeacc)) {
1836 $connect = $stripeacc.'/';
1837 }
1838 //$url='https://dashboard.stripe.com/'.$connect.'test/sources/'.$src->id;
1839 $url = 'https://dashboard.stripe.com/'.$connect.'test/search?query='.$src->id;
1840 if ($servicestatus) {
1841 //$url='https://dashboard.stripe.com/'.$connect.'sources/'.$src->id;
1842 $url = 'https://dashboard.stripe.com/'.$connect.'search?query='.$src->id;
1843 }
1844 print "<a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')."</a> ";
1845 print $src->id;
1846 print '</td>';
1847 // Bank
1848 /*
1849 print '<td>';
1850 print '</td>';
1851 */
1852 // Account number
1853 print '<td>';
1854 print '</td>';
1855 // IBAN
1856 print '<td>';
1857 //var_dump($src);
1858 print '</td>';
1859 // BIC
1860 print '<td>';
1861 //var_dump($src);
1862 print '</td>';
1863
1864 if (isModEnabled('prelevement')) {
1865 // RUM
1866 print '<td>';
1867 print '</td>';
1868
1869 // Date
1870 print '<td>';
1871 print '</td>';
1872 }
1873
1874 // Default
1875 print '<td class="center" width="50">';
1876 if ((empty($customerstripe->invoice_settings) && $customerstripe->default_source != $src->id) ||
1877 (!empty($customerstripe->invoice_settings) && $customerstripe->invoice_settings->default_payment_method != $src->id)) {
1878 print '<a href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=setassourcedefault&token='.newToken().'">';
1879 print img_picto($langs->trans("Default"), 'off');
1880 print '</a>';
1881 } else {
1882 print img_picto($langs->trans("Default"), 'on');
1883 }
1884 print '</td>';
1885
1886 // Doc gen
1887 print '<td>';
1888 print '</td>';
1889
1890 // Online sign
1891 if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
1892 print '<td>';
1893 print '</td>';
1894 }
1895
1896 // Fields from hook
1897 $parameters = array('arrayfields' => array(), 'src' => $src, 'linetype' => 'stripebanremoteonly');
1898 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object); // Note that $action and $object may have been modified by hook
1899 print $hookmanager->resPrint;
1900
1901 // Action column
1902 print '<td class="right nowraponall">';
1903 if ($permissiontoaddupdatepaymentinformation) {
1904 print '<a class="marginleftonly marginrightonly reposition" href="'.DOL_URL_ROOT.'/societe/paymentmodes.php?socid='.$object->id.'&source='.$src->id.'&action=deletebank&token='.newToken().'">';
1905 print img_picto($langs->trans("Delete"), 'delete');
1906 print '</a>';
1907 }
1908 print '</td>';
1909
1910 print '</tr>';
1911 }
1912
1913 if ($nbremote == 0 && $nblocal == 0) {
1914 $colspan = 10;
1915 if (isModEnabled('prelevement')) {
1916 $colspan += 2;
1917 }
1918 if (!getDolGlobalInt('SOCIETE_DISABLE_BANKACCOUNT') && getDolGlobalInt("SOCIETE_RIB_ALLOW_ONLINESIGN")) {
1919 $colspan++;
1920 }
1921 print '<tr><td colspan="'.$colspan.'"><span class="opacitymedium">'.$langs->trans("NoBANRecord").'</span></td></tr>';
1922 }
1923
1924 print '</table>';
1925 print '</div>';
1926 } else {
1927 dol_print_error($db);
1928 }
1929
1930 //Hook to display your print listing (list of CB card from Stancer Plugin for example)
1931 $parameters = array('arrayfields' => array(), 'param' => '', 'sortfield' => '', 'sortorder' => '', 'linetype' => '');
1932 $reshook = $hookmanager->executeHooks('printNewTable', $parameters, $object);
1933 print $hookmanager->resPrint;
1934
1935 if (!getDolGlobalString('SOCIETE_DISABLE_BUILDDOC')) {
1936 print '<br>';
1937
1938 print '<div class="fichecenter"><div class="fichehalfleft">';
1939 print '<a name="builddoc"></a>'; // ancre
1940
1941 /*
1942 * Generated documents
1943 */
1944 $filedir = $conf->societe->multidir_output[$object->entity ?? $conf->entity].'/'.$object->id;
1945 $urlsource = $_SERVER["PHP_SELF"]."?socid=".$object->id;
1946
1947 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);
1948
1949 // Show direct download link
1950 if (getDolGlobalString('BANK_ACCOUNT_ALLOW_EXTERNAL_DOWNLOAD')) {
1951 $companybankaccounttemp = new CompanyBankAccount($db);
1952 $companypaymentmodetemp = new CompanyPaymentMode($db);
1953 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
1954 $result = $companypaymentmodetemp->fetch(0, '', $object->id, 'ban');
1955
1956 include_once DOL_DOCUMENT_ROOT.'/ecm/class/ecmfiles.class.php';
1957 $ecmfile = new EcmFiles($db);
1958 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
1959 $result = $ecmfile->fetch(0, '', '', '', '', $companybankaccounttemp->table_element, $companypaymentmodetemp->id);
1960 if ($result > 0) {
1961 $companybankaccounttemp->last_main_doc = $ecmfile->filepath.'/'.$ecmfile->filename;
1962 print '<br><!-- Link to download main doc -->'."\n";
1963 print showDirectDownloadLink($companybankaccounttemp).'<br>';
1964 }
1965 }
1966
1967 print '</div><div class="fichehalfright">';
1968
1969
1970 print '</div></div>';
1971
1972 print '<br>';
1973 }
1974 /*
1975 include_once DOL_DOCUMENT_ROOT.'/core/modules/bank/modules_bank.php';
1976 $modellist=ModeleBankAccountDoc::liste_modeles($db);
1977 //print '<td>';
1978 if (is_array($modellist) && count($modellist) == 1) // If there is only one element
1979 {
1980 $arraykeys=array_keys($modellist);
1981 $modelselected=$arraykeys[0];
1982 }
1983 $out.= $form->selectarray('model', $modellist, $modelselected, 0, 0, 0, '', 0, 0, 0, '', 'minwidth100');
1984 $out.= ajax_combobox('model');
1985 //print $out;
1986 $buttonlabel=$langs->trans("Generate");
1987 $genbutton = '<input class="button buttongen reposition nomargintop nomarginbottom" id="'.$forname.'_generatebutton" name="'.$forname.'_generatebutton"';
1988 $genbutton.= ' type="submit" value="'.$buttonlabel.'"';
1989 $genbutton.= '>';
1990 print $genbutton;
1991 //print '</td>'; // TODO Add link to generate doc
1992 */
1993}
1994
1995// Edit BAN
1996if ($socid && $action == 'edit' && $permissiontoaddupdatepaymentinformation) {
1997 print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
1998
1999 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
2000
2001 dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
2002
2003 print '<div class="underbanner clearboth"></div>';
2004
2005 print '<br>';
2006
2007 print '<div class="div-table-responsive-no-min">';
2008 print '<table class="border tableforfield centpercent">';
2009
2010 print '<tr><td class="titlefield fieldrequired">'.$langs->trans("Label").'</td>';
2011 print '<td><input class="minwidth300" type="text" name="label" value="'.$companybankaccount->label.'" spellcheck="false"></td></tr>';
2012
2013 print '<tr><td>'.$langs->trans("BankName").'</td>';
2014 print '<td><input class="minwidth200" type="text" name="bank" value="'.$companybankaccount->bank.'" spellcheck="false"></td></tr>';
2015
2016 // Show fields of bank account
2017 $companybankaccount->fetch($id);
2018 $bankaccount = $companybankaccount;
2019 // Code here is similar as in bank.php for users
2020 foreach ($bankaccount->getFieldsToShow(1) as $val) {
2021 $require = false;
2022 $tooltip = '';
2023 $name = 'Unset';
2024 $size = 8;
2025 $content = 'NoContent';
2026 if ($val == 'BankCode') {
2027 $name = 'code_banque';
2028 $size = 8;
2029 $content = $bankaccount->code_banque;
2030 } elseif ($val == 'DeskCode') {
2031 $name = 'code_guichet';
2032 $size = 8;
2033 $content = $bankaccount->code_guichet;
2034 } elseif ($val == 'BankAccountNumber') {
2035 $name = 'number';
2036 $size = 18;
2037 $content = $bankaccount->number;
2038 } elseif ($val == 'BankAccountNumberKey') {
2039 $name = 'cle_rib';
2040 $size = 3;
2041 $content = $bankaccount->cle_rib;
2042 } elseif ($val == 'IBAN') {
2043 $name = 'iban';
2044 $size = 30;
2045 $content = $bankaccount->iban;
2046 if ($bankaccount->needIBAN()) {
2047 $require = true;
2048 }
2049 $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';
2050 } elseif ($val == 'BIC') {
2051 $name = 'bic';
2052 $size = 12;
2053 $content = $bankaccount->bic;
2054 if ($bankaccount->needBIC() && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
2055 $require = true;
2056 }
2057 $tooltip = $langs->trans("Example").': LIABLT2XXXX';
2058 }
2059
2060 print '<tr>';
2061 print '<td'.($require ? ' class="fieldrequired" ' : '').'>';
2062 if ($tooltip) {
2063 // $tooltip looks like $tooltiptrigger so: @phan-suppress-next-line PhanPluginSuspiciousParamOrder
2064 print $form->textwithpicto($langs->trans($val), $tooltip, 4, 'help', '', 0, 3, $name);
2065 } else {
2066 print $langs->trans($val);
2067 }
2068 print '</td>';
2069 print '<td><input size="'.$size.'" type="text" class="flat" name="'.$name.'" value="'.$content.'"></td>';
2070 print '</tr>';
2071 }
2072
2073 // Currency
2074 print '<tr><td class="fieldrequired">'.$langs->trans("Currency").'</td>';
2075 print '<td>';
2076 $selectedcode = $bankaccount->currency_code;
2077 if (!$selectedcode) {
2078 $selectedcode = $conf->currency;
2079 }
2080 print $form->selectCurrency((GETPOSTISSET("account_currency_code") ? GETPOST("account_currency_code") : $selectedcode), 'account_currency_code');
2081 //print $langs->trans("Currency".$conf->currency);
2082 //print '<input type="hidden" name="account_currency_code" value="'.$conf->currency.'">';
2083 print '</td></tr>';
2084
2085 // Status
2086 $account_status = $bankaccount->status;
2087 print '<tr><td class="fieldrequired">'.$langs->trans("Status").'</td>';
2088 print '<td>';
2089 print $form->selectarray("clos", $bankaccount->labelStatus, $account_status, 0, 0, 0, '', 0, 0, 0, '', 'minwidth100 maxwidth150onsmartphone');
2090 print '</td></tr>';
2091
2092 // Bank country
2093 $country_codeid = GETPOST("account_country_id") ? GETPOST("account_country_id") : $bankaccount->fk_country;
2094 if (empty($country_codeid)) {
2095 $country_codeid = $mysoc->country_code;
2096 }
2097 $bankaccount->country_code = getCountry($country_codeid, '2'); // Force country code on account to have following field on bank fields matching country rules
2098
2099 print '<tr><td class="fieldrequired">'.$langs->trans("BankAccountCountry").'</td>';
2100 print '<td>';
2101 print img_picto('', 'country', 'class="pictofixedwidth"');
2102 print $form->select_country($country_codeid, 'account_country_id');
2103 if ($user->admin) {
2104 print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
2105 }
2106 print '</td></tr>';
2107
2108 // Bank state
2109 $selected_state_id = $bankaccount->state_id;
2110 print '<tr><td>'.$langs->trans('State').'</td><td>';
2111 if ($country_codeid) {
2112 print img_picto('', 'state', 'class="pictofixedwidth"');
2113 print $formcompany->select_state($selected_state_id, $country_codeid, 'account_state_id');
2114 } else {
2115 print $countrynotdefined;
2116 }
2117 print '</td></tr>';
2118
2119 print '<tr><td class="tdtop">'.$langs->trans("BankAccountDomiciliation").'</td><td>';
2120 print '<textarea name="address" rows="'.ROWS_4.'" cols="40" maxlength="255" spellcheck="false">';
2121 print dolPrintHTMLForTextArea($companybankaccount->address);
2122 print "</textarea></td></tr>";
2123
2124 print '<tr><td>'.$langs->trans("BankAccountOwner").'</td>';
2125 print '<td><input class="minwidth300" type="text" name="proprio" value="'.$companybankaccount->owner_name.'" spellcheck="false"></td></tr>';
2126 print "</td></tr>\n";
2127
2128 print '<tr><td class="tdtop">'.$langs->trans("BankAccountOwnerAddress").'</td><td>';
2129 print '<textarea name="owner_address" rows="'.ROWS_4.'" cols="40" maxlength="255" spellcheck="false">';
2130 print dolPrintHTMLForTextArea($companybankaccount->owner_address);
2131 print "</textarea></td></tr>";
2132
2133 print '</table>';
2134 print '</div>';
2135
2136 if (isModEnabled('prelevement')) {
2137 print '<hr>';
2138
2139 print '<div class="div-table-responsive-no-min">';
2140 print '<table class="border tableforfield centpercent">';
2141
2142 if (empty($companybankaccount->rum)) {
2143 $companybankaccount->rum = $prelevement->buildRumNumber($object->code_client, $companybankaccount->datec, (string) $companybankaccount->id);
2144 }
2145
2146 // Title
2147 print '<tr><td class="titlefieldcreate" colspan="5">'.$langs->trans("WithdrawalsSetup").'</td></tr>';
2148
2149 // RUM
2150 print '<tr><td class="titlefield">'.$langs->trans("RUM").'</td>';
2151 print '<td><input class="minwidth300" type="text" name="rum" value="'.dol_escape_htmltag($companybankaccount->rum).'" spellcheck="false"></td></tr>';
2152
2153 $date_rum = GETPOSTDATE('date_rum', '00:00:00');
2154
2155 print '<tr><td class="titlefield">'.$langs->trans("DateRUM").'</td>';
2156 print '<td>'.$form->selectDate($date_rum ? $date_rum : $companybankaccount->date_rum, 'date_rum', 0, 0, 1, 'date_rum', 1, 1).'</td></tr>';
2157
2158 print '<tr><td>'.$langs->trans("WithdrawMode").'</td><td>';
2159 $tblArraychoice = array("FRST" => $langs->trans("FRST"), "RCUR" => $langs->trans("RECUR"));
2160 print $form->selectarray("frstrecur", $tblArraychoice, dol_escape_htmltag(GETPOST('frstrecur', 'alpha') ? GETPOST('frstrecur', 'alpha') : $companybankaccount->frstrecur), 0);
2161 print '</td></tr>';
2162
2163 print '<tr><td>'.$langs->trans("ExternalSystemID")." ('pm_...' or 'src_...')</td>";
2164 print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.$companypaymentmode->stripe_card_ref.'" spellcheck="false"></td></tr>';
2165
2166 print '</table>';
2167 print '</div>';
2168 }
2169
2170
2171 print dol_get_fiche_end();
2172
2173 print $form->buttonsSaveCancel("Modify");
2174}
2175
2176// Edit Card
2177if ($socid && $action == 'editcard' && $permissiontoaddupdatepaymentinformation) {
2178 print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
2179
2180 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
2181
2182 dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
2183
2184 print '<div class="nofichecenter">';
2185
2186 print '<div class="underbanner clearboth"></div>';
2187
2188 print '<br>';
2189
2190 print '<div class="div-table-responsive-no-min">';
2191 print '<table class="border centpercent">';
2192
2193 print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
2194 print '<td><input class="minwidth300" type="text" id="label" name="label" value="'.$companypaymentmode->label.'" spellcheck="false"></td></tr>';
2195
2196 print '<tr><td class="fieldrequired">'.$langs->trans("NameOnCard").'</td>';
2197 print '<td><input class="minwidth200" type="text" name="proprio" value="'.$companypaymentmode->owner_name.'" spellcheck="false"></td></tr>';
2198
2199 print '<tr><td>'.$langs->trans("CardNumber").'</td>';
2200 print '<td><input class="minwidth200" type="text" name="cardnumber" value="'.$companypaymentmode->number.'" spellcheck="false"></td></tr>';
2201
2202 print '<tr><td class="fieldrequired">'.$langs->trans("ExpiryDate").'</td>';
2203 print '<td>';
2204 print $formother->select_month((string) $companypaymentmode->exp_date_month, 'exp_date_month', 1);
2205 print $formother->selectyear((string) $companypaymentmode->exp_date_year, 'exp_date_year', 1, 5, 10, 0, 0, '', 'marginleftonly');
2206 print '</td></tr>';
2207
2208 print '<tr><td>'.$langs->trans("CVN").'</td>';
2209 print '<td><input size="8" type="text" name="cvn" value="'.$companypaymentmode->cvn.'"></td></tr>';
2210
2211 print '<tr><td>'.$langs->trans("ExternalSystemID")." ('pm_... ".$langs->trans("or")." card_....')</td>";
2212 print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.$companypaymentmode->stripe_card_ref.'" spellcheck="false"></td></tr>';
2213
2214 print '</table>';
2215 print '</div>';
2216 print '</div>';
2217
2218 print dol_get_fiche_end();
2219
2220 print $form->buttonsSaveCancel("Modify");
2221}
2222
2223
2224// Create BAN
2225if ($socid && $action == 'create' && $permissiontoaddupdatepaymentinformation) {
2226 print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
2227
2228 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
2229
2230 dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
2231
2232 print '<div class="nofichecenter">';
2233
2234 print '<div class="underbanner clearboth"></div>';
2235
2236 print '<br>';
2237
2238 print '<div class="div-table-responsive-no-min">';
2239 print '<table class="border tableforfield centpercent">';
2240
2241 print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
2242 print '<td><input class="minwidth250" type="text" id="label" name="label" value="'.(GETPOSTISSET('label') ? GETPOST('label') : $langs->trans("Bank").' '.$object->name).'" spellcheck="false"></td></tr>';
2243
2244 print '<tr><td>'.$langs->trans("Bank").'</td>';
2245 print '<td><input class="minwidth250" type="text" id="bank" name="bank" value="'.GETPOST('bank').'" spellcheck="false"></td></tr>';
2246
2247 // Show fields of bank account
2248 foreach ($companybankaccount->getFieldsToShow(1) as $val) {
2249 $require = false;
2250 $tooltip = '';
2251 $size = 8;
2252 $name = 'Unknown';
2253 $content = 'NoContent';
2254
2255 if ($val == 'BankCode') {
2256 $name = 'code_banque';
2257 $size = 8;
2258 $content = $companybankaccount->code_banque;
2259 } elseif ($val == 'DeskCode') {
2260 $name = 'code_guichet';
2261 $size = 8;
2262 $content = $companybankaccount->code_guichet;
2263 } elseif ($val == 'BankAccountNumber') {
2264 $name = 'number';
2265 $size = 18;
2266 $content = $companybankaccount->number;
2267 } elseif ($val == 'BankAccountNumberKey') {
2268 $name = 'cle_rib';
2269 $size = 3;
2270 $content = $companybankaccount->cle_rib;
2271 } elseif ($val == 'IBAN') {
2272 $name = 'iban';
2273 $size = 30;
2274 $content = $companybankaccount->iban;
2275 if ($companybankaccount->needIBAN()) {
2276 $require = true;
2277 }
2278 $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';
2279 } elseif ($val == 'BIC') {
2280 $name = 'bic';
2281 $size = 12;
2282 $content = $companybankaccount->bic;
2283 if ($companybankaccount->needBIC() && (getDolGlobalInt('WITHDRAWAL_WITHOUT_BIC') == 0)) {
2284 $require = true;
2285 }
2286 $tooltip = $langs->trans("Example").': LIABLT2XXXX';
2287 }
2288
2289 print '<tr><td'.($require ? ' class="fieldrequired" ' : '').'>';
2290 if ($tooltip) {
2291 // tooltip lookslike tooltip trigger so @phan-suppress-next-line PhanPluginSuspiciousParamOrder
2292 print $form->textwithpicto($langs->trans($val), $tooltip, 4, 'help', '', 0, 3, $name);
2293 } else {
2294 print $langs->trans($val);
2295 }
2296 print '</td>';
2297 print '<td><input size="'.$size.'" type="text" class="flat" name="'.$name.'" id="'.$name.'" value="'.GETPOST($name).'" spellcheck="false"></td>';
2298 print '</tr>';
2299 }
2300
2301 // Currency
2302 print '<tr><td class="fieldrequired">'.$langs->trans("Currency").'</td>';
2303 print '<td>';
2304 $selectedcode = $object->currency_code;
2305 if (!$selectedcode) {
2306 $selectedcode = $conf->currency;
2307 }
2308 print $form->selectCurrency((GETPOSTISSET("account_currency_code") ? GETPOST("account_currency_code") : $selectedcode), 'account_currency_code');
2309 //print $langs->trans("Currency".$conf->currency);
2310 //print '<input type="hidden" name="account_currency_code" value="'.$conf->currency.'">';
2311 print '</td></tr>';
2312
2313 // Status
2314 print '<tr><td class="fieldrequired">'.$langs->trans("Status").'</td>';
2315 print '<td>';
2316 print $form->selectarray("clos", $companybankaccount->labelStatus, (GETPOSTISSET('clos') ? GETPOSTINT('clos') : $companybankaccount::STATUS_OPEN), 0, 0, 0, '', 0, 0, 0, '', 'minwidth100 maxwidth150onsmartphone');
2317 print '</td></tr>';
2318
2319 // Bank country
2320 $selectedcode = '';
2321 if (GETPOSTISSET("account_country_id")) {
2322 $selectedcode = GETPOST("account_country_id") ? GETPOST("account_country_id") : $object->country_code;
2323 } elseif (empty($selectedcode)) {
2324 $selectedcode = $mysoc->country_code;
2325 }
2326 $object->country_code = getCountry($selectedcode, '2'); // Force country code on account to have following field on bank fields matching country rules
2327
2328 print '<tr><td class="fieldrequired">'.$langs->trans("BankAccountCountry").'</td>';
2329 print '<td>';
2330 print img_picto('', 'country', 'class="pictofixedwidth"');
2331 print $form->select_country($selectedcode, 'account_country_id');
2332 if ($user->admin) {
2333 print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
2334 }
2335 print '</td></tr>';
2336
2337 // Bank state
2338 print '<tr><td>'.$langs->trans('State').'</td><td>';
2339 if ($selectedcode) {
2340 print img_picto('', 'state', 'class="pictofixedwidth"');
2341 print $formcompany->select_state(GETPOSTISSET("account_state_id") ? GETPOSTINT("account_state_id") : 0, $selectedcode, 'account_state_id');
2342 } else {
2343 print $countrynotdefined;
2344 }
2345 print '</td></tr>';
2346
2347 print '<tr><td class="tdtop">'.$langs->trans("BankAccountDomiciliation").'</td><td>';
2348 print '<textarea name="address" rows="'.ROWS_4.'" class="quatrevingtpercent" maxlength="255">';
2349 print dolPrintHTMLForTextArea(GETPOST('address'));
2350 print "</textarea></td></tr>";
2351
2352 print '<tr><td>'.$langs->trans("BankAccountOwner").'</td>';
2353 print '<td><input class="minwidth200" type="text" name="proprio" value="'.GETPOST('proprio').'" spellcheck="false"></td></tr>';
2354 print "</td></tr>\n";
2355
2356 print '<tr><td class="tdtop">'.$langs->trans("BankAccountOwnerAddress").'</td><td>';
2357 print '<textarea name="owner_address" rows="'.ROWS_4.'" class="quatrevingtpercent" maxlength="255">';
2358 print dolPrintHTMLForTextArea(GETPOST('owner_address'));
2359 print "</textarea></td></tr>";
2360
2361 print '</table>';
2362 print '</div>';
2363
2364 if (isModEnabled('prelevement')) {
2365 print '<hr>';
2366
2367 print '<div class="div-table-responsive-no-min">';
2368 print '<table class="border tableforfield centpercent">';
2369
2370 // Title
2371 print '<tr><td class="titlefieldcreate" colspan="5">'.$langs->trans("WithdrawalsSetup").'</td></tr>';
2372
2373 // RUM
2374 print '<tr><td class="titlefieldcreate">'.$form->textwithpicto($langs->trans("RUM"), $langs->trans("RUMLong").'<br>'.$langs->trans("RUMWillBeGenerated")).'</td>';
2375 print '<td colspan="4"><input type="text" class="minwidth300" name="rum" value="'.GETPOST('rum', 'alpha').'" spellcheck="false"></td></tr>';
2376
2377 $date_rum = GETPOSTDATE('date_rum', '00:00:00');
2378
2379 print '<tr><td class="titlefieldcreate">'.$langs->trans("DateRUM").'</td>';
2380 print '<td colspan="4">'.$form->selectDate($date_rum, 'date_rum', 0, 0, 1, 'date_rum', 1, 1).'</td></tr>';
2381
2382 print '<tr><td>'.$langs->trans("WithdrawMode").'</td><td>';
2383 $tblArraychoice = array("FRST" => $langs->trans("FRST"), "RCUR" => $langs->trans("RECUR"));
2384 print $form->selectarray("frstrecur", $tblArraychoice, (GETPOSTISSET('frstrecur') ? GETPOST('frstrecur') : 'FRST'), 0);
2385 print '</td></tr>';
2386
2387 print '<tr><td>'.$langs->trans("ExternalSystemID")." ('src_....')</td>";
2388 print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.GETPOST('stripe_card_ref', 'alpha').'" spellcheck="false"></td></tr>';
2389
2390 print '</table>';
2391 print '</div>';
2392 }
2393
2394 print '</div>';
2395
2396 print dol_get_fiche_end();
2397
2398 dol_set_focus('#iban');
2399
2400 print $form->buttonsSaveCancel("Add");
2401}
2402
2403// Create Card
2404if ($socid && $action == 'createcard' && $permissiontoaddupdatepaymentinformation) {
2405 print dol_get_fiche_head($head, 'rib', $langs->trans("ThirdParty"), 0, 'company');
2406
2407 $linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
2408
2409 dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
2410
2411 print '<div class="nofichecenter">';
2412
2413 print '<div class="underbanner clearboth"></div>';
2414
2415 print '<br>';
2416
2417 print '<div class="div-table-responsive-no-min">';
2418 print '<table class="border centpercent">';
2419
2420 print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Label").'</td>';
2421 print '<td><input class="minwidth200" type="text" id="label" name="label" value="'.GETPOST('label', 'alpha').'" spellcheck="false"></td></tr>';
2422
2423 print '<tr><td class="fieldrequired">'.$langs->trans("NameOnCard").'</td>';
2424 print '<td><input class="minwidth200" type="text" name="proprio" value="'.GETPOST('proprio', 'alpha').'" spellcheck="false"></td></tr>';
2425
2426 print '<tr><td>'.$langs->trans("CardNumber").'</td>';
2427 print '<td><input class="minwidth200" type="text" name="cardnumber" value="'.GETPOST('cardnumber', 'alpha').'" spellcheck="false"></td></tr>';
2428
2429 print '<tr><td class="fieldrequired">'.$langs->trans("ExpiryDate").'</td>';
2430 print '<td>';
2431 print $formother->select_month((string) GETPOSTINT('exp_date_month'), 'exp_date_month', 1);
2432 print $formother->selectyear((string) GETPOSTINT('exp_date_year'), 'exp_date_year', 1, 5, 10, 0, 0, '', 'marginleftonly');
2433 print '</td></tr>';
2434
2435 print '<tr><td>'.$langs->trans("CVN").'</td>';
2436 print '<td><input class="width50" type="text" name="cvn" value="'.GETPOST('cvn', 'alpha').'" spellcheck="false"></td></tr>';
2437
2438 print '<tr><td>'.$langs->trans("ExternalSystemID")." ('card_....')</td>";
2439 print '<td><input class="minwidth300" type="text" name="stripe_card_ref" value="'.GETPOST('stripe_card_ref', 'alpha').'" spellcheck="false"></td></tr>';
2440
2441 print '</table>';
2442 print '</div>';
2443
2444 print '</div>';
2445
2446 print dol_get_fiche_end();
2447
2448 dol_set_focus('#label');
2449
2450 print $form->buttonsSaveCancel("Add");
2451}
2452
2453if ($socid && ($action == 'edit' || $action == 'editcard') && $permissiontoaddupdatepaymentinformation) {
2454 print '</form>';
2455}
2456if ($socid && ($action == 'create' || $action == 'createcard') && $permissiontoaddupdatepaymentinformation) {
2457 print '</form>';
2458}
2459
2460// End of page
2461llxFooter();
2462$db->close();
$id
$id
Support class for third parties, contacts, members, users or resources.
Definition account.php:47
$object
if(! $sortfield) if(! $sortorder) $object
Definition account.php:100
ajax_combobox
ajax_combobox($htmlname, $events=array(), $minLengthToAutocomplete=0, $forcefocus=0, $widthTypeOfAutocomplete='resolve', $idforemptyvalue='-1', $morecss='')
Convert a html select field into an ajax combobox.
Definition ajax.lib.php:476
llxFooter
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
Definition wrapper.php:91
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:73
checkIbanForAccount
checkIbanForAccount($account=null, $ibantocheck=null)
Check IBAN number information for a bank account.
Definition bank.lib.php:390
checkBanForAccount
checkBanForAccount($account)
Check account number information for a bank account.
Definition bank.lib.php:433
checkSwiftForAccount
checkSwiftForAccount($account=null, $swift=null)
Check SWIFT information for a bank account.
Definition bank.lib.php:369
BonPrelevement
Class to manage withdrawal receipts.
Definition bonprelevement.class.php:49
CompanyBankAccount
Class to manage bank accounts description of third parties.
Definition companybankaccount.class.php:37
CompanyPaymentMode
Class for CompanyPaymentMode.
Definition companypaymentmode.class.php:35
EcmFiles
Class to manage ECM files.
Definition ecmfiles.class.php:38
ExtraFields
Class to manage standard extra fields.
Definition extrafields.class.php:43
FormAdmin
Class to generate html code for admin pages.
Definition html.formadmin.class.php:33
FormCompany
Class to build HTML component for third parties management Only common components are here.
Definition html.formcompany.class.php:43
FormFile
Class to offer components to list and upload files.
Definition html.formfile.class.php:39
Form
Class to manage generation of HTML components Only common components must be here.
Definition html.form.class.php:59
FormOther
Class to help generate other html components Only common components are here.
Definition html.formother.class.php:42
ModeleBankAccountDoc\liste_modeles
static liste_modeles($db, $maxfilenamelength=0)
Return list of active generation modules.
Definition modules_bank.php:43
SocieteAccount
Class for SocieteAccount.
Definition societeaccount.class.php:39
Societe
Class to manage third parties objects (customers, suppliers, prospects...)
Definition societe.class.php:57
Stripe
Stripe class @TODO No reason to extend CommonObject.
Definition stripe.class.php:32
getCountry
getCountry($searchkey, $withcode='', $dbtouse=null, $outputlangs=null, $entconv=1, $searchlabel='')
Return country label, code or id from an id, code or label.
Definition company.lib.php:661
societe_prepare_head
societe_prepare_head(Societe $object, $subtabs='')
Return array of tabs to used on pages for third parties cards.
Definition company.lib.php:44
$mysoc
global $mysoc
Definition purchasesjournal.php:30
$conf
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $conf
The main.inc.php has been included so the following variable are now defined:
Definition execute_tool.php:50
$db
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $db
API class for accounts.
Definition execute_tool.php:46
dol_now
dol_now($mode='gmt')
Return date for now.
Definition functions.lib.php:4295
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
Definition functions.lib.php:11394
img_credit_card
img_credit_card($brand, $morecss='fa-2x inline-block valignmiddle')
Return image of a credit card according to its brand name.
Definition functions.lib.php:6756
GETPOSTDATE
GETPOSTDATE($prefix, $hourTime='', $gm='auto', $saverestore='')
Helper function that combines values of a dolibarr DatePicker (such as Form\selectDate) for year,...
Definition functions.lib.php:990
picto_from_langcode
picto_from_langcode($codelang, $moreatt='', $notitlealt=0)
Return img flag of country for a language code or country code.
Definition functions.lib.php:12596
print_liste_field_titre
print_liste_field_titre($name, $file="", $field="", $begin="", $param="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
Definition functions.lib.php:7109
showValueWithClipboardCPButton
showValueWithClipboardCPButton($valuetocopy, $showonlyonhover=1, $texttoshow='')
Create a button to copy $valuetocopy in the clipboard (for copy and paste feature).
Definition functions.lib.php:15996
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
Definition functions.lib.php:5657
img_warning
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
Definition functions.lib.php:6584
info_admin
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='', $picto='', $textonpictotooltip='')
Show information in HTML for admin users or standard users.
Definition functions.lib.php:6865
GETPOSTINT
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
Definition functions.lib.php:951
dolPrintHTML
dolPrintHTML($s, $allowiframe=0, $moreallowedtags=array())
Return a string (that can be on several lines) ready to be output on a HTML page.
Definition functions.lib.php:2411
dol_get_fiche_head
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0, $morecssdiv='')
Show tabs of a record.
Definition functions.lib.php:3125
dolPrintHTMLForTextArea
dolPrintHTMLForTextArea($s, $allowiframe=0)
Return a string ready to be output on input textarea.
Definition functions.lib.php:2477
dolGetButtonTitle
dolGetButtonTitle($label, $helpText='', $iconClass='fa fa-file', $url='', $id='', $status=1, $params=array())
Function dolGetButtonTitle : this kind of buttons are used in title in list.
Definition functions.lib.php:15043
dol_get_fiche_end
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition functions.lib.php:3323
dol_sanitizeFileName
dol_sanitizeFileName($str, $newstr='_', $unaccent=1, $includequotes=0, $allowdash=0)
Clean a string to use it as a file name.
Definition functions.lib.php:1925
price
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
Definition functions.lib.php:7693
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
Definition functions.lib.php:321
dol_set_focus
dol_set_focus($selector)
Set focus onto field with selector (similar behaviour of 'autofocus' HTML5 tag)
Definition functions.lib.php:13411
newToken
newToken()
Return the value of token currently saved into session with name 'newtoken'.
Definition functions.lib.php:15776
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition functions.lib.php:1082
dol_clone
dol_clone($srcobject, $native=2)
Create a clone of instance of object (new instance with same value for each properties) With native =...
Definition functions.lib.php:1823
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false, $decorate=0)
Output date in a string format according to outputlangs (or langs if not defined).
Definition functions.lib.php:3884
showDirectDownloadLink
showDirectDownloadLink($object)
Return string with full Url.
Definition functions.lib.php:13760
dol_htmloutput_mesg
dol_htmloutput_mesg($mesgstring='', $mesgarray=array(), $style='ok', $keepembedded=0)
Print formatted messages to output (Used to show messages on html output).
Definition functions.lib.php:11548
dol_print_error
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition functions.lib.php:6917
load_fiche_titre
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='', $morecssonpicto='widthpictotitle')
Load a title with picto.
Definition functions.lib.php:7292
getDolGlobalString
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
Definition functions.lib.php:286
isModEnabled
isModEnabled($module)
Is Dolibarr module enabled.
Definition functions.lib.php:489
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:2754
dol_escape_htmltag
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
Definition functions.lib.php:2510
string
print $langs trans("Show") . '< td style="' . $timeColor . '" align="center"> s</td > badge status0 badge status4 badge status3 Error badge status8< td align="center">< span class="badge ' . $badge . '"></span ></td >< td align="center">< a href="#" class="button button-small" onclick="openLogModal(this)" data-req="' . dol_escape_htmltag($reqSafe) . '" data-res="' . dol_escape_htmltag($resSafe) . '" data-err="' . dol_escape_htmltag($errSafe) . '">< span class="fa fa-search-plus"></span ></a ></td ></tr >< tr >< td colspan="' . $colspan . '" class="opacitymedium"></td ></tr ></table ></div ></form > logModal none logModal none s a JSON string
buildzip.php
Definition log_viewer.php:266
name
$conf db name
Only used if Module[ID]Name translation string is not found.
Definition repair.php:133
restrictedArea
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.
Definition security.lib.php:180
Generated on Wed Jul 1 2026 01:00:40 for dolibarr by Doxygen 1.11.0