line.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005       Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2005-2012  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2009  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2013  Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2018       Frédéric France         <frederic.france@netlogic.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/ligneprelevement.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/rejetprelevement.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';

// Load translation files required by the page
$langs->loadlangs(array('banks', 'categories', 'bills', 'withdrawals'));

// Security check
if ($user->socid > 0) accessforbidden();

// Get supervariables
$action = GETPOST('action', 'aZ09');
$id = GETPOST('id', 'int');
$socid = GETPOST('socid', 'int');

$type = GETPOST('type', 'aZ09');

$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
$sortorder = GETPOST('sortorder', 'aZ09comma');
$sortfield = GETPOST('sortfield', 'aZ09comma');
$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
if ($page == -1 || $page == null) { $page = 0; }
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;

if ($sortorder == "") $sortorder = "DESC";
if ($sortfield == "") $sortfield = "pl.fk_soc";


/*
 * Actions
 */

if ($action == 'confirm_rejet')
{
  if (GETPOST("confirm") == 'yes')
  {
    if (GETPOST('remonth', 'int'))
    {
      $daterej = mktime(2, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int'));
    }

    if (empty($daterej))
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Date")), null, 'errors');
    } elseif ($daterej > dol_now())
    {
      $error++;
      $langs->load("error");
      setEventMessages($langs->transnoentities("ErrorDateMustBeBeforeToday"), null, 'errors');
    }

    if (GETPOST('motif', 'alpha') == 0)
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentities("RefusedReason")), null, 'errors');
    }

    if (!$error)
    {
      $lipre = new LignePrelevement($db);

      if ($lipre->fetch($id) == 0)

      {
        $rej = new RejetPrelevement($db, $user, $type);

        $rej->create($user, $id, GETPOST('motif', 'alpha'), $daterej, $lipre->bon_rowid, GETPOST('facturer', 'int'));

        header("Location: line.php?id=".urlencode($id).'&type='.urlencode($type));
        exit;
      }
    } else {
      $action = "rejet";
    }
  } else {
    header("Location: line.php?id=".urlencode($id).'&type='.urlencode($type));
    exit;
  }
}


/*
 * View
 */

$invoicestatic = new Facture($db);

$title = $langs->trans("WithdrawalsLine");
if ($type == 'bank-transfer') {
  $title = $langs->trans("CreditTransferLine");
}

llxHeader('', $title);

$head = array();

$h = 0;
$head[$h][0] = DOL_URL_ROOT.'/compta/prelevement/line.php?id='.$id.'&type='.$type;
$head[$h][1] = $title;
$hselected = $h;
$h++;

