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