From 6e8758636c0d3ce12e0c09a4f492749be2c7cce4 Mon Sep 17 00:00:00 2001 From: Juanjo Menent Date: Tue, 25 Jan 2011 22:12:47 +0000 Subject: [PATCH] Withdrawals: Use bank account from banks module --- htdocs/admin/prelevement.php | 88 +++++++------------ .../includes/modules/modPrelevement.class.php | 2 +- htdocs/langs/ca_ES/banks.lang | 6 +- htdocs/langs/es_AR/banks.lang | 6 +- htdocs/langs/es_ES/banks.lang | 6 +- 5 files changed, 44 insertions(+), 64 deletions(-) diff --git a/htdocs/admin/prelevement.php b/htdocs/admin/prelevement.php index 606037cc33b..98d3ab2dc19 100644 --- a/htdocs/admin/prelevement.php +++ b/htdocs/admin/prelevement.php @@ -2,7 +2,7 @@ /* Copyright (C) 2005 Rodolphe Quiedeville * Copyright (C) 2005-2010 Laurent Destailleur * Copyright (C) 2005-2010 Regis Houssin - * Copyright (C) 2010 Juanjo Menent + * Copyright (C) 2010-2011 Juanjo Menent * * 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 @@ -29,26 +29,38 @@ require('../main.inc.php'); require_once(DOL_DOCUMENT_ROOT."/compta/prelevement/class/bon-prelevement.class.php"); require_once(DOL_DOCUMENT_ROOT."/lib/admin.lib.php"); +require_once(DOL_DOCUMENT_ROOT."/compta/bank/class/account.class.php"); $langs->load("admin"); $langs->load("withdrawals"); $langs->load("bills"); +$langs->load("other"); // Security check if (!$user->admin) accessforbidden(); -/*if ($user->societe_id) $socid=$user->societe_id; -$result = restrictedArea($user, 'prelevement', '', '', 'bons');*/ - - if ($_GET["action"] == "set") { - for ($i = 0 ; $i < 9 ; $i++) + for ($i = 0 ; $i < 3 ; $i++) { dolibarr_set_const($db, $_POST["nom$i"], $_POST["value$i"],'chaine',0,'',$conf->entity); } - + + $id=$_POST["PRELEVEMENT_ID_BANKACCOUNT"]; + $account = new Account($db, $id); + + if($account->fetch($id)>0) + { + dolibarr_set_const($db, "PRELEVEMENT_ID_BANKACCOUNT", $id,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_CODE_BANQUE", $account->code_banque,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_CODE_GUICHET", $account->code_guichet,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_NUMERO_COMPTE", $account->number,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_NUMBER_KEY", $account->cle_rib,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_IBAN", $account->iban,'chaine',0,'',$conf->entity); + dolibarr_set_const($db, "PRELEVEMENT_BIC", $account->bic,'chaine',0,'',$conf->entity); + } + Header("Location: prelevement.php"); exit; } @@ -92,6 +104,8 @@ print ''.$langs->trans("Parameter").''; print ''.$langs->trans("Value").''; //print ''.$langs->trans("CurrentValue").''; print "\n"; + +//User print ''.$langs->trans("ResponsibleUser").''; print ''; print ''; @@ -99,65 +113,31 @@ print $html->select_users($conf->global->PRELEVEMENT_USER,'value0',1); print ''; print ''; -print ''.$langs->trans("NumeroNationalEmetter").''; +//Profid1 of Transmitter +print ''.$langs->trans("NumeroNationalEmetter")." (".$langs->transcountry('ProfId1',$mysoc->pays_code).")";''; print ''; print ''; print ''; print ''; -/*print_fiche_titre($langs->trans("PleaseSelectCustomerBankBANToWithdraw"),'',''); - -print '
'; -print ''; -print ''; +/* +* Bank info */ print ''; - -print ''; +print ''; print ''; print ''; -// RIB -//print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -// BAN/BIC/SWIFT -//print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -print ''; -/*print ''; -print ''; -*/ +// Bank account (from Banks module) +print ''; +print ''; + print ''; print '
'.$langs->trans("BankToReceiveWithdraw").'
'.$langs->trans("Name").'
'.$langs->trans("BankAccountOwner").''; + +//bank account holder print ''; print '
'.$langs->trans("ForCustomerWithBankUsingRIB").'
'.$langs->trans("BankCode").''; -print ''; -print '
'.$langs->trans("DeskCode").''; -print ''; -print '
'.$langs->trans("AccountNumber").''; -print ''; -print '
'.$langs->trans("BankAccountNumberKey").''; -print ''; -print '
'.$langs->trans("ForCustomerWithBankUsingBANBIC").'
'.$langs->trans("IBAN").''; -print ''; -print '
'.$langs->trans("BIC").''; -print ''; -print '
'; -print ''; -print '
'.$langs->trans("Bank").''; +print $html->select_comptes($conf->global->PRELEVEMENT_ID_BANKACCOUNT,'PRELEVEMENT_ID_BANKACCOUNT',0,"courant=1",1); +print '

'; diff --git a/htdocs/includes/modules/modPrelevement.class.php b/htdocs/includes/modules/modPrelevement.class.php index 02cf28f550e..059c6ca4d80 100644 --- a/htdocs/includes/modules/modPrelevement.class.php +++ b/htdocs/includes/modules/modPrelevement.class.php @@ -69,7 +69,7 @@ class modPrelevement extends DolibarrModules $this->dirs = array("/prelevement/temp","/prelevement/receipts"); // Dependancies - $this->depends = array("modFacture"); + $this->depends = array("modFacture","modBanque"); $this->requiredby = array(); // Config pages diff --git a/htdocs/langs/ca_ES/banks.lang b/htdocs/langs/ca_ES/banks.lang index f9eebf3490e..c48de1b75fc 100644 --- a/htdocs/langs/ca_ES/banks.lang +++ b/htdocs/langs/ca_ES/banks.lang @@ -43,9 +43,9 @@ Rapprochement=Conciliació IOMonthlyReporting=Informe mensual E/S BankAccountDomiciliation=Domiciliació de compte BankAccountCountry=País del compte -BankAccountOwner=Nom del propietari del compte -BankAccountOwnerAddress=Direcció del propietari del compte -RIBControlError=El control de clau indica que la informació d'aquest compte bancari és incompleta o incorrecta. +BankAccountOwner=Nom del titular del compte +BankAccountOwnerAddress=Direcció del titular del compte +RIBControlError=El dígit de control indica que la informació d'aquest compte bancari és incompleta o incorrecta. CreateAccount=Crear compte NewAccount=Nou compte NewBankAccount=Nou compte bancari diff --git a/htdocs/langs/es_AR/banks.lang b/htdocs/langs/es_AR/banks.lang index d5993c2ed96..e4edd888912 100755 --- a/htdocs/langs/es_AR/banks.lang +++ b/htdocs/langs/es_AR/banks.lang @@ -43,9 +43,9 @@ Rapprochement=Conciliación IOMonthlyReporting=Informe mensual E/S BankAccountDomiciliation=Domiciliación de cuenta BankAccountCountry=País de la cuenta -BankAccountOwner=Nombre del propietario de la cuenta -BankAccountOwnerAddress=Dirección del propietario de la cuenta -RIBControlError=El control de clave indica que la información de esta cuenta bancaria es incompleta o incorrecta. +BankAccountOwner=Nombre del titular de la cuenta +BankAccountOwnerAddress=Dirección del titular de la cuenta +RIBControlError=El dígito de control indica que la información de esta cuenta bancaria es incompleta o incorrecta. CreateAccount=Crear cuenta NewAccount=Nueva cuenta NewBankAccount=Nueva cuenta bancaria diff --git a/htdocs/langs/es_ES/banks.lang b/htdocs/langs/es_ES/banks.lang index c6c40dc2633..7e543fb6089 100644 --- a/htdocs/langs/es_ES/banks.lang +++ b/htdocs/langs/es_ES/banks.lang @@ -43,9 +43,9 @@ Rapprochement=Conciliación IOMonthlyReporting=Informe mensual E/S BankAccountDomiciliation=Domiciliación de cuenta BankAccountCountry=País de la cuenta -BankAccountOwner=Nombre del propietario de la cuenta -BankAccountOwnerAddress=Dirección del propietario de la cuenta -RIBControlError=El control de clave indica que la información de esta cuenta bancaria es incompleta o incorrecta. +BankAccountOwner=Nombre del titular de la cuenta +BankAccountOwnerAddress=Dirección del titular de la cuenta +RIBControlError=El dígito de control indica que la información de esta cuenta bancaria es incompleta o incorrecta. CreateAccount=Crear cuenta NewAccount=Nueva cuenta NewBankAccount=Nueva cuenta bancaria