35require
'../../main.inc.php';
36require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/tva.class.php';
37require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/paymentvat.class.php';
38require_once DOL_DOCUMENT_ROOT.
'/compta/sociales/class/chargesociales.class.php';
39require_once DOL_DOCUMENT_ROOT.
'/compta/sociales/class/paymentsocialcontribution.class.php';
40require_once DOL_DOCUMENT_ROOT.
'/salaries/class/salary.class.php';
41require_once DOL_DOCUMENT_ROOT.
'/core/lib/date.lib.php';
42require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
57$hookmanager->initHooks(array(
'specialexpensesindex'));
60$langs->loadLangs(array(
'compta',
'bills'));
64 $socid = $user->socid;
66$result =
restrictedArea($user,
'tax|salaries',
'',
'',
'charges|');
68$mode =
GETPOST(
"mode",
'alpha');
70$filtre =
GETPOST(
"filtre",
'alpha');
72 $year =
date(
"Y", time());
74$optioncss =
GETPOST(
'optioncss',
'aZ');
77$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
78$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
80if (empty($page) || $page == -1) {
83$offset = $limit * $page;
87 $sortfield =
"cs.date_ech";
98$tva_static =
new Tva($db);
102$sal_static =
new Salary($db);
103$accountstatic =
new Account($db);
105llxHeader(
'', $langs->trans(
"SpecialExpensesArea"));
107$title = $langs->trans(
"SpecialExpensesArea");
110if (!empty($contextpage) && $contextpage != $_SERVER[
"PHP_SELF"]) {
111 $param .=
'&contextpage='.$contextpage;
113if ($limit > 0 && $limit != $conf->liste_limit) {
114 $param .=
'&limit='.$limit;
117 $param .=
'&sortfield='.$sortfield;
120 $param .=
'&sortorder='.$sortorder;
126print
'<form method="POST" action="'.dolBuildUrl($_SERVER[
"PHP_SELF"]).
'">';
127if ($optioncss !=
'') {
128 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
130print
'<input type="hidden" name="token" value="'.newToken().
'">';
131print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
132print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
133print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
134print
'<input type="hidden" name="page" value="'.$page.
'">';
135print
'<input type="hidden" name="mode" value="'.$mode.
'">';
137$nav = ($year ?
'<a href="index.php?year='.($year - 1).$param.
'">'.
img_previous($langs->trans(
"Previous"),
'class="valignbottom"').
"</a> ".$langs->trans(
"Year").
' '.$year.
' <a href="index.php?year='.($year + 1).$param.
'">'.
img_next($langs->trans(
"Next"),
'class="valignbottom"').
"</a>" :
"");
139print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, $totalnboflines,
'object_payment', 0, $nav,
'', $limit, 1);
142 $param .=
'&year='.$year;
145print
'<span class="opacitymedium">'.$langs->trans(
"DescTaxAndDividendsArea").
'</span><br>';
148if (
isModEnabled(
'tax') && $user->hasRight(
'tax',
'charges',
'lire')) {
149 $sql =
"SELECT c.id, c.libelle as type_label,";
150 $sql .=
" cs.rowid, cs.libelle as label, cs.fk_type as type, cs.periode as period, cs.date_ech, cs.amount as total,";
151 $sql .=
" pc.rowid as pid, pc.datep, pc.amount as totalpaid, pc.num_paiement as num_payment, pc.fk_bank,";
152 $sql .=
" pct.code as payment_code,";
153 $sql .=
" ba.rowid as bid, ba.ref as bref, ba.number as bnumber, ba.account_number, ba.fk_accountancy_journal, ba.label as blabel";
154 $sql .=
" FROM ".MAIN_DB_PREFIX.
"c_chargesociales as c,";
155 $sql .=
" ".MAIN_DB_PREFIX.
"chargesociales as cs";
156 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"paiementcharge as pc ON pc.fk_charge = cs.rowid";
157 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"c_paiement as pct ON pc.fk_typepaiement = pct.id";
158 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank as b ON pc.fk_bank = b.rowid";
159 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank_account as ba ON b.fk_account = ba.rowid";
160 $sql .=
" WHERE cs.fk_type = c.id";
161 $sql .=
" AND cs.entity IN (".getEntity(
"tax").
")";
170 if (preg_match(
'/^(cs?|pct?)\./', (
string) $sortfield)) {
171 $sql .= $db->order((
string) $sortfield, (
string) $sortorder);
176 dol_syslog(
"compta/charges/index.php: select payment", LOG_DEBUG);
177 $resql = $db->query($sql);
179 $num = $db->num_rows($resql);
183 print
load_fiche_titre($langs->trans(
"SocialContributions").($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
185 print
'<table class="noborder centpercent">';
186 print
'<tr class="liste_titre">';
187 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"cs.date_ech",
"", $param,
'width="120"', $sortfield, $sortorder,
'nowraponall ');
190 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"cs.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
191 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"pc.rowid",
"", $param,
'', $sortfield, $sortorder);
192 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"pc.datep",
"", $param,
'align="center"', $sortfield, $sortorder);
193 print_liste_field_titre(
"PaymentMode", $_SERVER[
"PHP_SELF"],
"pct.code",
"", $param,
'', $sortfield, $sortorder);
195 print_liste_field_titre(
"BankAccount", $_SERVER[
"PHP_SELF"],
"ba.label",
"", $param,
"", $sortfield, $sortorder);
197 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"pc.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
207 while ($i < $imaxinloop) {
208 $obj = $db->fetch_object($resql);
210 print
'<tr class="oddeven">';
212 $date = $obj->period;
214 $date = $obj->date_ech;
216 print
'<td>'.dol_print_date($date,
'day').
'</td>';
219 $socialcontrib->id = $obj->rowid;
220 $socialcontrib->ref = $obj->label;
221 $socialcontrib->label = $obj->label;
222 print $socialcontrib->getNomUrl(1,
'20');
225 print
'<td class="tdoverflowmax200"><a href="'.DOL_URL_ROOT.
'/compta/sociales/list.php?filtre=cs.fk_type:'.$obj->type.
'">'.$obj->type_label.
'</a></td>';
227 print
'<td class="right"><span class="amount">'.price($obj->total).
'</span></td>';
229 $payment_sc_static->id = $obj->pid;
230 $payment_sc_static->ref = $obj->pid;
231 print
'<td>'.$payment_sc_static->getNomUrl(1).
"</td>\n";
233 print
'<td class="center">'.dol_print_date($db->jdate($obj->datep),
'day').
'</td>';
237 if ($obj->payment_code) {
238 $s .= $langs->trans(
"PaymentTypeShort".$obj->payment_code).
' ';
240 $s .= $obj->num_payment;
241 print
'<td class="tdoverflowmax125" title="'.dolPrintHTMLForAttribute($s).
'">';
248 if ($obj->fk_bank > 0) {
250 $accountstatic->id = $obj->bid;
251 $accountstatic->ref = $obj->bref;
252 $accountstatic->number = $obj->bnumber;
253 $accountstatic->account_number = $obj->account_number;
254 $accountstatic->fk_accountancy_journal = $obj->fk_accountancy_journal;
255 $accountstatic->label = $obj->blabel;
257 print $accountstatic->getNomUrl(1);
264 print
'<td class="right">';
265 if ($obj->totalpaid) {
266 print
price($obj->totalpaid);
271 $total += $obj->total;
272 $totalpaid += $obj->totalpaid;
275 print
'<tr class="liste_total">';
277 print
'<td colspan="3" class="liste_total">'.$langs->trans(
"Total").
'</td>';
281 print
'<td class="liste_total right"></td>';
283 print
'<td class="liste_total center"> </td>';
284 print
'<td class="liste_total center"> </td>';
285 print
'<td class="liste_total center"> </td>';
287 print
'<td class="liste_total center"></td>';
289 print
'<td class="liste_total right">'.price($totalpaid).
"</td>";
299if (
isModEnabled(
'tax') && $user->hasRight(
'tax',
'charges',
'lire')) {
300 $sql =
"SELECT ptva.rowid, pv.rowid as id_tva, pv.amount as amount_tva, ptva.amount, pv.label, pv.datev as dm, ptva.datep as date_payment, ptva.fk_bank, ptva.num_paiement as num_payment,";
301 $sql .=
" pct.code as payment_code,";
302 $sql .=
" ba.rowid as bid, ba.ref as bref, ba.number as bnumber, ba.account_number, ba.fk_accountancy_journal, ba.label as blabel";
303 $sql .=
" FROM ".MAIN_DB_PREFIX.
"tva as pv";
304 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"payment_vat as ptva ON ptva.fk_tva = pv.rowid";
305 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank as b ON (ptva.fk_bank = b.rowid)";
306 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank_account as ba ON b.fk_account = ba.rowid";
307 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"c_paiement as pct ON ptva.fk_typepaiement = pct.id";
308 $sql .=
" WHERE pv.entity IN (".getEntity(
"tax").
")";
314 if (preg_match(
'/^(pv|ptva)\./', (
string) $sortfield)) {
315 $sql .= $db->order((
string) $sortfield, (
string) $sortorder);
318 $result = $db->query($sql);
320 $num = $db->num_rows($result);
328 $labeltax = $langs->transcountry(
"VAT",
$mysoc->country_code);
330 print
load_fiche_titre($labeltax.($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
332 print
'<table class="noborder centpercent">';
333 print
'<tr class="liste_titre">';
334 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"pv.datev",
"", $param,
'width="120"', $sortfield, $sortorder,
'nowraponall ');
336 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
337 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"ptva.rowid",
"", $param,
'', $sortfield, $sortorder);
338 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"ptva.datep",
"", $param,
'', $sortfield, $sortorder,
'center ');
339 print_liste_field_titre(
"PaymentMode", $_SERVER[
"PHP_SELF"],
"pct.code",
"", $param,
'', $sortfield, $sortorder);
341 print_liste_field_titre(
"BankAccount", $_SERVER[
"PHP_SELF"],
"ba.label",
"", $param,
"", $sortfield, $sortorder);
343 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"ptva.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
349 while ($i < $imaxinloop) {
350 $obj = $db->fetch_object($result);
352 $totaltopay += $obj->amount_tva;
353 $total += $obj->amount;
355 print
'<tr class="oddeven">';
357 print
'<td class="left">'.dol_print_date($db->jdate($obj->dm),
'day').
'</td>'.
"\n";
359 $tva_static->id = $obj->id_tva;
360 $tva_static->ref = $obj->label;
361 print
"<td>".$tva_static->getNomUrl(1).
"</td>\n";
363 print
'<td class="right"><span class="amount">'.price($obj->amount_tva).
"</span></td>";
366 $ptva_static->id = $obj->rowid;
367 $ptva_static->ref = $obj->rowid;
368 print
'<td>'.$ptva_static->getNomUrl(1).
"</td>\n";
371 print
'<td class="center">'.dol_print_date($db->jdate($obj->date_payment),
'day').
"</td>\n";
375 if ($obj->payment_code) {
376 $s .= $langs->trans(
"PaymentTypeShort".$obj->payment_code).
' ';
378 $s .= $obj->num_payment;
379 print
'<td class="tdoverflowmax125" title="'.dolPrintHTMLForAttribute($s).
'">';
386 if ($obj->fk_bank > 0) {
388 $accountstatic->id = $obj->bid;
389 $accountstatic->ref = $obj->bref;
390 $accountstatic->number = $obj->bnumber;
391 $accountstatic->account_number = $obj->account_number;
392 $accountstatic->fk_accountancy_journal = $obj->fk_accountancy_journal;
393 $accountstatic->label = $obj->blabel;
395 print $accountstatic->getNomUrl(1);
403 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
410 print
'<tr class="liste_total">';
412 print
'<td class="liste_total" colspan="2">'.$langs->trans(
"Total").
'</td>';
416 print
'<td class="liste_total"> </td>';
418 print
'<td class="liste_total"></td>';
419 print
'<td class="liste_total"></td>';
420 print
'<td class="liste_total"></td>';
423 print
'<td class="liste_total"></td>';
426 print
'<td class="liste_total right">'.price($total).
"</td>";
439if (
$mysoc->localtax1_assuj ==
"1" &&
$mysoc->localtax2_assuj ==
"1") {
442} elseif (
$mysoc->localtax1_assuj ==
"1") {
445} elseif (
$mysoc->localtax2_assuj ==
"1") {
456 $labeltax = $langs->transcountry(($j == 1 ?
"LT1" :
"LT2"),
$mysoc->country_code);
458 print
load_fiche_titre($labeltax.($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
461 $sql =
"SELECT pv.rowid, pv.amount, pv.label, pv.datev as dm, pv.datep as dp";
462 $sql .=
" FROM ".MAIN_DB_PREFIX.
"localtax as pv";
463 $sql .=
" WHERE pv.entity = ".$conf->entity.
" AND localtaxtype = ".((int) $j);
469 if (preg_match(
'/^pv/', (
string) $sortfield)) {
470 $sql .= $db->order((
string) $sortfield, (string) $sortorder);
473 $result = $db->query($sql);
475 $num = $db->num_rows($result);
479 print
'<div class="div-table-responsive-no-min">';
480 print
'<table class="noborder centpercent">';
481 print
'<tr class="liste_titre">';
482 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"pv.datev",
"", $param,
'width="120"', $sortfield, $sortorder);
484 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
485 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"pv.rowid",
"", $param,
'', $sortfield, $sortorder);
486 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"pv.datep",
"", $param,
'align="center"', $sortfield, $sortorder);
487 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
491 $obj = $db->fetch_object($result);
493 $total += $obj->amount;
495 print
'<tr class="oddeven">';
496 print
'<td class="left">'.dol_print_date($db->jdate($obj->dm),
'day').
'</td>'.
"\n";
498 print
"<td>".$obj->label.
"</td>\n";
500 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
503 $ptva_static->id = $obj->rowid;
504 $ptva_static->ref = $obj->rowid;
505 print
'<td class="left">'.$ptva_static->getNomUrl(1).
"</td>\n";
507 print
'<td class="center">'.dol_print_date($db->jdate($obj->dp),
'day').
"</td>\n";
508 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
513 print
'<tr class="liste_total"><td colspan="2">'.$langs->trans(
"Total").
'</td>';
514 print
'<td class="right">'.price($total).
"</td>";
515 print
'<td align="center"> </td>';
516 print
'<td align="center"> </td>';
517 print
'<td class="right">'.price($total).
"</td>";
533$parameters = array(
'user' => $user);
534$reshook = $hookmanager->executeHooks(
'dashboardSpecialBills', $parameters, $object);
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
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 for managing the social charges.
Class to manage payments of social contributions.
Class to manage payments of social contributions.
Class to manage salary payments.
Class to manage VAT - Value-added tax (also known in French as TVA - Taxe sur la valeur ajoutée)
dol_get_first_day($year, $month=1, $gm=false)
Return GMT time for first day of a month or year.
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
print_liste_field_titre($name, $file="", $field="", $begin="", $param="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
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.
img_previous($titlealt='default', $moreatt='')
Show previous logo.
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...
img_next($titlealt='default', $moreatt='')
Show next logo.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='', $morecssonpicto='widthpictotitle')
Load a title with picto.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
if(getDolGlobalString( 'TAKEPOS_SHOW_CUSTOMER')) print $langs trans('Date')." left Label right Qty right Price right TotalHT right TotalTTC right right right right right right right right right centpercent right TotalHT right n right VAT right n right TotalVAT right n No sujeto a RE IRPF right TotalLT1 right n right TotalLT2 right n right TotalTTC right n takeposcustomercurrency takeposcustomercurrency takeposcustomercurrency takeposcustomercurrency right TotalTTC takeposcustomercurrency right takeposcustomercurrency n right PaymentTypeShortLIQ right SELECT p pos_change as p datep as date
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.