Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r65465 -r65528
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml (.../Halffabs.cls.xml) (revision 65465)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml (.../Halffabs.cls.xml) (revision 65528)
@@ -18,14 +18,22 @@
1
+
+%Boolean
+1
+
+
%Library.Status
@@ -36,46 +44,47 @@
// We veronderstellen dat alle halffabs tot eenzelfde kenmerkenset behoren
// Daaruit volgt dat de TypeCode en de Rol van alle halffabs uit de lijst
// hetzelfde zijn.
-
- Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Start sync")
-
- #dim UnId As %String
- #dim Count As %Integer = 0
- #dim Rolstukje As %String
- #dim TypeCode As %String
-
- try {
- #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = Halffabs.GetAt(1)
- Set Halffabs = ..GeefVolledigeHalffabListVanProductVoorRol(Halffab.%ClassName(1), $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)) //Sommige halffabs hebben meerdere lijnen in vhintra voor zelfde kenmer. Zonder dit zou een lijn worden toegevoegd en al de rest wordt iedere keer verwijderd
- Set It = ##class(TECH.ListIterator).%New(Halffabs)
- While (It.HasNext()) {
- Set Halffab = It.Next()
-
- Set Count = Count + 1
- If (Count = 1) {
- Set UnId = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
- #dim Klassenaam As %String = Halffab.%ClassName(1)
- Set Rolstukje = ##class(TECH.StringUtils).GetLastPart(Klassenaam, ".")
- Set TypeCode = $Piece(Klassenaam, ".", 7)
- } Else {
- If ($Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) '! UnId) {
- Do ..Logger.Error("DotnetSync [HalffabSyncer]", "Halffab UnId wijkt af:" _ $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1))
- Throw ##class(TECH.Exceptions.InvalidInputException).%New("Halffabsyncer: alle halffabs moeten tot dezelfde kenmerkenset behoren")
+ If (..MagDezeServerSyncenNaarDotNet) {
+ Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Start sync")
+
+ #dim UnId As %String
+ #dim Count As %Integer = 0
+ #dim Rolstukje As %String
+ #dim TypeCode As %String
+
+ try {
+ #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = Halffabs.GetAt(1)
+ Set Halffabs = ..GeefVolledigeHalffabListVanProductVoorRol(Halffab.%ClassName(1), $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)) //Sommige halffabs hebben meerdere lijnen in vhintra voor zelfde kenmer. Zonder dit zou een lijn worden toegevoegd en al de rest wordt iedere keer verwijderd
+ Set It = ##class(TECH.ListIterator).%New(Halffabs)
+ While (It.HasNext()) {
+ Set Halffab = It.Next()
+
+ Set Count = Count + 1
+ If (Count = 1) {
+ Set UnId = $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1)
+ #dim Klassenaam As %String = Halffab.%ClassName(1)
+ Set Rolstukje = ##class(TECH.StringUtils).GetLastPart(Klassenaam, ".")
+ Set TypeCode = $Piece(Klassenaam, ".", 7)
+ } Else {
+ If ($Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) '! UnId) {
+ Do ..Logger.Error("DotnetSync [HalffabSyncer]", "Halffab UnId wijkt af:" _ $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1))
+ Throw ##class(TECH.Exceptions.InvalidInputException).%New("Halffabsyncer: alle halffabs moeten tot dezelfde kenmerkenset behoren")
+ }
}
+ Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Schrijf halffab UnId=" _ $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) _ ": " _ Halffab.GeefOmschrijvingVoorDocs())
+ If ((Rolstukje = "HalffabGlijder") && (TypeCode = "TAOR")) {
+ Set Rolstukje = "HalffabGeleider"
+ }
+ Do ..SchrijfHalffab(Halffab, Klassenaam, Rolstukje, TypeCode)
}
- Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Schrijf halffab UnId=" _ $Piece(Halffab.GemaaktVoorKenmerkenSetID,".",1) _ ": " _ Halffab.GeefOmschrijvingVoorDocs())
- If ((Rolstukje = "HalffabGlijder") && (TypeCode = "TAOR")) {
- Set Rolstukje = "HalffabGeleider"
- }
- Do ..SchrijfHalffab(Halffab, Klassenaam, Rolstukje, TypeCode)
- }
-
- Do ..CommitNieuweVersie(UnId, Rolstukje, TypeCode)
- } catch {
- #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
- Do ..Logger.ErrorMail("DotnetSync [HalffabSyncer]","Fout bij sync van halffab naar .Net. " _Exceptie.ToString())
- }
- Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Eind sync")
+
+ Do ..CommitNieuweVersie(UnId, Rolstukje, TypeCode)
+ } catch {
+ #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ Do ..Logger.ErrorMail("DotnetSync [HalffabSyncer]","Fout bij sync van halffab naar .Net. " _Exceptie.ToString())
+ }
+ Do ..Logger.Debug("DotnetSync [HalffabSyncer]", "Eind sync")
+ }
]]>
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml
===================================================================
diff -u -r63708 -r65528
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml (.../PPSKenmerken.cls.xml) (revision 63708)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml (.../PPSKenmerken.cls.xml) (revision 65528)
@@ -23,44 +23,53 @@
1
+
+%Boolean
+1
+
+
DateTimeAPI:TECH.DateTime.impl.DateTimeAPI="",PPSKenmerkRepository:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.PPSKenmerkRepository="",PPSKenmerkInvuller:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerkInvuller=""
%Library.Status
PPSKenmerk:Prod.Kenmerk.DataDefinitie
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml
===================================================================
diff -u -r63407 -r65528
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml (.../BewerkingsInfo.cls.xml) (revision 63407)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml (.../BewerkingsInfo.cls.xml) (revision 65528)
@@ -18,33 +18,43 @@
1
+
+%Boolean
+1
+
+
%Library.Status
BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo
Index: vhDeploy/Deploy20210819xMagDezeServerSyncenNaarDotNet.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20210819xMagDezeServerSyncenNaarDotNet.cls.xml (revision 0)
+++ vhDeploy/Deploy20210819xMagDezeServerSyncenNaarDotNet.cls.xml (revision 65528)
@@ -0,0 +1,38 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Deployen van configuratiesetting voor syncen naar .NET
+
+
+
+1
+
+
+
+
+1
+Sleutel:%String
+1
+
+
+
+
+
+