Index: APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml =================================================================== diff -u -r41567 -r41569 --- APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml (.../VerpakkingConvertor.cls.xml) (revision 41567) +++ APPS/VKP/impl/OfferteService/VerpakkingConvertor.cls.xml (.../VerpakkingConvertor.cls.xml) (revision 41569) @@ -11,16 +11,18 @@ While (MaatwerkLijnIterator.HasNext()) { #dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next() - #dim LadeVerpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New() - Set LadeVerpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) - Set LadeVerpakking.Gewicht = Lijn.GeefTotaalGewicht() - Set LadeVerpakking.WaardeGoederen = Lijn.GeefTotaalPrijs() - Set LadeVerpakking.ProductID = Lijn.GeefProductID() - Set LadeVerpakking.Aantal = Lijn.GeefAantal() - Set LadeVerpakking.VolumeAandeel = Lijn.GeefVolumeAandeel() - Set LadeVerpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken()) - Set LadeVerpakking.LadeType = ..GeefLadeType(Lijn.GeefIngegevenKenmerken()) - Do LadeVerpakkingList.Insert(LadeVerpakking) + if $$$Not(..GeefLadeType(Lijn.GeefIngegevenKenmerken()) = ##class(APPS.VKP.Offerte.enu.LadeType).Tandembox()) { + #dim LadeVerpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New() + Set LadeVerpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) + Set LadeVerpakking.Gewicht = Lijn.GeefTotaalGewicht() + Set LadeVerpakking.WaardeGoederen = Lijn.GeefTotaalPrijs() + Set LadeVerpakking.ProductID = Lijn.GeefProductID() + Set LadeVerpakking.Aantal = Lijn.GeefAantal() + Set LadeVerpakking.VolumeAandeel = Lijn.GeefVolumeAandeel() + Set LadeVerpakking.VerpakkingType = ..GeefVerpakkingType(Lijn.GeefIngegevenKenmerken()) + Set LadeVerpakking.LadeType = ..GeefLadeType(Lijn.GeefIngegevenKenmerken()) + Do LadeVerpakkingList.Insert(LadeVerpakking) + } } Quit ..MaakVerzendVerpakkingList(LadeVerpakkingList) ]]>