Index: EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml =================================================================== diff -u -r32439 -r32480 --- EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml (.../OrderConverter.cls.xml) (revision 32439) +++ EXT/Unishop/PurchaseOrderService001/OrderConverter.cls.xml (.../OrderConverter.cls.xml) (revision 32480) @@ -33,7 +33,7 @@ set Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New() do ..Converter.Convert(Request.Order,Order,..OrderConverteerOpties) - + set LijnenIterator = ##class(TECH.ListIterator).%New(Request.Order.Lijnen) while LijnenIterator.HasNext() { do Order.Lijnen.Insert(..ConverteerLijn(LijnenIterator.Next())) @@ -84,11 +84,9 @@ while PropertyIterator.HasNext() { #dim PropertyName As %String = PropertyIterator.Next() continue:PropertyName="NietMeeleveren" - continue:PropertyName="VerpakkingType" - continue:PropertyName="KoppelingType" do ConverterData.Add(PropertyName,PropertyName) } - do ConverterData.Add("VerpakkingType","VerpakkingType","set Output = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()") + do ConverterData.Add("VerpakkingType","VerpakkingType","set Output = ##class(DOM.PM.enu.TAORVerpakkingType).V1()") do ConverterData.Add("KoppelingType","KoppelingType","set:Input=""D"" Output = ""Drevel"" set:Input=""S"" Output=""Schroef""") quit ConverterData ]]> Index: vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml =================================================================== diff -u -r32383 -r32480 --- vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 32383) +++ vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 32480) @@ -49,9 +49,14 @@ set Request = ##class(EXT.Unishop.PurchaseOrderService001.CreateOrder.Request).%New() set Request.Merkteken = "3}Z7Mb-(8aP*P/[]" + set Request.Order.OrderReferentie = "OrderReferentie" + set Request.Order.EdiNummer = "EDI000001" + set Request.Order.GevraagdeLeverdatum = "01/01/2020" + set Lijn = ##class(EXT.Unishop.PurchaseOrderService001.CreateOrder.OrderLijn).%New() set Lijn.Product = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrderService001.CreateOrder.LadeEigenschappenTAX).StandaardLade() set Lijn.Aantal = 6 + set Lijn.Referentie = "LijnReferentie" do Request.Order.Lijnen.Insert(Lijn) Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/DoorbesteldeOfferte.xml =================================================================== diff -u -r32463 -r32480 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32463) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32480) @@ -3,7 +3,8 @@ 2 - Alpnach Norm - Schrankelemente AG (147432/83723/2402) + OrderReferentie + EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) @@ -23,7 +24,7 @@ 6 1 - 416.4 + 419.52 Uni_Webshop 2 @@ -34,11 +35,12 @@ 2||5 http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C.JPG 6 - 69.4 + 69.92 Endkappe: Alu look - 416.4 + 419.52 + LijnReferentie 0 @@ -88,7 +90,7 @@ V - Probox + V1 Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Offerte.xml =================================================================== diff -u -r32463 -r32480 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Offerte.xml (.../Offerte.xml) (revision 32463) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Offerte.xml (.../Offerte.xml) (revision 32480) @@ -3,8 +3,11 @@ 1 + OrderReferentie + EDI000001 + 01/01/2020 @@ -23,7 +26,7 @@ 6 1 - 811.98 + 818.1 Uni_Webshop 1 @@ -34,11 +37,12 @@ 1||3 http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C.JPG 6 - 135.33 + 136.35 Endkappe: Alu look - 811.98 + 818.1 + LijnReferentie 0 @@ -88,7 +92,7 @@ V - Probox + V1 @@ -112,7 +116,8 @@ 2 - Alpnach Norm - Schrankelemente AG (147432/83723/2402) + OrderReferentie + EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) @@ -132,7 +137,7 @@ 6 1 - 416.4 + 419.52 Uni_Webshop 2 @@ -143,11 +148,12 @@ 2||5 http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C.JPG 6 - 69.4 + 69.92 Endkappe: Alu look - 416.4 + 419.52 + LijnReferentie 0 @@ -197,7 +203,7 @@ V - Probox + V1 Index: APPS/EDI/Bestel/impl/BestelService.cls.xml =================================================================== diff -u -r32274 -r32480 --- APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 32274) +++ APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 32480) @@ -39,11 +39,11 @@ do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(Aanvraag.PersonalityID) do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(Aanvraag.GebruikerID) - set ..Aanvraag = Aanvraag #dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.KlantID,Aanvraag.PersonalityID) try { + do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order) do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order) do ..ExterneVerkoopService.BestelOfferte(Offerte.OfferteID,Aanvraag.KlantID,Aanvraag.PersonalityID) set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID) @@ -57,6 +57,18 @@ ]]> + +OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order +1 + + + OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order 1 @@ -75,7 +87,7 @@ 1 Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml =================================================================== diff -u -r32161 -r32480 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 32161) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml (.../Test.cls.xml) (revision 32480) @@ -13,6 +13,7 @@ set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New() do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID")) do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID) + do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1) set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(ExterneVerkoopServiceMock) #dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = BestelService.PlaatsBestelling(..GeefAanvraag()) @@ -29,6 +30,7 @@ set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New() do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID")) do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0) + do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1) do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID") set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock) Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml =================================================================== diff -u -r32274 -r32480 --- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml (.../Aanvraag.cls.xml) (revision 32274) +++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml (.../Aanvraag.cls.xml) (revision 32480) @@ -26,6 +26,17 @@ APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order + + +1 +1 +%Status +1 + + Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/PostMessage001.txt =================================================================== diff -u -r32463 -r32480 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/PostMessage001.txt (.../PostMessage001.txt) (revision 32463) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/PostMessage001.txt (.../PostMessage001.txt) (revision 32480) @@ -16,23 +16,23 @@ 1 - - + 01/01/2020 + OrderReferentie 83723 Alpnach Norm - Schrankelemente AG (147432/83723/2402) - 416.4 - 811.98 + 419.52 + 818.1 0 6 2011-06-30 00:00:00 1 - + LijnReferentie 6 - 135.33 - 69.4 + 136.35 + 69.92 TA'OR BOX Nussbaum Natur TAX