TECH.RegisteredObject %SQLGatewayConnection 1 vhLib.Logger 1 TECH.DateTime.impl.DateTimeAPI 1 %Boolean 1 %Library.Status BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo BewerkingsInfo:DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo 1 Strings toevoegen in intostuk en valuesstuk 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() _ " (BewerkingCalculatorId,Versie,LaatstAangepast" //Set IntoStuk = "INSERT INTO " _ ..GeefBewerkingInfotabelNaam() _ " (BewerkingCalculator_Id,Versie,LaatstAangepast" //DB .NET4 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 '= "") { If ((PropertyNaam = "GeldigVan") || (PropertyNaam = "GeldigTot")) { Set Waarde = ..DateTimeAPI.HorologToTimeStamp(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 1 %String 1 %String Statement:%String 1 %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 Variant:%String %Boolean