New: [ task #812 ] Add more Scripts. expire contract services to
representatives
This commit is contained in:
simnandez
parent
70dedc49b2
commit
ca9a2b281a
@ -85,6 +85,10 @@ PaymentRenewContractId=Renovació servei (número %s)
|
||||
ExpiredSince=Expirat des del
|
||||
RelatedContracts=Contractes associats
|
||||
NoExpiredServices=Sense serveis actius expirats
|
||||
ListOfServicesToExpireWithDuration=Llistat de serveis actius a expirar en %s dies
|
||||
ListOfServicesToExpire=Llistat de serveis actius a expirar
|
||||
ListOfServicesToExpireNote=Nota: Aquest llistat conté només els serveis dels contractes amb tercers dels quals vostè és comercial.
|
||||
|
||||
##### Types de contacts #####
|
||||
TypeContact_contrat_internal_SALESREPSIGN=Comercial signant del contracte
|
||||
TypeContact_contrat_internal_SALESREPFOLL=Comercial seguiment del contracte
|
||||
|
||||
@ -86,6 +86,10 @@ PaymentRenewContractId=Renew contract line (number %s)
|
||||
ExpiredSince=Expiration date
|
||||
RelatedContracts=Related contracts
|
||||
NoExpiredServices=No expired active services
|
||||
ListOfServicesToExpireWithDuration=List of Services to expire in %s days
|
||||
ListOfServicesToExpire=List of Services to expire
|
||||
ListOfServicesToExpireNote=Note: This list contains only services of contracts for third parties you are linked to as a sale representative.
|
||||
|
||||
##### Types de contacts #####
|
||||
TypeContact_contrat_internal_SALESREPSIGN=Sales representative signing contract
|
||||
TypeContact_contrat_internal_SALESREPFOLL=Sales representative following-up contract
|
||||
|
||||
@ -85,6 +85,10 @@ PaymentRenewContractId=Renovación servicio (número %s)
|
||||
ExpiredSince=Expirado desde el
|
||||
RelatedContracts=Contratos asociados
|
||||
NoExpiredServices=Sin servicios activos expirados
|
||||
ListOfServicesToExpireWithDuration=Listado de servicios activos a expirar en %s días
|
||||
ListOfServicesToExpire=Listado de servicios activos a expirar
|
||||
ListOfServicesToExpireNote=Nota: Este listado contiene solamente los servicios de los contratos con terceros de los que usted es comercial.
|
||||
|
||||
##### Types de contacts #####
|
||||
TypeContact_contrat_internal_SALESREPSIGN=Comercial firmante del contrato
|
||||
TypeContact_contrat_internal_SALESREPFOLL=Comercial seguimiento del contrato
|
||||
|
||||
@ -86,6 +86,10 @@ PaymentRenewContractId=Renouvellement service (numéro %s)
|
||||
ExpiredSince=Expiré le
|
||||
RelatedContracts=Contrats associés
|
||||
NoExpiredServices=Pas de services actifs expirés
|
||||
ListOfServicesToExpireWithDuration=Liste des services actifs pour expirer à %s days
|
||||
ListOfServicesToExpire=Liste des services actifs pour expirer
|
||||
ListOfServicesToExpireNote=Note: Cette liste ne contient que des services de contrats pour des tiers liés à vous comme représentant.
|
||||
|
||||
##### Types de contacts #####
|
||||
TypeContact_contrat_internal_SALESREPSIGN=Commercial signataire du contrat
|
||||
TypeContact_contrat_internal_SALESREPFOLL=Commercial suivi du contrat
|
||||
|
||||
256
scripts/contracts/email_expire_services_to_representatives.php
Executable file
256
scripts/contracts/email_expire_services_to_representatives.php
Executable file
@ -0,0 +1,256 @@
|
||||
#!/usr/bin/php
|
||||
<?php
|
||||
/*
|
||||
* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||||
* Copyright (C) 2005-2013 Laurent Destailleur <eldy@users.sourceforge.net>
|
||||
* Copyright (C) 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 <http://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
/**
|
||||
* \file scripts/contracts/email_expire_services_to_representatives.php
|
||||
* \ingroup contracts
|
||||
* \brief Script to send a mail to dolibarr users linked to companies with services to expire
|
||||
*/
|
||||
|
||||
$sapi_type = php_sapi_name();
|
||||
$script_file = basename(__FILE__);
|
||||
$path=dirname(__FILE__).'/';
|
||||
|
||||
// Test si mode batch
|
||||
$sapi_type = php_sapi_name();
|
||||
if (substr($sapi_type, 0, 3) == 'cgi') {
|
||||
echo "Error: You are using PHP for CGI. To execute ".$script_file." from command line, you must use PHP for CLI mode.\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
if (! isset($argv[1]) || ! $argv[1] || ! in_array($argv[1],array('test','confirm')))
|
||||
{
|
||||
print "Usage: $script_file [test|confirm] [delay]\n";
|
||||
print "\n";
|
||||
print "Send an email to users to remind all contracts services to expire user is sale representative for.\n";
|
||||
print "If you choose 'test' mode, no emails are sent.\n";
|
||||
print "If you add a delay (nb of days), only invoice with due date < today + delay are included.\n";
|
||||
exit;
|
||||
}
|
||||
$mode=$argv[1];
|
||||
|
||||
|
||||
require($path."../../htdocs/master.inc.php");
|
||||
require_once (DOL_DOCUMENT_ROOT."/core/class/CMailFile.class.php");
|
||||
|
||||
$langs->load('main');
|
||||
$langs->load('contracts');
|
||||
|
||||
|
||||
/*
|
||||
* Main
|
||||
*/
|
||||
|
||||
$now=dol_now('tzserver');
|
||||
$duration_value=$argv[2];
|
||||
|
||||
$error = 0;
|
||||
print $script_file." launched with mode ".$mode.($duration_value?" delay=".$duration_value:"")."\n";
|
||||
|
||||
$sql = "SELECT DISTINCT s.nom, c.ref, cd.date_fin_validite, cd.total_ttc, p.label label, c.fk_soc,u.rowid AS uid, u.lastname, u.firstname, u.email, u.lang";
|
||||
$sql .= " FROM ".MAIN_DB_PREFIX."societe AS s, ".MAIN_DB_PREFIX."contrat AS c, ".MAIN_DB_PREFIX."contratdet AS cd";
|
||||
$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."product AS p ON p.rowid = cd.fk_product, ".MAIN_DB_PREFIX."societe_commerciaux AS sc, ".MAIN_DB_PREFIX."user AS u";
|
||||
|
||||
$sql .= " WHERE s.rowid = c.fk_soc AND c.rowid = cd.fk_contrat AND c.statut > 0 AND cd.statut<5";
|
||||
|
||||
if ($duration_value) $sql .= " AND cd.date_fin_validite < '".$db->idate(dol_time_plus_duree($now, $duration_value, "d"))."'";
|
||||
|
||||
$sql .= " AND sc.fk_soc = s.rowid AND sc.fk_user = u.rowid";
|
||||
$sql .= " ORDER BY u.email ASC, s.rowid ASC";
|
||||
|
||||
//print $sql;
|
||||
$resql=$db->query($sql);
|
||||
if ($resql)
|
||||
{
|
||||
$num = $db->num_rows($resql);
|
||||
$i = 0;
|
||||
$oldemail = 'none'; $olduid = 0; $oldlang='';
|
||||
$total = 0; $foundtoprocess = 0;
|
||||
print "We found ".$num." couples (services to expire - sale representative) qualified\n";
|
||||
dol_syslog("We found ".$num." couples (services to expire - sale representative) qualified");
|
||||
$message='';
|
||||
|
||||
if ($num)
|
||||
{
|
||||
while ($i < $num)
|
||||
{
|
||||
$obj = $db->fetch_object($resql);
|
||||
|
||||
if (($obj->email <> $oldemail || $obj->uid <> $olduid) || $oldemail == 'none')
|
||||
{
|
||||
// Break onto sales representative (new email or uid)
|
||||
if (dol_strlen($oldemail) && $oldemail != 'none')
|
||||
{
|
||||
envoi_mail($mode,$oldemail,$message,$total,$oldlang,$oldsalerepresentative,$duration_value);
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($oldemail != 'none') print "- No email sent for ".$oldsalerepresentative.", total: ".$total."\n";
|
||||
}
|
||||
$oldemail = $obj->email;
|
||||
$olduid = $obj->uid;
|
||||
$oldlang = $obj->lang;
|
||||
$oldsalerepresentative=dolGetFirstLastname($obj->firstname, $obj->lastname);;
|
||||
$message = '';
|
||||
$total = 0;
|
||||
$foundtoprocess = 0;
|
||||
$salerepresentative=dolGetFirstLastname($obj->firstname, $obj->lastname);
|
||||
if (empty($obj->email)) print "Warning: Sale representative ".$salerepresentative." has no email. Notice disabled.\n";
|
||||
}
|
||||
|
||||
if (dol_strlen($obj->email))
|
||||
{
|
||||
$message .= $langs->trans("Contract")." ".$obj->ref.": ".$langs->trans("Service")." ".$obj->label." (".price($obj->total_ttc).") ".$obj->nom."\n\n";
|
||||
dol_syslog("email_expire_services_to_representatives.php: ".$obj->email);
|
||||
$foundtoprocess++;
|
||||
}
|
||||
print "Service to expire ".$obj->ref.", label ".$obj->label.", due date ".dol_print_date($db->jdate($obj->date_fin_validite),'day')." (linked to company ".$obj->nom.", sale representative ".dolGetFirstLastname($obj->firstname, $obj->lastname).", email ".$obj->email."): ";
|
||||
if (dol_strlen($obj->email)) print "qualified.";
|
||||
else print "disqualified (no email).";
|
||||
print "\n";
|
||||
|
||||
$total += $obj->total_ttc;
|
||||
$i++;
|
||||
}
|
||||
|
||||
// Si il reste des envois en buffer
|
||||
if ($foundtoprocess)
|
||||
{
|
||||
if (dol_strlen($oldemail) && $oldemail != 'none') // Break onto email (new email)
|
||||
{
|
||||
envoi_mail($mode,$oldemail,$message,$total,$oldlang,$oldsalerepresentative,$duration_value);
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($oldemail != 'none') print "- No email sent for ".$oldsalerepresentative.", total: ".$total."\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
print "No services to expire (for companies linked to a particular commercial dolibarr user) found\n";
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
dol_print_error($db);
|
||||
dol_syslog("email_expire_services_to_representatives.php: Error");
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Send email
|
||||
*
|
||||
* @param string $mode Mode (test | confirm)
|
||||
* @param string $oldemail Old email
|
||||
* @param string $message Message to send
|
||||
* @param string $total Total amount of unpayed invoices
|
||||
* @param string $userlang Code lang to use for email output.
|
||||
* @param string $oldsalerepresentative Old sale representative
|
||||
* @param int $duration_value duration value
|
||||
* @return int <0 if KO, >0 if OK
|
||||
*/
|
||||
function envoi_mail($mode,$oldemail,$message,$total,$userlang,$oldsalerepresentative,$duration_value)
|
||||
{
|
||||
global $conf,$langs;
|
||||
|
||||
$newlangs=new Translate('',$conf);
|
||||
$newlangs->setDefaultLang($userlang);
|
||||
$newlangs->load("main");
|
||||
$newlangs->load("contracts");
|
||||
|
||||
if ($duration_value)
|
||||
$title=$newlangs->transnoentities("ListOfServicesToExpireWithDuration",$duration_value);
|
||||
else
|
||||
$title= $newlangs->transnoentities("ListOfServicesToExpire");
|
||||
|
||||
$subject = "[".(empty($conf->global->MAIN_APPLICATION_TITLE)?'Dolibarr':$conf->global->MAIN_APPLICATION_TITLE)."] ".$title;
|
||||
$sendto = $oldemail;
|
||||
$from = $conf->global->MAIN_MAIL_EMAIL_FROM;
|
||||
$errorsto = $conf->global->MAIN_MAIL_ERRORS_TO;
|
||||
$msgishtml = 0;
|
||||
|
||||
print "- Send email for ".$oldsalerepresentative." (".$oldemail."), total: ".$total."\n";
|
||||
dol_syslog("email_expire_services_to_representatives.php: send mail to ".$oldemail);
|
||||
|
||||
$usehtml=0;
|
||||
if (dol_textishtml($conf->global->SCRIPT_EMAIL_UNPAID_INVOICES_FOOTER)) $usehtml+=1;
|
||||
if (dol_textishtml($conf->global->SCRIPT_EMAIL_UNPAID_INVOICES_HEADER)) $usehtml+=1;
|
||||
|
||||
$allmessage='';
|
||||
if (! empty($conf->global->SCRIPT_EMAIL_UNPAID_INVOICES_HEADER))
|
||||
{
|
||||
$allmessage.=$conf->global->SCRIPT_EMAIL_UNPAID_INVOICES_HEADER;
|
||||
}
|
||||
else
|
||||
{
|
||||
$allmessage.= $title.($usehtml?"<br>\n":"\n").($usehtml?"<br>\n":"\n");
|
||||
$allmessage.= $newlangs->transnoentities("ListOfServicesToExpireNote").($usehtml?"<br>\n":"\n").($usehtml?"<br>\n":"\n");;
|
||||
}
|
||||
$allmessage.= $message.($usehtml?"<br>\n":"\n");
|
||||
$allmessage.= $langs->trans("Total")." = ".price($total).($usehtml?"<br>\n":"\n");
|
||||
if (! empty($conf->global->SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_FOOTER))
|
||||
{
|
||||
$allmessage.=$conf->global->SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_FOOTER;
|
||||
if (dol_textishtml($conf->global->SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_FOOTER)) $usehtml+=1;
|
||||
}
|
||||
|
||||
$mail = new CMailFile(
|
||||
$subject,
|
||||
$sendto,
|
||||
$from,
|
||||
$allmessage,
|
||||
array(),
|
||||
array(),
|
||||
array(),
|
||||
'',
|
||||
'',
|
||||
0,
|
||||
$msgishtml
|
||||
);
|
||||
|
||||
$mail->errors_to = $errorsto;
|
||||
|
||||
// Send or not email
|
||||
if ($mode == 'confirm')
|
||||
{
|
||||
$result=$mail->sendfile();
|
||||
}
|
||||
else
|
||||
{
|
||||
print "No email sent (test mode)\n";
|
||||
dol_syslog("No email sent (test mode)");
|
||||
$mail->dump_mail();
|
||||
$result=1;
|
||||
}
|
||||
|
||||
if ($result)
|
||||
{
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
?>
|
||||
Loading…
Reference in New Issue
Block a user