if ($id)
{
  $lipre = new LignePrelevement($db);

  if ($lipre->fetch($id) >= 0)
  {
    $bon = new BonPrelevement($db);
    $bon->fetch($lipre->bon_rowid);

    print dol_get_fiche_head($head, $hselected, $title);

    print '<table class="border centpercent tableforfield">';

    print '<tr><td class="titlefield">'.$langs->trans("Ref").'</td><td>';
    print $id.'</td></tr>';

    print '<tr><td class="titlefield">'.$langs->trans("WithdrawalsReceipts").'</td><td>';
    print $bon->getNomUrl(1).'</td></tr>';

    print '<tr><td>'.$langs->trans("Date").'</td><td>'.dol_print_date($bon->datec, 'day').'</td></tr>';
    print '<tr><td>'.$langs->trans("Amount").'</td><td>'.price($lipre->amount).'</td></tr>';
    print '<tr><td>'.$langs->trans("Status").'</td><td>'.$lipre->LibStatut($lipre->statut, 1).'</td></tr>';

    if ($lipre->statut == 3)
    {
      $rej = new RejetPrelevement($db, $user, $type);
      $resf = $rej->fetch($lipre->id);
      if ($resf == 0)
      {
        print '<tr><td>'.$langs->trans("RefusedReason").'</td><td>'.$rej->motif.'</td></tr>';
        print '<tr><td>'.$langs->trans("RefusedData").'</td><td>';
        if ($rej->date_rejet == 0)
        {
          /* Historique pour certaines install */
          print $langs->trans("Unknown");
        } else {
          print dol_print_date($rej->date_rejet, 'day');
        }
        print '</td></tr>';
        print '<tr><td>'.$langs->trans("RefusedInvoicing").'</td><td>'.$rej->invoicing.'</td></tr>';
      } else {
        print '<tr><td>'.$resf.'</td></tr>';
      }
    }

    print '</table>';
    print dol_get_fiche_end();
  } else {
    dol_print_error($db);
  }

  if ($action == 'rejet' && $user->rights->prelevement->bons->credit)
  {
    $form = new Form($db);

    $soc = new Societe($db);
    $soc->fetch($lipre->socid);

    $rej = new RejetPrelevement($db, $user, $type);

    print '<form name="confirm_rejet" method="post" action="line.php?id='.$id.'">';
    print '<input type="hidden" name="token" value="'.newToken().'">';
    print '<input type="hidden" name="action" value="confirm_rejet">';
    print '<input type="hidden" name="type" value="'.$type.'">';
    print '<table class="noborder centpercent">';

    print '<tr class="liste_titre">';
    print '<td colspan="3">'.$langs->trans("WithdrawalRefused").'</td></tr>';

    //Select yes/no
    print '<tr><td class="valid">'.$langs->trans("WithdrawalRefusedConfirm").' '.$soc->name.' ?</td>';
    print '<td colspan="2" class="valid">';
    print $form->selectyesno("confirm", 1, 0);
    print '</td></tr>';

    //Date
    print '<tr><td class="fieldrequired valid">'.$langs->trans("RefusedData").'</td>';
    print '<td colspan="2" class="valid">';
    print $form->selectDate('', '', '', '', '', "confirm_rejet");
    print '</td></tr>';

    //Reason
    print '<tr><td class="fieldrequired valid">'.$langs->trans("RefusedReason").'</td>';
    print '<td class="valid">';
    print $form->selectarray("motif", $rej->motifs, GETPOSTISSET('motif') ? GETPOST('motif', 'int') : '');
    print '</td></tr>';

    //Facturer
    print '<tr><td class="valid">'.$langs->trans("RefusedInvoicing").'</td>';
    print '<td class="valid" colspan="2">';
    print $form->selectarray("facturer", $rej->facturer, GETPOSTISSET('facturer') ? GETPOST('facturer', 'int') : '');
    print '</td></tr>';
    print '</table><br>';

    //Confirm Button
    print '<div class="center"><input type="submit" class="button" value='.$langs->trans("Confirm").'></div>';
    print '</form>';
  }

  /* ************************************************************************** */
  /*                                                                            */
  /* Barre d'action                                                             */
  /*                                                                            */
  /* ************************************************************************** */

  print "<div class=\"tabsAction\">";

  if ($action == '')
  {
    if ($bon->statut == BonPrelevement::STATUS_CREDITED)
    {
      if ($lipre->statut == 2) {
        if ($user->rights->prelevement->bons->credit)
        {
          print '<a class="butActionDelete" href="line.php?action=rejet&type='.$type.'&id='.$lipre->id.'">'.$langs->trans("StandingOrderReject").'</a>';
        } else {
          print '<a class="butActionRefused classfortooltip" href="#" title="'.$langs->trans("NotAllowed").'">'.$langs->trans("StandingOrderReject").'</a>';
        }
      }
    } else {
      print '<a class="butActionRefused classfortooltip" href="#" title="'.$langs->trans("NotPossibleForThisStatusOfWithdrawReceiptORLine").'">'.$langs->trans("StandingOrderReject").'</a>';
    }
  }

  print "</div>";

  /*
   * List of invoices
   */
  $sql = "SELECT pf.rowid";
  $sql .= " ,f.rowid as facid, f.ref as ref, f.total_ttc, f.paye, f.fk_statut";
  $sql .= " , s.rowid as socid, s.nom as name";
  $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
  $sql .= " , ".MAIN_DB_PREFIX."prelevement_lignes as pl";
  $sql .= " , ".MAIN_DB_PREFIX."prelevement_facture as pf";
  $sql .= " , ".MAIN_DB_PREFIX."facture as f";
  $sql .= " , ".MAIN_DB_PREFIX."societe as s";
  $sql .= " WHERE pf.fk_prelevement_lignes = pl.rowid";
  $sql .= " AND pl.fk_prelevement_bons = p.rowid";
  $sql .= " AND f.fk_soc = s.rowid";
  $sql .= " AND pf.fk_facture = f.rowid";
  $sql .= " AND f.entity IN (".getEntity('invoice').")";
  $sql .= " AND pl.rowid=".$id;
  if ($socid) $sql .= " AND s.rowid = ".$socid;
  $sql .= " ORDER BY $sortfield $sortorder ";
  $sql .= $db->plimit($conf->liste_limit + 1, $offset);

  $result = $db->query($sql);

  if ($result)
  {
    $num = $db->num_rows($result);
    $i = 0;

    $urladd = "&amp;id=".$id;

    print_barre_liste($langs->trans("Bills"), $page, "factures.php", $urladd, $sortfield, $sortorder, '', $num, 0, '');

    print"\n<!-- debut table -->\n";
    print '<table class="noborder" width="100%" cellspacing="0" cellpadding="4">';
    print '<tr class="liste_titre">';
    print '<td>'.$langs->trans("Invoice").'</td><td>'.$langs->trans("ThirdParty").'</td><td class="right">'.$langs->trans("Amount").'</td><td class="right">'.$langs->trans("Status").'</td>';
    print '</tr>';

    $total = 0;

    while ($i < min($num, $conf->liste_limit))
    {
      $obj = $db->fetch_object($result);

      print '<tr class="oddeven"><td>';

      print '<a href="'.DOL_URL_ROOT.'/compta/facture/card.php?facid='.$obj->facid.'">';
      print img_object($langs->trans("ShowBill"), "bill");
      print '</a>&nbsp;';

      print '<a href="'.DOL_URL_ROOT.'/compta/facture/card.php?facid='.$obj->facid.'">'.$obj->ref."</a></td>\n";

      print '<td><a href="'.DOL_URL_ROOT.'/comm/card.php?socid='.$obj->socid.'">';
      print img_object($langs->trans("ShowCompany"), "company").' '.$obj->name."</a></td>\n";

      print '<td class="right">'.price($obj->total_ttc)."</td>\n";

      print '<td class="right">';
      $invoicestatic->fetch($obj->facid);
      print $invoicestatic->getLibStatut(5);
      print "</td>\n";

      print "</tr>\n";

      $i++;
    }

    print "</table>";

    $db->free($result);
  } else {
    dol_print_error($db);
  }
}

// End of page
llxFooter();
$db->close();