$ObjTuple->SetPrenomTuteur(ProtectApos($PrenomTuteur));
$ObjTuple->SetTelTuteur($ValTelTuteur);
$ObjTuple->SetMailTuteur($ValMailTuteur);
$ObjTuple->SetFaxTuteur($ValFaxTuteur);
$ObjTuple->SetIs_IdemTuteur($ValIs_IdemTuteur);
$ObjTuple->SetCiviliteRespAdmin($ValCiviliteRespAdmin);
$ObjTuple->SetNomRespAdmin(ProtectApos($ValNomRespAdmin));
$ObjTuple->SetPrenomRespAdmin(ProtectApos($PrenomRespAdmin));
$ObjTuple->SetTelRespAdmin($ValTelRespAdmin);
$ObjTuple->SetMailRespAdmin($ValMailRespAdmin);
$ObjTuple->SetFaxRespAdmin($ValFaxRespAdmin);
$ObjTuple->SetNomE(ProtectApos($ValNomE));
$ObjTuple->SetAdr1(ProtectApos($ValAdr1));
$ObjTuple->SetAdr2(ProtectApos($ValAdr2));
$ObjTuple->SetCP($ValCP);
$ObjTuple->SetVille(ProtectApos($ValVille));
$ObjTuple->SetFK_Entreprise($ValFK_Entreprise);
$ObjTuple->Insert();
$StepNewInscript = 'Ack';
// Envoyer un mail au responsable des stages
// =========================================
$Sujet = 'Nouvel inscrit pour stage';
$Message = 'Inscription de : ' . $ValCiviliteTuteur . ' ' . $ValPrenomTuteur . ' ' . $ValNomTuteur . ' à valider';
$Dest = $MailResponsableStages;
if ($MachineHote == INFODOC) {
die(test);
mail($Dest, $Sujet, $Message);
}
$Title = 'Accuse d\'inscription';
}
break;
array_push($CodErrInval, STATUS_SOC_IMPOSS);
$ValidStatus = $ValidFK_Entreprise = FLECHE;
}
if (($ValStatus = $StatusUser) != TUTEUR && $ValFK_Entreprise != 0) {
array_push($CodErrInval, STATUS_SANS_SOC);
$ValidStatus = $ValidFK_Entreprise = FLECHE;
}
if (!($CodErrVide || $CodErrInval)) {
// Préparation de l'enregistrement
$ObjTuple = new CUser();
$ObjTuple->SetPK_User($ValPK_User);
$ObjTuple->SetLogin($ValLogin);
$ObjTuple->SetStatus($ValStatus);
$ObjTuple->SetCivilite($ValCivilite);
$ObjTuple->SetNom(ProtectApos($ValNom));
$ObjTuple->SetPrenom(ProtectApos($ValPrenom));
$ObjTuple->SetMail($ValMail);
$ObjTuple->SetTel($ValTel);
$ObjTuple->SetFax($ValFax);
$ObjTuple->SetFK_Entreprise($ValFK_Entreprise);
if ($IdentPK == 0) {
$NewPassWord = RandomPassWord();
$ObjTuple->SetPassWord(md5($NewPassWord));
$ObjTuple->Insert();
// Enregistrement du mail à envoyer
$ConnectStages->query("INSERT INTO {$NomTabMailsToSend} VALUES (\n\t\t\t \t \t '{$ValLogin}',\n\t\t\t\t \t '{$NewPassWord}',\n\t\t\t\t \t '{$ValCivilite}',\n\t\t\t\t \t '{$ValNom}',\n\t\t\t\t \t '{$ValPrenom}',\n \t '{$ValMail}');");
} else {
$ObjTuple->SetPassWord($ValPassWord);
$ObjTuple->Update();
}
if (GetDroits($Status, 'ListeUsers')) {
$ObjStage->SetIsIntegrationEntiteIndependante($ValIsIntegrationEntiteIndependante);
$ObjStage->SetRemarquesGenerales(ProtectApos($ValRemarquesGenerales));
$ObjStage->SetNbPersCentreInfo($ValNbPersCentreInfo);
$ObjStage->SetAreOldStagiaires($ValAreOldStagiaires);
$ObjStage->SetNbStagesProposes($ValNbStagesProposes);
$ObjStage->SetNbStagesRestant($ValNbStagesProposes);
$ObjStage->SetNbPersonnesService($ValNbPersonnesService);
$ObjStage->SetIsStagiaireSeul($ValIsStagiaireSeul);
$ObjStage->SetIndemnitesMensuellesStage($ValIndemnitesMensuellesStage);
$ObjStage->SetIndemnitesRepas(ProtectApos($ValIndemnitesRepas));
$ObjStage->SetIndemnitesTransport(ProtectApos($ValIndemnitesTransport));
$ObjStage->SetIsEmbauchePossible($ValIsEmbauchePossible);
$ObjStage->SetAdr1Stage(ProtectApos($ValAdr1Stage));
$ObjStage->SetAdr2Stage(ProtectApos($ValAdr2Stage));
$ObjStage->SetCPStage($ValCPStage);
$ObjStage->SetVilleStage(ProtectApos($ValVilleStage));
$ObjStage->SetFK_Tuteur($ValFK_Tuteur);
if ($IdentPK == 0 || $SaveAsNew) {
$ObjStage->Insert();
} else {
$ObjStage->Update();
}
$StepStage = 'MAJTabOK';
}
break;
}
$Bold = $Status == TUTEUR ? '' : '<b>';
$FinBold = $Status == TUTEUR ? '' : '</b>';
if ($Status != TUTEUR) {
// ==> ADMIN || RESP || SECR
$ReqTuteurs = $ConnectStages->query("SELECT DISTINCT {$NomTabUsers}.Nom, {$NomTabUsers}.Prenom, {$NomTabUsers}.PK_User, {$NomTabEntreprises}.NomE \n\t\t FROM {$NomTabUsers}, {$NomTabEntreprises} \n\t\t WHERE {$NomTabUsers}.Status = '" . TUTEUR . "'\n\t\t\t\t\t\t\t\t AND {$NomTabUsers}.FK_Entreprise = {$NomTabEntreprises}.PK_Entreprise\n\t\t\t\t\t\t\t\t ORDER BY NomE, Nom");
$ObjSoc->SetMailR($ValMailRespAdmin);
$ObjSoc->SetFaxR($ValFaxRespAdmin);
}
$ObjSoc->Insert();
// Récupération de sa clé
$ValFK_Entreprise = $ObjSoc->PK_Entreprise;
}
// Enregistrement du tuteur
$ObjUser = new CUser();
$NewPassWord = RandomPassWord();
$ObjUser->SetLogin($ValLoginTuteur);
$ObjUser->SetPassWord(md5($NewPassWord));
$ObjUser->SetStatus(TUTEUR);
$ObjUser->SetCivilite($ValCiviliteTuteur);
$ObjUser->SetNom(ProtectApos($ValNomTuteur));
$ObjUser->SetPrenom(ProtectApos($ValPrenomTuteur));
$ObjUser->SetMail($ValMailTuteur);
$ObjUser->SetTel($ValTelTuteur);
$ObjUser->SetFax($ValFaxTuteur);
$ObjUser->SetFK_Entreprise($ValFK_Entreprise);
$ObjUser->Insert();
// Suppression de l'inscription de la table
$ObjInscript = new CNewInscript($IdentPK);
$ObjInscript->Delete();
// Enregistrement du mail à envoyer
$ConnectStages->query("INSERT INTO {$NomTabMailsToSend} VALUES (\n\t\t\t \t '{$ValLoginTuteur}',\n\t\t\t\t '{$NewPassWord}',\n\t\t\t\t '{$ValCiviliteTuteur}',\n\t\t\t\t '" . addslashes($ValNomTuteur) . "',\n\t\t\t\t '" . addslashes($ValPrenomTuteur) . "',\n '{$ValMailTuteur}');");
?>
<script>
location.replace("?Trait=List&SlxTable=<?php
echo $NomTabNewInscripts;
?>
