This commit is contained in:
eldy 2011-09-29 18:04:15 +02:00
commit 2fc2f65449
6 changed files with 97 additions and 40 deletions

View File

@ -67,10 +67,7 @@ if ($action == 'add_paiement')
{
$error = 0;
$datepaye = dol_mktime(12, 0 , 0,
$_POST['remonth'],
$_POST['reday'],
$_POST['reyear']);
$datepaye = dol_mktime(12, 0 , 0, $_POST['remonth'], $_POST['reday'], $_POST['reyear']);
$paiement_id = 0;
$total = 0;
@ -149,7 +146,20 @@ if ($action == 'add_paiement')
if (! $error)
{
$db->commit();
$loc = DOL_URL_ROOT.'/fourn/paiement/fiche.php?id='.$paiement_id;
// If payment dispatching on more than one invoice, we keep on summary page, otherwise go on invoice card
$invoiceid=0;
foreach ($paiement->amounts as $key => $amount)
{
$facid = $key;
if (is_numeric($amount) && $amount <> 0)
{
if ($invoiceid != 0) $invoiceid=-1; // There is more than one invoice payed by this payment
else $invoiceid=$facid;
}
}
if ($invoiceid > 0) $loc = DOL_URL_ROOT.'/fourn/facture/fiche.php?facid='.$invoiceid;
else $loc = DOL_URL_ROOT.'/compta/paiement/fiche.php?id='.$paiement_id;
Header('Location: '.$loc);
exit;
}
@ -198,8 +208,8 @@ if ($action == 'create' || $action == 'add_paiement')
print_fiche_titre($langs->trans('DoPayment'));
if ($mesg) print $mesg;
if ($errmsg) print $errmsg;
if ($mesg) dol_htmloutput_mesg($mesg);
if ($errmsg) dol_htmloutput_errors($errmsg);
print '<form name="addpaiement" action="paiement.php" method="post">';
print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
@ -296,7 +306,7 @@ if ($action == 'create' || $action == 'add_paiement')
print '<td align="right">'.price($objp->total_ttc - $objp->am).'</td>';
print '<td align="center">';
$namef = 'amount_'.$objp->facid;
print '<input type="text" size="8" name="'.$namef.'">';
print '<input type="text" size="8" name="'.$namef.'" value="'.GETPOST($namef).'">';
print "</td></tr>\n";
$total+=$objp->total;
$total_ttc+=$objp->total_ttc;

View File

@ -30,13 +30,26 @@ require_once(DOL_DOCUMENT_ROOT.'/lib/functions.lib.php');
* \class MailingTargets
* \brief Parent class of emailing target selectors modules
*/
abstract class MailingTargets
class MailingTargets // This can't be abstract as it is used for some method
{
var $db='';
var $error='';
var $db;
var $error;
/** \brief Renvoi un exemple de numerotation
* \return string Retourne la traduction de la cle MailingModuleDescXXX ou XXX nom du module, ou $this->desc si non trouve
/**
* Constructor
*
* @param DoliDB $DB Database handler
*/
function MailingTargets($DB)
{
$this->db = $DB;
}
/**
* Return description of email selector
*
* @return string Retourne la traduction de la cle MailingModuleDescXXX ou XXX nom du module, ou $this->desc si non trouve
*/
function getDesc()
{
@ -47,8 +60,10 @@ abstract class MailingTargets
else return $this->desc;
}
/** \brief Renvoi un exemple de numerotation
* \return string Example
/**
* Return number of records for email selector
*
* @return string Example
*/
function getNbOfRecords()
{
@ -56,9 +71,10 @@ abstract class MailingTargets
}
/**
* \brief Retourne nombre de destinataires
* \param sql Requete sql de comptage
* \return int Nb de destinataires si ok, < 0 si erreur
* Retourne nombre de destinataires
*
* @param string $sql Requete sql de comptage
* @return int Nb de destinataires si ok, < 0 si erreur
*/
function getNbOfRecipients($sql)
{
@ -76,9 +92,10 @@ abstract class MailingTargets
}
/**
* \brief Affiche formulaire de filtre qui apparait dans page de selection
* des destinataires de mailings
* \return string Retourne zone select
* Affiche formulaire de filtre qui apparait dans page de selection
* des destinataires de mailings
*
* @return string Retourne zone select
*/
function formFilter()
{
@ -86,9 +103,10 @@ abstract class MailingTargets
}
/**
* \brief Met a jour nombre de destinataires
* \param mailing_id Id du mailing concern<EFBFBD>
* \return int < 0 si erreur, nb destinataires si ok
* Met a jour nombre de destinataires
*
* @param int $mailing_id Id of emailing
* @return int < 0 si erreur, nb destinataires si ok
*/
function update_nb($mailing_id)
{
@ -117,10 +135,11 @@ abstract class MailingTargets
}
/**
* \brief Ajoute destinataires dans table des cibles
* \param mailing_id Id of emailing
* \param cibles Array with targets
* \return int < 0 si erreur, nb ajout si ok
* Ajoute destinataires dans table des cibles
*
* @param int $mailing_id Id of emailing
* @param array $cibles Array with targets
* @return int < 0 si erreur, nb ajout si ok
*/
function add_to_target($mailing_id, $cibles)
{
@ -162,7 +181,7 @@ abstract class MailingTargets
}
}
dol_syslog("MailingTargets::add_to_target: mailing ".$j." targets added");
dol_syslog(get_class($this)."::add_to_target: mailing ".$j." targets added");
$this->update_nb($mailing_id);
@ -171,8 +190,10 @@ abstract class MailingTargets
}
/**
* \brief Supprime tous les destinataires de la table des cibles
* \param mailing_id Id of emailing
* Supprime tous les destinataires de la table des cibles
*
* @param int $mailing_id Id of emailing
* @return void
*/
function clear_target($mailing_id)
{

View File

@ -22,3 +22,29 @@ ALTER TABLE llx_user ADD COLUMN ref_int varchar(50) AFTER ref_ext;
ALTER TABLE llx_societe MODIFY code_client varchar(24);
ALTER TABLE llx_societe MODIFY code_fournisseur varchar(24);
-- Europe
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (1, 'EU4A0', 'Format 4A0', '1682', '2378', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (2, 'EU2A0', 'Format 2A0', '1189', '1682', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (3, 'EUA0', 'Format A0', '840', '1189', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (4, 'EUA1', 'Format A1', '594', '840', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (5, 'EUA2', 'Format A2', '420', '594', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (6, 'EUA3', 'Format A3', '297', '420', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (7, 'EUA4', 'Format A4', '210', '297', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (8, 'EUA5', 'Format A5', '148', '210', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (9, 'EUA6', 'Format A6', '105', '148', 'mm', 1);
-- US
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (100, 'USLetter', 'Format Letter (A)', '216', '279', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (105, 'USLegal', 'Format Legal', '216', '356', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (110, 'USExecutive', 'Format Executive', '190', '254', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (115, 'USLedger', 'Format Ledger/Tabloid (B)', '279', '432', 'mm', 1);
-- Canadian
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (200, 'CAP1', 'Format Canadian P1', '560', '860', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (205, 'CAP2', 'Format Canadian P2', '430', '560', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (210, 'CAP3', 'Format Canadian P3', '280', '430', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (215, 'CAP4', 'Format Canadian P4', '215', '280', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (220, 'CAP5', 'Format Canadian P5', '140', '215', 'mm', 1);
INSERT INTO llx_c_paper_format (rowid, code, label, width, height, unit, active) VALUES (225, 'CAP6', 'Format Canadian P6', '107', '140', 'mm', 1);

View File

@ -25,11 +25,11 @@
/**
* \class DoliDbMssql
* \class DoliDBMssql
* \brief Classe de gestion de la database de dolibarr
* \remarks Works with PHP5 Only
*/
class DoliDbMssql
class DoliDBMssql
{
//! Database handler
var $db;
@ -80,7 +80,7 @@ class DoliDbMssql
* @param int $port Port of database server
* @return int 1 if OK, 0 if not
*/
function DoliDbMssql($type, $host, $user, $pass, $name='', $port=0)
function DoliDBMssql($type, $host, $user, $pass, $name='', $port=0)
{
global $conf,$langs;

View File

@ -26,10 +26,10 @@
/**
* \class DoliDbMysql
* \class DoliDBMysql
* \brief Class to manage Dolibarr database access for a Mysql database
*/
class DoliDbMysql
class DoliDBMysql
{
//! Database handler
var $db;
@ -80,7 +80,7 @@ class DoliDbMysql
* @param int $port Port of database server
* @return int 1 if OK, 0 if not
*/
function DoliDb($type, $host, $user, $pass, $name='', $port=0)
function DoliDBMysql($type, $host, $user, $pass, $name='', $port=0)
{
global $conf,$langs;

View File

@ -27,10 +27,10 @@
/**
* \class DoliDbPgsql
* \class DoliDBPgsql
* \brief Class to drive a Postgresql database for Dolibarr
*/
class DoliDbPgsql
class DoliDBPgsql
{
var $db; // Database handler
var $type='pgsql'; // Name of manager
@ -70,7 +70,7 @@ class DoliDbPgsql
* @param int $port Port of database server
* @return int 1 if OK, 0 if not
*/
function DoliDbPgsql($type, $host, $user, $pass, $name='', $port=0)
function DoliDBPgsql($type, $host, $user, $pass, $name='', $port=0)
{
global $conf,$langs;