27require
'../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
'/core/lib/member.lib.php';
29require_once DOL_DOCUMENT_ROOT.
'/adherents/class/adherent.class.php';
30require_once DOL_DOCUMENT_ROOT.
'/adherents/class/adherent_type.class.php';
31require_once DOL_DOCUMENT_ROOT.
'/adherents/class/subscription.class.php';
32if (isModEnabled(
"bank")) {
33 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
37$langs->loadLangs(array(
"companies",
"members",
"bills",
"users",
"banks"));
44$action =
GETPOST(
"action",
'alpha');
47$cancel =
GETPOST(
'cancel',
'alpha');
49$note =
GETPOST(
'note',
'alpha');
53if (!$user->hasRight(
'adherent',
'cotisation',
'lire')) {
57$permissionnote = $user->hasRight(
'adherent',
'cotisation',
'creer');
58$permissiondellink = $user->hasRight(
'adherent',
'cotisation',
'creer');
59$permissiontoedit = $user->hasRight(
'adherent',
'cotisation',
'creer');
61$hookmanager->initHooks(array(
'subscriptioncard',
'globalcard'));
77include DOL_DOCUMENT_ROOT.
'/core/actions_dellink.inc.php';
82if ($user->hasRight(
'adherent',
'cotisation',
'creer') && $action ==
'update' && !$cancel) {
84 $result =
$object->fetch($rowid);
95 $result = $accountline->fetch(
$object->fk_bank);
98 if ($accountline->rappro) {
99 $errmsg = $langs->trans(
"SubscriptionLinkedToConciliatedTransaction");
101 $accountline->datev = $newdatestart;
102 $accountline->dateo = $newdatestart;
103 $accountline->amount = $amount;
105 $result = $accountline->update($user);
107 $errmsg = $accountline->error;
114 $object->dateh = $newdatestart;
122 $result =
$object->update($user);
123 if ($result >= 0 && !count(
$object->errors)) {
126 header(
"Location: card.php?rowid=".
$object->id);
134 foreach (
$object->errors as $error) {
149if ($action ==
'confirm_delete' && $confirm ==
'yes' && $user->hasRight(
'adherent',
'cotisation',
'creer')) {
150 $result =
$object->fetch($rowid);
151 $result =
$object->delete($user);
153 header(
"Location: ".DOL_URL_ROOT.
"/adherents/card.php?rowid=".
$object->fk_adherent);
156 $errmesg = $adh->error;
166$form =
new Form($db);
168$title = $langs->trans(
"SubscriptionCard");
169$help_url =
'EN:Module_Foundations|FR:Module_Adhérents|ES:Módulo_Miembros|DE:Modul_Mitglieder';
171llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-member page-subscription-card');
177if ($user->hasRight(
'adherent',
'cotisation',
'creer') && $action ==
'edit') {
185 $result = $adh->fetch(
$object->fk_adherent);
189 print
'<form name="update" action="'.$_SERVER[
"PHP_SELF"].
'" method="post">';
190 print
'<input type="hidden" name="token" value="'.newToken().
'">';
191 print
"<input type=\"hidden\" name=\"action\" value=\"update\">";
192 print
"<input type=\"hidden\" name=\"rowid\" value=\"$rowid\">";
193 print
"<input type=\"hidden\" name=\"fk_bank\" value=\"".$object->fk_bank.
"\">";
195 print
dol_get_fiche_head($head,
'general', $langs->trans(
"Subscription"), 0,
'payment');
197 $linkback =
'<a href="'.DOL_URL_ROOT.
'/adherents/subscription/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
200 print
'<table class="border centpercent">';
203 print
'<tr><td class="titlefieldcreate">'.$langs->trans(
"Ref").
'</td>';
204 print
'<td class="valeur">';
205 print $form->showrefnav(
$object,
'rowid', $linkback, 1);
209 $adh->ref = $adh->getFullName($langs);
211 print
'<td>'.$langs->trans(
"Member").
'</td>';
212 print
'<td class="valeur">'.$adh->getNomUrl(-1, 0,
'subscription').
'</td>';
217 print
'<td>'.$langs->trans(
"Type").
'</td>';
218 print
'<td class="valeur">';
219 print $form->selectarray(
"typeid", $adht->liste_array(), (GETPOSTISSET(
"typeid") ?
GETPOST(
"typeid") :
$object->fk_type));
223 print
'<tr><td>'.$langs->trans(
"DateSubscription").
'</td>';
224 print
'<td class="valeur">';
225 print $form->selectDate(
$object->dateh,
'datesub', 1, 1, 0,
'update', 1);
230 print
'<tr><td>'.$langs->trans(
"DateEndSubscription").
'</td>';
231 print
'<td class="valeur">';
232 print $form->selectDate(
$object->datef,
'datesubend', 0, 0, 0,
'update', 1);
237 print
'<tr><td>'.$langs->trans(
"Amount").
'</td>';
238 print
'<td class="valeur">';
239 print
'<input type="text" class="flat width200" name="amount" value="'.price(
$object->amount).
'"></td></tr>';
242 print
'<tr><td>'.$langs->trans(
"Label").
'</td>';
243 print
'<td class="valeur">';
244 print
'<input type="text" class="flat" name="note" value="'.$object->note_public.
'"></td></tr>';
248 print
'<tr><td>'.$langs->trans(
"BankTransactionLine").
'</td><td class="valeur">';
251 $result = $bankline->fetch(
$object->fk_bank);
252 print $bankline->getNomUrl(1, 0,
'showall');
254 print $langs->trans(
"NoneF");
263 print $form->buttonsSaveCancel();
269if ($rowid && $action !=
'edit') {
276 $result =
$object->fetch($rowid);
277 $result = $adh->fetch(
$object->fk_adherent);
281 print
dol_get_fiche_head($head,
'general', $langs->trans(
"Subscription"), -1,
'payment');
284 if ($action ==
'delete') {
285 $formquestion=array();
287 $text = $langs->trans(
"ConfirmDeleteSubscription");
289 $text .=
'<br>'.img_warning().
' '.$langs->trans(
"ThisWillAlsoDeleteBankRecord");
291 print $form->formconfirm($_SERVER[
"PHP_SELF"].
"?rowid=".
$object->id, $langs->trans(
"DeleteSubscription"), $text,
"confirm_delete", $formquestion, 0, 1);
294 print
'<form action="'.$_SERVER[
"PHP_SELF"].
'" method="post">';
295 print
'<input type="hidden" name="token" value="'.newToken().
'">';
297 $linkback =
'<a href="'.DOL_URL_ROOT.
'/adherents/subscription/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
299 dol_banner_tab(
$object,
'rowid', $linkback, 1);
301 print
'<div class="fichecenter">';
303 print
'<div class="underbanner clearboth"></div>';
305 print
'<table class="border centpercent tableforfield">';
308 $adh->ref = $adh->getFullName($langs);
310 print
'<td class="titlefield">'.$langs->trans(
"Member").
'</td><td class="valeur">'.$adh->getNomUrl(-1, 0,
'subscription').
'</td>';
315 print
'<td class="titlefield">'.$langs->trans(
"Type").
'</td>';
316 print
'<td class="valeur">';
317 if (
$object->fk_type > 0 || $adh->typeid > 0) {
318 $typeid = (
$object->fk_type > 0 ?
$object->fk_type : $adh->typeid);
319 $adht->fetch($typeid);
320 print $adht->getNomUrl(1);
322 print $langs->trans(
"NoType");
328 print
'<td>'.$langs->trans(
"DateSubscription").
'</td><td class="valeur">'.
dol_print_date(
$object->dateh,
'day').
'</td>';
333 print
'<td>'.$langs->trans(
"DateEndSubscription").
'</td><td class="valeur">'.
dol_print_date(
$object->datef,
'day').
'</td>';
337 print
'<tr><td>'.$langs->trans(
"Amount").
'</td><td class="valeur"><span class="amount">'.
price(
$object->amount).
'</span></td></tr>';
344 print
'<tr><td>'.$langs->trans(
"BankTransactionLine").
'</td><td class="valeur">';
347 $result = $bankline->fetch(
$object->fk_bank);
348 print $bankline->getNomUrl(1, 0,
'showall');
350 print $langs->trans(
"NoneF");
365 print
'<div class="tabsAction">';
367 if ($user->hasRight(
'adherent',
'cotisation',
'creer')) {
368 if (empty($bankline->rappro) || empty($bankline)) {
369 print
'<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER[
"PHP_SELF"].
"?rowid=".((int)
$object->id).
'&action=edit&token='.
newToken().
'">'.$langs->trans(
"Modify").
"</a></div>";
371 print
'<div class="inline-block divButAction"><a class="butActionRefused classfortooltip" title="'.$langs->trans(
"BankLineConciliated").
'" href="#">'.$langs->trans(
"Modify").
"</a></div>";
376 if ($user->hasRight(
'adherent',
'cotisation',
'creer')) {
377 print
'<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER[
"PHP_SELF"].
"?rowid=".((int)
$object->id).
'&action=delete&token='.
newToken().
'">'.$langs->trans(
"Delete").
"</a></div>\n";
383 print
'<div class="fichecenter"><div class="fichehalfleft">';
384 print
'<a name="builddoc"></a>';
399 $somethingshown = $form->showLinkedObjectBlock(
$object,
'');
406 print
'</div><div class="fichehalfright">';
415 print
'</div></div>';
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 transaction lines.
Class to manage members of a foundation.
Class to manage members type.
Class to manage subscriptions of foundation members.
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...
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_string_onlythesehtmltags($stringtoclean, $cleanalsosomestyles=1, $removeclassattribute=1, $cleanalsojavascript=0, $allowiframe=0, $allowed_tags=array(), $allowlink=0, $allowscript=0)
Clean a string to keep only desirable HTML tags.
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.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_htmlentitiesbr($stringtoencode, $nl2brmode=0, $pagecodefrom='UTF-8', $removelasteolbr=1)
This function is called to encode a string into a HTML string but differs from htmlentities because a...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_htmloutput_errors($mesgstring='', $mesgarray=array(), $keepembedded=0)
Print formatted error messages to output (Used to show messages on html output).
subscription_prepare_head(Subscription $object)
Return array head with list of tabs to view object information.
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.