TECH.RegisteredObject ProductID:%String,Partij:DOM.PARTIJ.Partij,Aantal:%Integer BL.Etiket.LadeKlantEtiket BL.Etiket.LadeComponentKlantEtiket #dim Etiket As BL.Etiket.LadeKlantEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New(Partij.GeefID()) Do ..VulInBasisInfo(Etiket,ProductID,Partij,Aantal) Quit Etiket ]]> Etiket:BL.Etiket.LadeKlantEtiket,ProductID:%String,Partij:DOM.PARTIJ.Partij,Aantal:%Integer 1