Index: APPS/VKP/Offerte/dto/Verpakking.cls.xml =================================================================== diff -u -r37513 -r37519 --- APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 37513) +++ APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 37519) @@ -27,12 +27,12 @@ TECH.Decimal - -%Boolean + +APPS.VKP.Offerte.enu.VerpakkingType -Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="",InProbox:%Boolean="" +Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="",VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType="" 1 1 %Status @@ -44,7 +44,7 @@ Set ..ProductID = ProductID Set ..Aantal = Aantal Set ..VolumeAandeel = VolumeAandeel - Set ..InProbox = InProbox + Set ..VerpakkingType = VerpakkingType quit $$$OK ]]> Index: APPS/VKP/impl/OfferteService.cls.xml =================================================================== diff -u -r37513 -r37519 --- APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37513) +++ APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37519) @@ -292,17 +292,17 @@ Set Verpakking.ProductID = Lijn.GeefProductID() Set Verpakking.Aantal = Lijn.GeefAantal() Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel() - Set Verpakking.InProbox = ..InProbox(Lijn.GeefIngegevenKenmerken()) + Set Verpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken()) Do VerpakkingList.Insert(Verpakking) } Quit VerpakkingList ]]> - + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 -%Boolean +APPS.VKP.Offerte.enu.VerpakkingType Index: APPS/VKP/Offerte/enu/VerpakkingType/Verwerker.cls.xml =================================================================== diff -u --- APPS/VKP/Offerte/enu/VerpakkingType/Verwerker.cls.xml (revision 0) +++ APPS/VKP/Offerte/enu/VerpakkingType/Verwerker.cls.xml (revision 37519) @@ -0,0 +1,48 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +VerpakkingType:APPS.VKP.Offerte.enu.VerpakkingType + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + + + Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml =================================================================== diff -u -r37513 -r37519 --- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml (.../TestProbox.cls.xml) (revision 37513) +++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml (.../TestProbox.cls.xml) (revision 37519) @@ -3,28 +3,33 @@ vhUnitTest.TestCase - - + - - + - - + - - + + + + + -AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachtResultaat:%Boolean +AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachtResultaat:APPS.VKP.Offerte.enu.VerpakkingType 1 -Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:%Boolean +Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:APPS.VKP.Offerte.enu.VerpakkingType 1 - Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestProbox.cls.xml =================================================================== diff -u -r37513 -r37519 --- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestProbox.cls.xml (.../TestProbox.cls.xml) (revision 37513) +++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/LBX/TestProbox.cls.xml (.../TestProbox.cls.xml) (revision 37519) @@ -3,28 +3,28 @@ vhUnitTest.TestCase - - + - - + - - + - - + -AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,VerwachtResultaat:%Boolean +AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,VerwachtResultaat:APPS.VKP.Offerte.enu.VerpakkingType 1 - -Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:%Boolean + +Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:APPS.VKP.Offerte.enu.VerpakkingType 1 - Index: APPS/VKP/Offerte/enu/VerpakkingType/AutoComplete.cls.xml =================================================================== diff -u --- APPS/VKP/Offerte/enu/VerpakkingType/AutoComplete.cls.xml (revision 0) +++ APPS/VKP/Offerte/enu/VerpakkingType/AutoComplete.cls.xml (revision 37519) @@ -0,0 +1,35 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"FlatpackV1" +1 +1 + + + +%String +"Probox" +1 +1 + + + +%String +"V1" +1 +1 + + + + + Index: vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml =================================================================== diff -u -r37514 -r37519 --- vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml (.../Test.cls.xml) (revision 37514) +++ vhUnitTest/APPS/VKP/OfferteService/impl/NaarBerekenInputConverter/Test.cls.xml (.../Test.cls.xml) (revision 37519) @@ -36,7 +36,6 @@ Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).ProductID,BerekenInputDummy.TeVerzendenItems.GetAt(1).ProductID) Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Gewicht,BerekenInputDummy.TeVerzendenItems.GetAt(1).Gewicht) Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).Aantal ,BerekenInputDummy.TeVerzendenItems.GetAt(1).Aantal) - Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).InProbox ,BerekenInputDummy.TeVerzendenItems.GetAt(1).InProbox) Do $$$AssertEquals(BerekenInputResult.TeVerzendenItems.GetAt(1).VolumeAandeel ,BerekenInputDummy.TeVerzendenItems.GetAt(1).VolumeAandeel) ]]> @@ -96,7 +95,6 @@ Set TeVerzendItem.WaardeGoederen = 200 Set TeVerzendItem.Aantal = 2 Set TeVerzendItem.ProductID = "123-456" - Set TeVerzendItem.InProbox = $$$True Set TeVerzendItem.VolumeAandeel = 0.25 Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem) Index: APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml =================================================================== diff -u -r37514 -r37519 --- APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml (.../NaarBerekenInputConverter.cls.xml) (revision 37514) +++ APPS/VKP/OfferteService/impl/NaarBerekenInputConverter.cls.xml (.../NaarBerekenInputConverter.cls.xml) (revision 37519) @@ -58,7 +58,6 @@ Set TeVerzendItem.Afmeting = Verpakking.Afmeting.%ConstructClone() Set TeVerzendItem.Aantal = Verpakking.Aantal Set TeVerzendItem.ProductID = Verpakking.ProductID - Set TeVerzendItem.InProbox = Verpakking.InProbox Set TeVerzendItem.VolumeAandeel = Verpakking.VolumeAandeel Quit TeVerzendItem ]]> Index: APPS/VKP/Offerte/enu/VerpakkingType.cls.xml =================================================================== diff -u --- APPS/VKP/Offerte/enu/VerpakkingType.cls.xml (revision 0) +++ APPS/VKP/Offerte/enu/VerpakkingType.cls.xml (revision 37519) @@ -0,0 +1,38 @@ + + + +datatype +TECH.Enumeration + + +;V1;Probox;FlatpackV1 + + + +;V1;Probox;FlatpackV1 + + + +1 +APPS.VKP.Offerte.enu.VerpakkingType + + + + +1 +APPS.VKP.Offerte.enu.VerpakkingType + + + + +1 +APPS.VKP.Offerte.enu.VerpakkingType + + + + + +