Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r48310 -r48311 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48310) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48311) @@ -111,7 +111,7 @@ #dim OrderHeader As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader = Message.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1) #dim KlantID As %String = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount) - #Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(KlantID, ..MaakGeldigOrderID(OrderHeader)) + #Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(KlantID, OrderHeader) Do ..ZetOrderHoofding(Order, OrderHeader) @@ -245,24 +245,42 @@ -KlantID:DOM.VKP.VanHoeckeKlantID,OrderID:%String +KlantID:DOM.VKP.VanHoeckeKlantID,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 DOM.VKP.Order + - Do ..Logger.Debug("Aanmaken Order", "Nieuw order met OrderID " _OrderID _" wordt aangemaakt." ) - Quit ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, OrderID) + +OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader +1 +%Boolean +