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