Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r59883 -r59990
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 59883)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 59990)
@@ -79,15 +79,19 @@
 	 	Set Bericht = "Levering '"_..Levering.GeefID()_"' moet een gewicht hebben om te kunnen verzenden."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
 	}
-	Do ##class(Tools.Wlip).%New(207).String("Verzendwijze " _ ..VerzendWijze)
 	If (..IsFreightVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).DHL()) {
 	 	Set Bericht = "Deze Freight levering '"_..Levering.GeefID()_"' mag niet verzonden worden via DHL."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
 	}
-    
-	If (..IsParcelVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD()) {
-	 	Set Bericht = "Deze Parcel levering '"_..Levering.GeefID()_"' mag niet verzonden worden via VRD."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
+    if (..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD()){
+		If (..IsParcelVerzendWijze()) {
+		 	Set Bericht = "Deze Parcel levering '"_..Levering.GeefID()_"' mag niet verzonden worden via VRD."
+			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
+		}
+		If ..Levering.GeefAantalColli()> 0 { ;collie > 31.5 kg wordt als freight beschouwd. en kan dus hier geraken
+		    Set Bericht = "Colli voor levering '"_..Levering.GeefID()_"' mag niet verzonden worden via VRD. Geef in als pallet"
+		    Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(Bericht))
+		}
 	}
 ]]></Implementation>
 </Method>