32require
'../../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.
'/compta/paiement/class/paiement.class.php';
34require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
35require_once DOL_DOCUMENT_ROOT.
'/core/modules/facture/modules_facture.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/lib/payments.lib.php';
37if (isModEnabled(
"bank")) {
38 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
40if (isModEnabled(
'margin')) {
41 require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formmargin.class.php';
45$langs->loadLangs(array(
'bills',
'banks',
'companies'));
49$action =
GETPOST(
'action',
'aZ09');
50$confirm =
GETPOST(
'confirm',
'alpha');
51$backtopage =
GETPOST(
'backtopage',
'alpha');
60$hookmanager->initHooks(array(
'paymentcard',
'globalcard'));
63include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
69 $socid = $user->socid;
73if ($socid && $socid !=
$object->thirdparty->id) {
81if (isModEnabled(
'stripe')) {
82 require_once DOL_DOCUMENT_ROOT.
'/stripe/class/stripe.class.php';
84 $service =
'StripeTest';
87 $service =
'StripeLive';
92 global $stripearrayofkeysbyenv;
93 $site_account = $stripearrayofkeysbyenv[$servicestatus][
'publishable_key'];
96 $stripeacc = $stripe->getStripeAccount($service);
104$parameters = array(
'socid' => $socid);
105$reshook = $hookmanager->executeHooks(
'doActions', $parameters,
$object, $action);
110if (empty($reshook)) {
111 if ($action ==
'setnote' && $user->hasRight(
'facture',
'paiement')) {
124 if ($action ==
'confirm_delete' && $confirm ==
'yes' && $user->hasRight(
'facture',
'paiement')) {
127 $result =
$object->delete($user);
132 header(
"Location: ".$backtopage);
135 header(
"Location: list.php");
139 $langs->load(
"errors");
145 if ($action ==
'confirm_validate' && $confirm ==
'yes' && $user->hasRight(
'facture',
'paiement')) {
148 if (
$object->validate($user) > 0) {
153 $outputlangs = $langs;
154 if (
GETPOST(
'lang_id',
'aZ09')) {
156 $outputlangs->setDefaultLang(
GETPOST(
'lang_id',
'aZ09'));
163 $sql =
'SELECT f.rowid as facid';
164 $sql .=
' FROM '.MAIN_DB_PREFIX.
'paiement_facture as pf,'.MAIN_DB_PREFIX.
'facture as f,'.MAIN_DB_PREFIX.
'societe as s';
165 $sql .=
' WHERE pf.fk_facture = f.rowid';
166 $sql .=
' AND f.fk_soc = s.rowid';
167 $sql .=
' AND f.entity IN ('.getEntity(
'invoice').
')';
168 $sql .=
' AND pf.fk_paiement = '.((int)
$object->id);
169 $resql = $db->query($sql);
172 $num = $db->num_rows($resql);
176 $objp = $db->fetch_object($resql);
180 if ($invoice->fetch($objp->facid) <= 0) {
186 if ($invoice->generateDocument($invoice->model_pdf, $outputlangs, $hidedetails, $hidedesc, $hideref) < 0) {
204 header(
'Location: '.$_SERVER[
'PHP_SELF'].
'?id='.
$object->id);
210 $langs->load(
"errors");
215 if ($action ==
'setnum_paiement' &&
GETPOST(
'num_paiement') && $user->hasRight(
'facture',
'paiement')) {
218 setEventMessages($langs->trans(
'PaymentNumberUpdateSucceeded'),
null,
'mesgs');
220 setEventMessages($langs->trans(
'PaymentNumberUpdateFailed'),
null,
'errors');
224 if ($action ==
'setdatep' &&
GETPOST(
'datepday') && $user->hasRight(
'facture',
'paiement')) {
226 $res =
$object->update_date($datepaye);
228 setEventMessages($langs->trans(
'PaymentDateUpdateSucceeded'),
null,
'mesgs');
234 if ($action ==
'createbankpayment' && $user->hasRight(
'facture',
'paiement')) {
239 $label =
'(CustomerInvoicePayment)';
241 $label =
'(CustomerInvoicePaymentBack)';
245 if ($bankaccountid > 0) {
249 $result =
$object->addPaymentToBank($user,
'payment', $label, $bankaccountid,
'',
'');
255 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentitiesnoconv(
"BankAccount")),
null,
'errors');
274$thirdpartystatic =
new Societe($db);
276$result =
$object->fetch($id, $ref);
282$form =
new Form($db);
284$head = payment_prepare_head(
$object);
286print
dol_get_fiche_head($head,
'payment', $langs->trans(
"PaymentCustomerInvoice"), -1,
'payment');
289if ($action ==
'delete') {
290 print $form->formconfirm($_SERVER[
'PHP_SELF'].
'?id='.
$object->id, $langs->trans(
"DeletePayment"), $langs->trans(
"ConfirmDeletePayment"),
'confirm_delete',
'', 0, 2);
294if ($action ==
'valide') {
296 print $form->formconfirm($_SERVER[
'PHP_SELF'].
'?id='.
$object->id.
'&facid='.((
int) $facid), $langs->trans(
"ValidatePayment"), $langs->trans(
"ConfirmValidatePayment"),
'confirm_validate',
'', 0, 2);
299$linkback =
'<a href="'.DOL_URL_ROOT.
'/compta/paiement/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
301dol_banner_tab(
$object,
'ref', $linkback, 1,
'ref',
'ref',
'');
304print
'<div class="fichecenter">';
305print
'<div class="underbanner clearboth"></div>';
307print
'<table class="border centpercent">'.
"\n";
310print
'<tr><td class="titlefield">'.$form->editfieldkey(
"Date",
'datep',
$object->date,
$object, $user->hasRight(
'facture',
'paiement')).
'</td><td>';
311print $form->editfieldval(
"Date",
'datep',
$object->date,
$object, $user->hasRight(
'facture',
'paiement'),
'datehourpicker',
'',
null, $langs->trans(
'PaymentDateUpdateSucceeded'),
'', 0,
'',
'id',
'tzuser');
315$labeltype = $langs->trans(
"PaymentType".
$object->type_code) !=
"PaymentType".$object->type_code ? $langs->trans(
"PaymentType".
$object->type_code) :
$object->type_label;
316print
'<tr><td>'.$langs->trans(
'PaymentMode').
'</td><td>'.$labeltype;
317print
$object->num_payment ?
' - '.$object->num_payment :
'';
321print
'<tr><td>'.$langs->trans(
'Amount').
'</td><td>'.
price(
$object->amount, 0, $langs, 0, -1, -1, $conf->currency).
'</td></tr>';
325if (isModEnabled(
"bank")) {
329 $bankline->fetch(
$object->bank_line);
330 if ($bankline->rappro) {
332 $title_button =
dol_escape_htmltag($langs->transnoentitiesnoconv(
"CantRemoveConciliatedPayment"));
336 print
'<td>'.$langs->trans(
'BankAccount').
'</td>';
338 $accountstatic =
new Account($db);
339 $accountstatic->fetch($bankline->fk_account);
340 print $accountstatic->getNomUrl(1);
367if (isModEnabled(
"bank")) {
369 if (
$object->type_code ==
'CHQ' && $bankline->fk_bordereau > 0) {
370 include_once DOL_DOCUMENT_ROOT.
'/compta/paiement/cheque/class/remisecheque.class.php';
372 $bordereau->fetch($bankline->fk_bordereau);
375 print
'<td>'.$langs->trans(
'CheckReceipt').
'</td>';
377 print $bordereau->getNomUrl(1);
384 print
'<td>'.$langs->trans(
'BankTransactionLine').
'</td>';
387 print $bankline->getNomUrl(1, 0,
'showconciliatedandaccounted');
389 $langs->load(
"admin");
390 print
'<span class="opacitymedium">';
391 print $langs->trans(
"NoRecordFoundIBankcAccount", $langs->transnoentitiesnoconv(
"Module85Name"));
393 if ($user->hasRight(
'facture',
'paiement')) {
396 $amountofpayments =
$object->getAmountsArray();
397 $bankaccountidofinvoices =
null;
398 foreach ($amountofpayments as $idinvoice => $amountofpayment) {
399 $tmpinvoice =
new Facture($db);
400 $tmpinvoice->fetch($idinvoice);
401 if ($tmpinvoice->fk_account > 0 && $bankaccountidofinvoices !== 0) {
402 if (is_null($bankaccountidofinvoices)) {
403 $bankaccountidofinvoices = $tmpinvoice->fk_account;
404 } elseif ($bankaccountidofinvoices != $tmpinvoice->fk_account) {
405 $bankaccountidofinvoices = 0;
410 print
'<form method="POST" name="createbankpayment">';
411 print
'<input type="hidden" name="token" value="'.newToken().
'">';
412 print
'<input type="hidden" name="action" value="createbankpayment">';
413 print
'<input type="hidden" name="id" value="'.$object->id.
'">';
414 print
' '.$langs->trans(
"ToCreateRelatedRecordIntoBank").
': ';
415 print $form->select_comptes($bankaccountidofinvoices,
'accountid', 0,
'', 2,
'', 0,
'', 1);
417 print
'<input type="submit" class="button small smallpaddingimp" name="createbankpayment" value="'.$langs->trans(
"ClickHere").
'">';
427print
'<tr><td class="tdtop">'.$form->editfieldkey(
"Comments",
'note',
$object->note_private,
$object, $user->hasRight(
'facture',
'paiement')).
'</td><td class="wordbreak">';
428print $form->editfieldval(
"Note",
'note',
$object->note_private,
$object, $user->hasRight(
'facture',
'paiement'),
'textarea:'.ROWS_3.
':90%');
431if (!empty(
$object->ext_payment_id)) {
433 print
'<tr><td class="tdtop">'.$langs->trans(
"StripePaymentId").
'</td><td class="wordbreak">';
434 if (isModEnabled(
'stripe') && in_array(
$object->ext_payment_site, array(
'Stripe',
'StripeLive'))) {
435 $tmp1 = explode(
'@',
$object->ext_payment_id);
436 if (!empty($tmp1[1])) {
437 $site_account_payment = $tmp1[1];
439 $tmp2 = explode(
':', $tmp1[0]);
440 if (!empty($tmp2[1])) {
441 $stripecu = $tmp2[1];
447 if (!empty($stripeacc)) {
448 $connect = $stripeacc.
'/';
450 $url =
'https://dashboard.stripe.com/'.$connect.
'test/customers/'.$stripecu;
451 if (!empty($stripearrayofkeysbyenv[1][
'publishable_key']) && $stripearrayofkeysbyenv[1][
'publishable_key'] == $site_account_payment) {
452 $url =
'https://dashboard.stripe.com/'.$connect.
'customers/'.$stripecu;
454 print
' <a href="'.$url.
'" target="_stripe">'.
img_picto($langs->trans(
'ShowInStripe').
' - Publishable key = '.$site_account_payment,
'globe').
'</a>';
472$sql =
'SELECT f.rowid as facid, f.ref, f.type, f.total_ttc, f.paye, f.entity, f.fk_statut, pf.amount, s.nom as name, s.rowid as socid';
473$sql .=
' FROM '.MAIN_DB_PREFIX.
'paiement_facture as pf,'.MAIN_DB_PREFIX.
'facture as f,'.MAIN_DB_PREFIX.
'societe as s';
474$sql .=
' WHERE pf.fk_facture = f.rowid';
475$sql .=
' AND f.fk_soc = s.rowid';
476$sql .=
' AND f.entity IN ('.getEntity(
'invoice').
')';
477$sql .=
' AND pf.fk_paiement = '.((int)
$object->id);
478$resql = $db->query($sql);
480 $num = $db->num_rows($resql);
487 print
'<div class="div-table-responsive">';
488 print
'<table class="noborder centpercent">';
490 print
'<tr class="liste_titre">';
491 print
'<td>'.$langs->trans(
'Bill').
'</td>';
492 print
'<td>'.$langs->trans(
'Company').
'</td>';
493 if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICOMPANY_INVOICE_SHARING_ENABLED')) {
494 print
'<td>'.$langs->trans(
'Entity').
'</td>';
497 if (isModEnabled(
'margin') &&
getDolGlobalInt(
'MARGIN_SHOW_MARGIN_ON_PAYMENT')) {
498 print
'<td class="right">'.$langs->trans(
'Margin').
'</td>';
500 print
'<td class="right">'.$langs->trans(
'ExpectedToPay').
'</td>';
501 print
'<td class="right">'.$langs->trans(
'PayedByThisPayment').
'</td>';
502 print
'<td class="right">'.$langs->trans(
'RemainderToPay').
'</td>';
503 print
'<td class="right">'.$langs->trans(
'Status').
'</td>';
505 $parameters = array();
506 $reshook = $hookmanager->executeHooks(
'printFieldListTitle', $parameters,
$object, $action);
512 $objp = $db->fetch_object($resql);
514 $thirdpartystatic->fetch($objp->socid);
517 $invoice->fetch($objp->facid);
520 if (isModEnabled(
'margin') &&
getDolGlobalInt(
'MARGIN_SHOW_MARGIN_ON_PAYMENT')) {
522 $marginInfo = array();
523 $invoice->fetch_lines();
524 $marginInfo = $formmargin->getMarginInfosArray($invoice);
527 $paiement = $invoice->getSommePaiement();
528 $creditnotes = $invoice->getSumCreditNotesUsed();
529 $deposits = $invoice->getSumDepositsUsed();
530 $alreadypayed =
price2num($paiement + $creditnotes + $deposits,
'MT');
531 $remaintopay =
price2num($invoice->total_ttc - $paiement - $creditnotes - $deposits,
'MT');
533 print
'<tr class="oddeven">';
536 print
'<td class="tdoverflowmax150">';
537 print $invoice->getNomUrl(1);
541 print
'<td class="tdoverflowmax150">';
542 print $thirdpartystatic->getNomUrl(1);
546 if (isModEnabled(
'multicompany') &&
getDolGlobalString(
'MULTICOMPANY_INVOICE_SHARING_ENABLED')) {
548 $mc->getInfo($objp->entity);
554 if (isModEnabled(
'margin') &&
getDolGlobalInt(
'MARGIN_SHOW_MARGIN_ON_PAYMENT')) {
555 print
'<td class="right">'.price($marginInfo[
'total_margin']).
'</td>';
559 print
'<td class="right"><span class="amount">'.price($objp->total_ttc).
'</span></td>';
562 print
'<td class="right"><span class="amount">'.price($objp->amount).
'</span></td>';
565 print
'<td class="right"><span class="amount">'.price($remaintopay).
'</span></td>';
568 print
'<td class="right">'.$invoice->getLibStatut(5, $alreadypayed).
'</td>';
570 $parameters = array(
'fk_paiement' => (
int)
$object->id);
571 $reshook = $hookmanager->executeHooks(
'printFieldListValue', $parameters, $objp, $action);
576 if ($objp->paye == 1 && !
getDolGlobalString(
'INVOICE_CAN_DELETE_PAYMENT_EVEN_IF_INVOICE_CLOSED')) {
578 $title_button =
dol_escape_htmltag($langs->transnoentitiesnoconv(
"CantRemovePaymentWithOneInvoicePaid"));
581 $total += $objp->amount;
601print
'<div class="tabsAction">';
604 if ($user->socid == 0 &&
$object->statut == 0 && $action ==
'') {
605 if ($user->hasRight(
'facture',
'paiement')) {
606 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?id='.
$id.
'&action=valide&token='.
newToken().
'">'.$langs->trans(
'Valid').
'</a>';
612if (! empty($title_button)) {
613 $params[
'attr'] = array(
'title' => $title_button);
616if ($user->socid == 0 && $action ==
'') {
617 print
dolGetButtonAction($langs->trans(
"Delete"),
'',
'delete', $_SERVER[
"PHP_SELF"].
'?id='.
$object->id.
'&action=delete&token='.
newToken(),
'delete', $user->hasRight(
'facture',
'paiement') && !$disable_delete, $params);
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
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.
Class to manage bank accounts.
Class to manage bank transaction lines.
Class to manage invoices.
const TYPE_CREDIT_NOTE
Credit note invoice.
Class to manage payments of customer invoices.
Class to manage cheque delivery receipts.
Class to manage third parties objects (customers, suppliers, prospects...)
Stripe class @TODO No reason to extends CommonObject.
Class to manage translations.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
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.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
dolGetButtonAction($label, $text='', $actionType='default', $url='', $id='', $userRight=1, $params=array())
Function dolGetButtonAction.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
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...
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.