transfer.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2019 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2015 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2012    Juanjo Menent        <jmenent@2byte.es>
 * Copyright (C) 2015      Jean-François Ferry  <jfefe@aternatik.fr>
 * Copyright (C) 2015      Marcos García        <marcosgdf@gmail.com>
 * Copyright (C) 2018-2025  Frédéric France      <frederic.france@free.fr>
 * Copyright (C) 2023      Maxime Nicolas          <maxime@oarces.com>
 * Copyright (C) 2023      Benjamin GREMBI         <benjamin@oarces.com>
 * Copyright (C) 2024-2025  MDW           <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2025   Lenin Rivas       <lenin.rivas777@gmail.com>
 *
 * 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/>.
 */
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
 
// Load translation files required by the page
$langs->loadLangs(array('banks', 'categories', 'multicurrency'));
 
$action = GETPOST('action', 'aZ09');
 
$hookmanager->initHooks(array('banktransfer'));
 
$socid = 0;
if ($user->socid > 0) {
  $socid = $user->socid;
}
if (!$user->hasRight('banque', 'transfer')) {
  accessforbidden();
}
 
$MAXLINESFORTRANSFERT = 20;
 
$error = 0;
 
 
/*
 * Actions
 */
 
$parameters = array('socid' => $socid);
$dateo = array();
$label = array();
$amount = array();
$amountto = array();
$accountfrom = array();
$accountto = array();
$type = array();
$number = array();
$tabnum = array();
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
if ($action == 'add' && $user->hasRight('banque', 'transfer')) {
  $langs->load('errors');
  $i = 1;
 
  while ($i < $MAXLINESFORTRANSFERT) {
    $dateo[$i] = dol_mktime(12, 0, 0, GETPOSTINT($i.'_month'), GETPOSTINT($i.'_day'), GETPOSTINT($i.'_year'));
    $label[$i] = GETPOST($i.'_label', 'alpha');
    $amount[$i] = price2num(GETPOST($i.'_amount', 'alpha'), 'MT', 2);
    $amountto[$i] = price2num(GETPOST($i.'_amountto', 'alpha'), 'MT', 2);
    $accountfrom[$i] = GETPOSTINT($i.'_account_from');
    $accountto[$i] = GETPOSTINT($i.'_account_to');
    $type[$i] = GETPOSTINT($i.'_type');
    $number[$i] = GETPOST($i.'_num_chq', 'alpha');
 
    $tabnum[$i] = 0;
    if (!empty($label[$i]) || !($amount[$i] <= 0) || !($accountfrom[$i] < 0) || !($accountto[$i]  < 0)) {
      $tabnum[$i] = 1;
    }
    $i++;
  }
 
  $db->begin();
 
  $n = 1;
  while ($n < $MAXLINESFORTRANSFERT) {
    if ($tabnum[$n] === 1) {
      if ($accountfrom[$n] < 0) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' .$langs->transnoentities("TransferFrom")), null, 'errors');
      }
      if ($accountto[$n] < 0) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' .$langs->transnoentities("TransferTo")), null, 'errors');
      }
      if (!$type[$n]) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' .$langs->transnoentities("Type")), null, 'errors');
      }
      if (!$dateo[$n]) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' .$langs->transnoentities("Date")), null, 'errors');
      }
 
      if (!($label[$n])) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' . $langs->transnoentities("Description")), null, 'errors');
      }
      if (!($amount[$n])) {
        $error++;
        setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n. ' ' .$langs->transnoentities("Amount")), null, 'errors');
      }
 
      $tmpaccountfrom = new Account($db);
      $tmpaccountfrom->fetch(GETPOSTINT($n.'_account_from'));
 
      $tmpaccountto = new Account($db);
      $tmpaccountto->fetch(GETPOSTINT($n.'_account_to'));
 
      $amount_main_currency_from = null;
      $amount_main_currency_to = null;
 
      if ($tmpaccountto->currency_code == $tmpaccountfrom->currency_code) {
        $amountto[$n] = $amount[$n];
      } else {
        if (!$amountto[$n]) {
          $error++;
          setEventMessages($langs->trans("ErrorFieldRequired", '#'.$n.' '.$langs->transnoentities("AmountToOthercurrency")), null, 'errors');
        }
      }
 
      if ($tmpaccountfrom->currency_code != $conf->currency && $tmpaccountto->currency_code == $conf->currency) {
        $amount_main_currency_from = (float) price2num(-1 * (float) $amountto[$n]);
      }
 
      if ($tmpaccountto->currency_code != $conf->currency && $tmpaccountfrom->currency_code == $conf->currency) {
        $amount_main_currency_to = (float) price2num((float) $amount[$n]);
      }
 
      if ($amountto[$n] < 0) {
        $error++;
        setEventMessages($langs->trans("AmountMustBePositive").' #'.$n, null, 'errors');
      }
 
      if ($tmpaccountto->id == $tmpaccountfrom->id) {
        $error++;
        setEventMessages($langs->trans("ErrorFromToAccountsMustDiffers").' #'.$n, null, 'errors');
      }
 
      if (!$error) {
        $bank_line_id_from = 0;
        $bank_line_id_to = 0;
        $result = 0;
 
        // By default, electronic transfer from bank to bank
        $typefrom = $type[$n];
        $typeto = $type[$n];
        if ($tmpaccountto->type == Account::TYPE_CASH || $tmpaccountfrom->type == Account::TYPE_CASH) {
          // This is transfer of change
          $typefrom = 'LIQ';
          $typeto = 'LIQ';
        }
 
        if (!$error) {
          $bank_line_id_from = $tmpaccountfrom->addline($dateo[$n], $typefrom, $label[$n], (float) price2num(-1 * (float) $amount[$n]), '', 0, $user, '', '', '', null, '', $amount_main_currency_from);
        }
        if (!($bank_line_id_from > 0)) {
          $error++;
        }
        if (!$error) {
          $bank_line_id_to = $tmpaccountto->addline($dateo[$n], $typeto, $label[$n], (float) price2num((float) $amountto[$n]), '', 0, $user, '', '', '', null, '', $amount_main_currency_to);
        }
        if (!($bank_line_id_to > 0)) {
          $error++;
        }
 
        if (!$error) {
          $result = $tmpaccountfrom->add_url_line($bank_line_id_from, $bank_line_id_to, DOL_URL_ROOT.'/compta/bank/line.php?rowid=', '(banktransfert)', 'banktransfert');
        }
        if (!($result > 0)) {
          $error++;
        }
        if (!$error) {
          $result = $tmpaccountto->add_url_line($bank_line_id_to, $bank_line_id_from, DOL_URL_ROOT.'/compta/bank/line.php?rowid=', '(banktransfert)', 'banktransfert');
        }
        if (!($result > 0)) {
          $error++;
        }
 
        if (!$error) {
          $mesg = $langs->trans("TransferFromToDone", '{s1}', '{s2}', $amount[$n], $langs->transnoentitiesnoconv("Currency".$conf->currency));
          $mesg = str_replace('{s1}', '<a href="bankentries_list.php?id='.$tmpaccountfrom->id.'&sortfield=b.datev,b.dateo,b.rowid&sortorder=desc">'.$tmpaccountfrom->label.'</a>', $mesg);
          $mesg = str_replace('{s2}', '<a href="bankentries_list.php?id='.$tmpaccountto->id.'">'.$tmpaccountto->label.'</a>', $mesg);
          setEventMessages($mesg, null, 'mesgs');
        } else {
          $error++;
          setEventMessages($tmpaccountfrom->error.' '.$tmpaccountto->error, null, 'errors');
        }
      }
    }
    $n++;
  }
 
  if (!$error) {
    $db->commit();
 
    header("Location: ".DOL_URL_ROOT.'/compta/bank/transfer.php');
    exit;
  } else {
    $db->rollback();
  }
}
 
 
/*
 * View
 */
 
