Skip to content

Commit

Permalink
Module SynergiesTechContrat: task Dolibarr#1109 Ajout d'une tache pla…
Browse files Browse the repository at this point in the history 
…nifier d'activation des services des contrats périodiquement
  • Loading branch information
@kkhelifa-opendsi
kkhelifa-opendsi authored and Alexis LAURIER committed Jan 6, 2021
1 parent 28efebc commit 3e11959
Show file tree
Hide file tree
Showing 4 changed files with 148 additions and 4 deletions.
140 changes: 140 additions & 0 deletions htdocs/custom/synergiestechcontrat/class/invoicescontracttools.class.php
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1988,6 +1988,99 @@ public function getAllExtraFieldsToString(&$object, $rl = '<br>') {
return $out;
}

/**
* Activate all contracts.
* A result may also be provided into this->output.
*
* @return int 0 if OK, < 0 if KO (this function is used also by cron so only 0 is OK)
*/
public function activateContracts()
{
global $conf, $langs, $db, $user;

$langs->load('synergiestechcontrat@synergiestechcontrat');
$now = dol_now();
$nbok = 0;
$all_error = 0;
$ref_contracts = array();
$this->output = '';

$sql = "SELECT c.rowid FROM " . MAIN_DB_PREFIX . "contrat as c" .
" LEFT JOIN " . MAIN_DB_PREFIX . "contratdet as cd ON c.rowid = cd.fk_contrat" .
" LEFT JOIN " . MAIN_DB_PREFIX . "contrat_extrafields as cef ON c.rowid = cef.fk_object" .
" WHERE cef.startdate <= '" . $db->idate($now) . "'" .
" AND cef.realdate > '" . $db->idate($now) . "'" .
" AND cd.statut != 4" .
" GROUP BY c.rowid";

dol_syslog(__METHOD__);
$resql = $db->query($sql);
if ($resql) {
require_once (DOL_DOCUMENT_ROOT."/contrat/class/contrat.class.php");

while ($obj = $db->fetch_object($resql)) {
$error = 0;
$db->begin();

$contract = new Contrat($db);
$result = $contract->fetch($obj->rowid);
if ($result > 0) {
$contract->fetch_thirdparty();

if ($this->activateContract($user, $contract) < 0) {
$error++;
setEventMessages($langs->trans("Contract") . ' : ' . $contract->ref, $this->errors, 'errors');
dol_syslog(__METHOD__ . ' ' . $langs->trans("Contract") . ' : ' . $contract->ref . ' Errors: ' . implode('; ', $this->errors), LOG_ERR);
$this->output .= $langs->trans("Contract") . ' : ' . $contract->ref . ' Errors: ' . implode('; ', $this->errors) . "\n";
}

$label = $langs->trans('STCContractActivateEventLabel', $contract->ref);
$message = $langs->trans('Author') . ' : ' . $user->login;

$result = $this->addEvent($contract, 'AC_OTH_AUTO', $label, $message);
if ($result < 0) {
$error++;
setEventMessages($langs->trans("Contract") . ' : ' . $contract->ref, $this->errors, 'errors');
dol_syslog(__METHOD__ . ' ' . $langs->trans("Contract") . ' : ' . $contract->ref . ' Errors: ' . implode('; ', $this->errors), LOG_ERR);
$this->output .= $langs->trans("Contract") . ' : ' . $contract->ref . ' Errors: ' . implode('; ', $this->errors) . "\n";
} else {
$ref_contracts[] = '- ' . $contract->ref;
$nbok++;
}
} elseif ($result == 0) {
$error++;
setEventMessage($langs->trans("ErrorRecordNotFound") . ' : ID:' . $obj->rowid, 'errors');
dol_syslog(__METHOD__ . ' ' . $langs->trans("ErrorRecordNotFound") . ' : ID:' . $obj->rowid, LOG_ERR);
$this->output .= $langs->trans("ErrorRecordNotFound") . ' : ID:' . $obj->rowid . "\n";
} else {
$error++;
setEventMessages($contract->error, $contract->errors, 'errors');
dol_syslog(__METHOD__ . ' Errors: ' . $contract->error . '; ' . implode('; ', $contract->errors), LOG_ERR);
$this->output .= ' Errors: ' . $contract->error . '; ' . implode('; ', $contract->errors) . "\n";
}

if ($error) {
$all_error += $error;
$db->rollback();
} else {
$db->commit();
}
}
}

if ($nbok > 0) {
setEventMessages($langs->trans('STCContractActivated', $nbok), $ref_contracts, 'warnings');
dol_syslog(__METHOD__ . ' ' . $langs->trans('STCContractActivated', $nbok) . ' ' . implode(' ', $ref_contracts));
$this->output .= $langs->trans('STCContractActivated', $nbok) . ' ' . implode(' ', $ref_contracts) . "\n";
} else {
setEventMessage($langs->trans('STCNoContractActivated'), 'warnings');
dol_syslog(__METHOD__ . ' ' . $langs->trans('STCNoContractActivated'));
$this->output .= $langs->trans('STCNoContractActivated') . "\n";
}

return $all_error ? $all_error : 0;
}

