TECH.RegisteredObject 1 EXT.Unishop.PurchaseOrder001.CreateOrder.Order 1 LijnAantalTAX:%Numeric=1,LijnAantalLBX:%Numeric=1 EXT.Unishop.PurchaseOrder001.CreateOrder.Order 0) { Set Lijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New() Set Lijn.Product = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).StandaardLade() Set Lijn.Aantal = LijnAantalTAX Set Lijn.Referentie = "LijnReferentie" Do Order.Lijnen.Insert(Lijn) } If (LijnAantalLBX > 0) { Set Lijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New() Set Lijn.Product = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).StandaardLade() Set Lijn.Aantal = LijnAantalLBX Set Lijn.Referentie = "LijnReferentieLBX" Do Order.Lijnen.Insert(Lijn) } Quit Order ]]>