Index: Tools/TailWrapper.cls.xml
===================================================================
diff -u
--- Tools/TailWrapper.cls.xml (revision 0)
+++ Tools/TailWrapper.cls.xml (revision 21)
@@ -0,0 +1,110 @@
+
+
+
+%RegisteredObject
+
+
+%String
+
+
+
+%String
+
+
+
+%Integer
+100
+
+
+
+%String
+"c:\program files\windows resource kits\tools\tail"
+
+
+
+%String
+"c:\scratch\tail.bat"
+
+
+
+
+lokaal op de server met het samengesteld tail commando
+
+
+
+
+FilePath:%String
+
+
+
+
+FilePath:%String
+
+
+
+
+Aantal:%Integer
+
+
+
+
+FilePath:%String
+
+
+
+
+%String
+ "_..ToFile
+ Quit Command
+]]>
+
+
+
+ServerName
+
+
+
+
+FilePath:%String,Match:%String
+%Integer
+
+
+
+
+
+
Index: Tools/impl/RenameImplementationCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameImplementationCommand.cls.xml (revision 0)
+++ Tools/impl/RenameImplementationCommand.cls.xml (revision 21)
@@ -0,0 +1,49 @@
+
+
+
+
+1
+%RegisteredObject,Tools.impl.ICommand
+right
+
+
+%ListOfDataTypes
+1
+
+
+
+TECH.ClassInfo.MethodDefinition
+1
+
+
+
+Implementation:%ListOfDataTypes,MethodDefinition:TECH.ClassInfo.MethodDefinition
+1
+1
+%Status
+
+
+
+
+%Status
+
+
+
+
+
+
Index: Tools/dto/SQL/Role.cls.xml
===================================================================
diff -u
--- Tools/dto/SQL/Role.cls.xml (revision 0)
+++ Tools/dto/SQL/Role.cls.xml (revision 21)
@@ -0,0 +1,30 @@
+
+
+
+
+1
+%RegisteredObject,%XML.Adaptor
+right
+
+
+%String
+
+
+
+
+Tools.dto.SQL.Privileges
+array
+
+
+
+
+
+Tools.dto.SQL.Privileges
+array
+
+
+
+
+
+
+
Index: Tools/EWMSDDEControle.cls.xml
===================================================================
diff -u
--- Tools/EWMSDDEControle.cls.xml (revision 0)
+++ Tools/EWMSDDEControle.cls.xml (revision 21)
@@ -0,0 +1,136 @@
+
+
+
+%RegisteredObject
+
+
+200
+
+
+
+TailWrapper
+
+
+
+
+D ##class(Tools.EWMSDDEControle).CheckAndMail()
+1
+1
+ {
+ Do Controle.MailError(AantalErrors)
+ Do Controle.SMSError(AantalErrors)
+ }
+]]>
+
+
+
+1
+
+
+
+
+AantalErrors:%Integer
+0
+
+
+
+
+AantalErrors:%Integer
+
+
+
+
+AantalErrors:%Integer
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+oorsprong bestand op de server
+
+
+
+
+
+resultaat : bestand op de server
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: Tools/Config/ConfigItems.cls.xml
===================================================================
diff -u
--- Tools/Config/ConfigItems.cls.xml (revision 0)
+++ Tools/Config/ConfigItems.cls.xml (revision 21)
@@ -0,0 +1,63 @@
+
+
+
+%RegisteredObject
+
+
+1
+
+
+
+
+
+
+
+
+ConfigItem:%String
+%Boolean
+
+
+
+
+Routine:%Routine,ConfigItem:%String
+%Boolean
+
+
+
+
+
+
Index: Tools/impl/RenameParameterCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameParameterCommand.cls.xml (revision 0)
+++ Tools/impl/RenameParameterCommand.cls.xml (revision 21)
@@ -0,0 +1,51 @@
+
+
+
+
+1
+%RegisteredObject,Tools.impl.ICommand
+right
+
+
+%String
+1
+
+
+
+
+TECH.ClassInfo.ParameterDefinition
+1
+
+
+
+TECH.ClassInfo.MethodDefinition
+1
+
+
+
+RenameTo:%String,ParameterDefinition:TECH.ClassInfo.ParameterDefinition,MethodDefinition:TECH.ClassInfo.MethodDefinition
+1
+1
+%Status
+
+
+
+
+%Status
+
+
+
+
+
+
Index: Tools/GlobalSearch.cls.xml
===================================================================
diff -u
--- Tools/GlobalSearch.cls.xml (revision 0)
+++ Tools/GlobalSearch.cls.xml (revision 21)
@@ -0,0 +1,48 @@
+
+
+
+%RegisteredObject
+
+
+1
+Value:%String,Globals:%List=""
+
+
+
+
+1
+Value:%String,Global:%String,Dev:%String
+ ",$C(9),Global,!
+ . Set Next=""
+ . For Set Next=$O(Found(Next)) Quit:Next="" Do
+ . . Set Rec=Found(Next)
+ . . Write $LI(Rec),$C(9),$LI(Rec,2),!
+ . Write !
+ . Close:$G(CloseDev) Dev
+]]>
+
+
+
+
+
Index: Tools/Fixes/OrdersInWMS.cls.xml
===================================================================
diff -u
--- Tools/Fixes/OrdersInWMS.cls.xml (revision 0)
+++ Tools/Fixes/OrdersInWMS.cls.xml (revision 21)
@@ -0,0 +1,26 @@
+
+
+
+%RegisteredObject
+
+
+1
+
+
+
+
+
+
Index: Tools/PSExecWrapper.cls.xml
===================================================================
diff -u
--- Tools/PSExecWrapper.cls.xml (revision 0)
+++ Tools/PSExecWrapper.cls.xml (revision 21)
@@ -0,0 +1,47 @@
+
+
+
+%RegisteredObject
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+"c:\PsTools"
+
+
+
+ServerName
+
+
+
+
+Command
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: Tools/Install.cls.xml
===================================================================
diff -u
--- Tools/Install.cls.xml (revision 0)
+++ Tools/Install.cls.xml (revision 21)
@@ -0,0 +1,89 @@
+
+
+
+
+vhLib.Macro
+1
+%RegisteredObject
+
+
+1
+
+
+
+
+1
+
+
+
+
+
+
Index: Tools/CompileEnumerator.cls.xml
===================================================================
diff -u
--- Tools/CompileEnumerator.cls.xml (revision 0)
+++ Tools/CompileEnumerator.cls.xml (revision 21)
@@ -0,0 +1,176 @@
+
+
+
+
+Compileert alle persistente klasse die een bepaalde enumerator als property hebben.
+
+1
+%RegisteredObject
+
+
+
+Do ##class(Tools.CompileEnumerator).Compile("DOM.PM.enu.Variant")
+1
+EnumeratorKlasse:%String,VraagBevestiging:%Boolean=1
+
+
+
+
+1
+Enumerators:%ListOfDataTypes,VraagBevestiging:%Boolean=1
+
+
+
+
+1
+
+
+
+
+
+
+[Previously private]
+1
+ClassDefinition:%Dictionary.ClassDefinition,ArrayOfEnums:%ArrayOfDataTypes
+
+
+
+
+
+
Index: Tools/dto/SQL/Privileges.cls.xml
===================================================================
diff -u
--- Tools/dto/SQL/Privileges.cls.xml (revision 0)
+++ Tools/dto/SQL/Privileges.cls.xml (revision 21)
@@ -0,0 +1,42 @@
+
+
+
+%RegisteredObject,%XML.Adaptor
+0
+
+
+
+ValueList
+0 : geen rechten
+1 : rechten zonder grant
+2 : rechten met grant
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
Index: Tools/dto/SQL/User.cls.xml
===================================================================
diff -u
--- Tools/dto/SQL/User.cls.xml (revision 0)
+++ Tools/dto/SQL/User.cls.xml (revision 21)
@@ -0,0 +1,47 @@
+
+
+
+
+1
+%RegisteredObject,%XML.Adaptor
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+list
+
+
+
+Tools.dto.SQL.Privileges
+array
+
+
+
+
+
+Tools.dto.SQL.Privileges
+array
+
+
+
+
+
+1
+1
+%Status
+
+
+
+
Index: Tools/DatabaseControle.cls.xml
===================================================================
diff -u
--- Tools/DatabaseControle.cls.xml (revision 0)
+++ Tools/DatabaseControle.cls.xml (revision 21)
@@ -0,0 +1,101 @@
+
+
+
+vhLib.Macro
+%RegisteredObject
+
+
+1
+
+
+
+
+1
+
+
+
+
+1
+DatabaseFileName:%String
+
+
+
+
+1
+ "_InfoCurrent_" <> "_InfoPrevious)
+ }
+ }
+ set InfoPrevious = InfoCurrent
+ set Counter = Counter + 1
+ }
+ if Counter < 2 {
+ do Problemen.Insert(Namespace_" "_Global_" ---> no shadow info")
+ }
+ }
+ }
+
+ if Problemen.Size > 0 {
+ #dim From As %String = $$$SystemMail($$$Server)
+ #dim To As %List = $listbuild("jcl@vanhoecke.be")
+ #dim Subject As %String = "Problemen met shadowing naar server "_$$$Server
+ #dim Body As %String = ##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10))
+ do SendMiniMail^vhLib.Mail(From,To,Subject,Body)
+ }
+]]>
+
+
+
+1
+
+
+
+
+
+
Index: Tools/impl/RenamePropertyCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenamePropertyCommand.cls.xml (revision 0)
+++ Tools/impl/RenamePropertyCommand.cls.xml (revision 21)
@@ -0,0 +1,44 @@
+
+
+
+
+1
+%RegisteredObject,Tools.impl.ICommand
+right
+
+
+%String
+1
+
+
+
+
+TECH.ClassInfo.PropertyDefinition
+1
+
+
+
+RenameTo:%String,PropertyDefinition:TECH.ClassInfo.PropertyDefinition
+1
+1
+%Status
+
+
+
+
+%Status
+
+
+
+
+
+
Index: Tools/SQLImporter.cls.xml
===================================================================
diff -u
--- Tools/SQLImporter.cls.xml (revision 0)
+++ Tools/SQLImporter.cls.xml (revision 21)
@@ -0,0 +1,194 @@
+
+
+
+
+Do ##class(Tools.SQLImporter).Import("C:\temp\users.xml")
+%RegisteredObject
+
+
+1
+UsersXMLBestand:%String
+
+
+
+
+1
+Settings:Tools.dto.SQL.Settings
+1
+
+
+
+
+1
+Settings:Tools.dto.SQL.Settings
+1
+
+
+
+
+1
+Role:Tools.dto.SQL.Role
+1
+
+
+
+
+1
+Grantee:%String,Privileges:%ArrayOfObjects
+
+
+
+
+1
+Grantee:%String,ObjectNaam:%String,Privilege:Tools.dto.SQL.Privileges
+1
+
+
+
+
+
+Status = 0(geen), 1(toegang), 2(toegang met grant)
+1
+PrivilegeNaam:%String,ObjectNaam:%String,Grantee:%String,Status:%String
+1
+ 0 {
+ Set SQL = "GRANT "_PrivilegeNaam_" ON "_ObjectNaam_" TO "_Grantee
+ If ( Status = 2 ){
+ Set SQL = SQL_" WITH GRANT OPTION"
+ }
+ Do ..ExecuteSQL(SQL)
+ }
+]]>
+
+
+
+1
+User:Tools.dto.SQL.User
+1
+
+
+
+
+1
+Role:Tools.dto.SQL.Role
+1
+
+
+
+
+1
+User:Tools.dto.SQL.User
+1
+
+
+
+
+1
+SQL:%String
+1
+%Status
+
+
+
+
+
+
Index: Tools/impl/RenameMethodCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameMethodCommand.cls.xml (revision 0)
+++ Tools/impl/RenameMethodCommand.cls.xml (revision 21)
@@ -0,0 +1,44 @@
+
+
+
+
+1
+%RegisteredObject,Tools.impl.ICommand
+right
+
+
+%String
+1
+
+
+
+
+TECH.ClassInfo.MethodDefinition
+1
+
+
+
+RenameTo:%String,MethodDefinition:TECH.ClassInfo.MethodDefinition
+1
+1
+%Status
+
+
+
+
+%Status
+
+
+
+
+
+
Index: Tools/impl/RenameSuperCommand.cls.xml
===================================================================
diff -u
--- Tools/impl/RenameSuperCommand.cls.xml (revision 0)
+++ Tools/impl/RenameSuperCommand.cls.xml (revision 21)
@@ -0,0 +1,44 @@
+
+
+
+
+1
+%RegisteredObject,Tools.impl.ICommand
+right
+
+
+%String
+1
+
+
+
+
+TECH.ClassInfo.ClassDefinition
+1
+
+
+
+RenameTo:%String,ClassDefinition:TECH.ClassInfo.ClassDefinition
+1
+1
+%Status
+
+
+
+
+%Status
+
+
+
+
+
+
Index: Tools/dto/ECPControleGlobalInfo.cls.xml
===================================================================
diff -u
--- Tools/dto/ECPControleGlobalInfo.cls.xml (revision 0)
+++ Tools/dto/ECPControleGlobalInfo.cls.xml (revision 21)
@@ -0,0 +1,31 @@
+
+
+
+%RegisteredObject,%XML.Adaptor
+0
+
+
+%String
+
+
+
+%Boolean
+
+
+
+%String
+
+
+
+%Boolean
+
+
+
+%Boolean
+
+
+
+%Boolean
+
+
+
Index: Tools/CacheExecuter.cls.xml
===================================================================
diff -u
--- Tools/CacheExecuter.cls.xml (revision 0)
+++ Tools/CacheExecuter.cls.xml (revision 21)
@@ -0,0 +1,128 @@
+
+
+
+
+0
+%RegisteredObject
+
+
+#UNDEF#
+
+
+
+
+
+
+
+1
+P1:%String,P2:%String,P3:%String,P4:%String,P5:%String
+%String
+ wordt <"Param1","Param2">
+ New Loop,Stop
+ Set Stop=0
+ For Loop=$L(ParamStr):-1:0 Do Quit:(Stop)
+ . If $E(ParamStr,Loop)'="," Do
+ .. Set Stop=1
+ Set ParamStr=$E(ParamStr,1,Loop)
+
+ Quit ParamStr
+]]>
+
+
+
+
+
+
+
+1
+CellValue:%String
+%String
+
+
+
+
+
+
+
+
+1
+ClassName:%String,MethodName:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String
+%String
+
+
+
+
+
+
+
+
+1
+CodeStr:%String
+%String
+
+
+
+
+
+
+
+
+1
+Routine:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String
+%String
+
+
+
+
+
+
Index: Tools/dto/SQL/Settings.cls.xml
===================================================================
diff -u
--- Tools/dto/SQL/Settings.cls.xml (revision 0)
+++ Tools/dto/SQL/Settings.cls.xml (revision 21)
@@ -0,0 +1,21 @@
+
+
+
+
+1
+%RegisteredObject,%XML.Adaptor
+right
+
+
+Tools.dto.SQL.User
+list
+
+
+
+Tools.dto.SQL.Role
+list
+
+
+
+
+
Index: Tools/Global.cls.xml
===================================================================
diff -u
--- Tools/Global.cls.xml (revision 0)
+++ Tools/Global.cls.xml (revision 21)
@@ -0,0 +1,46 @@
+
+
+
+%RegisteredObject
+
+
+%String
+1
+
+
+
+Global:%String=""
+1
+1
+%Status
+1
+
+
+
+
+%String
+
+
+
+
+
+
Index: Tools/impl/ICommand.cls.xml
===================================================================
diff -u
--- Tools/impl/ICommand.cls.xml (revision 0)
+++ Tools/impl/ICommand.cls.xml (revision 21)
@@ -0,0 +1,15 @@
+
+
+
+1
+
+1
+
+
+1
+%Status
+
+
+
+
+
Index: Tools/ECPControle.cls.xml
===================================================================
diff -u
--- Tools/ECPControle.cls.xml (revision 0)
+++ Tools/ECPControle.cls.xml (revision 21)
@@ -0,0 +1,177 @@
+
+
+
+%RegisteredObject
+
+
+%String
+list
+
+
+
+%String
+list
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+
+
+
+
+
+
+
+
+WebClientInformatie:%String
+ eerste node is mis")
+ }
+
+ if 'GlobalInfo.LaatsteNodeInOrde {
+ do ..Fouten.Insert(Global _ " -> laatste node is mis")
+ }
+
+ if GlobalInfo.Onbestaand {
+ if $Data(@("^"_Global)) do ..Fouten.Insert(Global _ " -> onbestaand")
+ }
+ }
+]]>
+
+
+
+GlobalInfo:Tools.dto.ECPControle
+Tools.dto.ECPControle
+
+
+
+
+Tools.dto.ECPControle
+
+
+
+
+Global:%String
+Tools.dto.ECPControleGlobalInfo
+
+
+
+
+Global:%String
+%Boolean
+
+
+
+
+
+
+
+
+
+
Index: Tools/dto/ECPControle.cls.xml
===================================================================
diff -u
--- Tools/dto/ECPControle.cls.xml (revision 0)
+++ Tools/dto/ECPControle.cls.xml (revision 21)
@@ -0,0 +1,13 @@
+
+
+
+%RegisteredObject,%XML.Adaptor
+
+
+Tools.dto.ECPControleGlobalInfo
+array
+
+
+
+
+
Index: Tools/Comparator/DiffDogComparator.cls.xml
===================================================================
diff -u
--- Tools/Comparator/DiffDogComparator.cls.xml (revision 0)
+++ Tools/Comparator/DiffDogComparator.cls.xml (revision 21)
@@ -0,0 +1,61 @@
+
+
+
+%RegisteredObject
+
+
+Bestand1:%String,Bestand2:%String,RapportBestand:%String,StartGUI:%Boolean=0,IgnoreBlankLines:%Boolean=0,IgnoreCases:%Boolean=0,IgnoreNamespace:%Boolean=0,IgnoreOrderOfAttributes:%Boolean=0,IgnoreOrderOfChildNodes:%Boolean=0
+%Status
+
+
+
+
+
+
+
+
+Bestand1:%String,Bestand2:%String,IgnoreBlankLines:%Boolean=0,IgnoreCases:%Boolean=0
+%Boolean
+
+
+
+
+
+
Index: Tools/impl/MoveHelper.cls.xml
===================================================================
diff -u
--- Tools/impl/MoveHelper.cls.xml (revision 0)
+++ Tools/impl/MoveHelper.cls.xml (revision 21)
@@ -0,0 +1,349 @@
+
+
+
+
+1
+TECH.ClassInfo.QNameFinder
+
+
+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 = $SYSTEM.OBJ.Delete(ClassFromDefinition.Name_".cls") //##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
+
+
+
+
+
+
Index: Tools/CacheSourceUtils.cls.xml
===================================================================
diff -u
--- Tools/CacheSourceUtils.cls.xml (revision 0)
+++ Tools/CacheSourceUtils.cls.xml (revision 21)
@@ -0,0 +1,28 @@
+
+
+
+
+1
+%RegisteredObject
+
+
+
+Do ##class(Tools.CacheSourceUtils).MoveClass("KlasseVan","KlasseNaar")
+1
+ClassToMove:%String,MoveToClass:%String
+
+
+
+
+
+Do ##class(Tools.CacheSourceUtils).MovePackage("PackageVan","PackageNaar")
+1
+PackageToMove:%String,MoveToPackage:%String
+
+
+
+
+
+
Index: Tools/impl/ECPControleWebClient.cls.xml
===================================================================
diff -u
--- Tools/impl/ECPControleWebClient.cls.xml (revision 0)
+++ Tools/impl/ECPControleWebClient.cls.xml (revision 21)
@@ -0,0 +1,67 @@
+
+
+
+1
+%SOAP.WebClient
+
+
+
+This is the namespace used by the Service
+http://www.vanhoecke.be/Tools
+
+
+
+
+Use xsi:type attribute for literal types.
+1
+
+
+
+
+This is the name of the Service
+ECPControle
+
+
+
+
+This is the SOAP version supported by the service.
+1.1
+
+
+
+1
+ECPControle:Tools.dto.ECPControle
+1
+Tools.dto.ECPControle
+1
+document
+literal
+
+
+
+
+%String
+1
+
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+
+
Index: Tools/DataControle.cls.xml
===================================================================
diff -u
--- Tools/DataControle.cls.xml (revision 0)
+++ Tools/DataControle.cls.xml (revision 21)
@@ -0,0 +1,36 @@
+
+
+
+%RegisteredObject
+
+
+
+
+
+
+Global:%String,Database:%String
+1
+
+
+
+
+
+