16 include_once DOL_DOCUMENT_ROOT.
'/core/modules/mailings/modules_mailings.php';
17 require_once DOL_DOCUMENT_ROOT.
'/core/lib/functions2.lib.php';
25 public $name =
'DolibarrContractsLinesExpired';
27 public $desc =
'Third parties with expired contract\'s lines';
28 public $require_admin = 0;
30 public $require_module = array(
'contrat');
35 public $picto =
'company';
42 public $arrayofproducts = array();
56 $this->arrayofproducts = array();
59 $sql =
"SELECT ref FROM ".MAIN_DB_PREFIX.
"product";
60 $sql .=
" WHERE entity IN (".getEntity(
'product').
")";
61 if (empty($conf->global->CONTRACT_SUPPORT_PRODUCTS)) $sql .=
" AND fk_product_type = 1";
62 $sql .=
" ORDER BY ref";
63 $result = $this->
db->query($sql);
66 $num = $this->
db->num_rows($result);
67 dol_syslog(
"dolibarr_services_expired.modules.php:mailing_dolibarr_services_expired ".$num.
" services found");
72 $obj = $this->
db->fetch_object($result);
74 $this->arrayofproducts[$i] = $obj->ref;
92 $key =
GETPOST(
'filter',
'int');
100 $this->error =
"Error: You must choose a filter";
101 $this->errors[] = $this->error;
105 $product = $this->arrayofproducts[$key];
110 $sql =
"SELECT s.rowid as id, s.email, s.nom as name, cd.rowid as cdid, cd.date_ouverture, cd.date_fin_validite, cd.fk_contrat";
111 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s, ".MAIN_DB_PREFIX.
"contrat as c";
112 $sql .=
", ".MAIN_DB_PREFIX.
"contratdet as cd, ".MAIN_DB_PREFIX.
"product as p";
113 $sql .=
" WHERE s.entity IN (".getEntity(
'societe').
")";
114 $sql .=
" AND s.email NOT IN (SELECT email FROM ".MAIN_DB_PREFIX.
"mailing_cibles WHERE fk_mailing=".$mailing_id.
")";
115 $sql .=
" AND s.rowid = c.fk_soc AND cd.fk_contrat = c.rowid AND s.email != ''";
116 $sql .=
" AND cd.statut= 4 AND cd.fk_product=p.rowid AND p.ref = '".$this->db->escape($product).
"'";
117 $sql .=
" AND cd.date_fin_validite < '".$this->db->idate($now).
"'";
118 $sql .=
" ORDER BY s.email";
121 $result = $this->
db->query($sql);
124 $num = $this->
db->num_rows($result);
127 dol_syslog(get_class($this).
"::add_to_target ".$num.
" targets found");
132 $obj = $this->
db->fetch_object($result);
133 if ($old <> $obj->email)
136 'email' => $obj->email,
137 'lastname' => $obj->name,
140 (
'DateStart='.dol_print_date($this->db->jdate($obj->date_ouverture),
'day')).
';'.
141 (
'DateEnd='.dol_print_date($this->
db->jdate($obj->date_fin_validite),
'day')).
';'.
142 (
'Contract='.$obj->fk_contrat).
';'.
143 (
'ContactLine='.$obj->cdid),
144 'source_url' => $this->
url($obj->id),
145 'source_id' => $obj->id,
146 'source_type' =>
'thirdparty'
156 $this->error = $this->
db->lasterror();
162 return parent::addTargetsToDatabase($mailing_id, $cibles);
198 $sql =
"SELECT count(*) as nb";
199 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s, ".MAIN_DB_PREFIX.
"contrat as c";
200 $sql .=
", ".MAIN_DB_PREFIX.
"contratdet as cd, ".MAIN_DB_PREFIX.
"product as p";
201 $sql .=
" WHERE s.entity IN (".getEntity(
'societe').
")";
202 $sql .=
" AND s.rowid = c.fk_soc AND cd.fk_contrat = c.rowid AND s.email != ''";
203 $sql .=
" AND cd.statut= 4 AND cd.fk_product=p.rowid";
204 $sql .=
" AND p.ref IN ('".join(
"','", $this->arrayofproducts).
"')";
205 $sql .=
" AND cd.date_fin_validite < '".$this->db->idate($now).
"'";
207 $a = parent::getNbOfRecipients($sql);
222 $s = $langs->trans(
"ProductOrService");
223 $s .=
'<select name="filter" class="flat">';
224 if (count($this->arrayofproducts)) $s .=
'<option value="0"> </option>';
225 else $s .=
'<option value="0">'.$langs->trans(
"ContactsAllShort").
'</option>';
226 foreach ($this->arrayofproducts as $key => $val)
228 $s .=
'<option value="'.$key.
'">'.$val.
'</option>';
243 return '<a href="'.DOL_URL_ROOT.
'/societe/card.php?socid='.$id.
'">'.
img_object(
'',
"company").
'</a>';
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getSqlArrayForStats()
On the main mailing area, there is a box with statistics.
dol_now($mode= 'auto')
Return date for now.
url($id)
Can include an URL link on each record provided by selector shown on target page. ...
__construct($db)
Constructor.
$conf db
API class for accounts.
formFilter()
This is to add a form filter to provide variant of selector If used, the HTML select must be called "...
getNbOfRecipients($sql= '')
Return here number of distinct emails returned by your selector.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename= '', $restricttologhandler= '', $logcontext=null)
Write log message into outputs.
img_object($titlealt, $picto, $moreatt= '', $pictoisfullpath=false, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
Class to offer a selector of emailing targets with Rule 'services expired'.
dol_print_error($db= '', $error= '', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
add_to_target($mailing_id)
This is the main function that returns the array of emails.
Parent class of emailing target selectors modules.