$form = new Form($db);
 
$help_url = 'EN:Module_Banks_and_Cash|FR:Module_Banques_et_Caisses|ES:M&oacute;dulo_Bancos_y_Cajas';
$title = $langs->trans('MenuBankInternalTransfer');
 
llxHeader('', $title, $help_url);
 
 
print '<script type="text/javascript">
          $(document).ready(function () {
            $(".selectbankaccount").change(function() {
            console.log("We change bank account. We check if currency differs. If yes, we show multicurrency field");
            i = $(this).attr("name").replace("_account_to", "").replace("_account_from", "");
            console.log(i);
            init_page(i);
        });
 
        function init_page(i) {
          var atleast2differentcurrency = false;
 
          $(".selectbankaccount").each(function( index ) {
            // Scan all line i and set atleast2differentcurrency if there is 2 different values among all lines
                var account1 = $("#select"+index+"_account_from").val();
                var account2 = $("#select"+index+"_account_to").val();
            var currencycode1 = $("#select"+index+"_account_from option:selected").attr("data-currency-code");
            var currencycode2 = $("#select"+index+"_account_to option:selected").attr("data-currency-code");
            console.log("Set atleast2differentcurrency according to currencycode found for index="+index+" currencycode1="+currencycode1+" currencycode2="+currencycode2);
 
            atleast2differentcurrency = (currencycode2!==currencycode1 && currencycode1 !== undefined && currencycode2 !== undefined && currencycode2!=="" && currencycode1!=="");
            if (atleast2differentcurrency) {
              return false;
            }
          });
 
 
          if (atleast2differentcurrency) {
            console.log("We show multicurrency field");
                $(".multicurrency").show();
              } else {
            console.log("We hide multicurrency field");
            $(".multicurrency").hide();
          }
 
          // Show all linew with view=view
          $("select").each(function() {
            if( $(this).attr("view")){
              $(this).closest("tr").removeClass("hidejs").removeClass("hideobject");
            }
          });
 
            }
 
        init_page(1);
          });
        </script>';
 
 
print load_fiche_titre($langs->trans("MenuBankInternalTransfer"), '', 'bank_account');
 
