1 TECH.ClassInfo.QNameFinder 0 svn.Helper 1 %Boolean 1 %String 1 %String 1 ZoekOpPrefix:%Boolean=0 1 1 %Status Set cls="DUAL" Do ##class(Tools.impl.MoveHelper).%New().Move("APPS.VisiDot."_cls,"APPS.VisiDot.dto."_cls) q Do ##class(Tools.impl.MoveHelper).%New().Move("APPS.VisiDot.DUAL","APPS.VisiDot.dto.DUAL") ClassFrom:%String,ClassTo:%String 0) { Do Berichten(Class.GeefNaam()).Insert("In de method "_Method.GeefNaam()_" "_i_" keer gebruikt") Do Commands.Insert(##class(Tools.impl.RenameImplementationCommand).%New(Lijnen, Method)) Do ClassesToSave.SetAt(Class,Class.GeefNaam()) } } } } w "Volgende items zullen hernoemd worden:",!! Set Klasse = $Order(Berichten("")) While (Klasse '= "") { If (Berichten(Klasse).Count() > 0) { w "In klasse "_Klasse_":",! Set Iterator = ##class(TECH.ListIterator).%New(Berichten(Klasse)) While (Iterator.HasNext()) { w $J(" ",4)_"- "_Iterator.Next(),! } } Set Klasse = $Order(Berichten(Klasse)) } If (##class(%Dictionary.ClassDefinition).%ExistsId(ClassTo)) { w !,"WAARSCHUWING: "_ClassTo_" bestaat reeds en zal worden overschreven!",! } Set Input = "" While (Input '= "Y") && (Input '= "N") { w !,"Wilt u deze acties uitvoeren? (Y/N)",! read Input } If (Input = "Y") { w !!,"Uitvoeren van de acties:",!! Set CommandIterator = ##class(TECH.ListIterator).%New(Commands) While (CommandIterator.HasNext()) { Set Command = CommandIterator.Next() w $J(" ",4)_"- " Set Status = Command.Execute() w ! If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! } Set ClassesIterator = ##class(TECH.ListIterator).%New(ClassesToSave) While (ClassesIterator.HasNext()) { Set Class = ClassesIterator.Next() If ('##class(TECH.ListUtils).Contains(TeVerplaatsenKlassen, ##class(%Dictionary.ClassDefinition).%OpenId(Class.GeefNaam()))) { w $J(" ",4)_"- Opslaan "_Class.GeefNaam(),! Set Status = Class.Save() If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! Else Do ..ExportToSVN(Class.GeefNaam()) } } Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) While (TeVerplaatsenIterator.HasNext()) { Set ClassFromDefinition = TeVerplaatsenIterator.Next() Do ##class(%Dictionary.ClassDefinition).%DeleteId(..RenameNaar(ClassFromDefinition.Name)) w $J(" ",4)_"- Klasse "_ClassFromDefinition.Name_" verplaatsen...",! // De klasse mag pas op het einde van alle acties verplaatst worden, dit is nodig als er zich in de te verplaatsen // klasse een referentie is naar zichzelf, anders wordt deze niet hernoemd. Set Clone = ClassFromDefinition.%ConstructClone(1) Set Clone.Name = ..RenameNaar(ClassFromDefinition.Name) Set Status = Clone.%Save() If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! Else Do ..ExportToSVN(Clone.Name) } Set Input = "" While (Input '= "Y") && (Input '= "N") { w !,"Wilt u volgende klassen definitief verwijderen? (Y/N)",! Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) While (TeVerplaatsenIterator.HasNext()) { Set ClassFromDefinition = TeVerplaatsenIterator.Next() w $J(" ",4)_"- Klasse "_ClassFromDefinition.Name_"",! } read Input } If (Input = "Y") { Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen) While (TeVerplaatsenIterator.HasNext()) { Set ClassFromDefinition = TeVerplaatsenIterator.Next() Set Status = ##class(%Dictionary.ClassDefinition).%DeleteId(ClassFromDefinition.Name) If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),! Else Do ..DeleteFromSVN(ClassFromDefinition.Name) } } Do ..svnHelper.CompileImportedSourceCode() } w !!,"GELIEVE EEN NIEUWE TERMINAL TE OPENEN VOOR DE VOLGENDE VERPLAATS ACTIE!",!! ]]> Class:TECH.ClassInfo.ClassDefinition,String:%String,Prefix:%String,Suffix:%String 1 %String ClassName:%String 1 ClassName:%String 1 %String Classname:%String 1 Classname:%String 1