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 ]]>