$ObjTuple->SetMCtrl($ValMCtrl);
$ObjTuple->SetMGP($ValMGP);
$ObjTuple->SetSujet($ValSujet);
$ObjTuple->SetProg($ValProg);
$ObjTuple->SetAnalyse($ValAnalyse);
$ObjTuple->SetPG($ValPG);
$ObjTuple->SetEI($ValEI);
$ObjTuple->SetRqs($ValRqs);
$ObjTuple->SetNPCI($ValNPCI);
$ObjTuple->SetSTAG($ValSTAG);
$ObjTuple->SetNbStag($ValNbStag);
$ObjTuple->SetNbPS($ValNbPS);
$ObjTuple->SetSEUL($ValSEUL);
$ObjTuple->SetCOLLAB($ValCOLLAB);
$ObjTuple->SetIST($ValIST);
$ObjTuple->SetMIS($ValMIS);
$ObjTuple->SetIR($ValIR);
$ObjTuple->SetMIR($ValMIR);
$ObjTuple->SetIT($ValIT);
$ObjTuple->SetMIT($ValMIT);
$ObjTuple->SetMT($ValMT);
$ObjTuple->SetMMT($ValMMT);
$ObjTuple->SetEmb($ValEmb);
$ObjTuple->SetFK_User($ValTut);
if ($IdentPK == 0) {
$ObjTuple->Insert();
} else {
if ($SaveAsNew) {
$ObjTuple->Insert();
} else {
$ObjTuple->Update();