Index: vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml =================================================================== diff -u -r53373 -r53449 --- vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 53373) +++ vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 53449) @@ -77,6 +77,7 @@ Set Winkelkar = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New() Set Winkelkar.Id = "6438735360" Set Winkelkar.KlantId = "07833" + Set Winkelkar.PrijzenNietOvernemen = $$$False Do Winkelkar.Lijnen.Insert(##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn).TAX()) quit Winkelkar ]]> Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/BeslagDesign/PasAanTest.cls.xml =================================================================== diff -u -r53371 -r53449 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/BeslagDesign/PasAanTest.cls.xml (.../PasAanTest.cls.xml) (revision 53371) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/BeslagDesign/PasAanTest.cls.xml (.../PasAanTest.cls.xml) (revision 53449) @@ -9,6 +9,8 @@ Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%New() + Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False) + Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"") Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false") @@ -17,6 +19,8 @@ Do Aanpasser.PasAan(Winkelkar) + Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True) + Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"") Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true") @@ -31,6 +35,7 @@ Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%New() + Set Winkelkar.PrijzenNietOvernemen=$$$True Set Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel="" Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") Index: WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml =================================================================== diff -u -r50355 -r53449 --- WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 50355) +++ WS/Vhisie4/WinkelkarExport/dto/Winkelkar.cls.xml (.../Winkelkar.cls.xml) (revision 53449) @@ -78,6 +78,10 @@ %Date + +%Boolean + + %Library.CacheSerialState WinkelkarState @@ -128,6 +132,9 @@ BestelOpmerking + +PrijzenNietOvernemen + Index: vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml =================================================================== diff -u -r53373 -r53449 --- vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml (.../MaatwerkLijn.cls.xml) (revision 53373) +++ vhTest/Utils/WS/Vhisie4/WinkelkarExport/dto/MaatwerkLijn.cls.xml (.../MaatwerkLijn.cls.xml) (revision 53449) @@ -3,12 +3,27 @@ TECH.RegisteredObject + + + + + + + + 1 -WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn +WS.Vhisie4.Winkelkar.dto.MaatwerkLijn Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar