Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt
===================================================================
diff -u -r39973 -r40577
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt (.../WS.Vhisie4.Winkelkar.WinkelkarService.txt) (revision 39973)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Winkelkar.WinkelkarService.txt (.../WS.Vhisie4.Winkelkar.WinkelkarService.txt) (revision 40577)
@@ -45,6 +45,8 @@
+
+
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r39991 -r40577
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml (.../Test.cls.xml) (revision 39991)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml (.../Test.cls.xml) (revision 40577)
@@ -123,7 +123,8 @@
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml
===================================================================
diff -u -r39985 -r40577
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml (.../BereidVoorBestellingRequest.cls.xml) (revision 39985)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml (.../BereidVoorBestellingRequest.cls.xml) (revision 40577)
@@ -10,6 +10,8 @@
Set BereidVoorBestellingRequest = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).%New()
Set BereidVoorBestellingRequest.Winkelkar.Id = "1"
Set BereidVoorBestellingRequest.LeverAdres = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.LeverAdres).Belgisch()
+ Set BereidVoorBestellingRequest.Winkelkar.CommissieReferentie = "CommissieReferentie"
+ Set BereidVoorBestellingRequest.Winkelkar.Referentie = "Referentie"
Quit BereidVoorBestellingRequest
]]>
Index: WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r39576 -r40577
--- WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 39576)
+++ WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 40577)
@@ -21,6 +21,18 @@
+
+%String
+1
+
+
+
+
+%String
+1
+
+
+
WS.Vhisie4.Winkelkar.dto.WinkelkarLijn
list
@@ -40,6 +52,12 @@
KlantId
+
+Referentie
+
+
+CommissieReferentie
+
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r39991 -r40577
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 39991)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 40577)
@@ -67,9 +67,9 @@
Set Hoofding.LeveringDetail.Adres.Taal = BereidVoorBestellingRequest.LeverAdres.Taal
Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
- Set Hoofding.Referentie.OrderReferentie = ""
+ Set Hoofding.Referentie.OrderReferentie = BereidVoorBestellingRequest.Winkelkar.Referentie
Set Hoofding.Referentie.KlantOrderNummer = ""
- Set Hoofding.Referentie.CommissieReferentie = ""
+ Set Hoofding.Referentie.CommissieReferentie = BereidVoorBestellingRequest.Winkelkar.CommissieReferentie
Quit Hoofding
]]>