rejetprelevement.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005      Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2005-2009 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2013 Juanjo Menent        <jmenent@2byte.es>
 *
 * 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/>.
 */

class RejetPrelevement
{
  public $id;

  public $db;

  public $type; //prelevement or bank transfer


  public function __construct($db, $user, $type)
  {
    global $langs;

    $this->db = $db;
    $this->user = $user;
    $this->type = $type;

    $this->motifs = array();
    $this->facturer = array();

    $this->motifs[0] = ""; //$langs->trans("StatusMotif0");
    $this->motifs[1] = $langs->trans("StatusMotif1");
    $this->motifs[2] = $langs->trans("StatusMotif2");
    $this->motifs[3] = $langs->trans("StatusMotif3");
    $this->motifs[4] = $langs->trans("StatusMotif4");
    $this->motifs[5] = $langs->trans("StatusMotif5");
    $this->motifs[6] = $langs->trans("StatusMotif6");
    $this->motifs[7] = $langs->trans("StatusMotif7");
    $this->motifs[8] = $langs->trans("StatusMotif8");

    $this->facturer[0] = $langs->trans("NoInvoiceRefused");
    $this->facturer[1] = $langs->trans("InvoiceRefused");
  }

  public function create($user, $id, $motif, $date_rejet, $bonid, $facturation = 0)
  {
    global $langs, $conf;

    $error = 0;
    $this->id = $id;
    $this->bon_id = $bonid;
    $now = dol_now();

    dol_syslog("RejetPrelevement::Create id $id");
    $bankaccount = ($this->type == 'bank-transfer' ? $conf->global->PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT : $conf->global->PRELEVEMENT_ID_BANKACCOUNT);
    $facs = $this->getListInvoices(1);

    $this->db->begin();

    // Insert refused line into database
    $sql = "INSERT INTO ".MAIN_DB_PREFIX."prelevement_rejet (";
    $sql .= "fk_prelevement_lignes";
    $sql .= ", date_rejet";
    $sql .= ", motif";
    $sql .= ", fk_user_creation";
    $sql .= ", date_creation";
    $sql .= ", afacturer";
    $sql .= ") VALUES (";
    $sql .= $id;
    $sql .= ", '".$this->db->idate($date_rejet)."'";
    $sql .= ", ".$motif;
    $sql .= ", ".$user->id;
    $sql .= ", '".$this->db->idate($now)."'";
    $sql .= ", ".$facturation;
    $sql .= ")";

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

    if (!$result)
    {
      dol_syslog("RejetPrelevement::create Erreur 4");
      dol_syslog("RejetPrelevement::create Erreur 4 $sql");
      $error++;
    }

    // Tag the line to refused
    $sql = " UPDATE ".MAIN_DB_PREFIX."prelevement_lignes ";
    $sql .= " SET statut = 3";
    $sql .= " WHERE rowid = ".$id;

    if (!$this->db->query($sql))
    {
      dol_syslog("RejetPrelevement::create Erreur 5");
      $error++;
    }

    $num = count($facs);
    for ($i = 0; $i < $num; $i++) {
      if ($this->type == 'bank-transfer') {
        $fac = new FactureFournisseur($this->db);
        $pai = new PaiementFourn($this->db);
      } else {
        $fac = new Facture($this->db);
        $pai = new Paiement($this->db);
      }

      $fac->fetch($facs[$i][0]);

      // Make a negative payment
      //$pai = new Paiement($this->db);

      $pai->amounts = array();

      /*
       * We replace the comma with a point otherwise some
       * PHP installs sends only the part integer negative
      */

      $pai->amounts[$facs[$i][0]] = price2num($facs[$i][1] * ($this->type == 'bank-transfer' ? 1 : -1));
      $pai->datepaye = $date_rejet;
      $pai->paiementid = 3; // type of payment: withdrawal
      $pai->num_payment = $fac->ref;

      if ($pai->create($this->user) < 0) {
        // we call with no_commit
        $error++;
        dol_syslog("RejetPrelevement::Create Error creation payment invoice ".$facs[$i][0]);
      } else {
        $result = $pai->addPaymentToBank($user, 'payment', '(InvoiceRefused)', $bankaccount, '', '');
        if ($result < 0) {
          dol_syslog("RejetPrelevement::Create AddPaymentToBan Error");
          $error++;
        }

        // Payment validation
        if ($pai->validate($user) < 0) {
          $error++;
          dol_syslog("RejetPrelevement::Create Error payment validation");
        }
      }
      //Tag invoice as unpaid
      dol_syslog("RejetPrelevement::Create set_unpaid fac ".$fac->ref);

      $fac->set_unpaid($user);

      //TODO: Must be managed by notifications module
      // Send email to sender of the standing order request
      $this->_send_email($fac);
    }

    if ($error == 0)
    {
      dol_syslog("RejetPrelevement::Create Commit");
      $this->db->commit();
    } else {
      dol_syslog("RejetPrelevement::Create Rollback");
      $this->db->rollback();
    }
  }

  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  private function _send_email($fac)
  {
    // phpcs:enable
    global $langs;

    $userid = 0;

    $sql = "SELECT fk_user_demande";
    $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_facture_demande as pfd";
    $sql .= " WHERE pfd.fk_prelevement_bons = ".$this->bon_id;
    $sql .= " AND pfd.fk_facture".($this->type == 'bank-transfer' ? '_fourn=' : '=').$fac->id;

    $resql = $this->db->query($sql);
    if ($resql)
    {
      $num = $this->db->num_rows($resql);
      if ($num > 0)
      {
        $row = $this->db->fetch_row($resql);
        $userid = $row[0];
      }
    } else {
      dol_syslog("RejetPrelevement::_send_email Erreur lecture user");
    }

    if ($userid > 0)
    {
      $emuser = new User($this->db);
      $emuser->fetch($userid);

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

      require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php';

      $subject = $langs->transnoentities("InfoRejectSubject");
      $sendto = $emuser->getFullName($langs)." <".$emuser->email.">";
      $from = $this->user->getFullName($langs)." <".$this->user->email.">";
      $msgishtml = 1;
      $trackid = 'use'.$emuser->id;

      $arr_file = array();
      $arr_mime = array();
      $arr_name = array();
      $facref = $fac->ref;
      $socname = $soc->name;
      $amount = price($fac->total_ttc);
      $userinfo = $this->user->getFullName($langs);

      $message = $langs->trans("InfoRejectMessage", $facref, $socname, $amount, $userinfo);

      $mailfile = new CMailFile($subject, $sendto, $from, $message, $arr_file, $arr_mime, $arr_name, '', '', 0, $msgishtml, $this->user->email, '', $trackid);

      $result = $mailfile->sendfile();
      if ($result) {
        dol_syslog("RejetPrelevement::_send_email email envoye");
      } else {
        dol_syslog("RejetPrelevement::_send_email Erreur envoi email");
      }
    } else {
      dol_syslog("RejetPrelevement::_send_email Userid invalide");
    }
  }

