35require
'../../main.inc.php';
44require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/tva.class.php';
45require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/paymentvat.class.php';
46require_once DOL_DOCUMENT_ROOT.
'/compta/sociales/class/chargesociales.class.php';
47require_once DOL_DOCUMENT_ROOT.
'/compta/sociales/class/paymentsocialcontribution.class.php';
48require_once DOL_DOCUMENT_ROOT.
'/salaries/class/salary.class.php';
49require_once DOL_DOCUMENT_ROOT.
'/core/lib/date.lib.php';
50require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
53$hookmanager->initHooks(array(
'specialexpensesindex'));
56$langs->loadLangs(array(
'compta',
'bills'));
58$optioncss =
GETPOST(
'optioncss',
'aZ');
59$contextpage =
GETPOST(
'contextpage',
'aZ');
61$mode =
GETPOST(
"mode",
'alpha');
63$filtre =
GETPOST(
"filtre",
'alpha');
69$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
70$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
72if (empty($page) || $page == -1) {
75$offset = $limit * $page;
79 $sortfield =
"cs.date_ech";
87 $socid = $user->socid;
89$result =
restrictedArea($user,
'tax|salaries',
'',
'',
'charges|');
96$tva_static =
new Tva($db);
100$sal_static =
new Salary($db);
101$accountstatic =
new Account($db);
103llxHeader(
'', $langs->trans(
"SpecialExpensesArea"));
105$title = $langs->trans(
"SpecialExpensesArea");
108if (!empty($contextpage) && $contextpage != $_SERVER[
"PHP_SELF"]) {
109 $param .=
'&contextpage='.$contextpage;
111if ($limit > 0 && $limit !=
$conf->liste_limit) {
112 $param .=
'&limit='.$limit;
115 $param .=
'&sortfield='.$sortfield;
118 $param .=
'&sortorder='.$sortorder;
124print
'<form method="POST" action="'.dolBuildUrl($_SERVER[
"PHP_SELF"]).
'">';
125if ($optioncss !=
'') {
126 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
128print
'<input type="hidden" name="token" value="'.newToken().
'">';
129print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
130print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
131print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
132print
'<input type="hidden" name="page" value="'.$page.
'">';
133print
'<input type="hidden" name="mode" value="'.$mode.
'">';
135$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>" :
"");
137print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, $totalnboflines,
'object_payment', 0, $nav,
'', $limit, 1);
140 $param .=
'&year='.$year;
143print
'<div class="info">'.$langs->trans(
"DescTaxAndDividendsArea").
'</div>';
146if (
isModEnabled(
'tax') && $user->hasRight(
'tax',
'charges',
'lire')) {
147 $sql =
"SELECT c.id, c.libelle as type_label,";
148 $sql .=
" cs.rowid, cs.libelle as label, cs.fk_type as type, cs.periode as period, cs.date_ech, cs.amount as total,";
149 $sql .=
" pc.rowid as pid, pc.datep, pc.amount as totalpaid, pc.num_paiement as num_payment, pc.fk_bank,";
150 $sql .=
" pct.code as payment_code,";
151 $sql .=
" ba.rowid as bid, ba.ref as bref, ba.number as bnumber, ba.account_number, ba.fk_accountancy_journal, ba.label as blabel";
152 $sql .=
" FROM ".MAIN_DB_PREFIX.
"c_chargesociales as c,";
153 $sql .=
" ".MAIN_DB_PREFIX.
"chargesociales as cs";
154 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"paiementcharge as pc ON pc.fk_charge = cs.rowid";
155 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"c_paiement as pct ON pc.fk_typepaiement = pct.id";
156 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank as b ON pc.fk_bank = b.rowid";
157 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank_account as ba ON b.fk_account = ba.rowid";
158 $sql .=
" WHERE cs.fk_type = c.id";
159 $sql .=
" AND cs.entity IN (".getEntity(
"tax").
")";
168 if (preg_match(
'/^(cs?|pct?)\./', (
string) $sortfield)) {
169 $sql .= $db->order((
string) $sortfield, (
string) $sortorder);
174 dol_syslog(
"compta/charges/index.php: select payment", LOG_DEBUG);
175 $resql = $db->query($sql);
177 $num = $db->num_rows($resql);
181 print
load_fiche_titre($langs->trans(
"SocialContributions").($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
183 print
'<table class="noborder centpercent">';
184 print
'<tr class="liste_titre">';
185 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"cs.date_ech",
"", $param,
'width="120"', $sortfield, $sortorder,
'nowraponall ');
188 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"cs.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
189 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"pc.rowid",
"", $param,
'', $sortfield, $sortorder);
190 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"pc.datep",
"", $param,
'align="center"', $sortfield, $sortorder);
191 print_liste_field_titre(
"PaymentMode", $_SERVER[
"PHP_SELF"],
"pct.code",
"", $param,
'', $sortfield, $sortorder);
193 print_liste_field_titre(
"BankAccount", $_SERVER[
"PHP_SELF"],
"ba.label",
"", $param,
"", $sortfield, $sortorder);
195 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"pc.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
205 while ($i < $imaxinloop) {
206 $obj = $db->fetch_object($resql);
208 print
'<tr class="oddeven">';
210 $date = $obj->period;
212 $date = $obj->date_ech;
214 print
'<td>'.dol_print_date($date,
'day').
'</td>';
217 $socialcontrib->id = $obj->rowid;
218 $socialcontrib->ref = $obj->label;
219 $socialcontrib->label = $obj->label;
220 print $socialcontrib->getNomUrl(1,
'20');
223 print
'<td class="tdoverflowmax200"><a href="'.DOL_URL_ROOT.
'/compta/sociales/list.php?filtre=cs.fk_type:'.$obj->type.
'">'.$obj->type_label.
'</a></td>';
225 print
'<td class="right"><span class="amount">'.price($obj->total).
'</span></td>';
227 $payment_sc_static->id = $obj->pid;
228 $payment_sc_static->ref = $obj->pid;
229 print
'<td>'.$payment_sc_static->getNomUrl(1).
"</td>\n";
231 print
'<td class="center">'.dol_print_date($db->jdate($obj->datep),
'day').
'</td>';
235 if ($obj->payment_code) {
236 $s .= $langs->trans(
"PaymentTypeShort".$obj->payment_code).
' ';
238 $s .= $obj->num_payment;
239 print
'<td class="tdoverflowmax125" title="'.dolPrintHTMLForAttribute($s).
'">';
246 if ($obj->fk_bank > 0) {
248 $accountstatic->id = $obj->bid;
249 $accountstatic->ref = $obj->bref;
250 $accountstatic->number = $obj->bnumber;
251 $accountstatic->account_number = $obj->account_number;
252 $accountstatic->fk_accountancy_journal = $obj->fk_accountancy_journal;
253 $accountstatic->label = $obj->blabel;
255 print $accountstatic->getNomUrl(1);
262 print
'<td class="right">';
263 if ($obj->totalpaid) {
264 print
price($obj->totalpaid);
269 $total += $obj->total;
270 $totalpaid += $obj->totalpaid;
273 print
'<tr class="liste_total">';
275 print
'<td colspan="3" class="liste_total">'.$langs->trans(
"Total").
'</td>';
279 print
'<td class="liste_total right"></td>';
281 print
'<td class="liste_total center"> </td>';
282 print
'<td class="liste_total center"> </td>';
283 print
'<td class="liste_total center"> </td>';
285 print
'<td class="liste_total center"></td>';
287 print
'<td class="liste_total right">'.price($totalpaid).
"</td>";
291 dol_print_error($db);
297if (
isModEnabled(
'tax') && $user->hasRight(
'tax',
'charges',
'lire')) {
298 $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,";
299 $sql .=
" pct.code as payment_code,";
300 $sql .=
" ba.rowid as bid, ba.ref as bref, ba.number as bnumber, ba.account_number, ba.fk_accountancy_journal, ba.label as blabel";
301 $sql .=
" FROM ".MAIN_DB_PREFIX.
"tva as pv";
302 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"payment_vat as ptva ON ptva.fk_tva = pv.rowid";
303 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank as b ON (ptva.fk_bank = b.rowid)";
304 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"bank_account as ba ON b.fk_account = ba.rowid";
305 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"c_paiement as pct ON ptva.fk_typepaiement = pct.id";
306 $sql .=
" WHERE pv.entity IN (".getEntity(
"tax").
")";
312 if (preg_match(
'/^(pv|ptva)\./', (
string) $sortfield)) {
313 $sql .= $db->order((
string) $sortfield, (
string) $sortorder);
316 $result = $db->query($sql);
318 $num = $db->num_rows($result);
326 $labeltax = $langs->transcountry(
"VAT",
$mysoc->country_code);
328 print
load_fiche_titre($labeltax.($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
330 print
'<table class="noborder centpercent">';
331 print
'<tr class="liste_titre">';
332 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"pv.datev",
"", $param,
'width="120"', $sortfield, $sortorder,
'nowraponall ');
334 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
335 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"ptva.rowid",
"", $param,
'', $sortfield, $sortorder);
336 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"ptva.datep",
"", $param,
'', $sortfield, $sortorder,
'center ');
337 print_liste_field_titre(
"PaymentMode", $_SERVER[
"PHP_SELF"],
"pct.code",
"", $param,
'', $sortfield, $sortorder);
339 print_liste_field_titre(
"BankAccount", $_SERVER[
"PHP_SELF"],
"ba.label",
"", $param,
"", $sortfield, $sortorder);
341 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"ptva.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
347 while ($i < $imaxinloop) {
348 $obj = $db->fetch_object($result);
350 $totaltopay += $obj->amount_tva;
351 $total += $obj->amount;
353 print
'<tr class="oddeven">';
355 print
'<td class="left">'.dol_print_date($db->jdate($obj->dm),
'day').
'</td>'.
"\n";
357 $tva_static->id = $obj->id_tva;
358 $tva_static->ref = $obj->label;
359 print
"<td>".$tva_static->getNomUrl(1).
"</td>\n";
361 print
'<td class="right"><span class="amount">'.price($obj->amount_tva).
"</span></td>";
364 $ptva_static->id = $obj->rowid;
365 $ptva_static->ref = $obj->rowid;
366 print
'<td>'.$ptva_static->getNomUrl(1).
"</td>\n";
369 print
'<td class="center">'.dol_print_date($db->jdate($obj->date_payment),
'day').
"</td>\n";
373 if ($obj->payment_code) {
374 $s .= $langs->trans(
"PaymentTypeShort".$obj->payment_code).
' ';
376 $s .= $obj->num_payment;
377 print
'<td class="tdoverflowmax125" title="'.dolPrintHTMLForAttribute($s).
'">';
384 if ($obj->fk_bank > 0) {
386 $accountstatic->id = $obj->bid;
387 $accountstatic->ref = $obj->bref;
388 $accountstatic->number = $obj->bnumber;
389 $accountstatic->account_number = $obj->account_number;
390 $accountstatic->fk_accountancy_journal = $obj->fk_accountancy_journal;
391 $accountstatic->label = $obj->blabel;
393 print $accountstatic->getNomUrl(1);
401 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
408 print
'<tr class="liste_total">';
410 print
'<td class="liste_total" colspan="2">'.$langs->trans(
"Total").
'</td>';
414 print
'<td class="liste_total"> </td>';
416 print
'<td class="liste_total"></td>';
417 print
'<td class="liste_total"></td>';
418 print
'<td class="liste_total"></td>';
421 print
'<td class="liste_total"></td>';
424 print
'<td class="liste_total right">'.price($total).
"</td>";
432 dol_print_error($db);
437if (
$mysoc->localtax1_assuj ==
"1" &&
$mysoc->localtax2_assuj ==
"1") {
440} elseif (
$mysoc->localtax1_assuj ==
"1") {
443} elseif (
$mysoc->localtax2_assuj ==
"1") {
454 $labeltax = $langs->transcountry(($j == 1 ?
"LT1" :
"LT2"),
$mysoc->country_code);
456 print
load_fiche_titre($labeltax.($year ?
' ('.$langs->trans(
"Year").
' '.$year.
')' :
''),
'',
'');
459 $sql =
"SELECT pv.rowid, pv.amount, pv.label, pv.datev as dm, pv.datep as dp";
460 $sql .=
" FROM ".MAIN_DB_PREFIX.
"localtax as pv";
461 $sql .=
" WHERE pv.entity = ".((int)
$conf->entity).
" AND localtaxtype = ".((int) $j);
467 if (preg_match(
'/^pv/', (
string) $sortfield)) {
468 $sql .= $db->order((
string) $sortfield, (string) $sortorder);
471 $result = $db->query($sql);
473 $num = $db->num_rows($result);
477 print
'<div class="div-table-responsive-no-min">';
478 print
'<table class="noborder centpercent">';
479 print
'<tr class="liste_titre">';
480 print_liste_field_titre(
"PeriodEndDate", $_SERVER[
"PHP_SELF"],
"pv.datev",
"", $param,
'width="120"', $sortfield, $sortorder);
482 print_liste_field_titre(
"ExpectedToPay", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
483 print_liste_field_titre(
"RefPayment", $_SERVER[
"PHP_SELF"],
"pv.rowid",
"", $param,
'', $sortfield, $sortorder);
484 print_liste_field_titre(
"DatePayment", $_SERVER[
"PHP_SELF"],
"pv.datep",
"", $param,
'align="center"', $sortfield, $sortorder);
485 print_liste_field_titre(
"PayedByThisPayment", $_SERVER[
"PHP_SELF"],
"pv.amount",
"", $param,
'class="right"', $sortfield, $sortorder);
489 $obj = $db->fetch_object($result);
491 $total += $obj->amount;
493 print
'<tr class="oddeven">';
494 print
'<td class="left">'.dol_print_date($db->jdate($obj->dm),
'day').
'</td>'.
"\n";
496 print
"<td>".$obj->label.
"</td>\n";
498 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
501 $ptva_static->id = $obj->rowid;
502 $ptva_static->ref = $obj->rowid;
503 print
'<td class="left">'.$ptva_static->getNomUrl(1).
"</td>\n";
505 print
'<td class="center">'.dol_print_date($db->jdate($obj->dp),
'day').
"</td>\n";
506 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>";
511 print
'<tr class="liste_total"><td colspan="2">'.$langs->trans(
"Total").
'</td>';
512 print
'<td class="right">'.price($total).
"</td>";
513 print
'<td align="center"> </td>';
514 print
'<td align="center"> </td>';
515 print
'<td class="right">'.price($total).
"</td>";
523 dol_print_error($db);
531$parameters = array(
'user' => $user);
532$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)
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.
dol_now($mode='gmt')
Return date for now.
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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0, $nodefault=0)
Return value of a param into GET or POST supervariable.
GETPOSTINT($paramname, $method=0, $nodefault=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
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).
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.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
print_liste_field_titre($name, $file="", $field="", $begin="", $param="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
img_previous($titlealt='default', $moreatt='')
Show previous logo.
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.
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $nodie=0, $mode='')
Check permissions of a user to show a page and an object.