New: [ task #812 ] Add more Scripts. expire contract services to

representatives

htdocs/langs/ca_ES/contracts.lang

@@ -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

htdocs/langs/en_US/contracts.lang

@@ -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

htdocs/langs/es_ES/contracts.lang

@@ -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

htdocs/langs/fr_FR/contracts.lang

@@ -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

scripts/contracts/email_expire_services_to_representatives.php

@@ -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;
+    }
+}
+
+
+?>