Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoRepository.cls.xml =================================================================== diff -u -r29059 -r62754 --- DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoRepository.cls.xml (.../BewerkingsInfoRepository.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoRepository.cls.xml (.../BewerkingsInfoRepository.cls.xml) (revision 62754) @@ -208,6 +208,12 @@ Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%New(..GeefFamilie(),..GeefVariant(),ProductKenmerkenSet.ProductID,..BewerkingDimensie,BewerkingCalculator,,GeldigVan,GeldigTot) } + Set EventData = ##class(TECH.Events.BewerkingsInfoGemaaktEventData).%New() + Set EventData.BewerkingsInfo = BewerkingsInfo + Set Event = ##class(TECH.Events.BewerkingsInfoGemaaktEvent).%New(EventData) + + Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) + Do BewerkingsInfo.Save() ]]> Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo/EventListener.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo/EventListener.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo/EventListener.cls.xml (revision 62754) @@ -0,0 +1,27 @@ + + + + +1 +TECH.RegisteredObject + + +1 +Event:TECH.Events.BewerkingsInfoGemaaktEvent + + + + +1 + + + + + + Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 62754) @@ -0,0 +1,19 @@ + + + +TECH.Persistentie.impl.Repository,TECH.Mockable,DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.BewerkingsInfoRepository + + +%String +DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo + + + +TECH.Iterator + + + + + + Index: vhTest/Mock/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml =================================================================== diff -u --- vhTest/Mock/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 0) +++ vhTest/Mock/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 62754) @@ -0,0 +1,77 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.BewerkingsInfoRepository,vhTest.Mock.DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.BewerkingsInfoRepository +right + + +Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI="" +%Status + + + + +ID:%String +%Boolean + + + + +Data:TECH.Persistent + + + + +Data:TECH.Persistent,Deep:%Boolean=0 +TECH.Persistent + + + + +TECH.Iterator + + + + +ID:%String +TECH.Persistent + + + + +TECH.Persistent + + + + +ID:%String + + + + +Data:TECH.Persistent + + + + +TECH.Iterator + + + + + + Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/BewerkingsInfo.cls.xml (revision 62754) @@ -0,0 +1,229 @@ + + + +TECH.RegisteredObject + + +%SQLGatewayConnection +1 + + + +vhLib.Logger +1 + + + +TECH.DateTime.impl.DateTimeAPI +1 + + + +%Library.Status + + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo + + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo + Strings toevoegen in intostuk en valuesstuk + If ((PropertyNaam = "GeldigVan") || (PropertyNaam = "GeldigTot")) { + Set Waarde = ..DateTimeAPI.HorologToTimeStamp(Waarde) + } + Set IntoStuk = IntoStuk _ "," _ PropertyNaam + Set ValuesStuk = ValuesStuk _ "," _ Waarde _ "" + } + + } + Set IntoStuk = IntoStuk _ ") " + Set ValuesStuk = ValuesStuk _ "); " + + #dim Statement As %String = IntoStuk _ ValuesStuk + + // Tweede ronde: properties van de afgeleide klasse + // We gebruiken SCOPE_IDENTITY() voor de foreign key, dit is de autogenerated ID + // van de eerste INSERT. De scope is hier de batch van queries + // (2 inserts gescheiden door ;). + Set IntoStuk = "INSERT INTO " _ ..GeefBewerkingInfotabelNaam() _ " (BewerkingCalculator_Id,Versie,LaatstAangepast" + Set ValuesStuk = "VALUES (SCOPE_IDENTITY()"_"," _ 1 _ ",'" _ ..GeefHuidigeTimeStamp()_"'" + + Set PropertiesIterator = ##class(TECH.ListIterator).%New(BewerkingsInfoKlasse.Properties) + while (PropertiesIterator.HasNext()) { + Set Property = PropertiesIterator.Next() + + Set PropertyNaam = Property.Name + Set Waarde = $zobjproperty(BewerkingsInfo, PropertyNaam) + Continue:((PropertyNaam = "BewerkingsCalculator") || (PropertyNaam = "%Concurrency") || (PropertyNaam = "%%OID")) + If (Waarde '= "") { + Set IntoStuk = IntoStuk _ ", " _ PropertyNaam + Set ValuesStuk = ValuesStuk _ ", '" _ Waarde _ "'" + } + } + + Set IntoStuk = IntoStuk _ ") " + Set ValuesStuk = ValuesStuk _ ")" + Set Statement = Statement _ IntoStuk _ ValuesStuk + + Do ..VoeruitSql(Statement) +]]> + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo + + + + +1 +%String + + + + +1 +%String + + + + +Statement:%String +%ResultSet + + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo +1 +%Integer + + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo +1 +%String + + + + +BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo +1 +%Decimal + + + + +1 +%TimeStamp + + + + + + Index: vhTest/Fake/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml =================================================================== diff -u --- vhTest/Fake/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 0) +++ vhTest/Fake/DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/BewerkingsInfoRepository.cls.xml (revision 62754) @@ -0,0 +1,75 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.BewerkingsInfoRepository + + +ID:%String +%Boolean + + + + +Data:TECH.Persistent + + + + +Data:TECH.Persistent,Deep:%Boolean=0 +TECH.Persistent + + + + +TECH.Iterator + + + + +TECH.Iterator + + + + +ID:%String +TECH.Persistent + + + + +TECH.Persistent + + + + +ID:%String + + + + +Data:TECH.Persistent + + + + +TECH.Iterator + + + + + +