BL.Kenm.Common 1 TECH.RegisteredObject,TECH.Mockable %String 1009 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 TECH.Persistentie.GlobalNode 1 %Boolean 1 1 %String 1 %Integer 1 Prod.ProductTekst 1 TECH.Persistentie.GlobalPersistenceMgr 1 ProductNummer:%Integer="" 1 1 %Status 1 ProductNummer:%Integer %Status subscript van de j-node wijzigt dan. */ If IsGewijzigdProduct { For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" { Do $method($property($this,"Data"_NodeIndex),"Save") } Set ^KPR(..ProductNummer, "J") = "" Do BLDIND^PRODUKT2(..ProductNummer) If ..IsNieuwProduct { Do Gemaakt^PRODUKT2(..ProductNummer) } Else { Do Gewijzigd^PRODUKT2(..ProductNummer) } Set ..IsNieuwProduct = $$$False } If ..Data1.IsGewijzigdePiece(25){ set EventData = ##class(DOM.PM.event.AdministratiefProductActiefStatusGewijzigdEventData).%New(..ProductNummer,..Data1.GeefPiece(25)) set Event = ##class(DOM.PM.event.AdministratiefProductActiefStatusGewijzigdEvent).%New(EventData) do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event) } ]]> %Boolean %String Prod.ProductTekst Taal:%String="N",RemoveCRLF:%Boolean=1 %String %String TECH.Iterator TECH.Iterator TECH.Iterator TECH.Iterator TECH.Iterator %String %String %String TECH.String Type:%String,IsSchaduw:%Boolean 1 %ListOfObjects LeverancierId:DOM.common.PartijID %String %Date %Integer %Integer %Boolean MultipleGroep:%String %ListOfDataTypes 1 %ListOfDataTypes 1 TECH.Iterator %Integer %String DOM.PM.enu.ActiefStatus %String DOM.common.PartijID %Integer %Integer %Integer VerpakkingNummer:%Integer 1 %Integer DOM.PM.ClassificatieKnoop %Numeric %String %Boolean %Boolean %Boolean DOM.PM.enu.StockType %String %String %Numeric %Boolean %Date %String DOM.PM.enu.KSProductStatus oude benaming = KATPRIJS DOM.VKP.enu.PrijsCodex oude benaming = KATPRIJS Handels DOM.VKP.enu.PrijsCodex %String %String Leveranciersprijs per GrootteOrde zonder korting %Numeric DOM.PM.enu.GrootteOrde %Numeric %Numeric %Numeric %Numeric %Numeric DOM.PM.enu.GrootteOrde %String %String %String %String %String %String %Integer %String %Numeric %String %Integer %Integer %String %String IdentNr:%String Korttekst:%String 25) { Do ##class(TECH.Exceptions.InvalidInputException).Throw("Maximum toegelaten aantal karakters is 25. De ingegeven tekst is "_$Length(Korttekst)_" lang.") } Do ..Data0.ZetPiece(1, Korttekst) ]]> HoofdGroep:%String Groep:%String SubGroep:%String KlasId:%String FSCHout:%String Telbaar:TECH.String GewichtPerDuizendStuksInKG:%Numeric AantalInGrootVerpakking:%Integer AantalInKleinVerpakking:%Integer AantalInNormaalVerpakking:%Integer PalletAantal:%Integer LeverancierReferentie:%String StockNietStock:%String CifPPL:%Numeric CifPercentage:%Numeric BarcodeWaarde:%String MinimumBestelhoeveelheid:%Integer UitverkoopSinds:%Date AantalWeken:%Integer WerkvloerEenheid:%String ActiefStatus:DOM.PM.enu.ActiefStatus LinkType:%String MuntCode:%String %String Waarde:%String %String Zone:%String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1) r%DataJ = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,JIndex) Do:($Length(JIndex)<2) ##class(Tools.Wlip).%New(207).String("J node : leverancier "_ ..LeverancierNr _" niet gekend") } Quit r%DataJ ]]> 1 %String 1