Index: APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml =================================================================== diff -u -r40507 -r50563 --- APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml (.../RegistreerLevering.cls.xml) (revision 40507) +++ APPS/TRANSP/GLS/impl/CommunicatieService/RegistreerLevering.cls.xml (.../RegistreerLevering.cls.xml) (revision 50563) @@ -31,6 +31,15 @@ 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).GLSBelgiumDistribution()) { + Set Bericht = "Levering '"_..Levering.GeefID()_"' mag geen colli bevatten voor GLS Freight 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).GLSBelgium()) { + Set Bericht = "Levering '"_..Levering.GeefID()_"' voor GLS Parcels bevat geen colli (geen parcels)." + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New(Bericht)) + } ]]>