28if (!defined(
'NOSESSION')) {
29 define(
'NOSESSION',
'1');
32$sapi_type = php_sapi_name();
33$script_file = basename(__FILE__);
37$sapi_type = php_sapi_name();
38if (substr($sapi_type, 0, 3) ==
'cgi') {
39 echo
"Error: You are using PHP for CGI. To execute ".$script_file.
" from command line, you must use PHP for CLI mode.\n";
43if (!isset($argv[2]) || !$argv[2] || !in_array($argv[1], array(
'test',
'confirm')) || !in_array($argv[2], array(
'thirdparties',
'contacts'))) {
44 print
"Usage: $script_file (test|confirm) (thirdparties|contacts) [delay] [after]\n";
46 print
"Send an email to customers to remind all unpaid customer invoices.\n";
47 print
"If you choose 'test' mode, no emails are sent.\n";
48 print
"If you add param delay (nb of days), only invoice with due date < today + delay are included.\n";
49 print
"If you add param after (nb of days), only invoice with due date >= today + delay are included.\n";
53$targettype = $argv[2];
55require $path.
"../../htdocs/master.inc.php";
56require_once DOL_DOCUMENT_ROOT.
"/core/class/CMailFile.class.php";
61$version = DOL_VERSION;
64$hookmanager->initHooks(array(
'cli'));
72print
"***** ".$script_file.
" (".$version.
") pid=".
dol_getmypid().
" *****\n";
73dol_syslog($script_file.
" launched with arg ".join(
',', $argv));
76$duration_value = isset($argv[3]) ? $argv[3] :
'none';
77$duration_value2 = isset($argv[4]) ? $argv[4] :
'none';
80print $script_file.
" launched with mode ".$mode.
" default lang=".$langs->defaultlang.(is_numeric($duration_value) ?
" delay=".$duration_value :
"").(is_numeric($duration_value2) ?
" after=".$duration_value2 :
"").
"\n";
82if ($mode !=
'confirm') {
83 $conf->global->MAIN_DISABLE_ALL_MAILS = 1;
86if (!empty($dolibarr_main_db_readonly)) {
87 print
"Error: instance in read-onyl mode\n";
91$sql =
"SELECT f.ref, f.total_ttc, f.date_lim_reglement as due_date,";
92$sql .=
" s.rowid as sid, s.nom as name, s.email, s.default_lang";
93if ($targettype ==
'contacts') {
94 $sql .=
", sp.rowid as cid, sp.firstname as cfirstname, sp.lastname as clastname, sp.email as cemail";
96$sql .=
" FROM ".MAIN_DB_PREFIX.
"facture as f, ".MAIN_DB_PREFIX.
"societe as s";
97if ($targettype ==
'contacts') {
98 $sql .=
", ".MAIN_DB_PREFIX.
"socpeople as sp";
100$sql .=
" WHERE f.fk_statut = 1 AND f.paye = 0";
101$sql .=
" AND f.fk_soc = s.rowid";
102if (is_numeric($duration_value2)) {
103 $sql .=
" AND f.date_lim_reglement >= '".$db->idate(
dol_time_plus_duree($now, $duration_value2,
"d")).
"'";
105if (is_numeric($duration_value)) {
106 $sql .=
" AND f.date_lim_reglement < '".$db->idate(
dol_time_plus_duree($now, $duration_value,
"d")).
"'";
108if ($targettype ==
'contacts') {
109 $sql .=
" AND s.rowid = sp.fk_soc";
112if ($targettype ==
'contacts') {
113 $sql .=
" sp.email, sp.rowid,";
115$sql .=
" s.email ASC, s.rowid ASC, f.ref ASC";
118$resql = $db->query($sql);
120 $num = $db->num_rows($resql);
128 $trackthirdpartiessent = array();
130 print
"We found ".$num.
" couples (unpayed validated invoices-".$targettype.
") qualified\n";
131 dol_syslog(
"We found ".$num.
" couples (unpayed validated invoices-".$targettype.
") qualified");
137 $obj = $db->fetch_object($resql);
139 $newemail = empty($obj->cemail) ? $obj->email : $obj->cemail;
143 if ($newemail != $oldemail || $oldemail ==
'none') {
146 if ($obj->sid && $obj->sid != $oldsid) {
149 if ($targettype ==
'contacts') {
150 if ($obj->cid && $obj->cid != $oldcid) {
157 if (
dol_strlen($oldemail) && $oldemail !=
'none' && empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
158 envoi_mail($mode, $oldemail, $message, $total, $oldlang, $oldtarget);
159 $trackthirdpartiessent[$oldsid.
'|'.$oldemail] =
'contact id '.$oldcid;
161 if ($oldemail !=
'none') {
162 if (empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
163 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
"\n";
165 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
" (already sent to ".$trackthirdpartiessent[$oldsid.
'|'.$oldemail].
")\n";
169 $oldemail = $newemail;
171 if ($targettype ==
'contacts') {
174 $oldlang = $obj->default_lang;
175 $oldtarget = (empty($obj->cfirstname) && empty($obj->clastname)) ? $obj->name : ($obj->clastname.
" ".$obj->cfirstname);
184 $outputlangs->setDefaultLang(empty($obj->default_lang) ? $langs->defaultlang : $obj->default_lang);
187 $outputlangs->loadLangs(array(
"main",
"bills"));
190 $message .= $outputlangs->trans(
"Invoice").
" ".$obj->ref.
" : ".
price($obj->total_ttc, 0, $outputlangs, 0, 0, -1, $conf->currency).
"\n";
191 dol_syslog(
"email_unpaid_invoices_to_customers.php: ".$newemail.
" ".$message);
194 print
"Unpaid invoice ".$obj->ref.
", price ".
price2num($obj->total_ttc).
", due date ".
dol_print_date($db->jdate($obj->due_date),
'day').
", customer id ".$obj->sid.
" ".$obj->name.
", ".(isset($obj->cid) ?
"contact id ".$obj->cid.
" ".$obj->clastname.
" ".$obj->cfirstname.
", " :
"").
"email ".$newemail.
", lang ".$outputlangs->defaultlang.
": ";
198 print
"disqualified (no email).";
204 $total += $obj->total_ttc;
210 if ($foundtoprocess) {
211 if (
dol_strlen($oldemail) && $oldemail !=
'none' && empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
212 envoi_mail($mode, $oldemail, $message, $total, $oldlang, $oldtarget);
213 $trackthirdpartiessent[$oldsid.
'|'.$oldemail] =
'contact id '.$oldcid;
215 if ($oldemail !=
'none') {
216 if (empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
217 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
"\n";
219 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
" (already sent to ".$trackthirdpartiessent[$oldsid.
'|'.$oldemail].
")\n";
225 print
"No unpaid invoices found\n";
231 dol_syslog(
"email_unpaid_invoices_to_customers.php: Error");
247function envoi_mail($mode, $oldemail, $message, $total, $userlang, $oldtarget)
249 global $conf, $langs;
251 if (getenv(
'DOL_FORCE_EMAIL_TO')) {
252 $oldemail = getenv(
'DOL_FORCE_EMAIL_TO');
256 $newlangs->setDefaultLang(empty($userlang) ?
getDolGlobalString(
'MAIN_LANG_DEFAULT',
'auto') : $userlang);
257 $newlangs->load(
"main");
258 $newlangs->load(
"bills");
260 $subject =
getDolGlobalString(
'SCRIPT_EMAIL_UNPAID_INVOICES_CUSTOMERS_SUBJECT', $newlangs->trans(
"ListOfYourUnpaidInvoices"));
266 print
"- Send email to '".$oldtarget.
"' (".$oldemail.
"), total: ".$total.
"\n";
267 dol_syslog(
"email_unpaid_invoices_to_customers.php: send mail to ".$oldemail);
279 $allmessage .= $conf->global->SCRIPT_EMAIL_UNPAID_INVOICES_CUSTOMERS_HEADER;
281 $allmessage .=
"Dear customer".($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
282 $allmessage .=
"Please, find a summary of the bills with pending payments from you.".($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
283 $allmessage .=
"Note: This list contains only unpaid invoices.".($usehtml ?
"<br>\n" :
"\n");
285 $allmessage .= $message.($usehtml ?
"<br>\n" :
"\n");
286 $allmessage .= $langs->trans(
"Total").
" = ".
price($total, 0, $userlang, 0, 0, -1, $conf->currency).($usehtml ?
"<br>\n" :
"\n");
294 $mail =
new CMailFile($subject, $sendto, $from, $allmessage, array(), array(), array(),
'',
'', 0, $msgishtml);
296 $mail->errors_to = $errorsto;
299 if ($mode ==
'confirm') {
300 $result = $mail->sendfile();
302 print
"Error sending email ".$mail->error.
"\n";
303 dol_syslog(
"Error sending email ".$mail->error.
"\n");
306 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).
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 dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.