Index: APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml
===================================================================
diff -u -r50567 -r50600
--- APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 50567)
+++ APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml	(.../RegistreerLevering.cls.xml)	(revision 50600)
@@ -31,18 +31,40 @@
 	 	Set Bericht = "Levering '"_..Levering.GeefID()_"' moet een gewicht hebben om te kunnen verzenden."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
 	}
-	If (..Levering.GeefAantalColli() > 0)&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight()) {
-	 	Set Bericht = "Levering '"_..Levering.GeefID()_"' mag geen colli bevatten voor GLS Freight transport."
+	
+	If (..IsFreightVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumParcel()) {
+	 	Set Bericht = "Deze Freight levering '"_..Levering.GeefID()_"' mag niet verzonden worden via GLS Parcel transport."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
 	}
-	
-	If (..Levering.GeefAantalColli() = 0)&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumParcel()) {
-	 	Set Bericht = "Levering '"_..Levering.GeefID()_"' voor GLS Parcels bevat geen colli (geen parcels)."
+
+	If (..IsParcelVerzendWijze())&&(..Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight()) {
+	 	Set Bericht = "Deze Parcel levering '"_..Levering.GeefID()_"' mag niet verzonden worden via GLS Freight transport."
 		Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht))
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsFreightVerzendWijze">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsFreightVerzendWijze As %Boolean = (..VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())
+	Set IsFreightVerzendWijze = IsFreightVerzendWijze || (..VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())
+	Quit IsFreightVerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="IsParcelVerzendWijze">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsParcelVerzendWijze As %Boolean = (..VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
+	Set IsParcelVerzendWijze = IsParcelVerzendWijze || (..VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())
+	Set IsParcelVerzendWijze = IsParcelVerzendWijze || (..VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())
+	Quit IsParcelVerzendWijze
+]]></Implementation>
+</Method>
+
 <Method name="PrintEtiketten">
 <FormalSpec>Levering:DOM.TRANSP.Levering</FormalSpec>
 <Private>1</Private>