30if (!defined(
'NOSESSION')) {
31 define(
'NOSESSION',
'1');
34$sapi_type = php_sapi_name();
35$script_file = basename(__FILE__);
39$sapi_type = php_sapi_name();
40if (substr($sapi_type, 0, 3) ==
'cgi') {
41 echo
"Error: You are using PHP for CGI. To execute ".$script_file.
" from command line, you must use PHP for CLI mode.\n";
45if (!isset($argv[1]) || !$argv[1] || !in_array($argv[1], array(
'test',
'confirm'))) {
46 print
"Usage: $script_file (test|confirm) [delay]\n";
48 print
"Send an email to users to remind all unpaid customer invoices user is sale representative for.\n";
49 print
"If you choose 'test' mode, no emails are sent.\n";
50 print
"If you add a delay (nb of days), only invoice with due date < today + delay are included.\n";
55require $path.
"../../htdocs/master.inc.php";
56require_once DOL_DOCUMENT_ROOT.
'/core/lib/functionscli.lib.php';
57require_once DOL_DOCUMENT_ROOT.
"/core/class/CMailFile.class.php";
62$version = DOL_VERSION;
65$hookmanager->initHooks(array(
'cli'));
73print
"***** ".$script_file.
" (".$version.
") pid=".
dol_getmypid().
" *****\n";
74dol_syslog($script_file.
" launched with arg ".join(
',', $argv));
77$duration_value = isset($argv[2]) ? $argv[2] :
'none';
79print $script_file.
" launched with mode ".$mode.
" default lang=".$langs->defaultlang.(is_numeric($duration_value) ?
" delay=".$duration_value :
"").
"\n";
81if ($mode !=
'confirm') {
82 $conf->global->MAIN_DISABLE_ALL_MAILS = 1;
85if (!empty($dolibarr_main_db_readonly)) {
86 print
"Error: instance in read-onyl mode\n";
90$sql =
"SELECT f.ref, f.total_ttc, f.date_lim_reglement as due_date, s.nom as name, s.email, s.default_lang,";
91$sql .=
" u.rowid as uid, u.lastname, u.firstname, u.email, u.lang";
92$sql .=
" FROM ".MAIN_DB_PREFIX.
"facture as f";
93$sql .=
" , ".MAIN_DB_PREFIX.
"societe as s";
94$sql .=
" , ".MAIN_DB_PREFIX.
"societe_commerciaux as sc";
95$sql .=
" , ".MAIN_DB_PREFIX.
"user as u";
96$sql .=
" WHERE f.fk_statut = 1 AND f.paye = 0";
97$sql .=
" AND f.fk_soc = s.rowid";
98if (is_numeric($duration_value)) {
99 $sql .=
" AND f.date_lim_reglement < '".$db->idate(
dol_time_plus_duree($now, (
int) $duration_value,
"d")).
"'";
101$sql .=
" AND sc.fk_soc = s.rowid";
102$sql .=
" AND sc.fk_user = u.rowid";
103$sql .=
" ORDER BY u.email ASC, s.rowid ASC, f.ref ASC";
106$resql = $db->query($sql);
108 $num = $db->num_rows($resql);
116 print
"We found ".$num.
" couples (unpayed validated invoice - sale representative) qualified\n";
117 dol_syslog(
"We found ".$num.
" couples (unpayed validated invoice - sale representative) qualified");
119 $oldsalerepresentative = 0;
123 $obj = $db->fetch_object($resql);
125 if (($obj->email != $oldemail || $obj->uid != $olduid) || $oldemail ==
'none') {
127 if (
dol_strlen($oldemail) && $oldemail !=
'none') {
128 envoi_mail($mode, $oldemail, $message,
price2num($total), $oldlang, $oldsalerepresentative);
130 if ($oldemail !=
'none') {
131 print
"- No email sent for ".$oldsalerepresentative.
", total: ".$total.
"\n";
134 $oldemail = $obj->email;
136 $oldlang = $obj->lang;
142 if (empty($obj->email)) {
143 print
"Warning: Sale representative ".$salerepresentative.
" has no email. Notice disabled.\n";
149 $outputlangs->setDefaultLang(empty($obj->lang) ? $langs->defaultlang : $obj->lang);
152 $outputlangs->loadLangs(array(
"main",
"bills"));
155 $message .= $outputlangs->trans(
"Invoice").
" ".$obj->ref.
" : ".
price($obj->total_ttc, 0, $outputlangs, 0, 0, -1,
$conf->currency).
" : ".$obj->name.
"\n";
156 dol_syslog(
"email_unpaid_invoices_to_representatives.php: ".$obj->email);
159 print
"Unpaid invoice ".$obj->ref.
", price ".
price2num($obj->total_ttc).
", due date ".
dol_print_date($db->jdate($obj->due_date),
'day').
" (linked to company ".$obj->name.
", sale representative ".
dolGetFirstLastname($obj->firstname, $obj->lastname).
", email ".$obj->email.
", lang ".$outputlangs->defaultlang.
"): ";
163 print
"disqualified (no email).";
169 $total += $obj->total_ttc;
174 if ($foundtoprocess) {
175 if (
dol_strlen($oldemail) && $oldemail !=
'none') {
176 envoi_mail($mode, $oldemail, $message,
price2num($total), $oldlang, $oldsalerepresentative);
178 if ($oldemail !=
'none') {
179 print
"- No email sent for ".$oldsalerepresentative.
", total: ".$total.
"\n";
184 print
"No unpaid invoices (for companies linked to a particular commercial dolibarr user) found\n";
190 dol_syslog(
"email_unpaid_invoices_to_representatives.php: Error");
206function envoi_mail($mode, $oldemail, $message, $total, $userlang, $oldtarget)
208 global
$conf, $langs;
210 if (getenv(
'DOL_FORCE_EMAIL_TO')) {
211 $oldemail = getenv(
'DOL_FORCE_EMAIL_TO');
215 $newlangs->setDefaultLang(empty($userlang) ?
getDolGlobalString(
'MAIN_LANG_DEFAULT',
'auto') : $userlang);
216 $newlangs->load(
"main");
217 $newlangs->load(
"bills");
219 $subject =
getDolGlobalString(
'SCRIPT_EMAIL_UNPAID_INVOICES_SALESREPRESENTATIVES_SUBJECT', $newlangs->trans(
"ListOfYourUnpaidInvoices"));
225 print
"- Send email for ".$oldtarget.
" (".$oldemail.
"), total: ".$total.
"\n";
226 dol_syslog(
"email_unpaid_invoices_to_representatives.php: send mail to ".$oldemail);
238 $allmessage .=
getDolGlobalString(
'SCRIPT_EMAIL_UNPAID_INVOICES_SALESREPRESENTATIVES_HEADER');
240 $allmessage .= $newlangs->transnoentities(
"ListOfYourUnpaidInvoices").($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
241 $allmessage .= $newlangs->transnoentities(
"NoteListOfYourUnpaidInvoices").($usehtml ?
"<br>\n" :
"\n");
243 $allmessage .= $message.($usehtml ?
"<br>\n" :
"\n");
244 $allmessage .= $langs->trans(
"Total").
" = ".
price($total, 0, $newlangs, 0, 0, -1,
$conf->currency).($usehtml ?
"<br>\n" :
"\n");
246 $allmessage .=
getDolGlobalString(
'SCRIPT_EMAIL_UNPAID_INVOICES_SALESREPRESENTATIVES_FOOTER');
252 $mail =
new CMailFile($subject, $sendto, $from, $allmessage, array(), array(), array(),
'',
'', 0, $msgishtml);
254 $mail->errors_to = $errorsto;
257 if ($mode ==
'confirm') {
258 $result = $mail->sendfile();
260 print
"Error sending email ".$mail->error.
"\n";
261 dol_syslog(
"Error sending email ".$mail->error.
"\n");
264 print
"No email sent (test mode)\n";
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
Class to manage translations.
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
envoi_mail($mode, $oldemail, $message, $total, $userlang, $oldtarget)
Send email.
dol_getmypid()
Return getmypid() or random PID when function is disabled Some web hosts disable this php function fo...
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_now($mode='auto')
Return date for now.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dolGetFirstLastname($firstname, $lastname, $nameorder=-1)
Return firstname and lastname in correct order.
dol_textishtml($msg, $option=0)
Return if a text is a html content.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...