Script de migration du plan comptable 2021 pour les bases EPUdF

begin
  if TypeBase<>13 then exit;
  If Not ExisteExercice(2021) then exit;
  if DejaPasseScript(5) then exit;

  ForceCommit;
  //VerifieCorrigeSignature('Migration 10.0','System');

  SetExercice(2021);
  EffacePlanUser;
  ConstruitPlanUser;
  GenerationForcee;
  SauvePlanComptableInterne;

  //CopyBase('Etape1');  

UpdateConfig('EPUDF.StatCerfa.ListeCompte','754511;754521;754121');

CreerCompte('1024');
DeplaceCompte('1026','1024');
CreerCompte('1033');
DeplaceCompte('1034','1033');
CreerCompte('1034');
DeplaceCompte('1035','1034');
DeplaceCompte('1036','1034');
CreerCompte('152');
CreerCompte('1961');
DeplaceCompte('197','1961');
CreerCompte('1962');
DeplaceCompte('195','1962');
CreerCompte('195');

CreerCompte('205');
CreerCompte('24');
CreerCompte('2805');
CreerCompte('294');

CreerCompte('461');
DeplaceCompte('475','461');
CreerCompte('466');

CreerCompte('531');
DeplaceEcriture('53','531');

CreerCompte('6531');
CreerCompte('68962');
DeplaceEcriture('6895','68962');
CreerCompte('68961');
CreerCompte('68963');

DeplaceCompte('6897','68961');
CreerCompte('7071');
DeplaceEcriture('707','7071');
CreerCompte('7073');
DeplaceCompte('7587','7073');

CreerCompte('754111');
CreerCompte('754112');
CreerCompte('754121');
CreerCompte('754122');
CreerCompte('754123');
CreerCompte('754124');
CreerCompte('75413');
CreerCompte('7542');
CreerCompte('75431');
CreerCompte('754321');
CreerCompte('754322');
CreerCompte('75433');
CreerCompte('7544');
CreerCompte('754511');
CreerCompte('754512');
CreerCompte('754513');
CreerCompte('754514');
CreerCompte('754521');
CreerCompte('754522');
CreerCompte('754523');
CreerCompte('754524');
DeplaceCompte('758824','754524');
DeplaceCompte('758823','754523');
DeplaceCompte('758822','754522');
DeplaceCompte('758821','754521');
DeplaceCompte('758814','754514');
DeplaceCompte('758813','754513');
DeplaceCompte('758812','754512');
DeplaceCompte('758811','754511');
DeplaceCompte('7584','7544');
DeplaceCompte('7585','754322');
DeplaceCompte('7586','754321');
DeplaceCompte('758122','754124');
DeplaceCompte('758121','754123');
DeplaceCompte('758112','754122');
DeplaceCompte('758111','754121');
DeplaceCompte('75822','754112');
DeplaceCompte('75821','754111');
EffaceCompte('758');
CreerCompte('758');

CreerCompte('7754');
DeplaceCompte('77131','7754');
DeplaceCompte('77132','7754');
EffaceCompte('7771');
EffaceCompte('7772');
DeplaceEcriture('7771','777');
DeplaceEcriture('7772','777');
CreerCompte('78961');
CreerCompte('78962');
CreerCompte('78963');
DeplaceEcriture('7895','78962');
DeplaceCompte('7897','78961');

  VerifieCorrigePlanOfficiel;
  VerifieCorrigePlanInterne;

  EffacePlanUser;
  ConstruitPlanUser;
  GenerationForcee;
  ComparePlanComptableInterne;

  SetPasseScript(5);
end;