* Copyright (C) 2003 Jean-Louis Bergamo * Copyright (C) 2004 Laurent Destailleur * * 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ /** \file htdocs/societe/rib.php \ingroup societe \brief Onglet rib de societe \version $Revision$ */ require("./pre.inc.php"); require_once DOL_DOCUMENT_ROOT . "/companybankaccount.class.php"; $langs->load("companies"); $langs->load("banks"); $user->getrights('societe'); if ( !$user->rights->societe->creer) accessforbidden(); llxHeader(); $soc = new Societe($db); $soc->id = $_GET["socid"]; $soc->fetch($_GET["socid"]); if ($_POST["action"] == 'update' && ! $_POST["cancel"]) { // Modification $account = new CompanyBankAccount($db, $soc->id); $account->bank = $_POST["bank"]; $account->label = $_POST["label"]; $account->courant = $_POST["courant"]; $account->clos = $_POST["clos"]; $account->code_banque = $_POST["code_banque"]; $account->code_guichet = $_POST["code_guichet"]; $account->number = $_POST["number"]; $account->cle_rib = $_POST["cle_rib"]; $account->bic = $_POST["bic"]; $account->iban_prefix = $_POST["iban_prefix"]; $account->domiciliation = $_POST["domiciliation"]; $account->proprio = $_POST["proprio"]; $account->adresse_proprio = $_POST["adresse_proprio"]; $result = $account->update($user); if (! $result) { $message=$account->error(); $_GET["action"]='edit'; // Force chargement page edition } else { $_GET["id"]=$_POST["id"]; // Force chargement page en mode visu } } /* * Affichage onglets */ $h = 0; $head[0][0] = DOL_URL_ROOT .'/soc.php?socid='.$soc->id; $head[0][1] = $langs->trans("Company"); $h = 1; $head[$h][0] = "fiche.php?id=$account->id"; $head[$h][1] = $langs->trans("BankAccount")." $account->number"; $h++; dolibarr_fiche_head($head, 1); $account = new CompanyBankAccount($db, $soc->id); $account->fetch(); /* ************************************************************************** */ /* */ /* Visu et edition */ /* */ /* ************************************************************************** */ if ($_GET["socid"] && $_GET["action"] != 'edit') { if (!$account->verif()) { print '

Le contrôle de la clé indique que les informations de ce compte bancaire sont incomplètes ou incorrectes.

'; } print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '\n"; print '\n"; print '\n"; print '

'.$langs->trans("Bank").'	'.$account->bank.'
'.$langs->trans("RIB").'	Code Banque	Code Guichet	Numéro	Clé RIB
	'.$account->code_banque.'	'.$account->code_guichet.'	'.$account->number.'	'.$account->cle_rib.'
'.$langs->trans("IBAN").'	'.$account->iban_prefix.'
'.$langs->trans("BIC").'	'.$account->bic.'
Domiciliation	'; print $account->domiciliation; print "
Nom propriétaire du compte	'; print $account->proprio; print "
Adresse propriétaire du compte	'; print $account->adresse_proprio; print "

'; print '
'; print ''; /* * Barre d'actions * */ print '

'; if ($user->rights->societe->creer) { print ''.$langs->trans("Edit").''; } print '

'; } /* ************************************************************************** */ /* */ /* Edition */ /* */ /* ************************************************************************** */ if ($_GET["socid"] && $_GET["action"] == 'edit' && $user->rights->societe->creer) { $form = new Form($db); print_titre("Edition compte bancaire"); print "
"; if ($message) { print "$message

\n"; } print '

'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '"; print ''; print ''; print "\n"; print '"; print ''; print ''; print '

'.$langs->trans("Bank").'
'.$langs->trans("RIB").'	Code Banque	Code Guichet	Numéro	Clé RIB

'.$langs->trans("IBAN").'
'.$langs->trans("BIC").'
Domiciliation	'; print ""; print $account->domiciliation; print "
Nom propriétaire du compte
Adresse propriétaire du compte	'; print ""; print $account->adresse_proprio; print "
'; print ' '; print '

'; } $db->close(); llxFooter("Dernière modification $Date$ révision $Revision$"); ?>