dolibarr  17.0.4
transaction.php
1 <?php
2 /* Copyright (C) 2018-2019 Thibault FOUCART <support@ptibogxiv.net>
3  * Copyright (C) 2018-2021 Frédéric France <frederic.france@netlogic.fr>
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 3 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program. If not, see <https://www.gnu.org/licenses/>.
17  */
18 
19 // Put here all includes required by your class file
20 
21 // Load Dolibarr environment
22 require '../main.inc.php';
23 require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
24 require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
25 require_once DOL_DOCUMENT_ROOT.'/stripe/class/stripe.class.php';
26 //require_once DOL_DOCUMENT_ROOT.'/core/lib/stripe.lib.php';
27 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
28 require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
29 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
30 if (isModEnabled('accounting')) {
31  require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingjournal.class.php';
32 }
33 
34 // Load translation files required by the page
35 $langs->loadLangs(array('compta', 'salaries', 'bills', 'hrm', 'stripe'));
36 
37 // Security check
38 $socid = GETPOST("socid", "int");
39 if ($user->socid) {
40  $socid = $user->socid;
41 }
42 //$result = restrictedArea($user, 'salaries', '', '', '');
43 
44 $limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
45 $rowid = GETPOST("rowid", 'alpha');
46 $sortfield = GETPOST('sortfield', 'aZ09comma');
47 $sortorder = GETPOST('sortorder', 'aZ09comma');
48 $page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
49 if (empty($page) || $page == -1) {
50  $page = 0;
51 } // If $page is not defined, or '' or -1
52 $offset = $limit * $page;
53 $pageprev = $page - 1;
54 $pagenext = $page + 1;
55 $optioncss = GETPOST('optioncss', 'alpha');
56 $param = "";
57 $num = 0;
58 $totalnboflines = 0;
59 $result = restrictedArea($user, 'banque');
60 
61 
62 /*
63  * View
64  */
65 
66 $form = new Form($db);
67 $societestatic = new Societe($db);
68 $memberstatic = new Adherent($db);
69 $acc = new Account($db);
70 $stripe = new Stripe($db);
71 
72 llxHeader('', $langs->trans("StripeTransactionList"));
73 
74 if (isModEnabled('stripe') && (empty($conf->global->STRIPE_LIVE) || GETPOST('forcesandbox', 'alpha'))) {
75  $service = 'StripeTest';
76  $servicestatus = '0';
77  dol_htmloutput_mesg($langs->trans('YouAreCurrentlyInSandboxMode', 'Stripe'), '', 'warning');
78 } else {
79  $service = 'StripeLive';
80  $servicestatus = '1';
81 }
82 $stripeacc = $stripe->getStripeAccount($service);
83 /*if (empty($stripeaccount))
84 {
85  print $langs->trans('ErrorStripeAccountNotDefined');
86 }*/
87 
88 if (!$rowid) {
89  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].'">';
90  if ($optioncss != '') {
91  print '<input type="hidden" name="optioncss" value="'.$optioncss.'">';
92  }
93  print '<input type="hidden" name="token" value="'.newToken().'">';
94  print '<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
95  print '<input type="hidden" name="action" value="list">';
96  print '<input type="hidden" name="sortfield" value="'.$sortfield.'">';
97  print '<input type="hidden" name="sortorder" value="'.$sortorder.'">';
98  print '<input type="hidden" name="page" value="'.$page.'">';
99 
100  $title = $langs->trans("StripeTransactionList");
101  $title .= (!empty($stripeacc) ? ' (Stripe connection with Stripe OAuth Connect account '.$stripeacc.')' : ' (Stripe connection with keys from Stripe module setup)');
102 
103  print_barre_liste($title, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', $num, $totalnboflines, 'title_accountancy.png', 0, '', '', $limit);
104 
105  print '<div class="div-table-responsive">';
106  print '<table class="tagtable liste'.(!empty($moreforfilter) ? " listwithfilterbefore" : "").'">'."\n";
107 
108  print '<tr class="liste_titre">';
109  print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "", "", "", "", $sortfield, $sortorder);
110  //print_liste_field_titre("StripeCustomerId",$_SERVER["PHP_SELF"],"","","","",$sortfield,$sortorder);
111  //print_liste_field_titre("CustomerId", $_SERVER["PHP_SELF"], "", "", "", "", $sortfield, $sortorder);
112  //print_liste_field_titre("Origin", $_SERVER["PHP_SELF"], "", "", "", "", $sortfield, $sortorder);
113  print_liste_field_titre("DatePayment", $_SERVER["PHP_SELF"], "", "", "", '', $sortfield, $sortorder, 'center ');
114  print_liste_field_titre("Type", $_SERVER["PHP_SELF"], "", "", "", '', $sortfield, $sortorder, 'left ');
115  print_liste_field_titre("Paid", $_SERVER["PHP_SELF"], "", "", "", '', $sortfield, $sortorder, 'right ');
116  print_liste_field_titre("Fee", $_SERVER["PHP_SELF"], "", "", "", '', $sortfield, $sortorder, 'right ');
117  print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "", "", "", '', '', '', 'right ');
118  print "</tr>\n";
119  $connect = "";
120 
121  try {
122  if ($stripeacc) {
123  $txn = \Stripe\BalanceTransaction::all(array("limit" => $limit), array("stripe_account" => $stripeacc));
124  } else {
125  $txn = \Stripe\BalanceTransaction::all(array("limit" => $limit));
126  }
127 
128  foreach ($txn->data as $txn) {
129  //$charge = $txn;
130  //var_dump($txn);
131 
132  // The metadata FULLTAG is defined by the online payment page
133  /*$FULLTAG=$charge->metadata->FULLTAG;
134 
135  // Save into $tmparray all metadata
136  $tmparray = dolExplodeIntoArray($FULLTAG,'.','=');
137  // Load origin object according to metadata
138  if (!empty($tmparray['CUS']))
139  {
140  $societestatic->fetch($tmparray['CUS']);
141  }
142  else
143  {
144  $societestatic->id = 0;
145  }
146  if (!empty($tmparray['MEM']))
147  {
148  $memberstatic->fetch($tmparray['MEM']);
149  }
150  else
151  {
152  $memberstatic->id = 0;
153  }
154 
155  $societestatic->fetch($charge->metadata->idcustomer);
156  $societestatic->id = $charge->metadata->idcustomer;
157  $societestatic->lastname = $obj->lastname;
158  $societestatic->firstname = $obj->firstname;
159  $societestatic->admin = $obj->admin;
160  $societestatic->login = $obj->login;
161  $societestatic->email = $obj->email;
162  $societestatic->societe_id = $obj->fk_soc;*/
163 
164  print '<tr class="oddeven">';
165 
166  // Ref
167  if (!empty($stripeacc)) {
168  $connect = $stripeacc.'/';
169  }
170 
171  // Ref
172  if (preg_match('/po_/i', $txn->source)) {
173  $origin = "payouts";
174  } elseif (preg_match('/fee_/i', $txn->source)) {
175  $origin = "connect/application_fees";
176  } else {
177  $origin = "payments";
178  }
179 
180  $url = 'https://dashboard.stripe.com/'.$connect.'test/'.$origin.'/'.$txn->source;
181  if ($servicestatus) {
182  $url = 'https://dashboard.stripe.com/'.$connect.$origin.'/'.$txn->source;
183  }
184  if ($txn->type == 'stripe_fee' || $txn->type == 'reserve_transaction') {
185  print "<td>".$txn->type."</td>";
186  } else {
187  print "<td><a href='".$url."' target='_stripe'>".img_picto($langs->trans('ShowInStripe'), 'globe')." ".$txn->source."</a></td>\n";
188  }
189 
190  // Stripe customer
191  //print "<td>".$charge->customer."</td>\n";
192  // Link
193  /*print "<td>";
194  if ($societestatic->id > 0) {
195  print $societestatic->getNomUrl(1);
196  }
197  if ($memberstatic->id > 0) {
198  print $memberstatic->getNomUrl(1);
199  }
200  print "</td>\n";*/
201  // Origine
202  //print "<td>";
204  // $object = new Commande($db);
205  // $object->fetch($charge->metadata->dol_id);
206  // print "<a href='".DOL_URL_ROOT."/commande/card.php?id=".$charge->metadata->dol_id."'>".img_picto('', 'object_order')." ".$object->ref."</a>";
207  //} elseif ($charge->metadata->dol_type=="invoice"){
208  // $object = new Facture($db);
209  // $object->fetch($charge->metadata->dol_id);
210  // print "<a href='".DOL_URL_ROOT."/compta/facture/card.php?facid=".$charge->metadata->dol_id."'>".img_picto('', 'object_invoice')." ".$object->ref."</a>";
211  //}
212  //print "</td>\n";
213  // Date payment
214  print '<td class="center">'.dol_print_date($txn->created, 'dayhour')."</td>\n";
215  // Type
216  print '<td>'.$txn->type.'</td>';
217  // Amount
218  print '<td class="right"><span class="amount">'.price(($txn->amount) / 100, 0, '', 1, - 1, - 1, strtoupper($txn->currency))."</span></td>";
219  print '<td class="right"><span class="amount">'.price(($txn->fee) / 100, 0, '', 1, - 1, - 1, strtoupper($txn->currency))."</span></td>";
220  // Status
221  print "<td class='right'>";
222  if ($txn->status == 'available') {
223  print img_picto($langs->trans("".$txn->status.""), 'statut4');
224  } elseif ($txn->status == 'pending') {
225  print img_picto($langs->trans("".$txn->status.""), 'statut7');
226  } elseif ($txn->status == 'failed') {
227  print img_picto($langs->trans("".$txn->status.""), 'statut8');
228  }
229  print '</td>';
230  print "</tr>\n";
231  }
232  } catch (Exception $e) {
233  print '<tr><td colspan="6">'.$e->getMessage().'</td></td>';
234  }
235  print "</table>";
236  print '</div>';
237  print '</form>';
238 }
239 
240 // End of page
241 llxFooter();
242 $db->close();
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:56
llxFooter()
Empty footer.
Definition: wrapper.php:70
Class to manage bank accounts.
Class to manage members of a foundation.
Class to manage generation of HTML components Only common components must be here.
Class to manage third parties objects (customers, suppliers, prospects...)
Stripe class.
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
dol_htmloutput_mesg($mesgstring='', $mesgarray=array(), $style='ok', $keepembedded=0)
Print formated messages to output (Used to show messages on html output).
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
isModEnabled($module)
Is Dolibarr module enabled.
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.