32require
'../../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/tva.class.php';
34require_once DOL_DOCUMENT_ROOT.
'/compta/tva/class/paymentvat.class.php';
35require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/modules/facture/modules_facture.php';
37if (isModEnabled(
"bank")) {
38 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
42$langs->loadLangs(array(
'bills',
'banks',
'companies'));
46$action =
GETPOST(
'action',
'aZ09');
49 $socid = $user->socid;
68if ($action ==
'confirm_delete' && $confirm ==
'yes' && $user->hasRight(
'tax',
'charges',
'supprimer')) {
71 $result =
$object->delete($user);
74 header(
"Location: ".DOL_URL_ROOT.
"/compta/tva/payments.php?mode=tvaonly");
130$form =
new Form($db);
135$head[$h][0] = DOL_URL_ROOT.
'/compta/payment_vat/card.php?id='.
$id;
136$head[$h][1] = $langs->trans(
"VATPayment");
137$hselected = (string) $h;
146print
dol_get_fiche_head($head, $hselected, $langs->trans(
"VATPayment"), -1,
'payment');
151if ($action ==
'delete') {
152 print $form->formconfirm(
'card.php?id='.
$object->id, $langs->trans(
"DeletePayment"), $langs->trans(
"ConfirmDeletePayment"),
'confirm_delete',
'', 0, 2);
157$linkback =
'<a href="'.DOL_URL_ROOT.
'/compta/tva/payments.php">'.$langs->trans(
"BackToList").
'</a>';
159dol_banner_tab(
$object,
'id', $linkback, 1,
'rowid',
'id',
'');
162print
'<div class="fichecenter">';
163print
'<div class="underbanner clearboth"></div>';
165print
'<table class="border centpercent">';
168print
'<tr><td>'.$langs->trans(
'Date').
'</td><td>'.
dol_print_date(
$object->datep,
'day').
'</td></tr>';
171print
'<tr><td>'.$langs->trans(
'Mode').
'</td><td>'.$langs->trans(
"PaymentType".
$object->type_code).
'</td></tr>';
177print
'<tr><td>'.$langs->trans(
'Amount').
'</td><td>'.
price(
$object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).
'</td></tr>';
183if (isModEnabled(
"bank")) {
186 $bankline->fetch(
$object->bank_line);
189 print
'<td>'.$langs->trans(
'BankTransactionLine').
'</td>';
191 print $bankline->getNomUrl(1, 0,
'showall');
209$sql =
'SELECT f.rowid as scid, f.label as label, f.paye, f.amount as tva_amount, pf.amount';
210$sql .=
' FROM '.MAIN_DB_PREFIX.
'payment_vat as pf,'.MAIN_DB_PREFIX.
'tva as f';
211$sql .=
' WHERE pf.fk_tva = f.rowid';
212$sql .=
' AND f.entity = '.$conf->entity;
213$sql .=
' AND pf.rowid = '.((int)
$object->id);
215dol_syslog(
"compta/payment_vat/card.php", LOG_DEBUG);
216$resql = $db->query($sql);
218 $num = $db->num_rows($resql);
222 print
'<br><table class="noborder centpercent">';
223 print
'<tr class="liste_titre">';
224 print
'<td>'.$langs->trans(
'VATDeclaration').
'</td>';
226 print
'<td>'.$langs->trans(
'Label').
'</td>';
227 print
'<td class="right">'.$langs->trans(
'ExpectedToPay').
'</td>';
228 print
'<td class="center">'.$langs->trans(
'Status').
'</td>';
229 print
'<td class="right">'.$langs->trans(
'PayedByThisPayment').
'</td>';
234 $objp = $db->fetch_object($resql);
236 print
'<tr class="oddeven">';
239 $tva->fetch($objp->scid);
240 print $tva->getNomUrl(1);
247 print
'<td>'.$objp->label.
'</td>';
249 print
'<td class="right"><span class="amount">'.price($objp->tva_amount).
'</span></td>';
251 print
'<td class="center">'.$tva->getLibStatut(4, $objp->amount).
'</td>';
253 print
'<td class="right"><span class="amount">'.price($objp->amount).
'</span></td>';
255 if ($objp->paye == 1) {
258 $total += $objp->amount;
275print
'<div class="tabsAction">';
278 if ($user->hasRight(
'tax',
'charges',
'supprimer')) {
279 if (!$disable_delete) {
282 print
dolGetButtonAction($langs->trans(
"CantRemovePaymentVATPaid"), $langs->trans(
"Delete"),
'delete', $_SERVER[
"PHP_SELF"].
'?id='.
$object->id.
'&action=delete&token='.
newToken(),
'delete', 0);
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 payments of social contributions.
Class to manage VAT - Value-added tax (also known in French as TVA - Taxe sur la valeur ajoutée)
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
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.
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'.
dolGetButtonAction($label, $text='', $actionType='default', $url='', $id='', $userRight=1, $params=array())
Function dolGetButtonAction.
dol_htmlcleanlastbr($stringtodecode)
This function remove all ending and br at end.
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...
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
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...