BL.Kenm.Common 1 TECH.RegisteredObject,TECH.Mockable 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 %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 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 %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 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 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 i%DataJ = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,JIndex) } Quit i%DataJ ]]> 1 %String 1