Index: APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml
===================================================================
diff -u -r36388 -r36413
--- APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml (.../TeverzendenItem.cls.xml) (revision 36388)
+++ APPS/TRANSP/OfferteService/dto/TeverzendenItem.cls.xml (.../TeverzendenItem.cls.xml) (revision 36413)
@@ -27,7 +27,7 @@
-APPS.TRANSP.dto.Afmeting
+APPS.TRANSP.OfferteService.dto.Afmeting
Index: zTryout/KCA/UPS/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r36388 -r36413
--- zTryout/KCA/UPS/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 36388)
+++ zTryout/KCA/UPS/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 36413)
@@ -79,7 +79,7 @@
Set TeverzendItem.WaardeGoederen = Item * 10
Set TeverzendItem.Gewicht = Item * 5000
Set TeverzendItem.Aantal = 1
- Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(Item * 5, Item * 10, Item * 10 )
+ Set TeverzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(Item * 5, Item * 10, Item * 10 )
Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
}
]]>
Index: APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34874 -r36413
--- APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 34874)
+++ APPS/TRANSP/Offerte/impl/UPS/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 36413)
@@ -66,6 +66,7 @@
Set BerekenRequest.BerekenInput = BerekenInput
try {
+ Do ##class(Tools.Wlip).%New(26).DataTransferObject(BerekenRequest.BerekenInput.TeVerzendenItems.GetAt(1).Afmeting)
#dim BerekenResponse As APPS.TRANSP.Offerte.impl.UPS.BerekenResponse = ..Process(BerekenRequest)
}catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
FishEye: Tag 36388 refers to a dead (removed) revision in file `APPS/TRANSP/OfferteService/dto/Afmeting.cls.xml'.
FishEye: No comparison available. Pass `N' to diff?
Index: APPS/VKP/Offerte/dto/Verpakking.cls.xml
===================================================================
diff -u -r36388 -r36413
--- APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 36388)
+++ APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 36413)
@@ -4,7 +4,7 @@
TECH.DataTransferObject
-APPS.TRANSP.dto.Afmeting
+APPS.TRANSP.OfferteService.dto.Afmeting
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r36388 -r36413
--- APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 36388)
+++ APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 36413)
@@ -269,7 +269,7 @@
#dim MaatwerkLijnIterator As TECH.Iterator = ..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID))
While (MaatwerkLijnIterator.HasNext()) {
#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next()
- #dim Afmeting As APPS.TRANSP.dto.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting())
+ #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting())
#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting ,Lijn.GeefTotaalGewicht(),Lijn.GeefTotaalPrijs(),Lijn.GeefProductID(),Lijn.GeefAantal())
Do VerpakkingList.Insert(Verpakking)
}
@@ -279,14 +279,14 @@
VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting=""
-APPS.TRANSP.dto.Afmeting
+APPS.TRANSP.OfferteService.dto.Afmeting