  private function getListInvoices($amounts = 0)
  {
    global $conf;

    $arr = array();

     //Returns all invoices of a withdrawal
    $sql = "SELECT f.rowid as facid, pl.amount";
    $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_facture as pf";
    if ($this->type == 'bank-transfer') $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as f ON (pf.fk_facture_fourn = f.rowid)";
    else $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON (pf.fk_facture = f.rowid)";
    $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."prelevement_lignes as pl ON (pf.fk_prelevement_lignes = pl.rowid)";
    $sql .= " WHERE pf.fk_prelevement_lignes = ".$this->id;
    $sql .= " AND f.entity IN  (".getEntity('invoice').")";

    $resql = $this->db->query($sql);
    if ($resql)
    {
      $num = $this->db->num_rows($resql);

      if ($num)
      {
        $i = 0;
        while ($i < $num)
        {
          $row = $this->db->fetch_row($resql);
          if (!$amounts) {
            $arr[$i] = $row[0];
          } else {
            $arr[$i] = array(
              $row[0],
              $row[1]
            );
          }
          $i++;
        }
      }
      $this->db->free($resql);
    } else {
      dol_syslog("getListInvoices", LOG_ERR);
    }

    return $arr;
  }

  public function fetch($rowid)
  {

    $sql = "SELECT pr.date_rejet as dr, motif, afacturer";
    $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_rejet as pr";
    $sql .= " WHERE pr.fk_prelevement_lignes =".$rowid;

    $resql = $this->db->query($sql);
    if ($resql)
    {
      if ($this->db->num_rows($resql))
      {
        $obj = $this->db->fetch_object($resql);

        $this->id = $rowid;
        $this->date_rejet = $this->db->jdate($obj->dr);
        $this->motif = $this->motifs[$obj->motif];
        $this->invoicing = $this->facturer[$obj->afacturer];

        $this->db->free($resql);

        return 0;
      } else {
        dol_syslog("RejetPrelevement::Fetch Erreur rowid=$rowid numrows=0");
        return -1;
      }
    } else {
      dol_syslog("RejetPrelevement::Fetch Erreur rowid=$rowid");
      return -2;
    }
  }
}