Index: BL/Flow/Cons/TransportFlow.cls.xml
===================================================================
diff -u -r65837 -r68917
--- BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 65837)
+++ BL/Flow/Cons/TransportFlow.cls.xml	(.../TransportFlow.cls.xml)	(revision 68917)
@@ -264,13 +264,26 @@
 <Implementation><![CDATA[
 	#dim Bon as DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
 	If Bon.GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleZwitserland(){
-		If Bon.GeefLeveringsAdres().GeefLandNr() = 1236 {
+		If Bon.GeefLeveringsAdres().GeefLandNr() = ##class(DOM.common.enu.Land).Zwitserland() {
 			Do Boodschap^vhTXTPOP("Bon voor Haefele CH : Wordt op gehaald door Haman ipv Erka!!")
 		}
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="PopupIndienVoorHaefeleNO">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BONNr</FormalSpec>
+<Implementation><![CDATA[
+	#dim Bon as DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
+	If Bon.GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleNoorwegen(){
+		If Bon.GeefLeveringsAdres().GeefLandNr() = ##class(DOM.common.enu.Land).Noorwegen() {
+			Do Boodschap^vhTXTPOP("Gelieve de factuur bij de goederen mee te geven voor Douane.")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AddLevering">
 <Description>
 Toevoegen van een leveringsbon aan een transport</Description>
@@ -305,6 +318,7 @@
 	. . Set Transport=$P(TransportAdres,"||"),Adres=$P(TransportAdres,"||",2)
 	. If 'Transport,Transport'="N" Do
 	. . Do ..PopupIndienVoorHaefeleCH(BONNr)
+	. . Do ..PopupIndienVoorHaefeleNO(BONNr)
 	. . // Selecteer een adres van deze klant
 	. . Set TransportAdres=..OpenstaandKlant("L",BONNr)
 	. . Quit:TransportAdres="A"  // Annuleer