$ValidTelR = FLECHE;
}
}
$ValMailR = trim($MailR);
if (($ValFaxR = trim($FaxR)) != '' && ($Err = NormaliserTel($ValFaxR))) {
array_push($CodErrInval, $Err);
$ValidFaxR = FLECHE;
}
if (!count($CodErrVide)) {
// Validation des valeurs des attributs
}
if (!($CodErrVide || $CodErrInval)) {
$ObjTuple = new CEntreprise();
$ObjTuple->SetPK_Entreprise($ValPK_Entreprise);
$ObjTuple->SetNomE(ProtectApos($ValNomE));
$ObjTuple->SetCivilite($ValCivilite);
$ObjTuple->SetNomR(ProtectApos($ValNomR));
$ObjTuple->SetPrenomR(ProtectApos($ValPrenomR));
$ObjTuple->SetAdr1(ProtectApos($ValAdr1));
$ObjTuple->SetAdr2(ProtectApos($ValAdr2));
$ObjTuple->SetCP($ValCP);
$ObjTuple->SetVille(ProtectApos($ValVille));
$ObjTuple->SetTelR($ValTelR);
$ObjTuple->SetMailR($ValMailR);
$ObjTuple->SetFaxR($ValFaxR);
$ObjTuple->SetPresentEntreprise($ValPresentEntreprise);
if (substr($ValSiteEntreprise, 0, 7) != 'http://') {
$ValSiteEntreprise = 'http://' . $ValSiteEntreprise;
}
$ObjTuple->SetSiteEntreprise($ValSiteEntreprise);
if ($ValPK_Entreprise == 0) {
}
}
if (!(count($CodErrVide) || count($CodErrInval))) {
if ($ValFK_Entreprise == 0) {
// Création d'une nouvelle entreprise
$ObjSoc = new CEntreprise();
$ObjSoc->SetIs_Valide(1);
$ObjSoc->SetNomE(ProtectApos($ValNomE));
$ObjSoc->SetAdr1(ProtectApos($ValAdr1));
$ObjSoc->SetAdr2(ProtectApos($ValAdr2));
$ObjSoc->SetCP($ValCP);
$ObjSoc->SetVille(ProtectApos($ValVille));
if ($ValIs_IdemTuteur) {
$ValCiviliteRespAdmin = $ValCiviliteTuteur;
$ValNomRespAdmin = $ValNomTuteur;
$ObjSoc->SetCivilite(${$ValCiviliteRespAdmin});
$ObjSoc->SetNomR(ProtectApos($ValNomTuteur));
$ObjSoc->SetPrenomR(ProtectApos($ValPrenomTuteur));
$ObjSoc->SetTelR($ValTelTuteur);
$ObjSoc->SetMailR($ValMailTuteur);
$ObjSoc->SetFaxR($ValFaxTuteur);
} else {
$ObjSoc->SetCivilite(${$ValCiviliteRespAdmin});
$ObjSoc->SetNomR(ProtectApos($ValNomRespAdmin));
$ObjSoc->SetPrenomR(ProtectApos($ValPrenomRespAdmin));
$ObjSoc->SetTelR($ValTelRespAdmin);
$ObjSoc->SetMailR($ValMailRespAdmin);
$ObjSoc->SetFaxR($ValFaxRespAdmin);
}
$ObjSoc->Insert();
// Récupération de sa clé
