Script de migration des bases

  if DejaPasseScript(7) then exit;
  
  //Migration des dates -> created, modified
  temp_MigreDateCreateModified;
  
  if TypeBase=3 then //Base type 1901
  begin
  
  end else 
    if TypeBase=4 then //base type 1905
    begin
     exit; //script a passer à la main
    end else
      if TypeBase=12 then //base type SUD
      begin
        SetExercice(2022);
        DeplaceEcriture(77,772);
      end else
        if TypeBase=13 then //base EPUDF
        begin
          exit;
        end else
          if TypeBase=10 then //base type PCG
          begin
          end
  
  SetExercice(2022);
  VerifieCorrigePlanOfficiel;
  VerifieCorrigePlanInterne;
  EffacePlanUser;
  ConstruitPlanUser;
  GenerationForcee;  
  
  SetPasseScript(7);