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 + + + + + +