/**
* Terminate all contracts.
* A result may also be provided into this->output.
Expand Down Expand Up @@ -2074,4 +2167,51 @@ public function terminateContracts()

return $all_error ? $all_error : 0;
}

/**
* Activate all lines of a contract
*
* @param User $user Object User making action
* @param Contrat $contract Object of a contract
* @return void
*/
function activateContract($user, &$contract)
{
$this->db->begin();

// Load lines
$contract->fetch_lines();

$ok = true;
foreach ($contract->lines as $contratline) {
// Active line not already active
if ($contratline->statut != 4) {
$contratline->date_ouverture = dol_now();
$contratline->fk_user_ouverture = $user->id;
$contratline->statut = '4';
$result = $contratline->update($user);
if ($result < 0) {
$this->errors = array_merge($this->errors, $contratline->errors);
$ok = false;
break;
}
}
}

if ($contract->statut == 0) {
$result = $contract->validate($user);
if ($result < 0) {
$this->errors[] = $contract->error;
$ok = false;
}
}

if ($ok) {
$this->db->commit();
return 1;
} else {
$this->db->rollback();
return -1;
}
}
}
1 change: 1 addition & 0 deletions htdocs/custom/synergiestechcontrat/core/modules/modsynergiestechcontrat.class.php
View file
Original file line number Diff line number Diff line change
Expand Up @@ -223,6 +223,7 @@ public function __construct($db)
// Cronjobs (List of cron jobs entries to add when module is enabled)
$this->cronjobs = array(
0=>array('label'=>'TerminateContracts', 'jobtype'=>'method', 'class'=>'/custom/synergiestechcontrat/class/invoicescontracttools.class.php', 'objectname'=>'InvoicesContractTools', 'method'=>'terminateContracts', 'parameters'=>'', 'comment'=>'Terminate contracts periodically', 'frequency'=>1, 'unitfrequency'=>3600*24),
1=>array('label'=>'ActivateContracts', 'jobtype'=>'method', 'class'=>'/custom/synergiestechcontrat/class/invoicescontracttools.class.php', 'objectname'=>'InvoicesContractTools', 'method'=>'activateContracts', 'parameters'=>'', 'comment'=>'Activate contracts periodically', 'frequency'=>1, 'unitfrequency'=>3600*24),
// 0=>array('label'=>'MyJob label', 'jobtype'=>'method', 'class'=>'/synergiestechcontrat/class/synergiestechcontratmyjob.class.php', 'objectname'=>'synergiestechcontratMyJob', 'method'=>'myMethod', 'parameters'=>'', 'comment'=>'Comment', 'frequency'=>2, 'unitfrequency'=>3600, 'status'=>0, 'test'=>true)
);
// Example: $this->cronjobs=array(0=>array('label'=>'My label', 'jobtype'=>'method', 'class'=>'/dir/class/file.class.php', 'objectname'=>'MyClass', 'method'=>'myMethod', 'parameters'=>'', 'comment'=>'Comment', 'frequency'=>2, 'unitfrequency'=>3600, 'status'=>0, 'test'=>true),
Expand Down
3 changes: 2 additions & 1 deletion htdocs/custom/synergiestechcontrat/langs/fr_FR/synergiestechcontrat.lang
View file
Original file line number Diff line number Diff line change
Expand Up @@ -260,9 +260,10 @@ STCRenewalOfTheContractEndedEventDescription = Le contrat %s n'a pas été re
STCContractExtraFields = Attributs supplémentaires du contrat

########################################################################################################
# Terminate Event
# Activate / Terminate Event
########################################################################################################
STCContractTerminateEventLabel = Contrat %s résilié.
STCContractActivateEventLabel = Contrat %s activé.

############################################################
### Actions
Expand Down
8 changes: 5 additions & 3 deletions htdocs/custom/synergiestechcontrat/langs/fr_FR/synergiestechcontrat.lang.rej
View file
Original file line number Diff line number Diff line change
@@ -1,9 +1,11 @@
diff a/htdocs/custom/synergiestechcontrat/langs/fr_FR/synergiestechcontrat.lang b/htdocs/custom/synergiestechcontrat/langs/fr_FR/synergiestechcontrat.lang (rejected hunks)
@@ -113,6 +113,7 @@ STCTerminateContracts = Résilier les contrats
STCNoContractsToTerminate = Aucun contrat à résilier
@@ -114,6 +114,9 @@ STCNoContractsToTerminate = Aucun contrat à résilier
STCContractTerminated = Les %s contrat(s) suivant(s) ont été résilié(s) :
STCNoContractTerminated = Aucun contrat n'a été résilié
+TerminateContracts = Résiliations des contrats
TerminateContracts = Résiliations des contrats
+STCContractActivated = Les %s contrat(s) suivant(s) ont été activé(s) :
+STCNoContractActivated = Aucun contrat n'a été activé
+ActivateContracts = Activations des contrats

########################################################################################################
# Invoices Contracts Tools Class

0 comments on commit 3e11959

Please sign in to comment.