TECH.RegisteredObject TECH.Mail.MailAPI 1 1 Orderlijn:DOM.VKP.ProductOrderlijn,PrijsInfo:APPS.VKP.dto.PrijsInfo,PrijsAanduiding:DOM.VKP.enu.PrijsAanduiding %Boolean TotaleKortingOrderlijn)) } Quit MagUitvoeren ]]> 1 PrijsInfo:APPS.VKP.dto.PrijsInfo,MuntDocument:%String,MuntKlant:%String,ORecalc:%Boolean=0 %Boolean MailApi:TECH.Mail.MailAPI="" 1 1 %Status 1 VerzenderNaam:%String,Ontvanger:%String,Onderwerp:%String,Inhoud:%String 1 JournaalId:%String %String 1 ResultSet:TECH.ResultSet,JournaalId:%String 1 %String 0) { Set LeverancierID = "L||"_$P(##class(AXimpl.AxToAdminUtils).ConvertSupplierIDHLX(LeverancierID),"||",2) #dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.MaakNieuwToelevering(LeverancierID) Do ToeleveringLCS.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductID, Aantal) } } While (ResultSetIterator.HasNext()) { Set rs = ResultSetIterator.Next() Set Artikelnummer = rs.Data("itemid") Set Aantal = +rs.Data("qty") Set ProductID = ProductAPI.GeefProductIdVoorIdentNummer(Artikelnummer) Do ToeleveringLCS.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductID, Aantal) } If $IsObject($Get(Toelevering)) { Do Toelevering.ZetBestelBevestigingNr(JournaalId) Do Toelevering.ZetReferentie("AFDRUK VOORRAAD") Do Toelevering.Save() Set ToeleveringID = Toelevering.GeefID() } Quit ToeleveringID ]]>