print '<span class="opacitymedium">'.$langs->trans("TransferDesc").'</span>';
print '<br><br>';
 
print '<form name="add" method="post" action="'.dolBuildUrl($_SERVER["PHP_SELF"]).'">';
print '<input type="hidden" name="token" value="'.newToken().'">';
print '<input type="hidden" name="action" value="add">';
 
print '<div>';
 
print '<div class="div-table-responsive-no-min">';
print '<table id="tablemouvbank" class="noborder centpercent">';
 
print '<tr class="liste_titre">';
print '<th>'.$langs->trans("TransferFrom").'</th>';
print '<th>'.$langs->trans("TransferTo").'</th>';
print '<th>'.$langs->trans("Type").'</th>';
print '<th>'.$langs->trans("Date").'</th>';
if (getDolGlobalString('BANK_TRANSFER_ASK_CHQ_NUMBER_OF_SRC_ACCOUNT')) {
  print '<th>'.$langs->trans("ChequeNumber").'</th>';
}
print '<th>'.$langs->trans("Description").'</th>';
print '<th class="right">'.$langs->trans("Amount").'</th>';
print '<td class="hideobject multicurrency right">'.$langs->trans("AmountToOthercurrency").'</td>';
print '</tr>';
 
for ($i = 1 ; $i < $MAXLINESFORTRANSFERT; $i++) {
  $label = '';
  $amount = '';
  $amountto = '';
  $number = '';
 
  if ($error) {
    $label = GETPOST($i.'_label', 'alpha');
    $amount = GETPOST($i.'_amount', 'alpha');
    $amountto = GETPOST($i.'_amountto', 'alpha');
    $number = GETPOST($i.'_num_chq', 'alpha');
  }
 
  if ($i == 1) {
    $classi = 'numvir number'.$i;
    $classi .= ' active';
  } else {
    $classi = 'numvir number'.$i;
    $classi .= ' hidejs hideobject';
  }
 
  print '<tr class="oddeven nowraponall '.$classi.'"><td>';
  print img_picto('', 'bank_account', 'class="paddingright"');
  $form->select_comptes(($error ? GETPOSTINT($i.'_account_from') : ''), $i.'_account_from', 0, '', 1, '', isModEnabled('multicurrency') ? 1 : 0, 'minwidth100');
  print '</td>';
 
  print '<td class="nowraponall">';
  print img_picto('', 'bank_account', 'class="paddingright"');
  $form->select_comptes(($error ? GETPOSTINT($i.'_account_to') : ''), $i.'_account_to', 0, '', 1, '', isModEnabled('multicurrency') ? 1 : 0, 'minwidth100');
  print "</td>\n";
 
  // Payment mode
  print '<td class="nowraponall">';
  $idpaymentmodetransfer = dol_getIdFromCode($db, 'VIR', 'c_paiement');
  $form->select_types_paiements(($error ? GETPOST($i.'_type', 'aZ09') : $idpaymentmodetransfer), $i.'_type', '', 0, 1, 0, 0, 1, 'minwidth100');
  print "</td>\n";
 
  // Date
  print '<td class="nowraponall">';
  print $form->selectDate((!empty($dateo[$i] ?? null) ? $dateo[$i] : ''), $i.'_', 0, 0, 0, 'add');
  print "</td>\n";
 
  // Cheque Number
  if (getDolGlobalString('BANK_TRANSFER_ASK_CHQ_NUMBER_OF_SRC_ACCOUNT')) {
    print '<td><input name="'.$i.'_num_chq" class="flat quatrevingtpercent selectjs" type="text" value="'.dol_escape_htmltag($number).'"></td>';
  }
 
  // Description
  print '<td><input name="'.$i.'_label" class="flat quatrevingtpercent selectjs" type="text" value="'.dol_escape_htmltag($label).'"></td>';
 
  // Amount
  print '<td class="right"><input name="'.$i.'_amount" class="flat right selectjs" type="text" size="6" value="'.dol_escape_htmltag($amount).'"></td>';
 
  // AmountToOthercurrency
  print '<td class="hideobject multicurrency right"><input name="'.$i.'_amountto" class="flat right" type="text" size="6" value="'.dol_escape_htmltag($amountto).'"></td>';
 
  print '</tr>';
}
 
print '</table>';
print '</div>';
print '</div>';
print '<div id="btncont" style="display: flex; align-items: center">';
print '<a id="btnincrement" style="margin-left:35%" class="btnTitle btnTitlePlus" onclick="increment()" title="'.dol_escape_htmltag($langs->trans("Add")).'">
    <span class="fa fa-plus-circle valignmiddle btnTitle-icon">
    </span>
     </a>';
print '<br><div  class=""><input type="submit" class="button" value="'.$langs->trans("Save").'"></div>';
print '</div>';
 
print '</form>';
 
print '<script type="text/javascript">
      function increment() {
        console.log("We click to show next line");
        $(".numvir").nextAll(".hidejs:first").removeClass("hidejs").removeClass("hideobject").addClass("active").show();
      }
    </script>
   ';
 
// End of page
llxFooter();
 
$db->close();